Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/FavoriteArrange.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.3 - (show annotations) (download) (as text)
Thu Sep 4 08:22:06 2003 UTC (20 years, 7 months ago) by h677
Branch: MAIN
CVS Tags: b37, b44, b41, b40, b43, b46
Branch point for: stable
Changes since 1.2: +1 -1 lines
File MIME type: text/x-pascal
コンパイル時に[警告][ヒント]がなるべく出ないように修正。

1 unit FavoriteArrange;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, ComCtrls, StdCtrls, ExtCtrls, Favorite, ImgList, NewFavoriteFolder,
8 GikoSystem, GikoUtil;
9
10 type
11 TFavoriteArrangeDialog = class(TForm)
12 Panel1: TPanel;
13 Panel2: TPanel;
14 Panel3: TPanel;
15 Label1: TLabel;
16 DeleteButton: TButton;
17 RenameButton: TButton;
18 NewFolderButton: TButton;
19 FolderTreeView: TTreeView;
20 Panel4: TPanel;
21 CloseButton: TButton;
22 procedure CloseButtonClick(Sender: TObject);
23 procedure FormCreate(Sender: TObject);
24 procedure NewFolderButtonClick(Sender: TObject);
25 procedure RenameButtonClick(Sender: TObject);
26 procedure DeleteButtonClick(Sender: TObject);
27 procedure FolderTreeViewEdited(Sender: TObject; Node: TTreeNode;
28 var S: String);
29 procedure FolderTreeViewDragOver(Sender, Source: TObject; X,
30 Y: Integer; State: TDragState; var Accept: Boolean);
31 procedure FolderTreeViewDragDrop(Sender, Source: TObject; X,
32 Y: Integer);
33 procedure FormDestroy(Sender: TObject);
34 private
35 { Private 鐃緒申鐃緒申 }
36 // FDragNode: TTreeNode;
37 FDeleteList: TList;
38 // procedure PrepareFavoriteTree(Favo: TFavoriteItem; Node: TTreeNode);
39 procedure SetDeleteItemList(Node: TTreeNode);
40 public
41 { Public 鐃緒申鐃緒申 }
42 end;
43
44 var
45 FavoriteArrangeDialog: TFavoriteArrangeDialog;
46
47 implementation
48
49 uses Giko;
50
51 {$R *.dfm}
52
53 procedure TFavoriteArrangeDialog.CloseButtonClick(Sender: TObject);
54 begin
55 Close;
56 end;
57
58 procedure TFavoriteArrangeDialog.FormCreate(Sender: TObject);
59 begin
60 FDeleteList := TList.Create;
61 FolderTreeView.Items := FavoriteDM.TreeView.Items;
62
63 if FolderTreeView.Items.GetFirstNode <> nil then begin
64 FolderTreeView.Items.GetFirstNode.Expanded := True;
65 FolderTreeView.Items.GetFirstNode.Selected := True;
66 end;
67
68
69 { Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
70 Node.ImageIndex := 0;
71 Node.Data := GikoForm.Favorite.Root;
72 PrepareFavoriteTree(GikoForm.Favorite.Root, Node);
73 Node.Expanded := True;
74 Node.Selected := True;}
75 end;
76
77 {procedure TFavoriteArrangeDialog.PrepareFavoriteTree(Favo: TFavoriteItem; Node: TTreeNode);
78 var
79 i: Integer;
80 ChildFavo: TFavoriteItem;
81 ChildNode: TTreeNode;
82 begin
83 { for i := 0 to TFavoriteFolder(Favo).Count - 1 do begin
84
85 ChildFavo := TFavoriteFolder(Favo).Items[i];
86 if ChildFavo is TFavoriteFolder then begin
87 ChildNode := FolderTreeView.Items.AddChild(Node, ChildFavo.Title);
88 ChildNode.ImageIndex := 0;
89 ChildNode.SelectedIndex := 0;
90 ChildNode.Data := ChildFavo;
91 PrepareFavoriteTree(ChildFavo, ChildNode);
92 end else if ChildFavo is TFavoriteBoardItem then begin
93 ChildNode := FolderTreeView.Items.AddChild(Node, ChildFavo.Title);
94 ChildNode.ImageIndex := 1;
95 ChildNode.SelectedIndex := 1;
96 ChildNode.Data := ChildFavo;
97 end else if ChildFavo is TFavoriteThreadItem then begin
98 ChildNode := FolderTreeView.Items.AddChild(Node, ChildFavo.Title);
99 ChildNode.ImageIndex := 2;
100 ChildNode.SelectedIndex := 2;
101 ChildNode.Data := ChildFavo;
102 end;
103 end;
104 end; }
105
106 procedure TFavoriteArrangeDialog.NewFolderButtonClick(Sender: TObject);
107 var
108 Dlg: TNewFavoriteFolderDialog;
109 NewFavFolder: TFavoriteFolder;
110 Node: TTreeNode;
111 begin
112 if FolderTreeView.Selected = nil then
113 Exit;
114 Dlg := TNewFavoriteFolderDialog.Create(Self);
115 try
116 Dlg.ShowModal;
117 if Dlg.ModalResult = mrOK then begin
118 if Length(Dlg.FolderEdit.Text) = 0 then
119 Exit;
120 if not (TObject(FolderTreeView.Selected.Data) is TFavoriteFolder) then
121 FolderTreeView.Selected := FolderTreeView.Selected.Parent;
122
123 NewFavFolder := TFavoriteFolder.Create;
124 Node := FolderTreeView.Items.AddChildObject(FolderTreeView.Selected, Dlg.FolderEdit.Text, NewFavFolder);
125 Node.ImageIndex := 14;
126 Node.SelectedIndex := 14;
127 // FolderTreeView.Selected.Expanded := True;
128 FolderTreeView.Selected := Node;
129 end;
130 finally
131 Dlg.Free;
132 end;
133 end;
134
135 procedure TFavoriteArrangeDialog.RenameButtonClick(Sender: TObject);
136 begin
137 if FolderTreeView.Selected = nil then
138 Exit;
139 if FolderTreeView.Selected.IsFirstNode then
140 Exit;
141 if FolderTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then
142 Exit;
143 FolderTreeView.ReadOnly := False;
144 FolderTreeView.Selected.EditText;
145 end;
146
147 procedure TFavoriteArrangeDialog.DeleteButtonClick(Sender: TObject);
148 begin
149 if FolderTreeView.Selected = nil then
150 Exit;
151 if FolderTreeView.Selected.IsFirstNode then
152 Exit;
153 if FolderTreeView.Selected.Text = Favorite.FAVORITE_LINK_NAME then begin
154 if MsgBox(Handle, '鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?', '鐃?鐃?', MB_YESNO or MB_ICONQUESTION) <> ID_YES then
155 Exit;
156 end;
157
158 FDeleteList.Add(FolderTreeView.Selected.Data);
159 SetDeleteItemList(FolderTreeView.Selected);
160
161 FolderTreeView.Selected.Delete;
162 end;
163
164 procedure TFavoriteArrangeDialog.FolderTreeViewEdited(Sender: TObject;
165 Node: TTreeNode; var S: String);
166 begin
167 FolderTreeView.ReadOnly := True;
168 end;
169
170 procedure TFavoriteArrangeDialog.FolderTreeViewDragOver(Sender,
171 Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
172 begin
173 if Source = FolderTreeView then begin
174 if FolderTreeView.Selected = FolderTreeView.Items.GetFirstNode then begin
175 Accept := False;
176 Exit;
177 end;
178 Accept := True;
179 end else
180 Accept := False;
181 end;
182
183 procedure TFavoriteArrangeDialog.FolderTreeViewDragDrop(Sender,
184 Source: TObject; X, Y: Integer);
185 begin
186 if FolderTreeView.GetNodeAt(X, Y) = nil then
187 Exit;
188 if Source <> FolderTreeView then
189 Exit;
190 if FolderTreeView.Selected = FolderTreeView.GetNodeAt(X, Y) then
191 Exit;
192
193 if TObject(FolderTreeView.GetNodeAt(X, Y).Data) is TFavoriteFolder then
194 FolderTreeView.Selected.MoveTo(FolderTreeView.GetNodeAt(X, Y), naAddChild)
195 else if TObject(FolderTreeView.GetNodeAt(X, Y).Data) is TFavoriteBoardItem then
196 FolderTreeView.Selected.MoveTo(FolderTreeView.GetNodeAt(X, Y), naInsert)
197 else if TObject(FolderTreeView.GetNodeAt(X, Y).Data) is TFavoriteThreadItem then
198 FolderTreeView.Selected.MoveTo(FolderTreeView.GetNodeAt(X, Y), naInsert);
199 end;
200
201 procedure TFavoriteArrangeDialog.FormDestroy(Sender: TObject);
202 var
203 i: Integer;
204 begin
205 FavoriteDM.TreeView.Items := FolderTreeView.Items;
206
207 for i := 0 to FDeleteList.Count - 1 do
208 TObject(FDeleteList[i]).Free;
209
210 FavoriteDM.WriteFavorite;
211 end;
212
213 procedure TFavoriteArrangeDialog.SetDeleteItemList(Node: TTreeNode);
214 var
215 i: Integer;
216 begin
217 for i := 0 to Node.Count - 1 do begin
218 FDeleteList.Add(Node.Item[i].Data);
219 if Node.Item[i].Count > 0 then
220 SetDeleteItemList(Node.item[i]);
221 end;
222 end;
223
224 end.

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26