Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/FavoriteAdd.pas

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


Revision 1.10 - (hide annotations) (download) (as text)
Fri Aug 6 08:06:21 2004 UTC (19 years, 8 months ago) by yoffy
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_56_0_715, v1_59_0_778, v1_63_1_819, b49, b48, v1_57_0_737, v1_62_0_812, v1_57_0_735, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_731, v1_57_0_730, v1_50_2_606, v1_51_0_612, v1_50_0_581, v1_50_0_580, v1_50_0_587, v1_50_0_586, v1_57_0_739, v1_57_0_738, v1_59_1_765, v1_51_1_639, v1_53_0_671, v1_50_0_595, v1_60_0_788, v1_60_0_789, v1_54_0_677, v1_54_0_676, v1_50_0_572, v1_58_0_748, marged-Bb50, v1_58_0_745, v1_60_0_781, v1_60_0_782, v1_58_0_746, v1_60_0_784, v1_54_0_678, v1_60_0_786, v1_60_0_787, v1_56_0_707, v1_59_0_767, v1_56_0_705, v1_56_0_704, v1_56_0_703, v1_56_0_702, v1_56_0_701, v1_56_0_700, v1_59_1_778, v1_51_0_626, v1_57_0_723, b51, v1_52_1_658, v1_51_0_622, v1_59_0_768, v1_59_0_769, v1_50_0_598, v1_57_0_725, v1_57_0_726, v1_57_0_727, v1_57_0_720, v1_57_0_722, v1_57_1_744, v1_50_0_590, bv1_49_0_564, v1_50_0_593, v1_57_0_728, v1_57_0_729, v1_50_0_596, bv1_49_0_563, v1_52_0_646, v1_50_0_557, v1_57_0_736, v1_50_0_585, v1_51_0_611, v1_51_0_620, v1_52_0_644, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_52_0_643, v1_57_0_719, v1_57_0_718, v1_56_0_716, v1_54_0_687, v1_56_0_710, v1_56_0_711, v1_56_1_717, v1_56_1_716, v1_51_0_634, v1_51_0_635, v1_51_0_636, v1_51_0_637, v1_54_0_688, v1_54_0_689, v1_51_0_632, v1_51_0_633, v1_49_0_548, v1_50_0_603, v1_54_0_684, v1_50_0_582, v1_54_0_685, v1_49_0_540, v1_49_0_542, v1_49_0_545, v1_49_0_544, v1_49_0_547, v1_53_0_664, v1_61_0_796, v1_61_0_797, v1_61_0_795, v1_52_0_647, v1_61_0_798, v1_61_0_799, v1_50_0_604, v1_51_0_638, v1_52_0_648, v1_53_0_661, v1_53_0_663, v1_53_0_662, v1_53_0_665, v1_53_0_667, v1_53_0_666, v1_53_0_669, v1_53_0_668, v1_48_0_530, v1_55_0_692, v1_55_0_693, v1_55_0_696, v1_55_0_697, v1_55_0_694, v1_55_0_695, v1_49_0_554, merged-remodeling, v1_50_0_577, v1_49_0_551, v1_52_0_645, v1_52_0_651, v1_54_1_691, v1_52_0_650, v1_56_2_724, v1_50_0_606, v1_56_2_722, v1_50_0_588, v1_52_0_652, v1_55_1_697, v1_52_0_642, v1_52_0_654, v1_51_0_616, v1_56_0_714, v1_51_0_614, v1_51_0_615, v1_53_0_672, v1_51_0_613, v1_53_0_670, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_51_1_640, v1_54_0_686, v1_51_0_618, v1_51_0_619, bv1_49_0_565, v1_54_0_680, v1_54_0_681, v1_62_0_805, v1_62_0_804, v1_62_0_807, v1_62_0_806, b50, v1_56_0_712, v1_62_0_803, v1_62_0_802, v1_48_0_535, v1_49_0_552, v1_56_0_713, v1_62_0_809, v1_50_0_574, v1_54_0_682, v1_49_0_553, v1_50_0_584, v_step1, v1_56_0_721, v1_49_0_546, v1_50_0_573, v1_48_0_539, v1_48_0_538, v1_50_0_600, v1_51_0_630, v1_48_0_533, v1_50_0_571, v1_54_0_683, v1_48_0_537, v1_51_0_631, v1_49_2_569, v1_60_0_780, v1_60_0_779, v1_62_0_810, v1_62_0_811, v1_58_0_747, v1_60_0_783, root-of-draw, v1_50_0_576, v1_54_0_679, v1_59_2_785, marged_bRESPOPUP, v1_50_2_604, v1_50_0_578, v1_54_0_675, v1_51_0_628, v1_50_0_579, v1_51_0_617, v1_48_0_536, root-of-Bb50, root-of-Bb51, v1_56_0_706, root-of-remodel, root-of-Bb53, v1_50_0_594, v1_49_0_541, v1_52_1_657, v1_54_0_674, v1_52_0_660, v1_60_1_793, v1_50_0_602, v1_51_0_629, v1_54_0_690, v1_51_0_627, v1_50_0_601, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_51_0_625, v1_62_1_813, v1_51_0_623, v1_57_2_749, v1_50_0_605, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_52_0_655, v1_56_0_709, v1_57_0_744, v1_52_0_656, v1_56_0_708, v1_52_0_649, v1_61_0_800, v1_53_1_673, v1_50_0_599, v1_56_0_699, v1_56_0_698, v1_50_0_561, v1_51_0_624, v1_51_1_641, v1_51_0_621, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794, v1_61_1_801, HEAD
Branch point for: Bb57, Bb56, Bb55, Bb53, Bb52, Bb51, Bb62, Bb63, Bb60, Bb61, remodeling, Bb59, Bb58, Bb50, bRESPOPUP, bListSU, Bb49, Bb54, Bdraw
Changes since 1.9: +5 -5 lines
File MIME type: text/x-pascal
- ルートにお気に入りを追加出来ないバグを修正。
- 空のお気に入りフォルダに追加出来ないバグを修正。

1 hi_ 1.1 unit FavoriteAdd;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7     Dialogs, ComCtrls, StdCtrls, Favorite, ImgList, BoardGroup, NewFavoriteFolder;
8    
9     type
10     TFavoriteAddDialog = class(TForm)
11     TitleLabel: TLabel;
12     NameLabel: TLabel;
13     Label3: TLabel;
14     NameEdit: TEdit;
15     CaptionEdit: TEdit;
16     OKButton: TButton;
17     CancelButton: TButton;
18     NewFolderButton: TButton;
19     FolderTreeView: TTreeView;
20     Label4: TLabel;
21     procedure FormCreate(Sender: TObject);
22     procedure OKButtonClick(Sender: TObject);
23     procedure CancelButtonClick(Sender: TObject);
24     procedure NewFolderButtonClick(Sender: TObject);
25     private
26     { Private ?辿?転 }
27     FBoard: TBoard;
28     FThreadItem: TThreadItem;
29 yoffy 1.9 procedure CopyTree( dst, src : TTreeNode );
30 hi_ 1.1 // procedure PrepareFavoriteTree(Favo: TFavoriteItem; Node: TTreeNode);
31     function GetGikoFavoriteNode(FavFolder: TFavoriteFolder): TTreeNode;
32     public
33     { Public ?辿?転 }
34     procedure SetBoard(Board: TBoard);
35     procedure SetThreadItem(ThreadItem: TThreadItem);
36     end;
37    
38     var
39     FavoriteAddDialog: TFavoriteAddDialog;
40    
41     implementation
42    
43     uses Giko;
44    
45     {$R *.dfm}
46    
47 yoffy 1.9 procedure TFavoriteAddDialog.CopyTree( dst, src : TTreeNode );
48     var
49     newNode : TTreeNode;
50     begin
51     while src <> nil do begin
52 yoffy 1.10 if TObject( src.Data ) is TFavoriteFolder then begin
53 yoffy 1.9 newNode := FolderTreeView.Items.AddChildObject( dst, src.Text, src.Data );
54     newNode.ImageIndex := src.ImageIndex;
55     newNode.SelectedIndex := src.SelectedIndex;
56     CopyTree( newNode, src.getFirstChild );
57     end;
58     src := src.getNextSibling;
59     end;
60     end;
61    
62 hi_ 1.1 procedure TFavoriteAddDialog.FormCreate(Sender: TObject);
63     var
64 yoffy 1.9 src : TTreeNode;
65     node : TTreeNode;
66 hi_ 1.1 begin
67 h677 1.6 FolderTreeView.Items.BeginUpdate;
68 yoffy 1.9
69     // FavoriteDM ???t?H???_?K?w???R?s?[
70     FolderTreeView.Items.Clear;
71     src := FavoriteDM.TreeView.Items.GetFirstNode;
72     node := TTreeNode.Create( FolderTreeView.Items );
73 yoffy 1.10 node := FolderTreeView.Items.AddFirst( node, src.Text );
74 yoffy 1.9 node.Data := src.Data;
75     node.ImageIndex := src.ImageIndex;
76     node.SelectedIndex := src.SelectedIndex;
77     CopyTree( node, src.getFirstChild );
78 hi_ 1.1
79     if FolderTreeView.Items.GetFirstNode <> nil then begin
80     FolderTreeView.Items.GetFirstNode.Expanded := True;
81     FolderTreeView.Items.GetFirstNode.Selected := True;
82     end;
83 yoffy 1.8 FolderTreeView.Items.EndUpdate;
84 h677 1.6
85 hi_ 1.1 { Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
86     Node.ImageIndex := 0;
87     Node.Data := GikoForm.Favorite.Root;
88     PrepareFavoriteTree(GikoForm.Favorite.Root, Node);
89     Node.Expanded := True;
90     Node.Selected := True;}
91     end;
92    
93    
94     {procedure TFavoriteAddDialog.PrepareFavoriteTree(Favo: TFavoriteItem; Node: TTreeNode);
95     var
96     i: Integer;
97     ChildFavo: TFavoriteItem;
98     ChildNode: TTreeNode;
99     begin
100     for i := 0 to TFavoriteFolder(Favo).Count - 1 do begin
101    
102     ChildFavo := TFavoriteFolder(Favo).Items[i];
103     if ChildFavo is TFavoriteFolder then begin
104     ChildNode := FolderTreeView.Items.AddChild(Node, ChildFavo.Title);
105     ChildNode.ImageIndex := 0;
106     ChildNode.Data := ChildFavo;
107     PrepareFavoriteTree(ChildFavo, ChildNode);
108     end else if ChildFavo is TFavoriteBoardItem then begin
109     end else if ChildFavo is TFavoriteThreadItem then begin
110     end;
111     end;
112     end;}
113    
114     procedure TFavoriteAddDialog.OKButtonClick(Sender: TObject);
115     var
116 yoffy 1.8 Node : TTreeNode;
117     NewNode : TTreeNode;
118     FavoBoardItem : TFavoriteBoardItem;
119     FavoThreadItem : TFavoriteThreadItem;
120     FavNode : TTreeNode;
121 hi_ 1.1 begin
122     if FolderTreeView.Selected = nil then
123     Exit;
124    
125 yoffy 1.10 Node := FolderTreeView.Items.GetFirstNode;
126 yoffy 1.8 while Node <> nil do begin
127     FavNode := GetGikoFavoriteNode(Node.Data);
128 hi_ 1.1 if FavNode = nil then begin
129 yoffy 1.10 if Node.Parent <> nil then
130     FavNode := GetGikoFavoriteNode(Node.Parent.Data);
131 yoffy 1.8 if FavNode <> nil then begin
132     NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, Node.Text, Node.Data);
133     NewNode.ImageIndex := 14;
134     NewNode.SelectedIndex := 14;
135     end;
136 hi_ 1.1 end;
137 yoffy 1.8 Node := Node.GetNext;
138 hi_ 1.1 end;
139    
140     FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);
141     if FavNode <> nil then begin
142     if FBoard <> nil then begin
143 yoffy 1.5 FavoBoardItem := TFavoriteBoardItem.Create( FBoard.URL, FBoard.Title, FBoard );
144 yoffy 1.8 NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);
145     NewNode.ImageIndex := 15;
146     NewNode.SelectedIndex := 15;
147 hi_ 1.1 end else if FThreadItem <> nil then begin
148 yoffy 1.5 FavoThreadItem := TFavoriteThreadItem.Create( FThreadItem.URL, FThreadItem.Title, FThreadItem );
149 yoffy 1.8 NewNode := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);
150     NewNode.ImageIndex := 16;
151     NewNode.SelectedIndex := 16;
152 hi_ 1.1 end;
153     end;
154    
155     FavoriteDM.WriteFavorite;
156     Close;
157     end;
158    
159     procedure TFavoriteAddDialog.CancelButtonClick(Sender: TObject);
160     begin
161     Close;
162     end;
163    
164     procedure TFavoriteAddDialog.NewFolderButtonClick(Sender: TObject);
165     var
166     Dlg: TNewFavoriteFolderDialog;
167     Node: TTreeNode;
168     FavFolder: TFavoriteFolder;
169     begin
170     if FolderTreeView.Selected = nil then
171     Exit;
172    
173     Dlg := TNewFavoriteFolderDialog.Create(Self);
174     try
175     Dlg.ShowModal;
176     if Dlg.ModalResult = mrOK then begin
177     if Length(Dlg.FolderEdit.Text) = 0 then
178     Exit;
179     FavFolder := TFavoriteFolder.Create;
180     Node := FolderTreeView.Items.AddChildObject(FolderTreeView.Selected, Dlg.FolderEdit.Text, FavFolder);
181 yoffy 1.2 Node.ImageIndex := 14;
182     Node.SelectedIndex := 14;
183 hi_ 1.1 FolderTreeView.Selected := Node;
184     end;
185     finally
186     Dlg.Free;
187     end;
188     end;
189    
190     procedure TFavoriteAddDialog.SetBoard(Board: TBoard);
191     begin
192     FBoard := Board;
193     if Board = nil then Exit;
194    
195     NameEdit.Text := Board.Title;
196     CaptionEdit.Text := Board.Title;
197     TitleLabel.Caption := '?????????即?C???端????????????????';
198     NameLabel.Caption := '???添:';
199     end;
200    
201     procedure TFavoriteAddDialog.SetThreadItem(ThreadItem: TThreadItem);
202     begin
203     FThreadItem := ThreadItem;
204     if ThreadItem = nil then Exit;
205    
206     NameEdit.Text := ThreadItem.Title;
207     CaptionEdit.Text := ThreadItem.Title;
208     TitleLabel.Caption := '?????X???b?h???即?C???端????????????????';
209     NameLabel.Caption := '?X???b?h?添:';
210     end;
211    
212     function TFavoriteAddDialog.GetGikoFavoriteNode(FavFolder: TFavoriteFolder): TTreeNode;
213     var
214 yoffy 1.8 Node : TTreeNode;
215 hi_ 1.1 begin
216 yoffy 1.8 Result := nil;
217     Node := FavoriteDM.TreeView.Items.GetFirstNode;
218     while Node <> nil do begin
219     if Node.Data = FavFolder then begin
220     Result := Node;
221 hi_ 1.1 Exit;
222     end;
223 yoffy 1.8 Node := Node.GetNext;
224 hi_ 1.1 end;
225     end;
226    
227     end.

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