fm_chanp.~pas

realworld source code

unit FM_ChanP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, xmldom, XMLIntf, msxmldom, XMLDoc,ShellApi,StrUtils;

type
  TFMChanP = class(TForm)
    Bevel2: TBevel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Edit4: TEdit;
    Image2: TImage;
    XMLDoc1: TXMLDocument;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMChanP: TFMChanP;
implementation
uses
 FM_RSS;
{$R *.dfm}
procedure TFMChanP.FormCreate(Sender: TObject);
begin
 Edit1.Text:=ChannelNames;
 Edit4.Text:=ChannelNamesList;
end;
procedure TFMChanP.Button1Click(Sender: TObject);
begin
 XMLDoc1.FileName:=ExtractFilePath(Application.ExeName)+'RSSChannel.xml';
 XMLDoc1.Active:=True;
 ChannelNodeItem.Attributes['Name']:=Edit1.Text;
 ChannelNodeItem.NodeValue:=Edit4.Text;
 if RightStr(FMRss.RzTreeView1.Selected.Text,1)=#10 then
  FMRss.RzTreeView1.Selected.Text:=Edit1.Text+#10
 else
  FMRss.RzTreeView1.Selected.Text:=Edit1.Text;
 Close;
end;
procedure TFMChanP.Button2Click(Sender: TObject);
begin
 ShellExecute(handle,'open',PChar(Edit4.Text),nil,nil,sw_show);
end;

end.