Develop and Download Open Source Software

Browse CVS Repository

Contents of /gikonavigoeson/gikonavi/GikoDataModule.pas

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


Revision 1.1 - (show annotations) (download) (as text)
Tue Nov 15 16:40:06 2005 UTC (18 years, 5 months ago) by h677
Branch: MAIN
File MIME type: text/x-pascal
GikoFormのアクションの移設先

1 unit GikoDataModule;
2
3 interface
4
5 uses
6 SysUtils, Classes, ExtActns, StdActns, ActnList, ImgList, Controls;
7
8 type
9 TGikoDM = class(TDataModule)
10 GikoFormActionList: TActionList;
11 OnlyAHundredResAction: TAction;
12 OnlyKokoResAction: TAction;
13 LoginAction: TAction;
14 NewBoardAction: TAction;
15 LogDeleteAction: TAction;
16 KidokuAction: TAction;
17 StdToolBarVisibleAction: TAction;
18 AddressBarVisibleAction: TAction;
19 LinkBarVisibleAction: TAction;
20 ListToolBarVisibleAction: TAction;
21 SearchAction: TAction;
22 GikoNaviWebPageAction: TAction;
23 MonazillaWebPageAction: TAction;
24 BBS2chWebPageAction: TAction;
25 GikoFolderOpenAction: TAction;
26 AboutAction: TAction;
27 SelectTextClearAction: TAction;
28 NameTextClearAction: TAction;
29 MailTextClearAction: TAction;
30 ExitAction: TAction;
31 ListNameBarVisibleAction: TAction;
32 BrowserToolBarVisibleAction: TAction;
33 BrowserNameBarVisibleAction: TAction;
34 MsgBarVisibleAction: TAction;
35 MsgBarCloseAction: TAction;
36 StatusBarVisibleAction: TAction;
37 CabinetBBSAction: TAction;
38 CabinetHistoryAction: TAction;
39 OnlyNewResAction: TAction;
40 CabinetFavoriteAction: TAction;
41 CabinetVisibleAction: TAction;
42 ListNumberVisibleAction: TAction;
43 UpFolderAction: TAction;
44 CabinetCloseAction: TAction;
45 IconStyle: TAction;
46 LargeIconAction: TAction;
47 SmallIconAction: TAction;
48 ListIconAction: TAction;
49 DetailIconAction: TAction;
50 MidokuAction: TAction;
51 AllSelectAction: TAction;
52 AllItemAction: TAction;
53 LogItemAction: TAction;
54 NewItemAction: TAction;
55 ThreadRangeAction: TAction;
56 SelectItemAction: TAction;
57 StopAction: TAction;
58 OptionAction: TAction;
59 RoundAction: TAction;
60 BrowserMaxAction: TAction;
61 BrowserMinAction: TAction;
62 ScrollTopAction: TAction;
63 ScrollLastAction: TAction;
64 ScrollNewAction: TAction;
65 ScrollKokoAction: TAction;
66 EditorAction: TAction;
67 IEAction: TAction;
68 ShowThreadAction: TAction;
69 ShowBoardAction: TAction;
70 URLCopyAction: TAction;
71 NameCopyAction: TAction;
72 NameURLCopyAction: TAction;
73 ItemReloadAction: TAction;
74 ThreadEditorAction: TAction;
75 BoardIEAction: TAction;
76 SelectItemURLCopyAction: TAction;
77 SelectItemNameCopyAction: TAction;
78 SelectItemNameURLCopyAction: TAction;
79 SelectListReloadAction: TAction;
80 SelectThreadReloadAction: TAction;
81 BrowserTabCloseAction: TAction;
82 NotSelectTabCloseAction: TAction;
83 AllTabCloseAction: TAction;
84 KokomadeAction: TAction;
85 ZenbuAction: TAction;
86 KokoResAction: TAction;
87 TreeSelectBoradReload: TAction;
88 TreeSelectThreadReload: TAction;
89 TreeSelectURLCopy: TAction;
90 SelectReservAction: TAction;
91 SelectNewRoundName: TAction;
92 SelectDeleteRound: TAction;
93 KeySettingAction: TAction;
94 ArrangeAction: TAction;
95 ActiveLogDeleteAction: TAction;
96 TreeSelectNameURLCopy: TAction;
97 PaneInitAction: TAction;
98 LeftmostTabSelectAction: TAction;
99 LeftTabSelectAction: TAction;
100 RightTabSelectAction: TAction;
101 RightmostTabSelectAction: TAction;
102 FavoriteAddAction: TAction;
103 BoardFavoriteAddAction: TAction;
104 ThreadFavoriteAddAction: TAction;
105 TreeSelectFavoriteAddAction: TAction;
106 FavoriteArrangeAction: TAction;
107 MoveToAction: TAction;
108 BrowserTabVisibleAction: TAction;
109 BrowserTabTopAction: TAction;
110 BrowserTabBottomAction: TAction;
111 BrowserTabTabStyleAction: TAction;
112 BrowserTabButtonStyleAction: TAction;
113 BrowserTabFlatStyleAction: TAction;
114 GikoHelpAction: TAction;
115 KotehanAction: TAction;
116 ToolBarSettingAction: TAction;
117 SelectResAction: TAction;
118 AllResAction: TAction;
119 EditNGAction: TAction;
120 ReloadAction: TAction;
121 GoFowardAction: TAction;
122 GoBackAction: TAction;
123 TreeSelectSearchBoardName: TAction;
124 FavoriteTreeViewRenameAction: TAction;
125 FavoriteTreeViewNewFolderAction: TAction;
126 FavoriteTreeViewDeleteAction: TAction;
127 FavoriteTreeViewBrowseFolderAction: TAction;
128 FavoriteTreeViewReloadAction: TAction;
129 FavoriteTreeViewURLCopyAction: TAction;
130 FavoriteTreeViewNameCopyAction: TAction;
131 FavoriteTreeViewNameURLCopyAction: TAction;
132 FavoriteTreeViewLogDeleteAction: TAction;
133 ResRangeAction: TAction;
134 ExportFavoriteFile: TFileSaveAs;
135 FavoriteTreeViewBrowseBoardAction: TAction;
136 FavoriteTreeViewBrowseThreadAction: TAction;
137 UpBoardAction: TAction;
138 KoreCopy: TAction;
139 TreeSelectNameCopy: TAction;
140 SetFocusForBrowserAction: TAction;
141 SetFocusForThreadListAction: TAction;
142 SetFocusForCabinetAction: TAction;
143 FileRun1: TFileRun;
144 ThreadlistMaxAndFocusAction: TAction;
145 BrowserMaxAndFocusAction: TAction;
146 SelectItemSaveForHTML: TAction;
147 SelectItemSaveForDat: TAction;
148 FileSaveAs1: TFileSaveAs;
149 LogFolderOpenAction: TAction;
150 TabsSaveAction: TAction;
151 TabsOpenAction: TAction;
152 BrowsBoradHeadAction: TAction;
153 TabAutoSaveAction: TAction;
154 TabAutoLoadAction: TAction;
155 JumpToNumOfResAction: TAction;
156 FavoriteTreeViewCollapseAction: TAction;
157 RightTabCloseAction: TAction;
158 LeftTabCloseAction: TAction;
159 SameIDResAnchorAction: TAction;
160 IndividualAbon1Action: TAction;
161 IndividualAbon0Action: TAction;
162 AntiIndividualAbonAction: TAction;
163 AntiIndividualAbonDlgAction: TAction;
164 IndividualAbonID1Action: TAction;
165 IndividualAbonID0Action: TAction;
166 MuteAction: TAction;
167 SortActiveColumnAction: TAction;
168 SortNextColumnAction: TAction;
169 SortPrevColumnAction: TAction;
170 BeLogInOutAction: TAction;
171 UnSelectedListViewAction: TAction;
172 WikiFAQWebPageAction: TAction;
173 ToobarImageList: TImageList;
174 procedure EditNGActionExecute(Sender: TObject);
175 procedure ReloadActionExecute(Sender: TObject);
176 procedure GoFowardActionExecute(Sender: TObject);
177 procedure GoBackActionExecute(Sender: TObject);
178 procedure MoveToActionExecute(Sender: TObject);
179 procedure FavoriteAddActionExecute(Sender: TObject);
180 procedure FavoriteArrangeActionExecute(Sender: TObject);
181 procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
182 private
183 { Private 鐃緒申鐃緒申 }
184 public
185 { Public 鐃緒申鐃緒申 }
186 published
187 { Published 鐃緒申鐃緒申 }
188 procedure DependActiveCntentActionUpdate(Sender: TObject);
189 end;
190
191 var
192 GikoDM: TGikoDM;
193
194 implementation
195
196 uses
197 Windows, Math, Messages,
198 Giko, GikoSystem, GikoUtil,
199 FavoriteArrange;
200
201
202 const
203 USER_SETLINKBAR = WM_USER + 2003;
204
205 {$R *.dfm}
206 // *************************************************************************
207 // NG鐃緒申鐃?鐃?鐃緒申鐃?
208 // *************************************************************************
209 procedure TGikoDM.EditNGActionExecute(Sender: TObject);
210 begin
211 //鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
212 GikoSys.FAbon.EditNGwords;
213 end;
214 // *************************************************************************
215 // NG鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
216 // *************************************************************************
217 procedure TGikoDM.ReloadActionExecute(Sender: TObject);
218 begin
219 //鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
220 if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
221 MsgBox(GikoForm.Handle, 'NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申', '鐃?鐃緒申鐃?', MB_OK or MB_ICONEXCLAMATION);
222 end else begin
223 //鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
224 GikoForm.RepaintAllTabsBrowser();
225 end;
226 end;
227 // *************************************************************************
228 // NG鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
229 // *************************************************************************
230 procedure TGikoDM.GoFowardActionExecute(Sender: TObject);
231 var
232 s: string;
233 begin
234 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
235 if GikoSys.FAbon.GoBack =false then begin
236 MsgBox(GikoForm.Handle, '鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申', '鐃?鐃緒申鐃?', MB_OK or MB_ICONEXCLAMATION);
237 end else begin
238 //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?
239 s := GikoSys.FAbon.NGwordname;
240 GikoForm.StatusBar.Panels.Items[2].Text := s;
241 //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
242 GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
243 GikoForm.StatusBarResize(Sender);
244 //鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
245 GikoForm.RepaintAllTabsBrowser();
246 end;
247 end;
248 // *************************************************************************
249 // NG鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?
250 // *************************************************************************
251 procedure TGikoDM.GoBackActionExecute(Sender: TObject);
252 var
253 s: string;
254 begin
255 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
256 if GikoSys.FAbon.GoForward =false then begin
257 MsgBox(GikoForm.Handle, '鐃緒申鐃緒申鐃?鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申', '鐃?鐃緒申鐃?', MB_OK or MB_ICONEXCLAMATION);
258 end else begin
259 //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?
260 s := GikoSys.FAbon.NGwordname;
261 GikoForm.StatusBar.Panels.Items[2].Text := s;
262 //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
263 GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
264 GikoForm.StatusBarResize(Sender);
265 //鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
266 GikoForm.RepaintAllTabsBrowser();
267 end;
268 end;
269 // *************************************************************************
270 // 鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
271 // *************************************************************************
272 procedure TGikoDM.MoveToActionExecute(Sender: TObject);
273 var
274 URL: string;
275 idx: Integer;
276 begin
277 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申URL鐃緒申鐃緒申鐃緒申
278 URL := Trim(GikoForm.AddressComboBox.Text);
279 //URL鐃緒申鐃緒申鐃緒申
280 GikoForm.MoveToURL(URL);
281 //鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
282 idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
283 if idx = -1 then begin
284 GikoForm.AddressComboBox.Items.Insert(0, URL);
285 if GikoForm.AddressComboBox.Items.Count > GikoSys.Setting.AddressHistoryCount then
286 GikoForm.AddressComboBox.Items.Delete(GikoForm.AddressComboBox.Items.Count - 1);
287 end else begin
288 GikoForm.AddressComboBox.Items.Delete(idx);
289 GikoForm.AddressComboBox.Items.Insert(0, URL);
290 end;
291 end;
292 // *************************************************************************
293 // TAction鐃緒申GetActiveContent鐃緒申nil鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
294 // *************************************************************************
295 procedure TGikoDM.DependActiveCntentActionUpdate(Sender: TObject);
296 begin
297 TAction(Sender).Enabled := (GikoForm.GetActiveContent <> nil);
298 end;
299 // *************************************************************************
300 // 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
301 // *************************************************************************
302 procedure TGikoDM.FavoriteAddActionExecute(Sender: TObject);
303 begin
304 GikoForm.ShowFavoriteAddDialog(GikoForm.GetActiveContent);
305 end;
306 // *************************************************************************
307 // 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
308 // *************************************************************************
309 procedure TGikoDM.FavoriteArrangeActionExecute(Sender: TObject);
310 var
311 Dlg: TFavoriteArrangeDialog;
312 begin
313 Dlg := TFavoriteArrangeDialog.Create(Self);
314 try
315 Dlg.ShowModal;
316 finally
317 Dlg.Release;
318 end;
319 //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
320 PostMessage( GikoForm.Handle, USER_SETLINKBAR, 0, 0 );
321 end;
322 // *************************************************************************
323 // 鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
324 // *************************************************************************
325 procedure TGikoDM.FavoriteTreeViewCollapseActionExecute(Sender: TObject);
326 var
327 node : TTreeNode;
328 begin
329 node := GikoForm.FavoriteTreeView.Items.GetFirstNode;
330 try
331 //鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
332 while node <> nil do begin
333 if node.HasChildren then
334 node.Expanded := False;
335 node := node.GetNext;
336 end;
337 except
338 end;
339 end;
340
341 end.

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