fm_newfolder.pas

realworld source code

unit FM_NewFolder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, ComCtrls, RzListVw,
  ExtCtrls, RzPanel;

type
  TFMNFolder = class(TForm)
    RzPanel1: TRzPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    RzPanel2: TRzPanel;
    Label2: TLabel;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMNFolder: TFMNFolder;

implementation
uses
 FM_RSS,FM_Favorite;
{$R *.dfm}

procedure TFMNFolder.Button1Click(Sender: TObject);
var
 Item,ItemsParent:TTreeNode;
 XMLDoc1:TXMLDocument;
 XMLNode:IXMLNode;
 SList:TStringList;
 k:integer;
begin
 if (Edit1.Text<>'') then
  begin
   XMLDoc1:=TXMLDocument.Create(Self);
   XMLDoc1.FileName:=ExtractFilePath(Application.ExeName)+'Favorite.xml';
   XMLDoc1.Active:=True;
   XMLNode:=XMLDoc1.Node.ChildNodes.Nodes[0];
   if FMRSS.RzTreeView2.Selected.Parent<>NIL THEN
    BEGIN
     SList:=TStringList.Create;
     SList.Clear;
     ItemsParent:=FMRSS.RzTreeView2.Selected.Parent;
     k:=FMRSS.RzTreeView2.Selected.Index;
     while ItemsParent<>nil do
      begin
       SList.Add(inttostr(ItemsParent.index));
       ItemsParent:=ItemsParent.Parent;
      end;
     SList.Delete(SList.Count-1);
     while SList.Text <>'' do
      begin
       XMLNode:=XMLNode.ChildNodes.Nodes[strtoint(SList.Strings[SList.Count-1])];
       SList.Delete(SList.Count-1);
      end;
     XMLNode.ChildNodes.Nodes[k].AddChild('folder').Attributes['name']:=Edit1.Text;
     Item:=FMRSS.RzTreeView2.Items.AddChild(FMRSS.RzTreeView2.Selected,Edit1.Text);
     Item.SelectedIndex:=0;
     Item.ImageIndex:=0;
   end
    else
     begin
      Item:=FMRSS.RzTreeView2.Items.AddChild(FMRSS.RzTreeView2.Selected,Edit1.Text);
      Item.SelectedIndex:=0;
      Item.ImageIndex:=0;
      XMLDoc1.Node.ChildNodes.Nodes[0].AddChild('folder').Attributes['name']:=Edit1.Text;
     end;
  XMLDOC1.SaveToFile(ExtractFilePath(Application.ExeName)+'Favorite.xml');
  XMLDoc1.Free;
  Close;
  end;
end;
procedure TFMNFolder.Button2Click(Sender: TObject);
begin
 close;
end;
procedure TFMNFolder.Button3Click(Sender: TObject);
begin
 if (Edit2.Text<>'') then
  begin
   FavoriteName:=Edit2.Text;
   Close;
  end;
end;

procedure TFMNFolder.FormCreate(Sender: TObject);
begin
 if ShowForm then
  RzPanel1.Visible:=True
 else
  RzPanel2.Visible:=True
end;

end.