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.423 - (hide annotations) (download) (as text)
Sat Sep 11 13:58:54 2004 UTC (19 years, 7 months ago) by h677
Branch: MAIN
Changes since 1.422: +60 -69 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 ListViewData(Sender: TObject; Item: TListItem);
583     procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
584     const FindString: String; const FindPosition: TPoint;
585     FindData: Pointer; StartIndex: Integer; Direction: TSearchDirection;
586     Wrap: Boolean; var Index: Integer);
587     procedure ListViewDataHint(Sender: TObject; StartIndex,
588     EndIndex: Integer);
589     procedure ListViewDataStateChange(Sender: TObject; StartIndex,
590     EndIndex: Integer; OldState, NewState: TItemStates);
591     procedure BrowserStatusTextChange(Sender: TObject;
592     const Text: WideString);
593     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
594     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
595     var AllowChange: Boolean);
596     procedure ListViewKeyDown(Sender: TObject; var Key: Word;
597     Shift: TShiftState);
598     procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
599 q9_ 1.369 procedure ListViewSort(Sender: TObject; Column: TListColumn);
600 hi_ 1.1 procedure MenuToolBarCustomDrawButton(Sender: TToolBar;
601     Button: TToolButton; State: TCustomDrawState;
602     var DefaultDraw: Boolean);
603     procedure BrowserBeforeNavigate2(Sender: TObject;
604     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
605     Headers: OleVariant; var Cancel: WordBool);
606     procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
607     Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
608     var DefaultDraw: Boolean);
609     procedure TreeViewCustomDraw(Sender: TCustomTreeView;
610     const ARect: TRect; var DefaultDraw: Boolean);
611     procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
612     Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
613     procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
614     procedure TreeViewDblClick(Sender: TObject);
615     procedure ListViewCustomDraw(Sender: TCustomListView;
616     const ARect: TRect; var DefaultDraw: Boolean);
617     procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
618     Shift: TShiftState; X, Y: Integer);
619     procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
620     procedure MessageListViewResize(Sender: TObject);
621     procedure ExitActionExecute(Sender: TObject);
622     procedure AllSelectActionExecute(Sender: TObject);
623     procedure StdToolBarVisibleActionExecute(Sender: TObject);
624     procedure MsgBarVisibleActionExecute(Sender: TObject);
625     procedure StatusBarVisibleActionExecute(Sender: TObject);
626     procedure LargeIconActionExecute(Sender: TObject);
627     procedure SmallIconActionExecute(Sender: TObject);
628     procedure ListIconActionExecute(Sender: TObject);
629     procedure DetailIconActionExecute(Sender: TObject);
630     procedure SearchActionExecute(Sender: TObject);
631     procedure OptionActionExecute(Sender: TObject);
632     procedure GikoNaviWebPageActionExecute(Sender: TObject);
633     procedure AboutActionExecute(Sender: TObject);
634     procedure CabinetHistoryActionExecute(Sender: TObject);
635 yoffy 1.138 procedure CabinetVisible( isVisible : Boolean );
636 hi_ 1.1 procedure CabinetVisibleActionExecute(Sender: TObject);
637     procedure AllItemActionExecute(Sender: TObject);
638     procedure LogItemActionExecute(Sender: TObject);
639     procedure NewItemActionExecute(Sender: TObject);
640     procedure SelectItemActionExecute(Sender: TObject);
641     procedure ListNumberVisibleActionExecute(Sender: TObject);
642     procedure UpFolderActionExecute(Sender: TObject);
643     procedure IconStyleExecute(Sender: TObject);
644     procedure RoundActionExecute(Sender: TObject);
645     procedure StopActionExecute(Sender: TObject);
646     procedure MsgBarCloseActionExecute(Sender: TObject);
647     procedure BrowserMaxActionExecute(Sender: TObject);
648     procedure ScrollTopActionExecute(Sender: TObject);
649     procedure ScrollLastActionExecute(Sender: TObject);
650     procedure ScrollNewActionExecute(Sender: TObject);
651     procedure ScrollKokoActionExecute(Sender: TObject);
652     procedure EditorActionExecute(Sender: TObject);
653     procedure IEActionExecute(Sender: TObject);
654     procedure ShowThreadActionExecute(Sender: TObject);
655     procedure ShowBoardActionExecute(Sender: TObject);
656     procedure URLCopyActionExecute(Sender: TObject);
657     procedure ItemReloadActionExecute(Sender: TObject);
658     procedure SelectListReloadActionExecute(Sender: TObject);
659     procedure SelectThreadReloadActionExecute(Sender: TObject);
660     procedure SelectListReloadActionUpdate(Sender: TObject);
661     procedure AllItemActionUpdate(Sender: TObject);
662     procedure LogItemActionUpdate(Sender: TObject);
663     procedure NewItemActionUpdate(Sender: TObject);
664     procedure SelectItemActionUpdate(Sender: TObject);
665     procedure UpFolderActionUpdate(Sender: TObject);
666     procedure FormResize(Sender: TObject);
667     procedure ScrollTopActionUpdate(Sender: TObject);
668     procedure ScrollLastActionUpdate(Sender: TObject);
669     procedure ScrollNewActionUpdate(Sender: TObject);
670     procedure ScrollKokoActionUpdate(Sender: TObject);
671     procedure EditorActionUpdate(Sender: TObject);
672     procedure IEActionUpdate(Sender: TObject);
673     procedure ShowThreadActionUpdate(Sender: TObject);
674     procedure ShowBoardActionUpdate(Sender: TObject);
675     procedure SelectThreadReloadActionUpdate(Sender: TObject);
676 yoffy 1.51 procedure ItemReloadActionUpdate(Sender: TObject);
677     procedure LogDeleteActionExecute(Sender: TObject);
678 hi_ 1.1 procedure KokomadeActionExecute(Sender: TObject);
679     procedure ZenbuActionExecute(Sender: TObject);
680 yoffy 1.51 procedure KokoResActionExecute(Sender: TObject);
681 hi_ 1.1 procedure ListPopupMenuPopup(Sender: TObject);
682     procedure SelectItemURLCopyActionExecute(Sender: TObject);
683     procedure SelectItemURLCopyActionUpdate(Sender: TObject);
684     procedure AllSelectActionUpdate(Sender: TObject);
685     procedure LogDeleteActionUpdate(Sender: TObject);
686     procedure BrowserTabCloseActionExecute(Sender: TObject);
687     procedure NotSelectTabCloseActionExecute(Sender: TObject);
688     procedure TreeSelectBoradReloadExecute(Sender: TObject);
689     procedure TreeSelectThreadReloadExecute(Sender: TObject);
690     procedure TreeSelectURLCopyExecute(Sender: TObject);
691     procedure TreePopupMenuPopup(Sender: TObject);
692     procedure ListToolBarVisibleActionExecute(Sender: TObject);
693     procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
694     procedure BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
695     var Cancel: WordBool);
696     procedure ListSplitterCanResize(Sender: TObject; var NewSize: Integer;
697     var Accept: Boolean);
698     procedure ListSplitterMoved(Sender: TObject);
699     procedure BrowserTabChange(Sender: TObject);
700     procedure BrowserTabMouseDown(Sender: TObject; Button: TMouseButton;
701     Shift: TShiftState; X, Y: Integer);
702     procedure BrowserTabDragOver(Sender, Source: TObject; X, Y: Integer;
703     State: TDragState; var Accept: Boolean);
704     procedure BrowserTabDragDrop(Sender, Source: TObject; X, Y: Integer);
705     procedure BrowserTabMouseMove(Sender: TObject; Shift: TShiftState; X,
706     Y: Integer);
707     procedure BrowserDocumentComplete(Sender: TObject;
708     const pDisp: IDispatch; var URL: OleVariant);
709     procedure SelectReservActionUpdate(Sender: TObject);
710     procedure RoundNamePopupMenuPopup(Sender: TObject);
711     procedure SelectNewRoundNameExecute(Sender: TObject);
712     procedure SelectDeleteRoundExecute(Sender: TObject);
713     procedure SelectReservActionExecute(Sender: TObject);
714     procedure NewBoardActionExecute(Sender: TObject);
715     procedure LoginActionExecute(Sender: TObject);
716     procedure KeySettingActionExecute(Sender: TObject);
717     procedure AllTabCloseActionExecute(Sender: TObject);
718 yoffy 1.51 procedure ArrangeActionExecute(Sender: TObject);
719     procedure NameURLCopyActionExecute(Sender: TObject);
720     procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
721 hi_ 1.1 procedure URLCopyActionUpdate(Sender: TObject);
722 yoffy 1.2 procedure NameURLCopyActionUpdate(Sender: TObject);
723 hi_ 1.1 procedure BrowserTabCloseActionUpdate(Sender: TObject);
724 yoffy 1.51 procedure NotSelectTabCloseActionUpdate(Sender: TObject);
725 hi_ 1.1 procedure AllTabCloseActionUpdate(Sender: TObject);
726     procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);
727     procedure ActiveLogDeleteActionExecute(Sender: TObject);
728     procedure ActiveLogDeleteActionUpdate(Sender: TObject);
729 yoffy 1.51 procedure ListNameBarVisibleActionExecute(Sender: TObject);
730 hi_ 1.1 procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
731 yoffy 1.51 procedure TreeSelectNameURLCopyExecute(Sender: TObject);
732     procedure PaneInitActionExecute(Sender: TObject);
733 hi_ 1.1 procedure FormShow(Sender: TObject);
734     procedure BrowserTabToolBarResize(Sender: TObject);
735     procedure BrowserMinActionExecute(Sender: TObject);
736 yoffy 1.51 procedure SelectTextClearActionExecute(Sender: TObject);
737 hi_ 1.1 procedure NameTextClearActionExecute(Sender: TObject);
738 yoffy 1.51 procedure MailTextClearActionExecute(Sender: TObject);
739     procedure LeftmostTabSelectActionExecute(Sender: TObject);
740     procedure LeftTabSelectActionExecute(Sender: TObject);
741 hi_ 1.1 procedure RightTabSelectActionExecute(Sender: TObject);
742     procedure RightmostTabSelectActionExecute(Sender: TObject);
743     procedure LeftmostTabSelectActionUpdate(Sender: TObject);
744     procedure LeftTabSelectActionUpdate(Sender: TObject);
745     procedure RightTabSelectActionUpdate(Sender: TObject);
746     procedure RightmostTabSelectActionUpdate(Sender: TObject);
747     procedure FavoriteMenuClick(Sender: TObject);
748     procedure FavoriteAddActionExecute(Sender: TObject);
749     procedure FavoriteAddActionUpdate(Sender: TObject);
750     procedure BoardFavoriteAddActionExecute(Sender: TObject);
751     procedure BoardFavoriteAddActionUpdate(Sender: TObject);
752 yoffy 1.51 procedure ThreadFavoriteAddActionExecute(Sender: TObject);
753 hi_ 1.1 procedure ThreadFavoriteAddActionUpdate(Sender: TObject);
754 yoffy 1.51 procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
755 yoffy 1.2 procedure FavoriteArrangeActionExecute(Sender: TObject);
756     procedure MainCoolBarResize(Sender: TObject);
757 hi_ 1.1 procedure MoveToActionExecute(Sender: TObject);
758 yoffy 1.2 procedure AddressToolBarResize(Sender: TObject);
759 hi_ 1.1 procedure AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
760     Shift: TShiftState);
761 yoffy 1.51 procedure AddressBarVisibleActionExecute(Sender: TObject);
762 yoffy 1.2 procedure BrowserEnter(Sender: TObject);
763 hi_ 1.1 procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
764 yoffy 1.51 procedure BrowserTabVisibleActionExecute(Sender: TObject);
765     procedure BrowserTabTopActionExecute(Sender: TObject);
766     procedure BrowserTabBottomActionExecute(Sender: TObject);
767     procedure BrowserTabTabStyleActionExecute(Sender: TObject);
768 hi_ 1.1 procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
769 yoffy 1.51 procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
770 hi_ 1.1 procedure PreviewTimerTimer(Sender: TObject);
771     procedure MessageHideButtonClick(Sender: TObject);
772     procedure MonazillaWebPageActionExecute(Sender: TObject);
773     procedure GikoHelpActionExecute(Sender: TObject);
774     procedure ToolButton18Click(Sender: TObject);
775     procedure KotehanActionExecute(Sender: TObject);
776 yoffy 1.51 procedure LinkBarVisibleActionExecute(Sender: TObject);
777     procedure BBS2chWebPageActionExecute(Sender: TObject);
778     procedure GikoFolderOpenActionExecute(Sender: TObject);
779 yoffy 1.2 procedure MainCoolBarBandInfo(Sender: TObject;
780     var BandInfo: PReBarBandInfoA);
781     procedure MainCoolBarChevronClick(Sender: TObject;
782 yoffy 1.51 RebarChevron: PNMRebarChevron);
783     procedure ListCoolBarBandInfo(Sender: TObject;
784     var BandInfo: PReBarBandInfoA);
785     procedure ListCoolBarChevronClick(Sender: TObject;
786     RebarChevron: PNMRebarChevron);
787     procedure BrowserCoolBarBandInfo(Sender: TObject;
788     var BandInfo: PReBarBandInfoA);
789 yoffy 1.2 procedure BrowserCoolBarChevronClick(Sender: TObject;
790 yoffy 1.51 RebarChevron: PNMRebarChevron);
791     procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
792     procedure ThreadEditorActionExecute(Sender: TObject);
793 yoffy 1.2 procedure ThreadEditorActionUpdate(Sender: TObject);
794 yoffy 1.51 procedure ToolBarSettingActionExecute(Sender: TObject);
795     procedure NameCopyActionExecute(Sender: TObject);
796     procedure BoardIEActionExecute(Sender: TObject);
797     procedure SelectItemNameCopyActionExecute(Sender: TObject);
798 yoffy 1.2 procedure SelectItemNameCopyActionUpdate(Sender: TObject);
799 yoffy 1.51 procedure BoardIEActionUpdate(Sender: TObject);
800     procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
801     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
802     procedure NameCopyActionUpdate(Sender: TObject);
803     procedure SelectComboBoxChange(Sender: TObject);
804     procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
805     Shift: TShiftState);
806     procedure SelectComboBoxExit(Sender: TObject);
807     procedure SelectResActionExecute(Sender: TObject);
808     procedure SelectResActionUpdate(Sender: TObject);
809     procedure AllResActionExecute(Sender: TObject);
810     procedure AllResActionUpdate(Sender: TObject);
811     procedure ReloadClick(Sender: TObject);
812     procedure GoBackClick(Sender: TObject);
813     procedure GoFowardClick(Sender: TObject);
814     procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
815     Shift: TShiftState; X, Y: Integer);
816     procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
817     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
818     procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
819     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
820     procedure StatusBarResize(Sender: TObject);
821     procedure IndividualAbon1Click(Sender: TObject);
822     procedure IndividualAbon2Click(Sender: TObject);
823     procedure N42Click(Sender: TObject);
824     procedure SelectComboBoxEnter(Sender: TObject);
825     procedure AntiIndividualAbonClick(Sender: TObject);
826     procedure N51Click(Sender: TObject);
827     procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
828 yoffy 1.100 procedure CabinetFavoriteActionExecute(Sender: TObject);
829     procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
830     Y: Integer);
831 yoffy 1.71 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
832 yoffy 1.100 procedure FavoriteTreeViewEdited(Sender: TObject; Node: TTreeNode;
833     var S: String);
834     procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
835     Shift: TShiftState);
836     procedure FavoriteTreePopupMenuPopup(Sender: TObject);
837     procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
838     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
839     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
840     procedure ToolButton19Click(Sender: TObject);
841     procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
842     procedure FavoriteTreeViewDblClick(Sender: TObject);
843     procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
844     procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
845     procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
846     procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
847     procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
848     procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
849     procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
850     Shift: TShiftState; X, Y: Integer);
851     procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
852     State: TDragState; var Accept: Boolean);
853 yoffy 1.375 procedure ResRangeActionExecute(Sender: TObject);
854 yoffy 1.100 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
855     Y: Integer);
856     procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
857     var Handled: Boolean);
858     procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
859     var Handled: Boolean);
860     procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
861     var Handled: Boolean);
862 yoffy 1.107 procedure ExportFavoriteFileAccept(Sender: TObject);
863     procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
864 yoffy 1.139 procedure CabinetBBSActionExecute(Sender: TObject);
865 yoffy 1.142 procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
866     procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
867 yoffy 1.158 procedure UpBoardActionExecute(Sender: TObject);
868     procedure UpBoardActionUpdate(Sender: TObject);
869 h677 1.174 procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
870     var Handled: Boolean);
871 h677 1.183 procedure KoreCopyExecute(Sender: TObject);
872 h677 1.187 procedure BrowserTabPopupMenuPopup(Sender: TObject);
873 h677 1.407 procedure MenuToolBarResize(Sender: TObject);
874 yoffy 1.216 procedure StdToolBarResize(Sender: TObject);
875     procedure LinkToolBarResize(Sender: TObject);
876     procedure ListNameToolBarResize(Sender: TObject);
877     procedure ListToolBarResize(Sender: TObject);
878     procedure BrowserNameToolBarResize(Sender: TObject);
879     procedure BrowserToolBarResize(Sender: TObject);
880     procedure BrowserTabResize(Sender: TObject);
881 h677 1.318 procedure TreeViewClick(Sender: TObject);
882 yoffy 1.236 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
883     Shift: TShiftState);
884 yoffy 1.246 procedure FavoriteTreeViewMouseDown(Sender: TObject;
885 yoffy 1.248 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
886 yoffy 1.250 procedure MessagePanelResize(Sender: TObject);
887 yoffy 1.276 procedure OnResized;
888 yoffy 1.252 procedure TreeSelectNameCopyExecute(Sender: TObject);
889 yoffy 1.260 procedure FavoriteTreeViewMouseUp(Sender: TObject;
890     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
891 yoffy 1.375 procedure ResRangeActionUpdate(Sender: TObject);
892 yoffy 1.370 procedure SetFocusForBrowserActionExecute(Sender: TObject);
893     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
894 h677 1.315 procedure SetFocusForThreadListActionExecute(Sender: TObject);
895     procedure SetFocusForCabinetActionExecute(Sender: TObject);
896 h677 1.407 procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
897 h677 1.319 procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
898     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
899 h677 1.320 procedure ListViewExit(Sender: TObject);
900 h677 1.321 procedure SetFocusForCabinetActionUpdate(Sender: TObject);
901 yoffy 1.327 procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
902     Selected: Boolean);
903 yoffy 1.329 procedure SelectTimerTimer(Sender: TObject);
904 h677 1.340 procedure SelectItemSaveForHTMLExecute(Sender: TObject);
905 h677 1.341 procedure KidokuActionExecute(Sender: TObject);
906     procedure MidokuActionExecute(Sender: TObject);
907 h677 1.343 procedure SelectItemSaveForDatExecute(Sender: TObject);
908 h677 1.345 procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
909     NewHeight: Integer; var Resize: Boolean);
910     procedure LogFolderOpenActionExecute(Sender: TObject);
911     procedure LogFolderOpenActionUpdate(Sender: TObject);
912 yoffy 1.397 procedure TabsSaveActionExecute(Sender: TObject);
913     procedure TabsOpenActionExecute(Sender: TObject);
914     procedure TabsSaveToFileActionExecute(Sender: TObject);
915 h677 1.365 procedure TabsOpenFromFileActionExecute(Sender: TObject);
916 yoffy 1.389 procedure OnlyAHundredResActionExecute(Sender: TObject);
917 yoffy 1.375 procedure OnlyKokoResActionExecute(Sender: TObject);
918     procedure OnlyNewResActionExecute(Sender: TObject);
919 h677 1.407 procedure BrowsBoradHeadActionExecute(Sender: TObject);
920 h677 1.388 procedure BrowsBoradHeadActionUpdate(Sender: TObject);
921     procedure EditNGActionExecute(Sender: TObject);
922 yoffy 1.390 procedure ThreadRangeActionUpdate(Sender: TObject);
923     procedure ThreadRangeActionExecute(Sender: TObject);
924 genyakun 1.393 procedure TabAutoSaveActionExecute(Sender: TObject);
925     procedure TabAutoLoadActionExecute(Sender: TObject);
926 yoffy 1.410 procedure ListViewColumnDragged(Sender: TObject);
927 yoffy 1.415 procedure ListViewColumnRightClick(Sender: TObject;
928     Column: TListColumn; Point: TPoint);
929 hi_ 1.1 private
930     { Private 鐃緒申鐃緒申 }
931 h677 1.182 //RoundList : TRoundList;
932 hi_ 1.1 FSortIndex: Integer;
933     FSortOrder: Boolean;
934    
935     FEnabledCloseButton: Boolean;
936     // ThreadCreate: TThreadCreate;
937    
938     FClickNode: TTreeNode;
939     FHttpState: Boolean;
940     FHint: TResPopup;
941     FPreviewBrowser: TPreviewBrowser;
942     FPreviewURL: string;
943    
944     FBrowserSizeHeight: Integer;
945     FBrowserSizeWidth: Integer;
946    
947     // FFavorite: TFavorite;
948     FTabHintIndex: Integer;
949     FListStyle: TViewStyle; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
950     FItemNoVisible: Boolean; //鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?
951     FViewType: TGikoViewType; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?
952 yoffy 1.123 FActiveList: TObject;
953 h677 1.299 FActiveContent: TBrowserRecord; //
954 yoffy 1.133 FActiveBBS : TBBS;
955 hi_ 1.1 FHistoryList: TList; //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?
956     FTreeType: TGikoTreeType;
957     FWorkCount: Integer;
958     FNameCookie: string;
959     FMailCookie: string;
960     // FLastRoundTime: TDateTime;
961 h677 1.299 BrowserNullTab: TBrowserRecord;
962 hi_ 1.1 // DoubleClickOccurred: array [TMouseButton] of Boolean;
963     FDownloadTitle: string; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
964     FDownloadMax: Integer; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?
965     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
966 h677 1.14
967 h677 1.192 // Fkeynum : Integer; //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
968 yoffy 1.29
969 yoffy 1.51 IsDraggingSelectComboBox : Boolean;
970     DraggingSelectComboBoxPosition : TPoint;
971 yoffy 1.29
972 yoffy 1.54 FSearchDialog: TSearchDialog;
973 yoffy 1.49
974 yoffy 1.100 FDropSpaceNode: TTreeNode;
975 yoffy 1.74
976 yoffy 1.107 FDragTime : Cardinal; //鐃緒申鐃緒申鐃?鐃緒申D&D鐃?
977     FDragButton : TToolButton; //鐃緒申鐃緒申鐃?鐃緒申D&D鐃?鐃緒申Drag鐃緒申鐃緒申鐃緒申Button鐃緒申鐃緒申
978     FDragWFirst : Boolean; //WebTab鐃緒申D&D鐃?
979 h677 1.84
980 yoffy 1.143 FListViewBackGroundColor : TColor; //ListView鐃緒申BackGroundColor
981     FUseOddResOddColor : Boolean; //鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申
982     FOddColor : TColor; //鐃緒申鐃緒申鐃?
983 yoffy 1.152
984 yoffy 1.280 FSelectResWord : string; // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?
985     FIsIgnoreResize : Boolean; // 鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
986     FIsMinimize : TMinimizeType; // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
987     FOldFormWidth : Integer; // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
988 yoffy 1.258 FToolBarSettingSender : TToolBarSettingSenderType; // 鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?
989 yoffy 1.280 FMouseDownPos : TPoint; // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
990 h677 1.303 FBrowsers: TList;
991 yoffy 1.390 FResRangeMenuSelect : Longint; ///< ResRangeButton 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 (鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申 ResRange 鐃緒申鐃緒申)
992 h677 1.423 FStartUp : Boolean;
993 yoffy 1.123 procedure SetBoardTreeNode( inBBS : TBBS );
994     function SetCategoryListItem(ABBS2ch: TBBS): Integer;
995 hi_ 1.1 function SetBoardListItem(Category: TCategory): Integer;
996     function SetThreadListItem(Board: TBoard): Integer;
997     // function GetRoundName(index: integer): string;
998    
999     procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
1000     procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
1001 q9_ 1.233 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
1002 hi_ 1.1 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
1003     procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
1004    
1005     procedure SetActiveList(Obj: TObject);
1006     procedure ListClick;
1007 h677 1.295 procedure ListDoubleClick(Shift: TShiftState);
1008 h677 1.299 procedure BrowserMovement(const AName: string); overload;
1009     procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1010 hi_ 1.1 procedure SelectListItem(List: TList);
1011     // procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);
1012 h677 1.299 procedure DeleteTab(ThreadItem: TThreadItem); overload;
1013     procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1014 hi_ 1.1 function Hook(var Message: TMessage): Boolean;
1015     procedure AddRoundNameMenu(MenuItem: TMenuItem);
1016 h677 1.188 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
1017 yoffy 1.236 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
1018 hi_ 1.1 procedure SetSelectRoundName(Sender: TObject);
1019     function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
1020    
1021     procedure SetMenuFont;
1022     // procedure CreateFavMenu(Folder: TFavoriteFolder);
1023     procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
1024 yoffy 1.62 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
1025     procedure FavoriteClick(Sender: TObject); overload;
1026 yoffy 1.100 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
1027 yoffy 1.2 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1028 hi_ 1.1 function OnDocumentContextMenu(Sender: TObject): WordBool;
1029     // function GetThreadText(sBoard: string; sThread: string; StNum, ToNum: Integer; Title, First: Boolean): string;
1030 yoffy 1.123 procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
1031 hi_ 1.1 procedure ShowTextPopup;
1032     //procedure ShowTextPopup(HintData: THintData);
1033 yoffy 1.2 // procedure SetStdToolBar;
1034     // function GetAction(ActionName: string): TContainedAction;
1035 hi_ 1.1 procedure SetLinkBar;
1036     function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
1037 yoffy 1.2 procedure MenuBarChevronMenu;
1038     procedure LinkBarChevronMenu;
1039     procedure ToolBarChevronMenu(ToolBar: TToolBar);
1040 yoffy 1.51 procedure ModifySelectList;
1041 yoffy 1.100 procedure FavoriteBrowseFolder( node: TTreeNode );
1042     procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1043     procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1044     procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
1045     procedure LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1046 yoffy 1.85 procedure LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
1047 yoffy 1.72 function TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
1048 yoffy 1.100 procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
1049     procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
1050 yoffy 1.72 procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
1051 yoffy 1.236 //
1052 yoffy 1.143 procedure SetListViewBackGroundColor(value: TColor);
1053 yoffy 1.123 procedure BBSMenuItemOnClick( Sender : TObject );
1054 yoffy 1.236 //
1055     procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1056 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1057     procedure SaveCoolBarSettings;
1058     // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1059     procedure LoadCoolBarSettings;
1060 yoffy 1.276 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1061     procedure OnMinimize;
1062 yoffy 1.248 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1063     procedure OnMinimized;
1064 yoffy 1.216 // CoolBar 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1065     procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1066 yoffy 1.236 // TreeView 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1067     procedure TreeClick( Node : TTreeNode );
1068     // TreeView 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1069     procedure TreeDoubleClick( Node : TTreeNode );
1070     // 鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1071     procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1072     // 鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1073     // 鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 True 鐃緒申鐃緒申鐃緒申
1074 yoffy 1.275 function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1075 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1076     procedure SetBBSMenu;
1077 h677 1.315 function WebBrowserClick(Sender: TObject): WordBool;
1078 h677 1.343 procedure SkinorCSSFilesCopy(path: string);
1079 yoffy 1.397 // 鐃?鐃?鐃緒申鐃緒申
1080     function GetTabURLs(AStringList: TStringList) : Boolean;
1081     // 鐃?鐃?鐃緒申鐃緒申
1082     function SaveTabURLs : Boolean;
1083     // 鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1084     function LoadTabURLs : Boolean;
1085 yoffy 1.362 // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1086 yoffy 1.364 procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1087 yoffy 1.410 /// ListView 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1088     procedure ActiveListColumnSave;
1089 yoffy 1.413 /// ListView 鐃緒申 Column 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1090     function ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1091 yoffy 1.415 /// ListColumnPopupMenu 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?
1092     procedure ListColumnPopupMenuOnClick( Sender : TObject );
1093 hi_ 1.1 protected
1094     procedure CreateParams(var Params: TCreateParams); override;
1095 yoffy 1.2 procedure WndProc(var Message: TMessage); override;
1096 hi_ 1.1 procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
1097     procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
1098     procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
1099 yoffy 1.216
1100 hi_ 1.1 public
1101     { Public 鐃緒申鐃緒申 }
1102     // FDownload: TDownload;
1103     FControlThread: TThreadControl;
1104 yoffy 1.48 procedure MoveToURL(URL: string);
1105     procedure InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
1106 hi_ 1.1 procedure ReloadBBS;
1107     function GetHttpState: Boolean;
1108     procedure SetEnabledCloseButton(Enabled: Boolean);
1109     function GetTreeNode(Data: TObject): TTreeNode;
1110     procedure AppFormDeactivate(Sender: TObject);
1111     // procedure CabinetPanelVisible(PanelVisible: Boolean);
1112     procedure ListViewAllSelect;
1113    
1114     property ListStyle: TViewStyle read FListStyle write FListStyle;
1115     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1116     property ViewType: TGikoViewType read FViewType write FViewType;
1117    
1118     property NameCookie: string read FNameCookie write FNameCookie;
1119     property MailCookie: string read FMailCookie write FMailCookie;
1120    
1121 h677 1.299 procedure SetContent(inThread: TBrowserRecord);
1122 hi_ 1.1 function GetActiveContent: TThreadItem;
1123     function GetActiveList: TObject;
1124    
1125     property ActiveList: TObject read GetActiveList write SetActiveList;
1126     // property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;
1127    
1128     procedure SetListViewType(AViewType: TGikoViewType); overload;
1129     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1130 q9_ 1.294 procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1131     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1132 hi_ 1.1 procedure PlaySound(SoundEventName: string);
1133    
1134 yoffy 1.136 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1135     procedure DeleteHistory( threadItem: TThreadItem );
1136 hi_ 1.1 procedure ClearHistory;
1137 yoffy 1.135 procedure SaveHistory;
1138     procedure LoadHistory;
1139 yoffy 1.123 procedure ShowBBSTree( inBBS : TBBS );
1140 yoffy 1.248 procedure ShowBBSTreeOld( inBBS : TBBS );
1141 hi_ 1.1 procedure ShowHistoryTree;
1142     procedure SetHistoryTreeNode;
1143     // procedure SelectTreeNode(Item: TObject);
1144     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1145     procedure SetBrowserTabState;
1146     // property Favorite: TFavorite read FFavorite write FFavorite;
1147 yoffy 1.2 procedure SetToolBarPopup;
1148 yoffy 1.100 procedure ShowFavoriteAddDialog( Item : TObject );
1149 h677 1.189 procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1150 h677 1.226 procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1151 yoffy 1.143 property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1152     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1153     property OddColor : TColor read FOddColor write FOddColor;
1154 h677 1.109
1155 yoffy 1.209 function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1156 yoffy 1.218 procedure OnPlugInMenuItem( Sender : TObject );
1157 genyakun 1.384 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1158 yoffy 1.209
1159 hi_ 1.1 published
1160     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1161     end;
1162    
1163     TFavoriteMenuItem = class(TMenuItem)
1164     private
1165     FData : Pointer;
1166     public
1167     property Data: Pointer read FData write FData;
1168     end;
1169    
1170 yoffy 1.123 TBBSMenuItem = class(TMenuItem)
1171     private
1172     FData : Pointer;
1173     public
1174     property Data: Pointer read FData write FData;
1175     end;
1176    
1177 hi_ 1.1 TLinkToolButton = class(TToolButton)
1178     private
1179     FData : Pointer;
1180     public
1181     property Data: Pointer read FData write FData;
1182     end;
1183    
1184 h677 1.299 TBrowserRecord = class( TObject )
1185     private
1186     FBrowser : TWebBrowser;
1187     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1188     FThread : TThreadItem;
1189     FLastSize : Integer;
1190     FRepaint : Boolean;
1191 yoffy 1.375 // FOnlyHundred: Boolean;
1192 h677 1.299 public
1193     destructor Destroy; override;
1194     property Browser : TWebBrowser read FBrowser write FBrowser;
1195     property Thread : TThreadItem read FThread write FThread;
1196     property LastSize : Integer read FLastSize write FLastSize;
1197     property Repaint : Boolean read FRepaint write FRepaint;
1198 yoffy 1.375 // property OnlyHundred : Boolean read FOnlyHundred write FOnlyHundred;
1199 h677 1.299 end;
1200    
1201 hi_ 1.1 var
1202     GikoForm: TGikoForm;
1203    
1204     implementation
1205    
1206     uses
1207     About, Option, Round, Splash, Sort, ListSelect,
1208 h677 1.183 NewBoard, MojuUtils,Clipbrd;
1209 hi_ 1.1
1210     const
1211     CAPTION_NAME: string = '鐃?鐃?鐃?鐃?';
1212     BLANK_HTML: string = 'about:blank';
1213 yoffy 1.51 SELECTCOMBOBOX_NAME: string = ''; // '鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申';
1214     SELECTCOMBOBOX_COLOR: TColor = clWindow;
1215 yoffy 1.120 //D&D鐃緒申鐃?
1216     DandD_THRESHOLD = 5; //D&D鐃緒申鐃緒申鐃?鐃?pixcel)
1217 yoffy 1.2 //鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1218     ITEM_ICON_2CH1 = 0; //2ch鐃?鐃?鐃?鐃緒申
1219     ITEM_ICON_2CH2 = 1; //2ch鐃?鐃?鐃?鐃緒申
1220     ITEM_ICON_CATEGORY1 = 2; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1221     ITEM_ICON_CATEGORY2 = 3; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1222 yoffy 1.120 ITEM_ICON_BOARD_NOSUBJECT = 3; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1223 yoffy 1.2 ITEM_ICON_BOARD1 = 4; //鐃緒申鐃?鐃?鐃?鐃緒申
1224     ITEM_ICON_BOARD2 = 5; //鐃緒申鐃?鐃?鐃?鐃緒申
1225     ITEM_ICON_THREADLOG1 = 6; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1226     ITEM_ICON_THREADLOG2 = 7; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1227     ITEM_ICON_THREAD1 = 8; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1228     ITEM_ICON_THREAD2 = 9; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1229     ITEM_ICON_THREADNEW1 = 10; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1230     ITEM_ICON_THREADNEW2 = 11; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1231     ITEM_ICON_SORT1 = 12; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1232     ITEM_ICON_SORT2 = 13; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1233 yoffy 1.120 ITEM_ICON_BOARD_LOG = 17; //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1234     ITEM_ICON_BOARD_NEW = 18; //鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1235 yoffy 1.2
1236     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1237 yoffy 1.48 TOOL_ICON_HEIGHT_MAX = 16; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1238     TOOL_ICON_HEIGHT_MIN = 17; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1239     TOOL_ICON_HEIGHT_NORMAL = 18; //鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1240     TOOL_ICON_WIDTH_MAX = 19; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1241     TOOL_ICON_WIDTH_MIN = 20; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1242     TOOL_ICON_WIDTH_NORMAL = 21; //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1243    
1244 yoffy 1.51 TOOL_ICON_FAV_FOLDER = 30; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申
1245 yoffy 1.100 TOOL_ICON_FAV_BOARD = 31; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1246 yoffy 1.51 TOOL_ICON_FAV_THREAD = 32; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1247 hi_ 1.1
1248     HTML_FILE_NAME = 'temp_preview.html';
1249    
1250 yoffy 1.253 WM_XBUTTONDOWN = $020B;
1251     WM_XBUTTONUP = $020C;
1252     WM_XBUTTONDBLCLK = $020D;
1253     XBUTTON1 = $0001;
1254     XBUTTON2 = $0002;
1255 yoffy 1.278 USER_TREECLICK = WM_USER + 2000;
1256     USER_RESIZED = WM_USER + 2001;
1257     USER_MINIMIZED = WM_USER + 2002;
1258     USER_SETLINKBAR = WM_USER + 2003;
1259 h677 1.340 SELECTTIME_INTERBAL = 110;
1260    
1261     BROWSER_COUNT = 5; //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
1262 hi_ 1.1 {$R *.DFM}
1263    
1264     procedure TGikoForm.CreateParams(var Params: TCreateParams);
1265     begin
1266     inherited;
1267     if FormStyle in [fsNormal, fsStayOnTop] then begin
1268     if BorderStyle in [bsSingle, bsSizeable] then begin
1269     Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
1270     Params.WndParent := 0;
1271     end;
1272     end;
1273     end;
1274    
1275     procedure TGikoForm.FormCreate(Sender: TObject);
1276     const
1277     TVS_NOTOOLTIPS = $0080;
1278     var
1279     FileName: string;
1280     Style: DWORD;
1281     msg: string;
1282     i: Integer;
1283     wp: TWindowPlacement;
1284 hi_ 1.32 s: string;
1285 h677 1.303 newbrowser: TWebBrowser;
1286 hi_ 1.1 begin
1287     {$IFDEF DEBUG}
1288     AllocConsole;
1289     Writeln('============================================================');
1290     Writeln(' 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃? 鐃?鐃緒申鐃?鐃?鐃緒申');
1291     Writeln('');
1292     Writeln(' 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?');
1293     Writeln(' 鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申');
1294     Writeln('============================================================');
1295     {$ENDIF}
1296 h677 1.423 FStartUp := false;
1297 hi_ 1.1 Application.OnDeactivate := AppFormDeactivate;
1298     Self.OnDeactivate := AppFormDeactivate;
1299     Application.HookMainWindow(Hook);
1300 h677 1.316 Application.OnMessage := HandleAppMessage; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?by鐃?鐃緒申鐃緒申鐃緒申
1301 h677 1.423 // Self.DoubleBuffered := true;
1302 hi_ 1.1 FTreeType := gttNone;
1303    
1304 yoffy 1.51 FSearchDialog := nil;
1305 h677 1.299 BrowserNullTab := TBrowserRecord.Create;
1306     BrowserNullTab.Browser := Browser;
1307 h677 1.316 BrowserNullTab.Browser.Navigate(BLANK_HTML);
1308 h677 1.303 FBrowsers := TList.Create;
1309 h677 1.340 for i := 0 to BROWSER_COUNT -1 do begin
1310 h677 1.345 FBrowsers.Add(TWebBrowser.Create(nil));
1311     newBrowser := FBrowsers[FBrowsers.Count - 1];
1312 h677 1.303 TOleControl(newBrowser).Parent := BrowserPanel;
1313 h677 1.345 newBrowser.Align := alNone;
1314 h677 1.346 newBrowser.Left := 0;
1315     newBrowser.Top := 0;
1316 h677 1.423 newBrowser.StatusBar := false;
1317     newBrowser.MenuBar := false;
1318     newBrowser.AddressBar := false;
1319 h677 1.303 newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1320     newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1321     newBrowser.OnEnter := BrowserEnter;
1322     newBrowser.OnNewWindow2 := BrowserNewWindow2;
1323     newBrowser.OnStatusTextChange := BrowserStatusTextChange;
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 h677 1.423 if not FStartUp then begin
1822     ShowWindow(Application.Handle, SW_HIDE);
1823    
1824     //FormCreate鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1825     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1826     StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1827     StdToolBarVisibleActionExecute( nil );
1828     AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1829     AddressBarVisibleActionExecute( nil );
1830     LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1831     LinkBarVisibleActionExecute( nil );
1832     ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1833     ListToolBarVisibleActionExecute( nil );
1834     ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1835     ListNameBarVisibleActionExecute( nil );
1836     BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1837     BrowserToolBarVisibleActionExecute( nil );
1838     BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1839     BrowserNameBarVisibleActionExecute( nil );
1840    
1841     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1842     BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1843     BrowserTabVisibleActionExecute(nil);
1844 yoffy 1.216
1845 h677 1.423 if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1846     BrowserTabTopAction.Checked := True;
1847     BrowserTabTopActionExecute(nil);
1848     end else begin
1849     BrowserTabBottomAction.Checked := True;
1850     BrowserTabBottomActionExecute(nil);
1851     end;
1852    
1853     if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1854     BrowserTabTabStyleAction.Checked := True;
1855     BrowserTabTabStyleActionExecute(nil);
1856     end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1857     BrowserTabButtonStyleAction.Checked := True;
1858     BrowserTabButtonStyleActionExecute(nil);
1859     end else begin
1860     BrowserTabFlatStyleAction.Checked := True;
1861     BrowserTabFlatStyleActionExecute(nil);
1862     end;
1863 yoffy 1.216
1864 h677 1.423 // ListView 鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?
1865     ListView.LVMInstallHeaderDrag;
1866 yoffy 1.408
1867 h677 1.423 // CoolBar 鐃緒申鐃緒申
1868     LoadCoolBarSettings;
1869 yoffy 1.265
1870 h677 1.423 FIsIgnoreResize := False;
1871 genyakun 1.382
1872 h677 1.423 //TabAutoLoad
1873     //FormCrete鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1874     if GikoSys.Setting.TabAutoLoadSave then begin
1875     TabAutoLoadAction.Execute;
1876     end;
1877     FStartUp := true;
1878 yoffy 1.397 end;
1879 yoffy 1.239 end;
1880 yoffy 1.216
1881 hi_ 1.1 procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1882     begin
1883 yoffy 1.331 // if GikoForm.WindowState <> wsMinimized then
1884     // SaveCoolBarSettings;
1885 yoffy 1.236 if ( GikoSys.Setting.ShowDialogForEnd ) and
1886     (MessageDlg('鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1887     CanClose := false;
1888     Exit;
1889     end else begin
1890     CanClose := True;
1891 yoffy 1.398 if GikoSys.Setting.TabAutoLoadSave then begin
1892     TabAutoSaveAction.Execute;
1893     end;
1894 yoffy 1.236 end;
1895 h677 1.241 //Application.HookMainWindow(Hook);
1896     Application.UnhookMainWindow(Hook);
1897     Application.Terminate;
1898     end;
1899    
1900     procedure TGikoForm.FormDestroy(Sender: TObject);
1901     var
1902 yoffy 1.376 i : Integer;
1903 h677 1.241 // CoolSet: TCoolSet;
1904 yoffy 1.376 wp : TWindowPlacement;
1905     tmpBool : Boolean;
1906 h677 1.241 begin
1907 h677 1.181 // Application.OnDeactivate := nil;
1908     // Self.OnDeactivate := nil;
1909 yoffy 1.236 try
1910 yoffy 1.410 ActiveListColumnSave;
1911 yoffy 1.236 except
1912     end;
1913     try
1914 h677 1.234 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1915     wp.length := sizeof(wp);
1916     GetWindowPlacement(Handle, @wp);
1917     GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1918     GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1919     GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1920     GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1921     GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1922    
1923     GikoSys.Setting.ListStyle := ListView.ViewStyle;
1924     GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1925     GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1926     GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1927     GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1928     if ArrangeAction.Checked then
1929     GikoSys.Setting.ListOrientation := gloVertical
1930     else
1931     GikoSys.Setting.ListOrientation := gloHorizontal;
1932     GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1933 yoffy 1.236 except
1934 yoffy 1.2 end;
1935 yoffy 1.378
1936     try
1937     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1938     if not GikoSys.Setting.ResRangeHold then
1939 yoffy 1.380 GikoSys.Setting.ResRange := FResRangeMenuSelect;
1940 yoffy 1.378 except
1941     end;
1942    
1943     // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申 CoolBar 鐃緒申鐃緒申
1944 yoffy 1.216 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1945 yoffy 1.263 {
1946     // 鐃緒申FormDestroy鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?2004/04/09鐃?
1947 yoffy 1.216 // CoolBar 鐃緒申鐃緒申
1948 h677 1.262 if GikoForm.WindowState <> wsMinimized then
1949     SaveCoolBarSettings;
1950 yoffy 1.263 }
1951 yoffy 1.236 try
1952 h677 1.234 GikoSys.Setting.WriteWindowSettingFile;
1953     GikoSys.Setting.WriteNameMailSettingFile;
1954 yoffy 1.236 except
1955     end;
1956 yoffy 1.2
1957     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1958 hi_ 1.1 try
1959 yoffy 1.236 //FavoriteDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1960 yoffy 1.2 FavoriteDM.WriteFavorite;
1961 yoffy 1.236 FavoriteDM.Clear;
1962 hi_ 1.1 except
1963     end;
1964    
1965     try
1966     //鐃?鐃?鐃?鐃緒申鐃?鐃?
1967 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
1968     GikoSys.Setting.ShowDialogForAllTabClose := false;
1969     AllTabCloseAction.Execute;
1970     GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
1971 h677 1.299 except
1972     end;
1973 h677 1.321 try
1974     LockWindowUpdate(Self.Handle);
1975     for i := FBrowsers.Count - 1 downto 0 do begin
1976     TWebBrowser(FBrowsers[i]).Free;
1977     end;
1978     FBrowsers.Clear;
1979     FBrowsers.Capacity := 0;
1980     finally
1981     FBrowsers.Free;
1982 h677 1.303 end;
1983 h677 1.299 try
1984     if BrowserNullTab <> nil then begin
1985     BrowserNullTab.Browser := nil; {*BrowserNullTab鐃緒申Browser鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?
1986     *鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Free鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1987     *}
1988     BrowserNullTab.Free;
1989 hi_ 1.1 end;
1990     except
1991     end;
1992 h677 1.321 LockWindowUpdate(0);
1993 h677 1.224 try
1994 yoffy 1.236 TreeView.Items.BeginUpdate;
1995 yoffy 1.380 TreeView.Items.GetFirstNode.Free;
1996 yoffy 1.236 TreeView.Items.Clear;
1997     TreeView.Items.EndUpdate;
1998 h677 1.224 except
1999     end;
2000 h677 1.230
2001 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2002     try
2003 yoffy 1.236 //AddressHistoryDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
2004 hi_ 1.1 AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
2005     except
2006     end;
2007    
2008 h677 1.234 //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
2009 hi_ 1.1 try
2010 h677 1.234 SaveHistory;
2011 hi_ 1.1 except
2012     end;
2013 yoffy 1.236 try
2014     try
2015     ClearHistory;
2016     except
2017     end;
2018     finally
2019     FHistoryList.Free;
2020     end;
2021 h677 1.221
2022 h677 1.182 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申&鐃?鐃緒申
2023     try
2024     RoundList.SaveRoundFile;
2025     except
2026     end;
2027 yoffy 1.236 try
2028 h677 1.234 try
2029 yoffy 1.236 RoundList.Clear;
2030 h677 1.234 except
2031     end;
2032 yoffy 1.236 finally
2033     RoundList.Free;
2034     end;
2035 h677 1.182
2036 yoffy 1.236 try
2037 h677 1.234 try
2038     FControlThread.Terminate;
2039 yoffy 1.236 FControlThread.WaitFor;
2040 h677 1.234 except
2041 h677 1.219 end;
2042 yoffy 1.236 finally
2043     FControlThread.Free;
2044     end;
2045 h677 1.230
2046 yoffy 1.155 // TBBS 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 TCategory, TBoard, TThreadItem 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2047     // TBoard, TThreadItem 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2048     // BoardPluteIns 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2049 yoffy 1.126 try
2050 h677 1.220 for i := Length( BBSs ) - 1 downto 0 do begin
2051 h677 1.153 if BBSs[ i ] <> nil then
2052     BBSs[ i ].Free;
2053     BBSs[ i ] := nil;
2054     end;
2055     except
2056     end;
2057 yoffy 1.155
2058 h677 1.153 try
2059 h677 1.220 for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2060 yoffy 1.126 if BoardPlugIns[ i ] <> nil then
2061     BoardPlugIns[ i ].Free;
2062     BoardPlugIns[ i ] := nil;
2063     end;
2064     except
2065     end;
2066 yoffy 1.124
2067 h677 1.234 try
2068 yoffy 1.236 if FEvent <> nil then
2069     FEvent.Free;
2070 h677 1.181
2071 yoffy 1.2 //Hint鐃?鐃緒申
2072     if FHint <> nil then begin
2073     FHint.ReleaseHandle;
2074     FHint.Free;
2075     FHint := nil;
2076     end;
2077     //Preview鐃?鐃緒申
2078     if TPreviewBrowser <> nil then begin
2079     FPreviewBrowser.Free;
2080     FPreviewBrowser := nil;
2081     end;
2082     except
2083     end;
2084 h677 1.230
2085 hi_ 1.1 end;
2086    
2087     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2088     procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2089     begin
2090     CabinetVisibleAction.Execute;
2091     // CabinetPanelVisible(false);
2092     end;
2093    
2094 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
2095     procedure TGikoForm.SetBBSMenu;
2096 yoffy 1.123 var
2097     i : Integer;
2098 yoffy 1.149 item : TBBSMenuItem;
2099 hi_ 1.1 begin
2100    
2101 yoffy 1.148 // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2102     for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
2103     try
2104     if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
2105 yoffy 1.155 CabinetSelectPopupMenu.Items[ i ].Free;
2106     CabinetMenu.Items[ i ].Free;
2107 yoffy 1.289 BBSSelectPopupMenu.Items[ i ].Free;
2108 yoffy 1.148 end;
2109     except
2110     end;
2111     end;
2112 yoffy 1.289
2113     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2114 yoffy 1.148 for i := Length( BBSs ) - 1 downto 0 do begin
2115     try
2116     item := TBBSMenuItem.Create( PopupMenu );
2117     item.Caption := BBSs[ i ].Title;
2118     item.Data := BBSs[ i ];
2119     item.OnClick := BBSMenuItemOnClick;
2120     CabinetSelectPopupMenu.Items.Insert( 0, item );
2121     item := TBBSMenuItem.Create( PopupMenu );
2122     item.Caption := BBSs[ i ].Title;
2123     item.Data := BBSs[ i ];
2124     item.OnClick := BBSMenuItemOnClick;
2125     CabinetMenu.Insert( 0, item );
2126 yoffy 1.289 item := TBBSMenuItem.Create( PopupMenu );
2127     item.Caption := BBSs[ i ].Title;
2128     item.Data := BBSs[ i ];
2129     item.OnClick := BBSMenuItemOnClick;
2130     BBSSelectPopupMenu.Items.Insert( 0, Item );
2131 yoffy 1.148 except
2132     end;
2133     end;
2134 yoffy 1.289
2135     end;
2136    
2137     procedure TGikoForm.ReloadBBS;
2138     var
2139     i : Integer;
2140 h677 1.321 tmpBool: Boolean;
2141 yoffy 1.289 begin
2142     //鐃?鐃?鐃?鐃緒申鐃?鐃?
2143 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2144     GikoSys.Setting.ShowDialogForAllTabClose := false;
2145 h677 1.320 AllTabCloseAction.Execute;
2146 h677 1.321 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2147    
2148 h677 1.320 SetContent(BrowserNullTab);
2149 yoffy 1.289 //TreeView鐃?鐃緒申鐃?鐃?BBS2ch.Free鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申XP鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?
2150     TreeView.Items.Clear;
2151    
2152     //BBS鐃?鐃緒申
2153     try
2154     for i := Length( BBSs ) - 1 downto 0 do begin
2155     if BBSs[ i ] <> nil then
2156     BBSs[ i ].Free;
2157     BBSs[ i ] := nil;
2158     end;
2159     except
2160     end;
2161    
2162     ActiveList := nil;
2163    
2164     FTreeType := gttNone;
2165    
2166     GikoSys.ListBoardFile; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
2167    
2168     // BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2169     SetBBSMenu;
2170    
2171 yoffy 1.123 ShowBBSTree( BBSs[ 0 ] );
2172 yoffy 1.143
2173     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2174 yoffy 1.146 SaveHistory;
2175 yoffy 1.272 ClearHistory;
2176 yoffy 1.143 LoadHistory;
2177    
2178     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2179 yoffy 1.287 FavoriteDM.WriteFavorite;
2180 yoffy 1.272 FavoriteDM.Clear;
2181 yoffy 1.143 FavoriteDM.ReadFavorite;
2182 yoffy 1.279
2183 yoffy 1.143 SetLinkBar;
2184    
2185 hi_ 1.1 end;
2186    
2187     //鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
2188 yoffy 1.123 procedure TGikoForm.SetBoardTreeNode(
2189     inBBS : TBBS
2190     );
2191 hi_ 1.1 var
2192 yoffy 1.120 i, j, k: integer;
2193 hi_ 1.1 Root: TTreeNode;
2194     CategoryNode: TTreeNode;
2195     BoardNode: TTreeNode;
2196     Category: TCategory;
2197     Board: TBoard;
2198     begin
2199 yoffy 1.112 // 鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
2200 yoffy 1.133 FActiveBBS := inBBS;
2201 hi_ 1.1 TreeView.Items.BeginUpdate;
2202     TreeView.Items.Clear;
2203     try
2204 q9_ 1.385 if not inBBS.IsBoardFileRead then
2205     GikoSys.ReadBoardFile( inBBS );
2206 yoffy 1.123 try
2207     if SplashWindow <> nil then
2208 yoffy 1.210 SplashWindow.ProgressBar.Max := inBBS.Count;
2209 yoffy 1.123 except
2210     end;
2211    
2212 q9_ 1.385 // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?
2213     if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
2214     Sort.SortOrder := true;
2215     Sort.SortIndex := 0;
2216     Sort.SortNoFlag := true;
2217     inBBS.Sort(CategorySortProc);
2218     end;
2219    
2220 yoffy 1.123 Root := TreeView.Items.Add( nil, inBBS.Title );
2221     Root.ImageIndex := ITEM_ICON_2CH1;
2222     Root.SelectedIndex := ITEM_ICON_2CH2;
2223     Root.Data := inBBS;
2224 yoffy 1.422 for i := inBBS.Count - 1 downto 0 do begin
2225 yoffy 1.123 Category := TCategory(inBBS.Items[i]);
2226 yoffy 1.422 CategoryNode := TreeView.Items.AddChildFirst(Root, Category.Title);
2227 yoffy 1.123 CategoryNode.Data := Category;
2228     CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
2229     CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
2230 hi_ 1.1
2231 q9_ 1.385 // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?
2232     if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
2233     Sort.SortOrder := true;
2234     Sort.SortIndex := 0;