Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/Giko.pas

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


Revision 1.421 - (hide annotations) (download) (as text)
Fri Sep 10 15:51:39 2004 UTC (19 years, 7 months ago) by h677
Branch: MAIN
Changes since 1.420: +3 -4 lines
File MIME type: text/x-pascal
スレッド表示部のリサイズの処理を変更。

1 hi_ 1.1 unit Giko;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 yoffy 1.117 OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
8 hi_ 1.4 {$IF Defined(DELPRO) }
9 yoffy 1.138 SHDocVw,
10 hi_ 1.4 MSHTML,
11     {$ELSE}
12     SHDocVw_TLB,
13     MSHTML_TLB,
14     {$IFEND}
15 h677 1.183 IdHTTP, ActiveX, ActnList, ImgList,
16 h677 1.343 ToolWin, Buttons, {Clipbrd,} {HTTPApp,} YofUtils, IdComponent,
17 h677 1.183 ShellAPI, UrlMon, Tabs, IdGlobal, StrUtils,
18 h677 1.170 CommCtrl, IniFiles, Dialogs,
19 hi_ 1.1 GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
20     Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
21     FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
22 h677 1.35 HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
23 h677 1.170 IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,
24 genyakun 1.348 StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent,
25     IdTCPClient;
26 hi_ 1.1
27     type
28 yoffy 1.138 TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
29 yoffy 1.258 TToolBarSettingSenderType = (tssNone, tssMain, tssList, tssBrowser);
30 yoffy 1.280 TMinimizeType = (mtNone, mtMinimizing, mtMinimized);
31 hi_ 1.1
32 h677 1.299 TBrowserRecord = class;
33    
34 hi_ 1.1 TGikoForm = class(TForm)
35     StatusBar: TStatusBar;
36     MainPanel: TPanel;
37     ClientPanel: TPanel;
38     TreeSplitter: TSplitter;
39     CabinetPanel: TPanel;
40     TreeView: TTreeView;
41     ThreadMainPanel: TPanel;
42     ListSplitter: TSplitter;
43     ViewPanel: TPanel;
44 yoffy 1.51 ListView: TGikoListView;
45 hi_ 1.1 ThreadPanel: TPanel;
46     MessagePanel: TPanel;
47     MessageBar: TPanel;
48     MessageHideButton: TSpeedButton;
49     MessageListView: TListView;
50     MessageSplitter: TSplitter;
51     Panel3: TPanel;
52     SpeedButton1: TSpeedButton;
53     ToolBar1: TToolBar;
54     CabinetSelectToolButton: TToolButton;
55     HistoryToolBar: TToolBar;
56     ToolButton15: TToolButton;
57     ToolButton18: TToolButton;
58     ItemIcon16: TImageList;
59     ItemIcon32: TImageList;
60 yoffy 1.2 HotToobarImageList: TImageList;
61 yoffy 1.51 ToobarImageList: TImageList;
62 hi_ 1.1 ItemImageList: TImageList;
63 yoffy 1.2 ActionList: TActionList;
64 hi_ 1.1 LogDeleteAction: TAction;
65     KidokuAction: TAction;
66     StdToolBarVisibleAction: TAction;
67     SearchAction: TAction;
68 yoffy 1.51 GikoNaviWebPageAction: TAction;
69 hi_ 1.1 AboutAction: TAction;
70     ExitAction: TAction;
71 yoffy 1.51 MsgBarVisibleAction: TAction;
72 hi_ 1.1 StatusBarVisibleAction: TAction;
73     LargeIconAction: TAction;
74     SmallIconAction: TAction;
75     ListIconAction: TAction;
76 yoffy 1.51 DetailIconAction: TAction;
77 yoffy 1.141 CabinetBBSAction: TAction;
78 hi_ 1.1 CabinetHistoryAction: TAction;
79 yoffy 1.51 CabinetVisibleAction: TAction;
80     MidokuAction: TAction;
81 hi_ 1.1 AllSelectAction: TAction;
82     UpFolderAction: TAction;
83 yoffy 1.51 ListNumberVisibleAction: TAction;
84 hi_ 1.1 AllItemAction: TAction;
85 yoffy 1.51 LogItemAction: TAction;
86     NewItemAction: TAction;
87 hi_ 1.1 SelectItemAction: TAction;
88     ShowThreadAction: TAction;
89     StopAction: TAction;
90     MainMenu: TMainMenu;
91     FileMenu: TMenuItem;
92 yoffy 1.51 DeleteMenu: TMenuItem;
93     ExitMenu: TMenuItem;
94     KidokuMenu: TMenuItem;
95 hi_ 1.1 MidokuMenu: TMenuItem;
96 yoffy 1.51 AllSelectMenu: TMenuItem;
97 hi_ 1.1 ViewMenu: TMenuItem;
98     StdToolBarMenu: TMenuItem;
99     CabinetMenu: TMenuItem;
100 yoffy 1.51 H1: TMenuItem;
101 hi_ 1.1 N4: TMenuItem;
102 yoffy 1.51 CabinetVisibleMenu: TMenuItem;
103 hi_ 1.1 MessageMenu: TMenuItem;
104     StatusBarMenu: TMenuItem;
105     MMSep03: TMenuItem;
106 yoffy 1.51 LargeIconMenu: TMenuItem;
107 hi_ 1.1 SmallIconMenu: TMenuItem;
108     ListMenu: TMenuItem;
109     DetailMenu: TMenuItem;
110 yoffy 1.51 ToolMenu: TMenuItem;
111 hi_ 1.1 Find1: TMenuItem;
112     RoundMenu: TMenuItem;
113     MMSep04: TMenuItem;
114     OptionMenu: TMenuItem;
115     HelpMenu: TMenuItem;
116     G1: TMenuItem;
117 yoffy 1.51 N1: TMenuItem;
118 hi_ 1.1 AboutMenu: TMenuItem;
119 yoffy 1.51 IconStyle: TAction;
120 hi_ 1.1 BrowserPopupMenu: TPopupMenu;
121 yoffy 1.51 ShowThreadMenu: TMenuItem;
122 yoffy 1.2 ShowBoardMenu: TMenuItem;
123 hi_ 1.1 ShowBoardAction: TAction;
124     ListIconPopupMenu: TPopupMenu;
125     LargeIconPMenu: TMenuItem;
126     SmallIconPMenu: TMenuItem;
127     ListPMenu: TMenuItem;
128 yoffy 1.51 DetailPMenu: TMenuItem;
129     CabinetCloseAction: TAction;
130 hi_ 1.1 ClosePopupMenu: TPopupMenu;
131 yoffy 1.51 CloseMenu: TMenuItem;
132     OptionAction: TAction;
133 hi_ 1.1 U1: TMenuItem;
134     N3: TMenuItem;
135     B1: TMenuItem;
136     S1: TMenuItem;
137     N2: TMenuItem;
138     A1: TMenuItem;
139     L1: TMenuItem;
140     N5: TMenuItem;
141     S2: TMenuItem;
142 yoffy 1.51 RoundAction: TAction;
143 hi_ 1.1 ListPopupMenu: TPopupMenu;
144 yoffy 1.51 ListRoundPMenu: TMenuItem;
145 hi_ 1.1 ListReservPMenu: TMenuItem;
146     LPMSep01: TMenuItem;
147 yoffy 1.51 ItemRoundPMenu: TMenuItem;
148 hi_ 1.1 LPMSep02: TMenuItem;
149 yoffy 1.2 KidokuPMenu: TMenuItem;
150 hi_ 1.1 MidokuPMenu: TMenuItem;
151     AllSelectPMenu: TMenuItem;
152     UrlCopyPMenu: TMenuItem;
153     LPMSep05: TMenuItem;
154     DeletePMenu: TMenuItem;
155     LPMSep06: TMenuItem;
156     ViewPMenu: TMenuItem;
157     LargeIconLPMenu: TMenuItem;
158     SmallIconLPMenu: TMenuItem;
159     ListLPMenu: TMenuItem;
160     DetailLPMenu: TMenuItem;
161     T1: TMenuItem;
162     B2: TMenuItem;
163     N8: TMenuItem;
164     URLCopyAction: TAction;
165 yoffy 1.51 URLC1: TMenuItem;
166     N9: TMenuItem;
167 hi_ 1.1 N10: TMenuItem;
168 yoffy 1.51 MsgBarCloseAction: TAction;
169     ScrollTopAction: TAction;
170 hi_ 1.1 ScrollLastAction: TAction;
171     ScrollNewAction: TAction;
172     ScrollKokoAction: TAction;
173 yoffy 1.51 EditorAction: TAction;
174 hi_ 1.1 IEAction: TAction;
175     ItemReloadAction: TAction;
176 yoffy 1.51 BrowserMaxAction: TAction;
177 hi_ 1.1 G2: TMenuItem;
178     N11: TMenuItem;
179     T3: TMenuItem;
180     L2: TMenuItem;
181     N12: TMenuItem;
182     K1: TMenuItem;
183     N13: TMenuItem;
184     N14: TMenuItem;
185     R1: TMenuItem;
186     A2: TMenuItem;
187     N15: TMenuItem;
188 yoffy 1.51 SelectListReloadAction: TAction;
189     SelectThreadReloadAction: TAction;
190 hi_ 1.1 KokoPopupMenu: TPopupMenu;
191     KokomadePMenu: TMenuItem;
192 yoffy 1.2 AllPMenu: TMenuItem;
193 hi_ 1.1 MenuItem1: TMenuItem;
194     MenuItem2: TMenuItem;
195     BrowserTabCloseAction: TAction;
196     BrowserTabPopupMenu: TPopupMenu;
197 yoffy 1.51 Close1: TMenuItem;
198 hi_ 1.1 KokomadeAction: TAction;
199     ZenbuAction: TAction;
200     KokoResAction: TAction;
201     SelectItemURLCopyAction: TAction;
202     SelectReservAction: TAction;
203     NotSelectTabCloseAction: TAction;
204     A3: TMenuItem;
205 yoffy 1.51 N16: TMenuItem;
206 hi_ 1.1 A4: TMenuItem;
207     TreePopupMenu: TPopupMenu;
208     TreeSelectThreadPupupMenu: TMenuItem;
209 yoffy 1.51 TreeSelectBoardPupupMenu: TMenuItem;
210 hi_ 1.1 TPMSep01: TMenuItem;
211     TreeSelectURLPupupMenu: TMenuItem;
212     TreeSelectBoradReload: TAction;
213 yoffy 1.51 TreeSelectThreadReload: TAction;
214 hi_ 1.1 TreeSelectURLCopy: TAction;
215     ListToolBarVisibleAction: TAction;
216     BrowserToolBarVisibleAction: TAction;
217     T2: TMenuItem;
218 yoffy 1.2 L3: TMenuItem;
219 hi_ 1.1 B3: TMenuItem;
220     BrowserBottomPanel: TGikoPanel;
221     CabinetSelectPopupMenu: TPopupMenu;
222     H2: TMenuItem;
223 yoffy 1.51 ItemReservPMenu: TMenuItem;
224     RoundNamePopupMenu: TPopupMenu;
225 hi_ 1.1 SelectNewRoundName: TAction;
226 yoffy 1.51 SelectDeleteRound: TAction;
227     NewBoardAction: TAction;
228 yoffy 1.2 N7: TMenuItem;
229 hi_ 1.1 B4: TMenuItem;
230     LoginAction: TAction;
231     L4: TMenuItem;
232     KeySettingAction: TAction;
233     K2: TMenuItem;
234     AllTabCloseAction: TAction;
235 yoffy 1.51 A5: TMenuItem;
236 hi_ 1.1 A6: TMenuItem;
237 yoffy 1.51 C1: TMenuItem;
238     V1: TMenuItem;
239     N19: TMenuItem;
240 hi_ 1.1 D1: TMenuItem;
241 yoffy 1.51 D2: TMenuItem;
242     MessageImageList: TImageList;
243     ProgressBar: TProgressBar;
244     ArrangeAction: TAction;
245     URL1: TMenuItem;
246     NameURLCopyAction: TAction;
247     SelectItemNameURLCopyAction: TAction;
248 hi_ 1.1 NameUrlCopyPMenu: TMenuItem;
249     URLC2: TMenuItem;
250 yoffy 1.51 URLN1: TMenuItem;
251     N21: TMenuItem;
252     URLC3: TMenuItem;
253 yoffy 1.2 URLN2: TMenuItem;
254 yoffy 1.51 N23: TMenuItem;
255 yoffy 1.2 ListCoolBar: TGikoCoolBar;
256 hi_ 1.1 ListToolBar: TToolBar;
257     ViewNoButton: TToolButton;
258     IconToolButton: TToolButton;
259 yoffy 1.51 UpFolderButton: TToolButton;
260     Sepa01ToolButton: TToolButton;
261 yoffy 1.2 AllItemToolButton: TToolButton;
262 hi_ 1.1 LogItemToolButton: TToolButton;
263     NewItemToolButton: TToolButton;
264 yoffy 1.51 ListDownloadToolButton: TToolButton;
265 hi_ 1.1 ListThreadDownloadToolButton: TToolButton;
266 yoffy 1.51 ToolButton2: TToolButton;
267     ToolButton1: TToolButton;
268 yoffy 1.2 BrowserCoolBar: TGikoCoolBar;
269 hi_ 1.1 BrowserToolBar: TToolBar;
270 yoffy 1.51 BrowserSizeButton: TToolButton;
271 hi_ 1.1 ToolButton3: TToolButton;
272     TopButton: TToolButton;
273 yoffy 1.2 LastBotton: TToolButton;
274     NewButton: TToolButton;
275 yoffy 1.51 KokoButton: TToolButton;
276     ToolButton9: TToolButton;
277 yoffy 1.2 EditorButton: TToolButton;
278 hi_ 1.1 ToolButton11: TToolButton;
279     IEButton: TToolButton;
280 yoffy 1.51 ToolButton5: TToolButton;
281     ItemReloadButton: TToolButton;
282 hi_ 1.1 ListNameToolBar: TToolBar;
283 yoffy 1.51 ListNameLabel: TLabel;
284 hi_ 1.1 FolderImage: TImage;
285     BrowserNameToolBar: TToolBar;
286     ItemBoardImage: TImage;
287     BrowserBoardNameLabel: TLabel;
288 yoffy 1.51 ItemImage: TImage;
289     BrowserNameLabel: TLabel;
290     ActiveLogDeleteAction: TAction;
291     D3: TMenuItem;
292     N25: TMenuItem;
293 hi_ 1.1 N26: TMenuItem;
294     ListNameBarVisibleAction: TAction;
295     D4: TMenuItem;
296     BrowserNameBarVisibleAction: TAction;
297     S3: TMenuItem;
298 yoffy 1.51 R2: TMenuItem;
299     TreeSelectNameURLCopy: TAction;
300     TreeSelectNameURLPupupMenu: TMenuItem;
301     N27: TMenuItem;
302 hi_ 1.1 H3: TMenuItem;
303     PaneInitAction: TAction;
304 yoffy 1.51 I1: TMenuItem;
305     BrowserTabToolBar: TToolBar;
306     BrowserTab: TTabControl;
307 hi_ 1.1 ToolButton7: TToolButton;
308 yoffy 1.2 BrowserMinAction: TAction;
309 yoffy 1.51 About1: TMenuItem;
310     N28: TMenuItem;
311     SelectTextClearAction: TAction;
312     MailTextClearAction: TAction;
313 hi_ 1.1 NameTextClearAction: TAction;
314 yoffy 1.51 S4: TMenuItem;
315 yoffy 1.2 N29: TMenuItem;
316     N30: TMenuItem;
317 hi_ 1.1 LeftmostTabSelectAction: TAction;
318 yoffy 1.51 LeftTabSelectAction: TAction;
319     RightTabSelectAction: TAction;
320     RightmostTabSelectAction: TAction;
321 yoffy 1.2 N31: TMenuItem;
322 hi_ 1.1 L5: TMenuItem;
323 yoffy 1.51 L6: TMenuItem;
324 hi_ 1.1 A7: TMenuItem;
325 yoffy 1.51 R3: TMenuItem;
326 hi_ 1.1 FavoriteMenu: TMenuItem;
327 yoffy 1.51 FavoriteAddAction: TAction;
328     N32: TMenuItem;
329 hi_ 1.1 BoardFavoriteAddMenu: TMenuItem;
330 yoffy 1.2 BoardFavoriteAddAction: TAction;
331 hi_ 1.1 ThreadFavoriteAddAction: TAction;
332     ThreadFavoriteAddMenu: TMenuItem;
333     TreeSelectFavoriteAddAction: TAction;
334 yoffy 1.2 N33: TMenuItem;
335 hi_ 1.1 TreeSelectFavoriteAddPupupMenu: TMenuItem;
336     FavoriteArrangeAction: TAction;
337     FavoriteTreeView: TTreeView;
338 yoffy 1.51 StateIconImageList: TImageList;
339     TopPanel: TPanel;
340     TopRightPanel: TPanel;
341     AnimePanel: TPanel;
342 hi_ 1.1 Animate: TAnimate;
343     TopCoolPanel: TPanel;
344 yoffy 1.51 MainCoolBar: TGikoCoolBar;
345     MenuToolBar: TToolBar;
346     StdToolBar: TToolBar;
347     RoundToolButton: TToolButton;
348     ToolButton6: TToolButton;
349     ToolButton4: TToolButton;
350 hi_ 1.1 ToolButton13: TToolButton;
351     AbortToolButton: TToolButton;
352     LoginToolButton: TToolButton;
353 yoffy 1.51 AddressToolBar: TToolBar;
354     AddressComboBox: TComboBox;
355     MoveToToolButton: TToolButton;
356 yoffy 1.2 MoveToAction: TAction;
357 yoffy 1.51 AddressImageList: TImageList;
358     AddressBarVisibleAction: TAction;
359     AddressToolBarMenu: TMenuItem;
360     T4: TMenuItem;
361 hi_ 1.1 BrowserTabVisibleAction: TAction;
362 yoffy 1.51 Show1: TMenuItem;
363     N34: TMenuItem;
364     BrowserTabTopAction: TAction;
365 yoffy 1.2 BrowserTabBottomAction: TAction;
366 hi_ 1.1 T5: TMenuItem;
367     B5: TMenuItem;
368 yoffy 1.51 N35: TMenuItem;
369     BrowserTabTabStyleAction: TAction;
370     BrowserTabButtonStyleAction: TAction;
371     BrowserTabFlatStyleAction: TAction;
372     A8: TMenuItem;
373     U2: TMenuItem;
374 hi_ 1.1 F1: TMenuItem;
375     PreviewTimer: TTimer;
376 yoffy 1.51 MonazillaWebPageAction: TAction;
377     MonazillaWebPageAction1: TMenuItem;
378 hi_ 1.1 GikoHelpAction: TAction;
379 yoffy 1.51 N36: TMenuItem;
380     H4: TMenuItem;
381     KotehanAction: TAction;
382     K3: TMenuItem;
383     LinkBarVisibleAction: TAction;
384     L7: TMenuItem;
385     N37: TMenuItem;
386     A9: TMenuItem;
387 yoffy 1.2 ChevronPopupMenu: TPopupMenu;
388 yoffy 1.51 BBS2chWebPageAction: TAction;
389 yoffy 1.2 N2N1: TMenuItem;
390 hi_ 1.1 N38: TMenuItem;
391     GikoFolderOpenAction: TAction;
392 yoffy 1.2 F2: TMenuItem;
393 yoffy 1.51 LinkToolBar: TToolBar;
394     a10: TMenuItem;
395     ToolButton8: TToolButton;
396 yoffy 1.2 ToolButton10: TToolButton;
397 yoffy 1.51 ThreadEditorAction: TAction;
398     N39: TMenuItem;
399     T6: TMenuItem;
400     N40: TMenuItem;
401 yoffy 1.2 LinkBarPopupMenu: TPopupMenu;
402 yoffy 1.51 ToolBarSettingAction: TAction;
403     T7: TMenuItem;
404     ToolButton12: TToolButton;
405     ToolButton14: TToolButton;
406     ThreadPopupMenu: TPopupMenu;
407     MenuItem4: TMenuItem;
408     MenuItem5: TMenuItem;
409     MenuItem6: TMenuItem;
410 yoffy 1.2 T8: TMenuItem;
411 yoffy 1.51 NameCopyAction: TAction;
412     BoardIEAction: TAction;
413     URLN3: TMenuItem;
414     SelectItemNameCopyAction: TAction;
415 yoffy 1.2 SelectItemNameCopyAction1: TMenuItem;
416 yoffy 1.51 B6: TMenuItem;
417     T9: TMenuItem;
418     C2: TMenuItem;
419     SelectComboBox: TComboBox;
420     MainCoolBarPopupMenu: TPopupMenu;
421     StdToolBarVisiblePMenu: TMenuItem;
422     AddressToolBarVisiblePMenu: TMenuItem;
423     LinkToolBarVisiblePMenu: TMenuItem;
424     NG1: TMenuItem;
425     NG2: TMenuItem;
426     N43: TMenuItem;
427     N44: TMenuItem;
428     L9: TMenuItem;
429     I3: TMenuItem;
430     N45: TMenuItem;
431     B9: TMenuItem;
432     R5: TMenuItem;
433     T12: TMenuItem;
434     Show3: TMenuItem;
435     N46: TMenuItem;
436     T13: TMenuItem;
437     B10: TMenuItem;
438     N47: TMenuItem;
439     A12: TMenuItem;
440     U4: TMenuItem;
441     F4: TMenuItem;
442     N48: TMenuItem;
443     T14: TMenuItem;
444     SelectItemToolButton: TToolButton;
445     SelectResToolButton: TToolButton;
446     SelectResAction: TAction;
447     ToolButton16: TToolButton;
448     AllResAction: TAction;
449     N50: TMenuItem;
450     A11: TMenuItem;
451     S5: TMenuItem;
452     Reload: TMenuItem;
453     GoBack: TMenuItem;
454     GoFoward: TMenuItem;
455 h677 1.388 EditNGAction: TAction;
456 yoffy 1.51 ReloadAction: TAction;
457     GoFowardAction: TAction;
458     GoBackAction: TAction;
459     SelectComboBoxSplitter: TImage;
460     IndividualAbon1: TMenuItem;
461     N41: TMenuItem;
462     IndividualAbon2: TMenuItem;
463     N42: TMenuItem;
464     CancellIndividualAbon: TAction;
465     AntiIndividualAbon: TMenuItem;
466     N49: TMenuItem;
467     N51: TMenuItem;
468     N52: TMenuItem;
469     N53: TMenuItem;
470     SearchBoardName: TMenuItem;
471 yoffy 1.205 TreeSelectLogDeleteSeparator: TMenuItem;
472 yoffy 1.51 TreeSelectSearchBoardName: TAction;
473 yoffy 1.100 CabinetFavoriteAction: TAction;
474     N54: TMenuItem;
475     A13: TMenuItem;
476     FavoriteTreePopupMenu: TPopupMenu;
477     FavoriteTreeViewRenameAction: TAction;
478     FavoriteTreeRenamePopupMenu: TMenuItem;
479     FavoriteTreeViewNewFolderAction: TAction;
480     FavoriteTreeNewFolderPopupMenu: TMenuItem;
481     N56: TMenuItem;
482     FavoriteTreeViewDeleteAction: TAction;
483     FavoriteTreeDeletePopupMenu: TMenuItem;
484     FavoriteToolBar: TToolBar;
485     ToolButton17: TToolButton;
486     ToolButton19: TToolButton;
487     FavoriteTreeViewBrowseFolderAction: TAction;
488     FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
489     N57: TMenuItem;
490     FavoriteTreeReloadPopupMenu: TMenuItem;
491     N58: TMenuItem;
492     FavoriteTreeURLCopyPopupMenu: TMenuItem;
493     FavoriteTreeNameCopyPopupMenu: TMenuItem;
494     FavoriteTreeLogDeletePopupMenu: TMenuItem;
495     N59: TMenuItem;
496     FavoriteTreeNameURLCopyPopupMenu: TMenuItem;
497     FavoriteTreeViewReloadAction: TAction;
498     FavoriteTreeViewURLCopyAction: TAction;
499     FavoriteTreeViewNameCopyAction: TAction;
500     FavoriteTreeViewNameURLCopyAction: TAction;
501     FavoriteTreeViewLogDeleteAction: TAction;
502 yoffy 1.375 ResRangeAction: TAction;
503 yoffy 1.100 ToolButton20: TToolButton;
504 yoffy 1.375 ResRangeButton: TToolButton;
505 yoffy 1.100 N60: TMenuItem;
506 yoffy 1.107 ExportFavoriteFileAction1: TMenuItem;
507     ExportFavoriteFile: TFileSaveAs;
508 yoffy 1.141 ToolButton21: TToolButton;
509 yoffy 1.322 CabinetBBSToolButton: TToolButton;
510 yoffy 1.141 ToolButton23: TToolButton;
511     ToolButton24: TToolButton;
512 yoffy 1.142 N6: TMenuItem;
513     N17: TMenuItem;
514     FavoriteTreeViewBrowseBoardAction: TAction;
515     FavoriteTreeViewBrowseThreadAction: TAction;
516 yoffy 1.158 UpBoardAction: TAction;
517 h677 1.174 N18: TMenuItem;
518     N20: TMenuItem;
519     N24: TMenuItem;
520     N62: TMenuItem;
521 h677 1.176 N61: TMenuItem;
522 h677 1.183 N63: TMenuItem;
523     KoreCopy: TAction;
524     N64: TMenuItem;
525 h677 1.187 dummy1: TMenuItem;
526 yoffy 1.205 TreeSelectLogDeletePopupMenu: TMenuItem;
527     N65: TMenuItem;
528 yoffy 1.209 BBSSelectPopupMenu: TPopupMenu;
529 yoffy 1.218 PlugInMenu: TMenuItem;
530 h677 1.407 TmpToolBar: TToolBar;
531 yoffy 1.252 TreeSelectNameCopy: TAction;
532     TreeSelectNamePupupMenu: TMenuItem;
533 h677 1.299 BrowserPanel: TPanel;
534 h677 1.315 SetFocusForBrowserAction: TAction;
535     SetFocusForThreadListAction: TAction;
536     SetFocusForCabinetAction: TAction;
537 h677 1.318 FileRun1: TFileRun;
538 h677 1.319 ThreadlistMaxAndFocusAction: TAction;
539     BrowserMaxAndFocusAction: TAction;
540 yoffy 1.322 UpBoardButton: TToolButton;
541 yoffy 1.329 SelectTimer: TTimer;
542 h677 1.340 SelectThreadSave: TMenuItem;
543     SelectItemSaveForHTML: TAction;
544     FileSaveAs1: TFileSaveAs;
545 h677 1.342 N55: TMenuItem;
546 h677 1.343 N66: TMenuItem;
547     dat1: TMenuItem;
548     SelectItemSaveForDat: TAction;
549 h677 1.345 LogFolderOpenAction: TAction;
550 yoffy 1.397 OpenLogFolder: TMenuItem;
551 h677 1.346 Browser: TWebBrowser;
552 genyakun 1.353 TabSave: TMenuItem;
553 h677 1.407 TabOpen: TMenuItem;
554 yoffy 1.397 TabsSaveAction: TAction;
555 h677 1.365 TabsOpenAction: TAction;
556 yoffy 1.375 ResRangePopupMenu: TPopupMenu;
557     N1001: TMenuItem;
558     N501: TMenuItem;
559     N22: TMenuItem;
560 yoffy 1.389 OnlyAHundredResAction: TAction;
561 yoffy 1.375 OnlyNewResAction: TAction;
562     OnlyKokoResAction: TAction;
563 yoffy 1.380 A14: TMenuItem;
564 h677 1.386 BrowsBoradHeadAction: TAction;
565     BrowsBoradHeadAction1: TMenuItem;
566 yoffy 1.390 ThreadRangeAction: TAction;
567     ThreadRangePopupMenu: TPopupMenu;
568     A15: TMenuItem;
569     L8: TMenuItem;
570     N67: TMenuItem;
571     N68: TMenuItem;
572     S6: TMenuItem;
573     N69: TMenuItem;
574     S7: TMenuItem;
575     ThreadRangeButton: TToolButton;
576 h677 1.407 TabAutoSaveAction: TAction;
577 genyakun 1.393 TabAutoLoadAction: TAction;
578 yoffy 1.415 ListColumnPopupMenu: TPopupMenu;
579 yoffy 1.251 procedure FormCreate(Sender: TObject);
580 hi_ 1.1 procedure FormDestroy(Sender: TObject);
581     procedure CabinetPanelHide(Sender: TObject);
582     procedure FormClose(Sender: TObject; var Action: TCloseAction);
583     procedure ListViewData(Sender: TObject; Item: TListItem);
584     procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
585     const FindString: String; const FindPosition: TPoint;
586     FindData: Pointer; StartIndex: Integer; Direction: TSearchDirection;
587     Wrap: Boolean; var Index: Integer);
588     procedure ListViewDataHint(Sender: TObject; StartIndex,
589     EndIndex: Integer);
590     procedure ListViewDataStateChange(Sender: TObject; StartIndex,
591     EndIndex: Integer; OldState, NewState: TItemStates);
592     procedure BrowserStatusTextChange(Sender: TObject;
593     const Text: WideString);
594     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
595     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
596     var AllowChange: Boolean);
597     procedure ListViewKeyDown(Sender: TObject; var Key: Word;
598     Shift: TShiftState);
599     procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
600 q9_ 1.369 procedure ListViewSort(Sender: TObject; Column: TListColumn);
601 hi_ 1.1 procedure MenuToolBarCustomDrawButton(Sender: TToolBar;
602     Button: TToolButton; State: TCustomDrawState;
603     var DefaultDraw: Boolean);
604     procedure BrowserBeforeNavigate2(Sender: TObject;
605     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
606     Headers: OleVariant; var Cancel: WordBool);
607     procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
608     Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
609     var DefaultDraw: Boolean);
610     procedure TreeViewCustomDraw(Sender: TCustomTreeView;
611     const ARect: TRect; var DefaultDraw: Boolean);
612     procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
613     Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
614     procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
615     procedure TreeViewDblClick(Sender: TObject);
616     procedure ListViewCustomDraw(Sender: TCustomListView;
617     const ARect: TRect; var DefaultDraw: Boolean);
618     procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
619     Shift: TShiftState; X, Y: Integer);
620     procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
621     procedure MessageListViewResize(Sender: TObject);
622     procedure ExitActionExecute(Sender: TObject);
623     procedure AllSelectActionExecute(Sender: TObject);
624     procedure StdToolBarVisibleActionExecute(Sender: TObject);
625     procedure MsgBarVisibleActionExecute(Sender: TObject);
626     procedure StatusBarVisibleActionExecute(Sender: TObject);
627     procedure LargeIconActionExecute(Sender: TObject);
628     procedure SmallIconActionExecute(Sender: TObject);
629     procedure ListIconActionExecute(Sender: TObject);
630     procedure DetailIconActionExecute(Sender: TObject);
631     procedure SearchActionExecute(Sender: TObject);
632     procedure OptionActionExecute(Sender: TObject);
633     procedure GikoNaviWebPageActionExecute(Sender: TObject);
634     procedure AboutActionExecute(Sender: TObject);
635     procedure CabinetHistoryActionExecute(Sender: TObject);
636 yoffy 1.138 procedure CabinetVisible( isVisible : Boolean );
637 hi_ 1.1 procedure CabinetVisibleActionExecute(Sender: TObject);
638     procedure AllItemActionExecute(Sender: TObject);
639     procedure LogItemActionExecute(Sender: TObject);
640     procedure NewItemActionExecute(Sender: TObject);
641     procedure SelectItemActionExecute(Sender: TObject);
642     procedure ListNumberVisibleActionExecute(Sender: TObject);
643     procedure UpFolderActionExecute(Sender: TObject);
644     procedure IconStyleExecute(Sender: TObject);
645     procedure RoundActionExecute(Sender: TObject);
646     procedure StopActionExecute(Sender: TObject);
647     procedure MsgBarCloseActionExecute(Sender: TObject);
648     procedure BrowserMaxActionExecute(Sender: TObject);
649     procedure ScrollTopActionExecute(Sender: TObject);
650     procedure ScrollLastActionExecute(Sender: TObject);
651     procedure ScrollNewActionExecute(Sender: TObject);
652     procedure ScrollKokoActionExecute(Sender: TObject);
653     procedure EditorActionExecute(Sender: TObject);
654     procedure IEActionExecute(Sender: TObject);
655     procedure ShowThreadActionExecute(Sender: TObject);
656     procedure ShowBoardActionExecute(Sender: TObject);
657     procedure URLCopyActionExecute(Sender: TObject);
658     procedure ItemReloadActionExecute(Sender: TObject);
659     procedure SelectListReloadActionExecute(Sender: TObject);
660     procedure SelectThreadReloadActionExecute(Sender: TObject);
661     procedure SelectListReloadActionUpdate(Sender: TObject);
662     procedure AllItemActionUpdate(Sender: TObject);
663     procedure LogItemActionUpdate(Sender: TObject);
664     procedure NewItemActionUpdate(Sender: TObject);
665     procedure SelectItemActionUpdate(Sender: TObject);
666     procedure UpFolderActionUpdate(Sender: TObject);
667     procedure FormResize(Sender: TObject);
668     procedure ScrollTopActionUpdate(Sender: TObject);
669     procedure ScrollLastActionUpdate(Sender: TObject);
670     procedure ScrollNewActionUpdate(Sender: TObject);
671     procedure ScrollKokoActionUpdate(Sender: TObject);
672     procedure EditorActionUpdate(Sender: TObject);
673     procedure IEActionUpdate(Sender: TObject);
674     procedure ShowThreadActionUpdate(Sender: TObject);
675     procedure ShowBoardActionUpdate(Sender: TObject);
676     procedure SelectThreadReloadActionUpdate(Sender: TObject);
677 yoffy 1.51 procedure ItemReloadActionUpdate(Sender: TObject);
678     procedure LogDeleteActionExecute(Sender: TObject);
679 hi_ 1.1 procedure KokomadeActionExecute(Sender: TObject);
680     procedure ZenbuActionExecute(Sender: TObject);
681 yoffy 1.51 procedure KokoResActionExecute(Sender: TObject);
682 hi_ 1.1 procedure ListPopupMenuPopup(Sender: TObject);
683     procedure SelectItemURLCopyActionExecute(Sender: TObject);
684     procedure SelectItemURLCopyActionUpdate(Sender: TObject);
685     procedure AllSelectActionUpdate(Sender: TObject);
686     procedure LogDeleteActionUpdate(Sender: TObject);
687     procedure BrowserTabCloseActionExecute(Sender: TObject);
688     procedure NotSelectTabCloseActionExecute(Sender: TObject);
689     procedure TreeSelectBoradReloadExecute(Sender: TObject);
690     procedure TreeSelectThreadReloadExecute(Sender: TObject);
691     procedure TreeSelectURLCopyExecute(Sender: TObject);
692     procedure TreePopupMenuPopup(Sender: TObject);
693     procedure ListToolBarVisibleActionExecute(Sender: TObject);
694     procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
695     procedure BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
696     var Cancel: WordBool);
697     procedure ListSplitterCanResize(Sender: TObject; var NewSize: Integer;
698     var Accept: Boolean);
699     procedure ListSplitterMoved(Sender: TObject);
700     procedure BrowserTabChange(Sender: TObject);
701     procedure BrowserTabMouseDown(Sender: TObject; Button: TMouseButton;
702     Shift: TShiftState; X, Y: Integer);
703     procedure BrowserTabDragOver(Sender, Source: TObject; X, Y: Integer;
704     State: TDragState; var Accept: Boolean);
705     procedure BrowserTabDragDrop(Sender, Source: TObject; X, Y: Integer);
706     procedure BrowserTabMouseMove(Sender: TObject; Shift: TShiftState; X,
707     Y: Integer);
708     procedure BrowserDocumentComplete(Sender: TObject;
709     const pDisp: IDispatch; var URL: OleVariant);
710     procedure SelectReservActionUpdate(Sender: TObject);
711     procedure RoundNamePopupMenuPopup(Sender: TObject);
712     procedure SelectNewRoundNameExecute(Sender: TObject);
713     procedure SelectDeleteRoundExecute(Sender: TObject);
714     procedure SelectReservActionExecute(Sender: TObject);
715     procedure NewBoardActionExecute(Sender: TObject);
716     procedure LoginActionExecute(Sender: TObject);
717     procedure KeySettingActionExecute(Sender: TObject);
718     procedure AllTabCloseActionExecute(Sender: TObject);
719 yoffy 1.51 procedure ArrangeActionExecute(Sender: TObject);
720     procedure NameURLCopyActionExecute(Sender: TObject);
721     procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
722 hi_ 1.1 procedure URLCopyActionUpdate(Sender: TObject);
723 yoffy 1.2 procedure NameURLCopyActionUpdate(Sender: TObject);
724 hi_ 1.1 procedure BrowserTabCloseActionUpdate(Sender: TObject);
725 yoffy 1.51 procedure NotSelectTabCloseActionUpdate(Sender: TObject);
726 hi_ 1.1 procedure AllTabCloseActionUpdate(Sender: TObject);
727     procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);
728     procedure ActiveLogDeleteActionExecute(Sender: TObject);
729     procedure ActiveLogDeleteActionUpdate(Sender: TObject);
730 yoffy 1.51 procedure ListNameBarVisibleActionExecute(Sender: TObject);
731 hi_ 1.1 procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
732 yoffy 1.51 procedure TreeSelectNameURLCopyExecute(Sender: TObject);
733     procedure PaneInitActionExecute(Sender: TObject);
734 hi_ 1.1 procedure FormShow(Sender: TObject);
735     procedure BrowserTabToolBarResize(Sender: TObject);
736     procedure BrowserMinActionExecute(Sender: TObject);
737 yoffy 1.51 procedure SelectTextClearActionExecute(Sender: TObject);
738 hi_ 1.1 procedure NameTextClearActionExecute(Sender: TObject);
739 yoffy 1.51 procedure MailTextClearActionExecute(Sender: TObject);
740     procedure LeftmostTabSelectActionExecute(Sender: TObject);
741     procedure LeftTabSelectActionExecute(Sender: TObject);
742 hi_ 1.1 procedure RightTabSelectActionExecute(Sender: TObject);
743     procedure RightmostTabSelectActionExecute(Sender: TObject);
744     procedure LeftmostTabSelectActionUpdate(Sender: TObject);
745     procedure LeftTabSelectActionUpdate(Sender: TObject);
746     procedure RightTabSelectActionUpdate(Sender: TObject);
747     procedure RightmostTabSelectActionUpdate(Sender: TObject);
748     procedure FavoriteMenuClick(Sender: TObject);
749     procedure FavoriteAddActionExecute(Sender: TObject);
750     procedure FavoriteAddActionUpdate(Sender: TObject);
751     procedure BoardFavoriteAddActionExecute(Sender: TObject);
752     procedure BoardFavoriteAddActionUpdate(Sender: TObject);
753 yoffy 1.51 procedure ThreadFavoriteAddActionExecute(Sender: TObject);
754 hi_ 1.1 procedure ThreadFavoriteAddActionUpdate(Sender: TObject);
755 yoffy 1.51 procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
756 yoffy 1.2 procedure FavoriteArrangeActionExecute(Sender: TObject);
757     procedure MainCoolBarResize(Sender: TObject);
758 hi_ 1.1 procedure MoveToActionExecute(Sender: TObject);
759 yoffy 1.2 procedure AddressToolBarResize(Sender: TObject);
760 hi_ 1.1 procedure AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
761     Shift: TShiftState);
762 yoffy 1.51 procedure AddressBarVisibleActionExecute(Sender: TObject);
763 yoffy 1.2 procedure BrowserEnter(Sender: TObject);
764 hi_ 1.1 procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
765 yoffy 1.51 procedure BrowserTabVisibleActionExecute(Sender: TObject);
766     procedure BrowserTabTopActionExecute(Sender: TObject);
767     procedure BrowserTabBottomActionExecute(Sender: TObject);
768     procedure BrowserTabTabStyleActionExecute(Sender: TObject);
769 hi_ 1.1 procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
770 yoffy 1.51 procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
771 hi_ 1.1 procedure PreviewTimerTimer(Sender: TObject);
772     procedure MessageHideButtonClick(Sender: TObject);
773     procedure MonazillaWebPageActionExecute(Sender: TObject);
774     procedure GikoHelpActionExecute(Sender: TObject);
775     procedure ToolButton18Click(Sender: TObject);
776     procedure KotehanActionExecute(Sender: TObject);
777 yoffy 1.51 procedure LinkBarVisibleActionExecute(Sender: TObject);
778     procedure BBS2chWebPageActionExecute(Sender: TObject);
779     procedure GikoFolderOpenActionExecute(Sender: TObject);
780 yoffy 1.2 procedure MainCoolBarBandInfo(Sender: TObject;
781     var BandInfo: PReBarBandInfoA);
782     procedure MainCoolBarChevronClick(Sender: TObject;
783 yoffy 1.51 RebarChevron: PNMRebarChevron);
784     procedure ListCoolBarBandInfo(Sender: TObject;
785     var BandInfo: PReBarBandInfoA);
786     procedure ListCoolBarChevronClick(Sender: TObject;
787     RebarChevron: PNMRebarChevron);
788     procedure BrowserCoolBarBandInfo(Sender: TObject;
789     var BandInfo: PReBarBandInfoA);
790 yoffy 1.2 procedure BrowserCoolBarChevronClick(Sender: TObject;
791 yoffy 1.51 RebarChevron: PNMRebarChevron);
792     procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
793     procedure ThreadEditorActionExecute(Sender: TObject);
794 yoffy 1.2 procedure ThreadEditorActionUpdate(Sender: TObject);
795 yoffy 1.51 procedure ToolBarSettingActionExecute(Sender: TObject);
796     procedure NameCopyActionExecute(Sender: TObject);
797     procedure BoardIEActionExecute(Sender: TObject);
798     procedure SelectItemNameCopyActionExecute(Sender: TObject);
799 yoffy 1.2 procedure SelectItemNameCopyActionUpdate(Sender: TObject);
800 yoffy 1.51 procedure BoardIEActionUpdate(Sender: TObject);
801     procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
802     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
803     procedure NameCopyActionUpdate(Sender: TObject);
804     procedure SelectComboBoxChange(Sender: TObject);
805     procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
806     Shift: TShiftState);
807     procedure SelectComboBoxExit(Sender: TObject);
808     procedure SelectResActionExecute(Sender: TObject);
809     procedure SelectResActionUpdate(Sender: TObject);
810     procedure FormKeyUp(Sender: TObject; var Key: Word;
811     Shift: TShiftState);
812     procedure AllResActionExecute(Sender: TObject);
813     procedure AllResActionUpdate(Sender: TObject);
814     procedure ReloadClick(Sender: TObject);
815     procedure GoBackClick(Sender: TObject);
816     procedure GoFowardClick(Sender: TObject);
817     procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
818     Shift: TShiftState; X, Y: Integer);
819     procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
820     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
821     procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
822     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
823     procedure StatusBarResize(Sender: TObject);
824     procedure IndividualAbon1Click(Sender: TObject);
825     procedure IndividualAbon2Click(Sender: TObject);
826     procedure N42Click(Sender: TObject);
827     procedure SelectComboBoxEnter(Sender: TObject);
828     procedure AntiIndividualAbonClick(Sender: TObject);
829     procedure N51Click(Sender: TObject);
830     procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
831 yoffy 1.100 procedure CabinetFavoriteActionExecute(Sender: TObject);
832     procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
833     Y: Integer);
834 yoffy 1.71 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
835 yoffy 1.100 procedure FavoriteTreeViewEdited(Sender: TObject; Node: TTreeNode;
836     var S: String);
837     procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
838     Shift: TShiftState);
839     procedure FavoriteTreePopupMenuPopup(Sender: TObject);
840     procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
841     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
842     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
843     procedure ToolButton19Click(Sender: TObject);
844     procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
845     procedure FavoriteTreeViewDblClick(Sender: TObject);
846     procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
847     procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
848     procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
849     procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
850     procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
851     procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
852     procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
853     Shift: TShiftState; X, Y: Integer);
854     procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
855     State: TDragState; var Accept: Boolean);
856 yoffy 1.375 procedure ResRangeActionExecute(Sender: TObject);
857 yoffy 1.100 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
858     Y: Integer);
859     procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
860     var Handled: Boolean);
861     procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
862     var Handled: Boolean);
863     procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
864     var Handled: Boolean);
865 yoffy 1.107 procedure ExportFavoriteFileAccept(Sender: TObject);
866     procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
867 yoffy 1.139 procedure CabinetBBSActionExecute(Sender: TObject);
868 yoffy 1.142 procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
869     procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
870 yoffy 1.158 procedure UpBoardActionExecute(Sender: TObject);
871     procedure UpBoardActionUpdate(Sender: TObject);
872 h677 1.174 procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
873     var Handled: Boolean);
874 h677 1.183 procedure KoreCopyExecute(Sender: TObject);
875 h677 1.187 procedure BrowserTabPopupMenuPopup(Sender: TObject);
876 h677 1.407 procedure MenuToolBarResize(Sender: TObject);
877 yoffy 1.216 procedure StdToolBarResize(Sender: TObject);
878     procedure LinkToolBarResize(Sender: TObject);
879     procedure ListNameToolBarResize(Sender: TObject);
880     procedure ListToolBarResize(Sender: TObject);
881     procedure BrowserNameToolBarResize(Sender: TObject);
882     procedure BrowserToolBarResize(Sender: TObject);
883     procedure BrowserTabResize(Sender: TObject);
884 h677 1.318 procedure TreeViewClick(Sender: TObject);
885 yoffy 1.236 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
886     Shift: TShiftState);
887 yoffy 1.246 procedure FavoriteTreeViewMouseDown(Sender: TObject;
888 yoffy 1.248 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
889 yoffy 1.250 procedure MessagePanelResize(Sender: TObject);
890 yoffy 1.276 procedure OnResized;
891 yoffy 1.252 procedure TreeSelectNameCopyExecute(Sender: TObject);
892 yoffy 1.260 procedure FavoriteTreeViewMouseUp(Sender: TObject;
893     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
894 yoffy 1.375 procedure ResRangeActionUpdate(Sender: TObject);
895 yoffy 1.370 procedure SetFocusForBrowserActionExecute(Sender: TObject);
896     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
897 h677 1.315 procedure SetFocusForThreadListActionExecute(Sender: TObject);
898     procedure SetFocusForCabinetActionExecute(Sender: TObject);
899 h677 1.407 procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
900 h677 1.319 procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
901     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
902 h677 1.320 procedure ListViewExit(Sender: TObject);
903 h677 1.321 procedure SetFocusForCabinetActionUpdate(Sender: TObject);
904 yoffy 1.327 procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
905     Selected: Boolean);
906 yoffy 1.329 procedure SelectTimerTimer(Sender: TObject);
907 h677 1.340 procedure SelectItemSaveForHTMLExecute(Sender: TObject);
908 h677 1.341 procedure KidokuActionExecute(Sender: TObject);
909     procedure MidokuActionExecute(Sender: TObject);
910 h677 1.343 procedure SelectItemSaveForDatExecute(Sender: TObject);
911 h677 1.345 procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
912     NewHeight: Integer; var Resize: Boolean);
913     procedure LogFolderOpenActionExecute(Sender: TObject);
914     procedure LogFolderOpenActionUpdate(Sender: TObject);
915 yoffy 1.397 procedure TabsSaveActionExecute(Sender: TObject);
916     procedure TabsOpenActionExecute(Sender: TObject);
917     procedure TabsSaveToFileActionExecute(Sender: TObject);
918 h677 1.365 procedure TabsOpenFromFileActionExecute(Sender: TObject);
919 yoffy 1.389 procedure OnlyAHundredResActionExecute(Sender: TObject);
920 yoffy 1.375 procedure OnlyKokoResActionExecute(Sender: TObject);
921     procedure OnlyNewResActionExecute(Sender: TObject);
922 h677 1.407 procedure BrowsBoradHeadActionExecute(Sender: TObject);
923 h677 1.388 procedure BrowsBoradHeadActionUpdate(Sender: TObject);
924     procedure EditNGActionExecute(Sender: TObject);
925 yoffy 1.390 procedure ThreadRangeActionUpdate(Sender: TObject);
926     procedure ThreadRangeActionExecute(Sender: TObject);
927 genyakun 1.393 procedure TabAutoSaveActionExecute(Sender: TObject);
928     procedure TabAutoLoadActionExecute(Sender: TObject);
929 yoffy 1.410 procedure ListViewColumnDragged(Sender: TObject);
930 yoffy 1.415 procedure ListViewColumnRightClick(Sender: TObject;
931     Column: TListColumn; Point: TPoint);
932 hi_ 1.1 private
933     { Private 鐃緒申鐃緒申 }
934 h677 1.182 //RoundList : TRoundList;
935 hi_ 1.1 FSortIndex: Integer;
936     FSortOrder: Boolean;
937    
938     FEnabledCloseButton: Boolean;
939     // ThreadCreate: TThreadCreate;
940    
941     FClickNode: TTreeNode;
942     FHttpState: Boolean;
943     FHint: TResPopup;
944     FPreviewBrowser: TPreviewBrowser;
945     FPreviewURL: string;
946    
947     FBrowserSizeHeight: Integer;
948     FBrowserSizeWidth: Integer;
949    
950     // FFavorite: TFavorite;
951     FTabHintIndex: Integer;
952     FListStyle: TViewStyle; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
953     FItemNoVisible: Boolean; //鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?
954     FViewType: TGikoViewType; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?
955 yoffy 1.123 FActiveList: TObject;
956 h677 1.299 FActiveContent: TBrowserRecord; //
957 yoffy 1.133 FActiveBBS : TBBS;
958 hi_ 1.1 FHistoryList: TList; //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?
959     FTreeType: TGikoTreeType;
960     FWorkCount: Integer;
961     FNameCookie: string;
962     FMailCookie: string;
963     // FLastRoundTime: TDateTime;
964 h677 1.299 BrowserNullTab: TBrowserRecord;
965 hi_ 1.1 // DoubleClickOccurred: array [TMouseButton] of Boolean;
966     FDownloadTitle: string; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
967     FDownloadMax: Integer; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?
968     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
969 h677 1.14
970 h677 1.192 // Fkeynum : Integer; //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
971 yoffy 1.29
972 yoffy 1.51 IsDraggingSelectComboBox : Boolean;
973     DraggingSelectComboBoxPosition : TPoint;
974 yoffy 1.29
975 yoffy 1.54 FSearchDialog: TSearchDialog;
976 yoffy 1.49
977 yoffy 1.100 FDropSpaceNode: TTreeNode;
978 yoffy 1.74
979 yoffy 1.107 FDragTime : Cardinal; //鐃緒申鐃緒申鐃?鐃緒申D&D鐃?
980     FDragButton : TToolButton; //鐃緒申鐃緒申鐃?鐃緒申D&D鐃?鐃緒申Drag鐃緒申鐃緒申鐃緒申Button鐃緒申鐃緒申
981     FDragWFirst : Boolean; //WebTab鐃緒申D&D鐃?
982 h677 1.84
983 yoffy 1.143 FListViewBackGroundColor : TColor; //ListView鐃緒申BackGroundColor
984     FUseOddResOddColor : Boolean; //鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申
985     FOddColor : TColor; //鐃緒申鐃緒申鐃?
986 yoffy 1.152
987 yoffy 1.280 FSelectResWord : string; // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?
988     FIsIgnoreResize : Boolean; // 鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
989     FIsMinimize : TMinimizeType; // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
990     FOldFormWidth : Integer; // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
991 yoffy 1.258 FToolBarSettingSender : TToolBarSettingSenderType; // 鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?
992 yoffy 1.280 FMouseDownPos : TPoint; // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
993 h677 1.303 FBrowsers: TList;
994 yoffy 1.390 FResRangeMenuSelect : Longint; ///< ResRangeButton 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 (鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申 ResRange 鐃緒申鐃緒申)
995 yoffy 1.123 procedure SetBoardTreeNode( inBBS : TBBS );
996     function SetCategoryListItem(ABBS2ch: TBBS): Integer;
997 hi_ 1.1 function SetBoardListItem(Category: TCategory): Integer;
998     function SetThreadListItem(Board: TBoard): Integer;
999     // function GetRoundName(index: integer): string;
1000    
1001     procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
1002     procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
1003 q9_ 1.233 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
1004 hi_ 1.1 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
1005     procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
1006    
1007     procedure SetActiveList(Obj: TObject);
1008     procedure ListClick;
1009 h677 1.295 procedure ListDoubleClick(Shift: TShiftState);
1010 h677 1.299 procedure BrowserMovement(const AName: string); overload;
1011     procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1012 hi_ 1.1 procedure SelectListItem(List: TList);
1013     // procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);
1014 h677 1.299 procedure DeleteTab(ThreadItem: TThreadItem); overload;
1015     procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1016 hi_ 1.1 function Hook(var Message: TMessage): Boolean;
1017     procedure AddRoundNameMenu(MenuItem: TMenuItem);
1018 h677 1.188 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
1019 yoffy 1.236 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
1020 hi_ 1.1 procedure SetSelectRoundName(Sender: TObject);
1021     function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
1022    
1023     procedure SetMenuFont;
1024     // procedure CreateFavMenu(Folder: TFavoriteFolder);
1025     procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
1026 yoffy 1.62 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
1027     procedure FavoriteClick(Sender: TObject); overload;
1028 yoffy 1.100 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
1029 yoffy 1.2 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1030 hi_ 1.1 function OnDocumentContextMenu(Sender: TObject): WordBool;
1031     // function GetThreadText(sBoard: string; sThread: string; StNum, ToNum: Integer; Title, First: Boolean): string;
1032 yoffy 1.123 procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
1033 hi_ 1.1 procedure ShowTextPopup;
1034     //procedure ShowTextPopup(HintData: THintData);
1035 yoffy 1.2 // procedure SetStdToolBar;
1036     // function GetAction(ActionName: string): TContainedAction;
1037 hi_ 1.1 procedure SetLinkBar;
1038     function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
1039 yoffy 1.2 procedure MenuBarChevronMenu;
1040     procedure LinkBarChevronMenu;
1041     procedure ToolBarChevronMenu(ToolBar: TToolBar);
1042 yoffy 1.51 procedure ModifySelectList;
1043 yoffy 1.100 procedure FavoriteBrowseFolder( node: TTreeNode );
1044     procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1045     procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1046     procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
1047     procedure LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1048 yoffy 1.85 procedure LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
1049 yoffy 1.72 function TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
1050 yoffy 1.100 procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
1051     procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
1052 yoffy 1.72 procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
1053 yoffy 1.236 //
1054 yoffy 1.143 procedure SetListViewBackGroundColor(value: TColor);
1055 yoffy 1.123 procedure BBSMenuItemOnClick( Sender : TObject );
1056 yoffy 1.236 //
1057     procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1058 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1059     procedure SaveCoolBarSettings;
1060     // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1061     procedure LoadCoolBarSettings;
1062 yoffy 1.276 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1063     procedure OnMinimize;
1064 yoffy 1.248 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1065     procedure OnMinimized;
1066 yoffy 1.216 // CoolBar 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1067     procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1068 yoffy 1.236 // TreeView 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1069     procedure TreeClick( Node : TTreeNode );
1070     // TreeView 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1071     procedure TreeDoubleClick( Node : TTreeNode );
1072     // 鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1073     procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1074     // 鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1075     // 鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 True 鐃緒申鐃緒申鐃緒申
1076 yoffy 1.275 function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1077 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1078     procedure SetBBSMenu;
1079 h677 1.315 function WebBrowserClick(Sender: TObject): WordBool;
1080 h677 1.343 procedure SkinorCSSFilesCopy(path: string);
1081 yoffy 1.397 // 鐃?鐃?鐃緒申鐃緒申
1082     function GetTabURLs(AStringList: TStringList) : Boolean;
1083     // 鐃?鐃?鐃緒申鐃緒申
1084     function SaveTabURLs : Boolean;
1085     // 鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1086     function LoadTabURLs : Boolean;
1087 yoffy 1.362 // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1088 yoffy 1.364 procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1089 yoffy 1.410 /// ListView 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1090     procedure ActiveListColumnSave;
1091 yoffy 1.413 /// ListView 鐃緒申 Column 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1092     function ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1093 yoffy 1.415 /// ListColumnPopupMenu 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?
1094     procedure ListColumnPopupMenuOnClick( Sender : TObject );
1095 hi_ 1.1 protected
1096     procedure CreateParams(var Params: TCreateParams); override;
1097 yoffy 1.2 procedure WndProc(var Message: TMessage); override;
1098 hi_ 1.1 procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
1099     procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
1100     procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
1101 yoffy 1.216
1102 hi_ 1.1 public
1103     { Public 鐃緒申鐃緒申 }
1104     // FDownload: TDownload;
1105     FControlThread: TThreadControl;
1106 yoffy 1.48 procedure MoveToURL(URL: string);
1107     procedure InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
1108 hi_ 1.1 procedure ReloadBBS;
1109     function GetHttpState: Boolean;
1110     procedure SetEnabledCloseButton(Enabled: Boolean);
1111     function GetTreeNode(Data: TObject): TTreeNode;
1112     procedure AppFormDeactivate(Sender: TObject);
1113     // procedure CabinetPanelVisible(PanelVisible: Boolean);
1114     procedure ListViewAllSelect;
1115    
1116     property ListStyle: TViewStyle read FListStyle write FListStyle;
1117     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1118     property ViewType: TGikoViewType read FViewType write FViewType;
1119    
1120     property NameCookie: string read FNameCookie write FNameCookie;
1121     property MailCookie: string read FMailCookie write FMailCookie;
1122    
1123 h677 1.299 procedure SetContent(inThread: TBrowserRecord);
1124 hi_ 1.1 function GetActiveContent: TThreadItem;
1125     function GetActiveList: TObject;
1126    
1127     property ActiveList: TObject read GetActiveList write SetActiveList;
1128     // property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;
1129    
1130     procedure SetListViewType(AViewType: TGikoViewType); overload;
1131     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1132 q9_ 1.294 procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1133     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1134 hi_ 1.1 procedure PlaySound(SoundEventName: string);
1135    
1136 yoffy 1.136 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1137     procedure DeleteHistory( threadItem: TThreadItem );
1138 hi_ 1.1 procedure ClearHistory;
1139 yoffy 1.135 procedure SaveHistory;
1140     procedure LoadHistory;
1141 yoffy 1.123 procedure ShowBBSTree( inBBS : TBBS );
1142 yoffy 1.248 procedure ShowBBSTreeOld( inBBS : TBBS );
1143 hi_ 1.1 procedure ShowHistoryTree;
1144     procedure SetHistoryTreeNode;
1145     // procedure SelectTreeNode(Item: TObject);
1146     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1147     procedure SetBrowserTabState;
1148     // property Favorite: TFavorite read FFavorite write FFavorite;
1149 yoffy 1.2 procedure SetToolBarPopup;
1150 yoffy 1.100 procedure ShowFavoriteAddDialog( Item : TObject );
1151 h677 1.189 procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1152 h677 1.226 procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1153 yoffy 1.143 property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1154     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1155     property OddColor : TColor read FOddColor write FOddColor;
1156 h677 1.109
1157 yoffy 1.209 function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1158 yoffy 1.218 procedure OnPlugInMenuItem( Sender : TObject );
1159 genyakun 1.384 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1160 yoffy 1.209
1161 hi_ 1.1 published
1162     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1163     end;
1164    
1165     TFavoriteMenuItem = class(TMenuItem)
1166     private
1167     FData : Pointer;
1168     public
1169     property Data: Pointer read FData write FData;
1170     end;
1171    
1172 yoffy 1.123 TBBSMenuItem = class(TMenuItem)
1173     private
1174     FData : Pointer;
1175     public
1176     property Data: Pointer read FData write FData;
1177     end;
1178    
1179 hi_ 1.1 TLinkToolButton = class(TToolButton)
1180     private
1181     FData : Pointer;
1182     public
1183     property Data: Pointer read FData write FData;
1184     end;
1185    
1186 h677 1.299 TBrowserRecord = class( TObject )
1187     private
1188     FBrowser : TWebBrowser;
1189     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1190     FThread : TThreadItem;
1191     FLastSize : Integer;
1192     FRepaint : Boolean;
1193 yoffy 1.375 // FOnlyHundred: Boolean;
1194 h677 1.299 public
1195     destructor Destroy; override;
1196     property Browser : TWebBrowser read FBrowser write FBrowser;
1197     property Thread : TThreadItem read FThread write FThread;
1198     property LastSize : Integer read FLastSize write FLastSize;
1199     property Repaint : Boolean read FRepaint write FRepaint;
1200 yoffy 1.375 // property OnlyHundred : Boolean read FOnlyHundred write FOnlyHundred;
1201 h677 1.299 end;
1202    
1203 hi_ 1.1 var
1204     GikoForm: TGikoForm;
1205    
1206     implementation
1207    
1208     uses
1209     About, Option, Round, Splash, Sort, ListSelect,
1210 h677 1.183 NewBoard, MojuUtils,Clipbrd;
1211 hi_ 1.1
1212     const
1213     CAPTION_NAME: string = '鐃?鐃?鐃?鐃?';
1214     BLANK_HTML: string = 'about:blank';
1215 yoffy 1.51 SELECTCOMBOBOX_NAME: string = ''; // '鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申';
1216     SELECTCOMBOBOX_COLOR: TColor = clWindow;
1217 yoffy 1.120 //D&D鐃緒申鐃?
1218     DandD_THRESHOLD = 5; //D&D鐃緒申鐃緒申鐃?鐃?pixcel)
1219 yoffy 1.2 //鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1220     ITEM_ICON_2CH1 = 0; //2ch鐃?鐃?鐃?鐃緒申
1221     ITEM_ICON_2CH2 = 1; //2ch鐃?鐃?鐃?鐃緒申
1222     ITEM_ICON_CATEGORY1 = 2; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1223     ITEM_ICON_CATEGORY2 = 3; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1224 yoffy 1.120 ITEM_ICON_BOARD_NOSUBJECT = 3; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1225 yoffy 1.2 ITEM_ICON_BOARD1 = 4; //鐃緒申鐃?鐃?鐃?鐃緒申
1226     ITEM_ICON_BOARD2 = 5; //鐃緒申鐃?鐃?鐃?鐃緒申
1227     ITEM_ICON_THREADLOG1 = 6; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1228     ITEM_ICON_THREADLOG2 = 7; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1229     ITEM_ICON_THREAD1 = 8; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1230     ITEM_ICON_THREAD2 = 9; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1231     ITEM_ICON_THREADNEW1 = 10; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1232     ITEM_ICON_THREADNEW2 = 11; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1233     ITEM_ICON_SORT1 = 12; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1234     ITEM_ICON_SORT2 = 13; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1235 yoffy 1.120 ITEM_ICON_BOARD_LOG = 17; //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1236     ITEM_ICON_BOARD_NEW = 18; //鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1237 yoffy 1.2
1238     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1239 yoffy 1.48 TOOL_ICON_HEIGHT_MAX = 16; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1240     TOOL_ICON_HEIGHT_MIN = 17; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1241     TOOL_ICON_HEIGHT_NORMAL = 18; //鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1242     TOOL_ICON_WIDTH_MAX = 19; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1243     TOOL_ICON_WIDTH_MIN = 20; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1244     TOOL_ICON_WIDTH_NORMAL = 21; //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1245    
1246 yoffy 1.51 TOOL_ICON_FAV_FOLDER = 30; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申
1247 yoffy 1.100 TOOL_ICON_FAV_BOARD = 31; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1248 yoffy 1.51 TOOL_ICON_FAV_THREAD = 32; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1249 hi_ 1.1
1250     HTML_FILE_NAME = 'temp_preview.html';
1251    
1252 yoffy 1.253 WM_XBUTTONDOWN = $020B;
1253     WM_XBUTTONUP = $020C;
1254     WM_XBUTTONDBLCLK = $020D;
1255     XBUTTON1 = $0001;
1256     XBUTTON2 = $0002;
1257 yoffy 1.278 USER_TREECLICK = WM_USER + 2000;
1258     USER_RESIZED = WM_USER + 2001;
1259     USER_MINIMIZED = WM_USER + 2002;
1260     USER_SETLINKBAR = WM_USER + 2003;
1261 h677 1.340 SELECTTIME_INTERBAL = 110;
1262    
1263     BROWSER_COUNT = 5; //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
1264 hi_ 1.1 {$R *.DFM}
1265    
1266     procedure TGikoForm.CreateParams(var Params: TCreateParams);
1267     begin
1268     inherited;
1269     if FormStyle in [fsNormal, fsStayOnTop] then begin
1270     if BorderStyle in [bsSingle, bsSizeable] then begin
1271     Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
1272     Params.WndParent := 0;
1273     end;
1274     end;
1275     end;
1276    
1277     procedure TGikoForm.FormCreate(Sender: TObject);
1278     const
1279     TVS_NOTOOLTIPS = $0080;
1280     var
1281     FileName: string;
1282     Style: DWORD;
1283     msg: string;
1284     i: Integer;
1285     wp: TWindowPlacement;
1286 hi_ 1.32 s: string;
1287 h677 1.303 newbrowser: TWebBrowser;
1288 hi_ 1.1 begin
1289     {$IFDEF DEBUG}
1290     AllocConsole;
1291     Writeln('============================================================');
1292     Writeln(' 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃? 鐃?鐃緒申鐃?鐃?鐃緒申');
1293     Writeln('');
1294     Writeln(' 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?');
1295     Writeln(' 鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申');
1296     Writeln('============================================================');
1297     {$ENDIF}
1298     Application.OnDeactivate := AppFormDeactivate;
1299     Self.OnDeactivate := AppFormDeactivate;
1300     Application.HookMainWindow(Hook);
1301 h677 1.316 Application.OnMessage := HandleAppMessage; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?by鐃?鐃緒申鐃緒申鐃緒申
1302 h677 1.345 Self.DoubleBuffered := true;
1303 hi_ 1.1 FTreeType := gttNone;
1304    
1305 yoffy 1.51 FSearchDialog := nil;
1306 h677 1.299 BrowserNullTab := TBrowserRecord.Create;
1307     BrowserNullTab.Browser := Browser;
1308 h677 1.316 BrowserNullTab.Browser.Navigate(BLANK_HTML);
1309 h677 1.303 FBrowsers := TList.Create;
1310 h677 1.340 for i := 0 to BROWSER_COUNT -1 do begin
1311 h677 1.345 FBrowsers.Add(TWebBrowser.Create(nil));
1312     newBrowser := FBrowsers[FBrowsers.Count - 1];
1313 h677 1.303 TOleControl(newBrowser).Parent := BrowserPanel;
1314 h677 1.345 newBrowser.Align := alNone;
1315 h677 1.346 newBrowser.Left := 0;
1316     newBrowser.Top := 0;
1317     //newBrowser.DoubleBuffered := true;
1318 h677 1.303 newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1319     newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1320     newBrowser.OnEnter := BrowserEnter;
1321     newBrowser.OnNewWindow2 := BrowserNewWindow2;
1322     newBrowser.OnStatusTextChange := BrowserStatusTextChange;
1323 h677 1.333 //newBrowser.OnTitleChange := BrowserTitleChange;
1324 h677 1.306 newBrowser.Navigate(BLANK_HTML);
1325 h677 1.316 ShowWindow(newBrowser.Handle, SW_HIDE);
1326 h677 1.345
1327 h677 1.303 end;
1328 h677 1.316 BrowserNullTab.Browser.BringToFront;
1329     ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
1330 h677 1.303
1331 yoffy 1.216 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1332 yoffy 1.248 FIsIgnoreResize := True;
1333 yoffy 1.216
1334 hi_ 1.1 //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1335     Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1336    
1337    
1338     //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1339     AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1340    
1341     EnabledCloseButton := True;
1342 h677 1.176
1343 hi_ 1.1 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1344     ListView.ViewStyle := GikoSys.Setting.ListStyle;
1345    
1346     //鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1347     // MainCoolBar.Top := 0;
1348     // MainCoolBar.Left := 0;
1349    
1350     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?
1351     AnimePanel.Top := 0;
1352     AnimePanel.Left := 0;
1353    
1354     //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1355    
1356     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1357     CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1358    
1359     //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1360     MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1361     MsgBarVisibleActionExecute(nil);
1362     MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1363    
1364     //鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1365     StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1366     StatusBarVisibleActionExecute(nil);
1367    
1368     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
1369     TreeView.Items.BeginUpdate;
1370 yoffy 1.100 FavoriteTreeView.Items.BeginUpdate;
1371 hi_ 1.1 ListView.Items.BeginUpdate;
1372     try
1373     TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1374     TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1375     TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1376     TreeView.Color := GikoSys.Setting.CabinetBackColor;
1377    
1378 yoffy 1.67 FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1379     FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1380     FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1381     FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1382    
1383 hi_ 1.1 ListView.Font.Name := GikoSys.Setting.ListFontName;
1384     ListView.Font.Size := GikoSys.Setting.ListFontSize;
1385     ListView.Font.Color := GikoSys.Setting.ListFontColor;
1386 yoffy 1.418 ListViewBackGroundColor := clWhite; // 鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1387     ListViewBackGroundColor := GikoSys.Setting.ListBackColor; // 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1388 yoffy 1.236 FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1389     FOddColor := GikoSys.Setting.OddColor;
1390 h677 1.109
1391 hi_ 1.1 finally
1392     TreeView.Items.EndUpdate;
1393 yoffy 1.100 FavoriteTreeView.Items.EndUpdate;
1394 hi_ 1.1 ListView.Items.EndUpdate;
1395     end;
1396     //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1397     ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
1398    
1399     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?
1400     BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1401     BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1402 yoffy 1.133 FDragWFirst := false;
1403 h677 1.299 SetContent(BrowserNullTab); //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1404 hi_ 1.1 // TreeView.TopItem.Expanded := True; //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1405     // TreeView.Selected := TreeView.Items[0]; //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1406 h677 1.299
1407 hi_ 1.1
1408     //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1409     wp.length := sizeof(wp);
1410     wp.rcNormalPosition.Top := GikoSys.Setting.WindowTop;
1411     wp.rcNormalPosition.Left := GikoSys.Setting.WindowLeft;
1412     wp.rcNormalPosition.Bottom := GikoSys.Setting.WindowTop + GikoSys.Setting.WindowHeight;
1413     wp.rcNormalPosition.Right := GikoSys.Setting.WindowLeft + GikoSys.Setting.WindowWidth;
1414     wp.showCmd := SW_HIDE;
1415     SetWindowPlacement(Handle, @wp);
1416    
1417     // SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop,
1418     // GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight);
1419     if GikoSys.Setting.WindowMax then
1420 yoffy 1.248 WindowState := wsMaximized;
1421 hi_ 1.1
1422     //鐃?鐃?鐃?鐃?鐃緒申
1423     try
1424     FileName := GikoSys.GetAppDir + 'gikoNavi.avi';
1425     if FileExists(FileName) then
1426     Animate.FileName := FileName;
1427     except
1428     end;
1429    
1430     //鐃?鐃?鐃?鐃?
1431     FNameCookie := '';
1432     FMailCookie := '';
1433    
1434     //鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1435     AllItemAction.Checked := True;
1436 yoffy 1.126 AllResAction.Checked := True;
1437 hi_ 1.1
1438     //TreeView鐃緒申鐃緒申鐃緒申鐃?鐃緒申ToolTip鐃緒申鐃緒申鐃?鐃緒申
1439     Style := GetWindowLong(TreeView.Handle, GWL_STYLE);
1440     Style := Style or TVS_NOTOOLTIPS;
1441     SetWindowLong(TreeView.Handle, GWL_STYLE, Style);
1442    
1443     // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1444     TreeView.Align := alClient;
1445 yoffy 1.57 FavoriteTreeView.Align := alClient;
1446 hi_ 1.1 FavoriteTreeView.Visible := False;
1447    
1448     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1449     // FBrowserSizeFlag := False;
1450     // FBrowserSizeHeight := ViewPanel.Height;
1451    
1452     FBrowserSizeHeight := GikoSys.Setting.ListHeight;
1453     FBrowserSizeWidth := GikoSys.Setting.ListWidth;
1454    
1455 yoffy 1.420 // 鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?(ReadBoardFile, LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1456     InitializeBoardPlugIns;
1457    
1458     //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1459     RoundList := TRoundList.Create;
1460     RoundList.LoadRoundBoardFile;
1461    
1462     // 鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申(ReadFavorite 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1463     GikoSys.ListBoardFile;
1464    
1465     RoundList.LoadRoundThreadFile;
1466    
1467     if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1468     GikoSys.ListBoardFile;
1469    
1470     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1471     SetBBSMenu;
1472    
1473     // 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?(LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1474     FHistoryList := TList.Create;
1475    
1476     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1477     LoadHistory;
1478    
1479     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1480     // FFavorite := TFavorite.Create(FavoriteTreeView);
1481     FavoriteDM.SetFavTreeView(FavoriteTreeView);
1482     FavoriteDM.ReadFavorite;
1483    
1484 hi_ 1.1 ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1485     ArrangeAction.Execute;
1486    
1487     if GikoSys.Setting.ListOrientation = gloHorizontal then begin
1488     case GikoSys.Setting.ListWidthState of
1489     glsMax: begin
1490     ViewPanel.Width := 1;
1491 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1492     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1493 hi_ 1.1 end;
1494     glsMin: begin
1495     ViewPanel.Width := GikoSys.Setting.ListWidth;
1496 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1497     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1498 hi_ 1.1 end;
1499     else begin
1500     ViewPanel.Width := GikoSys.Setting.ListWidth;
1501 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1502     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1503 hi_ 1.1 end;
1504     end;
1505     end else begin
1506     case GikoSys.Setting.ListHeightState of
1507     glsMax: begin
1508     ViewPanel.Height := 1;
1509 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1510     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1511 hi_ 1.1 end;
1512     glsMin: begin
1513     ViewPanel.Height := GikoSys.Setting.ListHeight;
1514 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1515     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1516 hi_ 1.1 end;
1517     else begin
1518     ViewPanel.Height := GikoSys.Setting.ListHeight;
1519 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1520     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1521 hi_ 1.1 end;
1522     end;
1523     end;
1524    
1525     //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1526     // ProgressBar.Visible := False;
1527     ProgressBar.Parent := StatusBar;
1528     ProgressBar.Top := 2;
1529     ProgressBar.Left := 0;
1530     ProgressBar.Width := StatusBar.Panels[0].Width;
1531     ProgressBar.Height := StatusBar.Height - 2;
1532     ProgressBar.Position := 0;
1533    
1534     //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1535     FControlThread := TThreadControl.Create(True);
1536     FControlThread.MaxThreadCount := 1;
1537     FControlThread.Resume;
1538     FControlThread.OnDownloadEnd := DownloadEnd;
1539     FControlThread.OnDownloadMsg := DownloadMsg;
1540     FControlThread.OnWork := Work;
1541     FControlThread.OnWorkBegin := WorkBegin;
1542     FControlThread.OnWorkEnd := WorkEnd;
1543     // ProgressPanel.Width := FControlThread.MaxThreadCount * 12;
1544    
1545 yoffy 1.51 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1546     SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
1547 yoffy 1.2
1548 hi_ 1.1 //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申
1549     SetBrowserTabState;
1550    
1551     BrowserBoardNameLabel.Caption := '';
1552     BrowserNameLabel.Caption := '';
1553     FWorkCount := 0;
1554    
1555     FTabHintIndex := -1;
1556    
1557     //鐃緒申鐃緒申鐃?鐃?鐃?
1558     SetLinkBar;
1559    
1560     //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1561     SetMenuFont;
1562    
1563     //鐃?鐃?鐃緒申鐃?鐃?Wrapable
1564     ListToolBar.Wrapable := GikoSys.Setting.ListToolBarWrapable;
1565     BrowserToolBar.Wrapable := GikoSys.Setting.BrowserToolBarWrapable;
1566    
1567 yoffy 1.236 KeepDefaultToolButton(StdToolBar, TmpToolBar);
1568     KeepDefaultToolButton(ListToolBar, TmpToolBar);
1569     KeepDefaultToolButton(BrowserToolBar, TmpToolBar);
1570 h677 1.234
1571 yoffy 1.236 MakeDefaultINIFile();
1572 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1573     ReadToolBarSetting(ActionList, StdToolBar);
1574     ReadToolBarSetting(ActionList, ListToolBar);
1575 yoffy 1.51 try
1576     for i := ListToolBar.ControlCount - 1 downto 0 do
1577     begin
1578     if ListToolBar.Controls[ i ].Action = SelectItemAction then
1579     begin
1580     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1581     if (i + 1) < ListToolBar.ControlCount then
1582     if ListToolBar.Controls[ i + 1 ] is TToolButton then
1583     if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
1584     ListToolBar.Controls[ i + 1 ].Visible := False;
1585    
1586     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1587     ListToolBar.Controls[ i ].Visible := False;
1588     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
1589 yoffy 1.239 SelectComboBox.Parent := ListToolBar;
1590 yoffy 1.51 SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1591     SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;
1592     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申
1593 yoffy 1.239 SelectComboBoxSplitter.Parent := ListToolBar;
1594 yoffy 1.51 SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
1595    
1596     break;
1597     end;
1598     end;
1599     except
1600     end;
1601 yoffy 1.2 ReadToolBarSetting(ActionList, BrowserToolBar);
1602     SetToolBarPopup;
1603 yoffy 1.375
1604     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1605 yoffy 1.383 FResRangeMenuSelect := GikoSys.ResRange;
1606 yoffy 1.375 case GikoSys.ResRange of
1607     Ord( grrAll ):
1608     begin
1609     AllResAction.Execute;
1610     end;
1611     Ord( grrSelect ):
1612     begin
1613 yoffy 1.383 SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1614 yoffy 1.375 SelectResAction.Checked := True;
1615     end;
1616     else
1617     // ResRangeAction.Execute;
1618     case FResRangeMenuSelect of
1619     Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1620     Ord( grrNew ): OnlyNewResAction.Checked := True;
1621 yoffy 1.389 100: OnlyAHundredResAction.Checked := True;
1622 yoffy 1.375 end;
1623     end;
1624    
1625 yoffy 1.390 // 鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1626     // ThreadRangeAction.Execute;
1627     case GikoSys.Setting.ThreadRange of
1628     gtrAll:
1629     begin
1630     AllItemAction.Checked := True;
1631     ViewType := gvtAll;
1632     end;
1633     gtrLog:
1634     begin
1635     LogItemAction.Checked := True;
1636     ViewType := gvtLog;
1637     end;
1638     gtrNew:
1639     begin
1640     NewItemAction.Checked := True;
1641     ViewType := gvtNew;
1642     end;
1643     end;
1644    
1645 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃?
1646     AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1647    
1648 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1649    
1650     //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1651     if not FileExists(GikoSys.GetBoardFileName) then begin
1652     msg := '鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申' + #13#10#13#10
1653     + '鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申' + #13#10
1654     + '鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?';
1655     MsgBox(SplashWindow.Handle, msg, '鐃?鐃?鐃?鐃?', MB_OK or MB_ICONINFORMATION);
1656     NewBoardAction.Execute;
1657     end;
1658    
1659     //鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1660     GikoSys.LoadKeySetting(ActionList);
1661    
1662     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1663     // FLastRoundTime := 0;
1664    
1665     //ResHint
1666     FHint := TResPopup.Create(Self);
1667    
1668 yoffy 1.100 // 鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
1669 h677 1.299 CabinetVisible( False );
1670 yoffy 1.141 if GikoSys.Setting.CabinetVisible then begin
1671     i := CabinetSelectPopupMenu.Items.Count - 1;
1672     if GikoSys.Setting.CabinetIndex = i - 1 then
1673     CabinetHistoryAction.Execute
1674     else if GikoSys.Setting.CabinetIndex = i then
1675     CabinetFavoriteAction.Execute
1676     else begin
1677     if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
1678     ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
1679 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 2
1680     FIsIgnoreResize := True;
1681 yoffy 1.141 CabinetBBSAction.Execute;
1682     end;
1683     end else begin
1684 yoffy 1.248 ShowBBSTreeOld( BBSs[ 0 ] );
1685     PostMessage( Handle, USER_TREECLICK, 0, 0 );
1686 yoffy 1.141 end;
1687 yoffy 1.67
1688 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 3
1689 yoffy 1.248 FIsIgnoreResize := True;
1690    
1691 yoffy 1.2 //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申
1692     if GikoSys.Setting.AutoLogin then
1693     LoginAction.Execute;
1694    
1695     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
1696     for i := 1 to ParamCount do begin
1697     MoveToURL(ParamStr(i));
1698     end;
1699     // SetStdToolBar;
1700     // SetLinkBar;
1701 h677 1.22
1702 hi_ 1.32 s := GikoSys.FAbon.NGwordname;
1703     StatusBar.Panels[2].Text := s;
1704     StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1705     StatusBarResize(Sender);
1706 h677 1.187
1707 yoffy 1.236 dummy1.Caption := ItemReservPMenu.Caption;
1708     dummy1.Hint := ItemReservPMenu.Hint;
1709 yoffy 1.216
1710 yoffy 1.236 //Samba24鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?
1711     GikoSys.SambaFileExists();
1712 h677 1.299
1713 genyakun 1.373 //鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 (AV鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申)
1714 yoffy 1.2 end;
1715    
1716 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1717     procedure TGikoForm.SaveCoolBarSettings;
1718 yoffy 1.2 var
1719 yoffy 1.216 i : Integer;
1720     CoolSet : TCoolSet;
1721 yoffy 1.2 begin
1722    
1723 yoffy 1.248 if IsIconic( Handle ) or FIsIgnoreResize then
1724 yoffy 1.216 Exit;
1725 yoffy 1.2
1726 yoffy 1.216 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1727     for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin
1728     CoolSet.FCoolID := MainCoolBar.Bands[i].ID;
1729     CoolSet.FCoolWidth := MainCoolBar.Bands[i].Width;
1730     CoolSet.FCoolBreak := MainCoolBar.Bands[i].Break;
1731     GikoSys.Setting.MainCoolSet[i] := CoolSet;
1732     end;
1733     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1734     for i := 0 to LIST_COOLBAND_COUNT - 1 do begin
1735     CoolSet.FCoolID := ListCoolBar.Bands[i].ID;
1736     CoolSet.FCoolWidth := ListCoolBar.Bands[i].Width;
1737     CoolSet.FCoolBreak := ListCoolBar.Bands[i].Break;
1738     GikoSys.Setting.ListCoolSet[i] := CoolSet;
1739     end;
1740     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1741     for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin
1742     CoolSet.FCoolID := BrowserCoolBar.Bands[i].ID;
1743     CoolSet.FCoolWidth := BrowserCoolBar.Bands[i].Width;
1744     CoolSet.FCoolBreak := BrowserCoolBar.Bands[i].Break;
1745     GikoSys.Setting.BrowserCoolSet[i] := CoolSet;
1746 yoffy 1.2 end;
1747    
1748 yoffy 1.216 end;
1749 yoffy 1.2
1750 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1751     procedure TGikoForm.LoadCoolBarSettings;
1752     var
1753     i : Integer;
1754     CoolSet : TCoolSet;
1755     begin
1756 yoffy 1.2
1757 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1758     MainCoolBar.Bands.BeginUpdate;
1759     try
1760 yoffy 1.216 // for i := 0 to MainCoolBar.Bands.Count - 1 do begin
1761     for i := MAIN_COOLBAND_COUNT - 1 downto 0 do begin
1762 hi_ 1.1 CoolSet := GikoSys.Setting.MainCoolSet[i];
1763 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1764 yoffy 1.265 FIsIgnoreResize := False;
1765 yoffy 1.263 SaveCoolBarSettings;
1766     Exit;
1767     end;
1768 hi_ 1.1 MainCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1769     MainCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1770 yoffy 1.264 MainCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1771 hi_ 1.1 end;
1772     finally
1773     MainCoolBar.Bands.EndUpdate;
1774     end;
1775    
1776     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1777     ListCoolBar.Bands.BeginUpdate;
1778     try
1779 yoffy 1.216 // for i := 0 to ListCoolBar.Bands.Count - 1 do begin
1780     for i := LIST_COOLBAND_COUNT - 1 downto 0 do begin
1781 hi_ 1.1 CoolSet := GikoSys.Setting.ListCoolSet[i];
1782 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1783 yoffy 1.265 FIsIgnoreResize := False;
1784 yoffy 1.263 SaveCoolBarSettings;
1785     Exit;
1786     end;
1787 hi_ 1.1 ListCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1788     ListCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1789     ListCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1790     end;
1791     finally
1792     ListCoolBar.Bands.EndUpdate;
1793     end;
1794    
1795     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1796     BrowserCoolBar.Bands.BeginUpdate;
1797     try
1798 yoffy 1.216 // for i := 0 to BrowserCoolBar.Bands.Count - 1 do begin
1799     for i := BROWSER_COOLBAND_COUNT - 1 downto 0 do begin
1800 hi_ 1.1 CoolSet := GikoSys.Setting.BrowserCoolSet[i];
1801 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1802 yoffy 1.265 FIsIgnoreResize := False;
1803 yoffy 1.263 SaveCoolBarSettings;
1804     Exit;
1805     end;
1806 hi_ 1.1 BrowserCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1807     BrowserCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1808     BrowserCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1809     end;
1810     finally
1811     BrowserCoolBar.Bands.EndUpdate;
1812     end;
1813    
1814     end;
1815 yoffy 1.216
1816     //
1817     //
1818     //
1819     procedure TGikoForm.FormShow(Sender: TObject);
1820     begin
1821     ShowWindow(Application.Handle, SW_HIDE);
1822    
1823     //FormCreate鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1824     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1825     StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1826     StdToolBarVisibleActionExecute( nil );
1827     AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1828     AddressBarVisibleActionExecute( nil );
1829     LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1830     LinkBarVisibleActionExecute( nil );
1831     ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1832     ListToolBarVisibleActionExecute( nil );
1833     ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1834     ListNameBarVisibleActionExecute( nil );
1835     BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1836     BrowserToolBarVisibleActionExecute( nil );
1837     BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1838     BrowserNameBarVisibleActionExecute( nil );
1839    
1840     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1841     BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1842     BrowserTabVisibleActionExecute(nil);
1843    
1844     if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1845     BrowserTabTopAction.Checked := True;
1846     BrowserTabTopActionExecute(nil);
1847     end else begin
1848     BrowserTabBottomAction.Checked := True;
1849     BrowserTabBottomActionExecute(nil);
1850     end;
1851    
1852     if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1853     BrowserTabTabStyleAction.Checked := True;
1854     BrowserTabTabStyleActionExecute(nil);
1855     end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1856     BrowserTabButtonStyleAction.Checked := True;
1857     BrowserTabButtonStyleActionExecute(nil);
1858     end else begin
1859     BrowserTabFlatStyleAction.Checked := True;
1860     BrowserTabFlatStyleActionExecute(nil);
1861     end;
1862    
1863 yoffy 1.408 // ListView 鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?
1864     ListView.LVMInstallHeaderDrag;
1865    
1866 yoffy 1.216 // CoolBar 鐃緒申鐃緒申
1867     LoadCoolBarSettings;
1868 yoffy 1.265
1869     FIsIgnoreResize := False;
1870 genyakun 1.382
1871 yoffy 1.397 //TabAutoLoad
1872     //FormCrete鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1873     if GikoSys.Setting.TabAutoLoadSave then begin
1874     TabAutoLoadAction.Execute;
1875     end;
1876 genyakun 1.382
1877 yoffy 1.239 end;
1878 yoffy 1.216
1879 hi_ 1.1 procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1880     begin
1881 yoffy 1.331 // if GikoForm.WindowState <> wsMinimized then
1882     // SaveCoolBarSettings;
1883 yoffy 1.236 if ( GikoSys.Setting.ShowDialogForEnd ) and
1884     (MessageDlg('鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1885     CanClose := false;
1886     Exit;
1887     end else begin
1888     CanClose := True;
1889 yoffy 1.398 if GikoSys.Setting.TabAutoLoadSave then begin
1890     TabAutoSaveAction.Execute;
1891     end;
1892 yoffy 1.236 end;
1893 h677 1.241 //Application.HookMainWindow(Hook);
1894     Application.UnhookMainWindow(Hook);
1895     Application.Terminate;
1896     end;
1897    
1898     procedure TGikoForm.FormDestroy(Sender: TObject);
1899     var
1900 yoffy 1.376 i : Integer;
1901 h677 1.241 // CoolSet: TCoolSet;
1902 yoffy 1.376 wp : TWindowPlacement;
1903     tmpBool : Boolean;
1904 h677 1.241 begin
1905 h677 1.181 // Application.OnDeactivate := nil;
1906     // Self.OnDeactivate := nil;
1907 yoffy 1.236 try
1908 yoffy 1.410 ActiveListColumnSave;
1909 yoffy 1.236 except
1910     end;
1911     try
1912 h677 1.234 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1913     wp.length := sizeof(wp);
1914     GetWindowPlacement(Handle, @wp);
1915     GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1916     GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1917     GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1918     GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1919     GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1920    
1921     GikoSys.Setting.ListStyle := ListView.ViewStyle;
1922     GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1923     GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1924     GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1925     GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1926     if ArrangeAction.Checked then
1927     GikoSys.Setting.ListOrientation := gloVertical
1928     else
1929     GikoSys.Setting.ListOrientation := gloHorizontal;
1930     GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1931 yoffy 1.236 except
1932 yoffy 1.2 end;
1933 yoffy 1.378
1934     try
1935     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1936     if not GikoSys.Setting.ResRangeHold then
1937 yoffy 1.380 GikoSys.Setting.ResRange := FResRangeMenuSelect;
1938 yoffy 1.378 except
1939     end;
1940    
1941     // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申 CoolBar 鐃緒申鐃緒申
1942 yoffy 1.216 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1943 yoffy 1.263 {
1944     // 鐃緒申FormDestroy鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?2004/04/09鐃?
1945 yoffy 1.216 // CoolBar 鐃緒申鐃緒申
1946 h677 1.262 if GikoForm.WindowState <> wsMinimized then
1947     SaveCoolBarSettings;
1948 yoffy 1.263 }
1949 yoffy 1.236 try
1950 h677 1.234 GikoSys.Setting.WriteWindowSettingFile;
1951     GikoSys.Setting.WriteNameMailSettingFile;
1952 yoffy 1.236 except
1953     end;
1954 yoffy 1.2
1955     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1956 hi_ 1.1 try
1957 yoffy 1.236 //FavoriteDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1958 yoffy 1.2 FavoriteDM.WriteFavorite;
1959 yoffy 1.236 FavoriteDM.Clear;
1960 hi_ 1.1 except
1961     end;
1962    
1963     try
1964     //鐃?鐃?鐃?鐃緒申鐃?鐃?
1965 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
1966     GikoSys.Setting.ShowDialogForAllTabClose := false;
1967     AllTabCloseAction.Execute;
1968     GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
1969 h677 1.299 except
1970     end;
1971 h677 1.321 try
1972     LockWindowUpdate(Self.Handle);
1973     for i := FBrowsers.Count - 1 downto 0 do begin
1974     TWebBrowser(FBrowsers[i]).Free;
1975     end;
1976     FBrowsers.Clear;
1977     FBrowsers.Capacity := 0;
1978     finally
1979     FBrowsers.Free;
1980 h677 1.303 end;
1981 h677 1.299 try
1982     if BrowserNullTab <> nil then begin
1983     BrowserNullTab.Browser := nil; {*BrowserNullTab鐃緒申Browser鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?
1984     *鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Free鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1985     *}
1986     BrowserNullTab.Free;
1987 hi_ 1.1 end;
1988     except
1989     end;
1990 h677 1.321 LockWindowUpdate(0);
1991 h677 1.224 try
1992 yoffy 1.236 TreeView.Items.BeginUpdate;
1993 yoffy 1.380 TreeView.Items.GetFirstNode.Free;
1994 yoffy 1.236 TreeView.Items.Clear;
1995     TreeView.Items.EndUpdate;
1996 h677 1.224 except
1997     end;
1998 h677 1.230
1999 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2000     try
2001 yoffy 1.236 //AddressHistoryDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
2002 hi_ 1.1 AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
2003     except
2004     end;
2005    
2006 h677 1.234 //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
2007 hi_ 1.1 try
2008 h677 1.234 SaveHistory;
2009 hi_ 1.1 except
2010     end;
2011 yoffy 1.236 try
2012     try
2013     ClearHistory;
2014     except
2015     end;
2016     finally
2017     FHistoryList.Free;
2018     end;
2019 h677 1.221
2020 h677 1.182 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申&鐃?鐃緒申
2021     try
2022     RoundList.SaveRoundFile;
2023     except
2024     end;
2025 yoffy 1.236 try
2026 h677 1.234 try
2027 yoffy 1.236 RoundList.Clear;
2028 h677 1.234 except
2029     end;
2030 yoffy 1.236 finally
2031     RoundList.Free;
2032     end;
2033 h677 1.182
2034 yoffy 1.236 try
2035 h677 1.234 try
2036     FControlThread.Terminate;
2037 yoffy 1.236 FControlThread.WaitFor;
2038 h677 1.234 except
2039 h677 1.219 end;
2040 yoffy 1.236 finally
2041     FControlThread.Free;
2042     end;
2043 h677 1.230
2044 yoffy 1.155 // TBBS 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 TCategory, TBoard, TThreadItem 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2045     // TBoard, TThreadItem 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2046     // BoardPluteIns 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2047 yoffy 1.126 try
2048 h677 1.220 for i := Length( BBSs ) - 1 downto 0 do begin
2049 h677 1.153 if BBSs[ i ] <> nil then
2050     BBSs[ i ].Free;
2051     BBSs[ i ] := nil;
2052     end;
2053     except
2054     end;
2055 yoffy 1.155
2056 h677 1.153 try
2057 h677 1.220 for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2058 yoffy 1.126 if BoardPlugIns[ i ] <> nil then
2059     BoardPlugIns[ i ].Free;
2060     BoardPlugIns[ i ] := nil;
2061     end;
2062     except
2063     end;
2064 yoffy 1.124
2065 h677 1.234 try
2066 yoffy 1.236 if FEvent <> nil then
2067     FEvent.Free;
2068 h677 1.181
2069 yoffy 1.2 //Hint鐃?鐃緒申
2070     if FHint <> nil then begin
2071     FHint.ReleaseHandle;
2072     FHint.Free;
2073     FHint := nil;
2074     end;
2075     //Preview鐃?鐃緒申
2076     if TPreviewBrowser <> nil then begin
2077     FPreviewBrowser.Free;
2078     FPreviewBrowser := nil;
2079     end;
2080     except
2081     end;
2082 h677 1.230
2083 hi_ 1.1 end;
2084    
2085     //鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2086     procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);
2087     begin
2088 h677 1.230 end;
2089 hi_ 1.1 //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2090     procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2091     begin
2092     CabinetVisibleAction.Execute;
2093     // CabinetPanelVisible(false);
2094     end;
2095    
2096 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
2097     procedure TGikoForm.SetBBSMenu;
2098 yoffy 1.123 var
2099     i : Integer;
2100 yoffy 1.149 item : TBBSMenuItem;
2101 hi_ 1.1 begin
2102    
2103 yoffy 1.148 // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2104     for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
2105     try
2106     if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
2107 yoffy 1.155 CabinetSelectPopupMenu.Items[ i ].Free;
2108     CabinetMenu.Items[ i ].Free;
2109 yoffy 1.289 BBSSelectPopupMenu.Items[ i ].Free;
2110 yoffy 1.148 end;
2111     except
2112     end;
2113     end;
2114 yoffy 1.289
2115     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2116 yoffy 1.148 for i := Length( BBSs ) - 1 downto 0 do begin
2117     try
2118     item := TBBSMenuItem.Create( PopupMenu );
2119     item.Caption := BBSs[ i ].Title;
2120     item.Data := BBSs[ i ];
2121     item.OnClick := BBSMenuItemOnClick;
2122     CabinetSelectPopupMenu.Items.Insert( 0, item );
2123     item := TBBSMenuItem.Create( PopupMenu );
2124     item.Caption := BBSs[ i ].Title;
2125     item.Data := BBSs[ i ];
2126     item.OnClick := BBSMenuItemOnClick;
2127     CabinetMenu.Insert( 0, item );
2128 yoffy 1.289 item := TBBSMenuItem.Create( PopupMenu );
2129     item.Caption := BBSs[ i ].Title;
2130     item.Data := BBSs[ i ];
2131     item.OnClick := BBSMenuItemOnClick;
2132     BBSSelectPopupMenu.Items.Insert( 0, Item );
2133 yoffy 1.148 except
2134     end;
2135     end;
2136 yoffy 1.289
2137     end;
2138    
2139     procedure TGikoForm.ReloadBBS;
2140     var
2141     i : Integer;
2142 h677 1.321 tmpBool: Boolean;
2143 yoffy 1.289 begin
2144     //鐃?鐃?鐃?鐃緒申鐃?鐃?
2145 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2146     GikoSys.Setting.ShowDialogForAllTabClose := false;
2147 h677 1.320 AllTabCloseAction.Execute;
2148 h677 1.321 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2149    
2150 h677 1.320 SetContent(BrowserNullTab);
2151 yoffy 1.289 //TreeView鐃?鐃緒申鐃?鐃?BBS2ch.Free鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申XP鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?
2152     TreeView.Items.Clear;
2153    
2154     //BBS鐃?鐃緒申
2155     try
2156     for i := Length( BBSs ) - 1 downto 0 do begin
2157     if BBSs[ i ] <> nil then
2158     BBSs[ i ].Free;
2159     BBSs[ i ] := nil;
2160     end;
2161     except
2162     end;
2163    
2164     ActiveList := nil;
2165    
2166     FTreeType := gttNone;
2167    
2168     GikoSys.ListBoardFile; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
2169    
2170     // BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2171     SetBBSMenu;
2172    
2173 yoffy 1.123 ShowBBSTree( BBSs[ 0 ] );
2174 yoffy 1.143
2175     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2176 yoffy 1.146 SaveHistory;
2177 yoffy 1.272 ClearHistory;
2178 yoffy 1.143 LoadHistory;
2179    
2180     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2181 yoffy 1.287 FavoriteDM.WriteFavorite;
2182 yoffy 1.272 FavoriteDM.Clear;
2183 yoffy 1.143 FavoriteDM.ReadFavorite;
2184 yoffy 1.279
2185 yoffy 1.143 SetLinkBar;
2186    
2187 hi_ 1.1 end;
2188    
2189     //鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
2190 yoffy 1.123 procedure TGikoForm.SetBoardTreeNode(
2191     inBBS : TBBS
2192     );
2193 hi_ 1.1 var
2194 yoffy 1.120 i, j, k: integer;
2195 hi_ 1.1 Root: TTreeNode;
2196     CategoryNode: TTreeNode;
2197     BoardNode: TTreeNode;
2198     Category: TCategory;
2199     Board: TBoard;
2200     begin
2201 yoffy 1.112 // 鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
2202 yoffy 1.133 FActiveBBS := inBBS;
2203 hi_ 1.1 TreeView.Items.BeginUpdate;
2204     TreeView.Items.Clear;
2205     try
2206 q9_ 1.385 if not inBBS.IsBoardFileRead then
2207     GikoSys.ReadBoardFile( inBBS );
2208 yoffy 1.123 try
2209     if SplashWindow <> nil then
2210 yoffy 1.210 SplashWindow.ProgressBar.Max := inBBS.Count;
2211 yoffy 1.123 except
2212     end;
2213    
2214 q9_ 1.385 // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?
2215     if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
2216     Sort.SortOrder := true;
2217     Sort.SortIndex := 0;
2218     Sort.SortNoFlag := true;
2219     inBBS.Sort(CategorySortProc);
2220     end;
2221    
2222 yoffy 1.123 Root := TreeView.Items.Add( nil, inBBS.Title );
2223     Root.ImageIndex := ITEM_ICON_2CH1;
2224     Root.SelectedIndex := ITEM_ICON_2CH2;
2225     Root.Data := inBBS;
2226     for i := 0 to inBBS.Count - 1 do begin
2227     Category := TCategory(inBBS.Items[i]);
2228     CategoryNode := TreeView.Items.AddChild(Root, Category.Title);
2229     CategoryNode.Data := Category;
2230     CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
2231     CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
2232 hi_ 1.1
2233 q9_ 1.385 // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?
2234     if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
2235     Sort.SortOrder := true;
2236     Sort.SortIndex := 0;
2237     Sort.SortNoFlag := true;
2238     Category.CustomSort(BoardSortProc);
2239     end;
2240    
2241 yoffy 1.123 for j := 0