6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, ComCtrls, StdCtrls, Favorite, ImgList, BoardGroup, NewFavoriteFolder;
10 TFavoriteAddDialog = class(TForm)
17 CancelButton: TButton;
18 NewFolderButton: TButton;
19 FolderTreeView: TTreeView;
21 procedure FormCreate(Sender: TObject);
22 procedure OKButtonClick(Sender: TObject);
23 procedure CancelButtonClick(Sender: TObject);
24 procedure NewFolderButtonClick(Sender: TObject);
28 FThreadItem: TThreadItem;
29 procedure CopyTree( dst, src : TTreeNode );
30 // procedure PrepareFavoriteTree(Favo: TFavoriteItem; Node: TTreeNode);
31 function GetGikoFavoriteNode(FavFolder: TFavoriteFolder): TTreeNode;
34 procedure SetBoard(Board: TBoard);
35 procedure SetThreadItem(ThreadItem: TThreadItem);
39 FavoriteAddDialog: TFavoriteAddDialog;
47 procedure TFavoriteAddDialog.CopyTree( dst, src : TTreeNode );
51 while src <> nil do begin
52 if src.HasChildren then begin
53 newNode := FolderTreeView.Items.AddChildObject( dst, src.Text, src.Data );
54 newNode.ImageIndex := src.ImageIndex;
55 newNode.SelectedIndex := src.SelectedIndex;
56 CopyTree( newNode, src.getFirstChild );
58 src := src.getNextSibling;
62 procedure TFavoriteAddDialog.FormCreate(Sender: TObject);
67 FolderTreeView.Items.BeginUpdate;
69 // FavoriteDM
\82Ì
\83t
\83H
\83\8b\83_
\8aK
\91w
\82ð
\83R
\83s
\81[
70 FolderTreeView.Items.Clear;
71 src := FavoriteDM.TreeView.Items.GetFirstNode;
72 node := TTreeNode.Create( FolderTreeView.Items );
73 node.Data := src.Data;
74 node.ImageIndex := src.ImageIndex;
75 node.SelectedIndex := src.SelectedIndex;
76 node.HasChildren := True;
77 node := FolderTreeView.Items.AddFirst( node, src.Text );
78 CopyTree( node, src.getFirstChild );
80 if FolderTreeView.Items.GetFirstNode <> nil then begin
81 FolderTreeView.Items.GetFirstNode.Expanded := True;
82 FolderTreeView.Items.GetFirstNode.Selected := True;
84 FolderTreeView.Items.EndUpdate;
86 { Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
88 Node.Data := GikoForm.Favorite.Root;
89 PrepareFavoriteTree(GikoForm.Favorite.Root, Node);
90 Node.Expanded := True;
91 Node.Selected := True;}
95 {procedure TFavoriteAddDialog.PrepareFavoriteTree(Favo: TFavoriteItem; Node: TTreeNode);
98 ChildFavo: TFavoriteItem;
101 for i := 0 to TFavoriteFolder(Favo).Count - 1 do begin
103 ChildFavo := TFavoriteFolder(Favo).Items[i];
104 if ChildFavo is TFavoriteFolder then begin
105 ChildNode := FolderTreeView.Items.AddChild(Node, ChildFavo.Title);
106 ChildNode.ImageIndex := 0;
107 ChildNode.Data := ChildFavo;
108 PrepareFavoriteTree(ChildFavo, ChildNode);
109 end else if ChildFavo is TFavoriteBoardItem then begin
110 end else if ChildFavo is TFavoriteThreadItem then begin
115 procedure TFavoriteAddDialog.OKButtonClick(Sender: TObject);
119 FavoBoardItem : TFavoriteBoardItem;
120 FavoThreadItem : TFavoriteThreadItem;
123 if FolderTreeView.Selected = nil then
126 Node := FolderTreeView.Items.GetFirstNode.getFirstChild;
127 while Node <> nil do begin
128 FavNode := GetGikoFavoriteNode(Node.Data);
129 if FavNode = nil then begin
130 FavNode := GetGikoFavoriteNode(Node.Parent.Data);
131 if FavNode <> nil then begin
132 NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Node.Text, Node.Data);
133 NewNode.ImageIndex := 14;
134 NewNode.SelectedIndex := 14;
137 Node := Node.GetNext;
140 FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);
141 if FavNode <> nil then begin
142 if FBoard <> nil then begin
143 FavoBoardItem := TFavoriteBoardItem.Create( FBoard.URL, FBoard.Title, FBoard );
144 NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);
145 NewNode.ImageIndex := 15;
146 NewNode.SelectedIndex := 15;
147 end else if FThreadItem <> nil then begin
148 FavoThreadItem := TFavoriteThreadItem.Create( FThreadItem.URL, FThreadItem.Title, FThreadItem );
149 NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);
150 NewNode.ImageIndex := 16;
151 NewNode.SelectedIndex := 16;
155 FavoriteDM.WriteFavorite;
159 procedure TFavoriteAddDialog.CancelButtonClick(Sender: TObject);
164 procedure TFavoriteAddDialog.NewFolderButtonClick(Sender: TObject);
166 Dlg: TNewFavoriteFolderDialog;
168 FavFolder: TFavoriteFolder;
170 if FolderTreeView.Selected = nil then
173 Dlg := TNewFavoriteFolderDialog.Create(Self);
176 if Dlg.ModalResult = mrOK then begin
177 if Length(Dlg.FolderEdit.Text) = 0 then
179 FavFolder := TFavoriteFolder.Create;
180 Node := FolderTreeView.Items.AddChildObject(FolderTreeView.Selected, Dlg.FolderEdit.Text, FavFolder);
181 Node.ImageIndex := 14;
182 Node.SelectedIndex := 14;
183 FolderTreeView.Selected := Node;
190 procedure TFavoriteAddDialog.SetBoard(Board: TBoard);
193 if Board = nil then Exit;
195 NameEdit.Text := Board.Title;
196 CaptionEdit.Text := Board.Title;
197 TitleLabel.Caption := '
\82±
\82Ì
\94Â
\82ª
\82¨
\8bC
\82É
\93ü
\82è
\82É
\92Ç
\89Á
\82³
\82ê
\82Ü
\82·';
198 NameLabel.Caption := '
\94Â
\96¼:';
201 procedure TFavoriteAddDialog.SetThreadItem(ThreadItem: TThreadItem);
203 FThreadItem := ThreadItem;
204 if ThreadItem = nil then Exit;
206 NameEdit.Text := ThreadItem.Title;
207 CaptionEdit.Text := ThreadItem.Title;
208 TitleLabel.Caption := '
\82±
\82Ì
\83X
\83\8c\83b
\83h
\82ª
\82¨
\8bC
\82É
\93ü
\82è
\82É
\92Ç
\89Á
\82³
\82ê
\82Ü
\82·';
209 NameLabel.Caption := '
\83X
\83\8c\83b
\83h
\96¼:';
212 function TFavoriteAddDialog.GetGikoFavoriteNode(FavFolder: TFavoriteFolder): TTreeNode;
217 Node := FavoriteDM.TreeView.Items.GetFirstNode;
218 while Node <> nil do begin
219 if Node.Data = FavFolder then begin
223 Node := Node.GetNext;