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.394 - (hide annotations) (download) (as text)
Sun Aug 15 16:06:59 2004 UTC (19 years, 8 months ago) by yoffy
Branch: MAIN
Changes since 1.393: +53 -17 lines
File MIME type: text/x-pascal
- 履歴の削除に同意を求めるようになった。
- お気に入り、ログ、履歴の削除に関するダイアログを
 アイコンは「!」に、[いいえ] をデフォルトに、SHIFT キーでダイアログの省略で統一。

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.230 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     OpenLogFolder: TMenuItem;
551 h677 1.346 Browser: TWebBrowser;
552 genyakun 1.353 TabSave: TMenuItem;
553 genyakun 1.355 TabOpen: TMenuItem;
554 h677 1.365 TabsSaveAction: TAction;
555     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 genyakun 1.393 TabAutoSaveAction: TAction;
577     TabAutoLoadAction: TAction;
578 yoffy 1.251 procedure FormCreate(Sender: TObject);
579 hi_ 1.1 procedure FormDestroy(Sender: TObject);
580     procedure CabinetPanelHide(Sender: TObject);
581     procedure FormClose(Sender: TObject; var Action: TCloseAction);
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 FormKeyUp(Sender: TObject; var Key: Word;
810     Shift: TShiftState);
811     procedure AllResActionExecute(Sender: TObject);
812     procedure AllResActionUpdate(Sender: TObject);
813     procedure ReloadClick(Sender: TObject);
814     procedure GoBackClick(Sender: TObject);
815     procedure GoFowardClick(Sender: TObject);
816     procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
817     Shift: TShiftState; X, Y: Integer);
818     procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
819     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
820     procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
821     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
822     procedure StatusBarResize(Sender: TObject);
823     procedure IndividualAbon1Click(Sender: TObject);
824     procedure IndividualAbon2Click(Sender: TObject);
825     procedure N42Click(Sender: TObject);
826     procedure SelectComboBoxEnter(Sender: TObject);
827     procedure AntiIndividualAbonClick(Sender: TObject);
828     procedure N51Click(Sender: TObject);
829     procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
830 yoffy 1.100 procedure CabinetFavoriteActionExecute(Sender: TObject);
831     procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
832     Y: Integer);
833 yoffy 1.71 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
834 yoffy 1.100 procedure FavoriteTreeViewEdited(Sender: TObject; Node: TTreeNode;
835     var S: String);
836     procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
837     Shift: TShiftState);
838     procedure FavoriteTreePopupMenuPopup(Sender: TObject);
839     procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
840     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
841     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
842     procedure ToolButton19Click(Sender: TObject);
843     procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
844     procedure FavoriteTreeViewDblClick(Sender: TObject);
845     procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
846     procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
847     procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
848     procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
849     procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
850     procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
851     procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
852     Shift: TShiftState; X, Y: Integer);
853     procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
854     State: TDragState; var Accept: Boolean);
855 yoffy 1.375 procedure ResRangeActionExecute(Sender: TObject);
856 yoffy 1.100 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
857     Y: Integer);
858     procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
859     var Handled: Boolean);
860     procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
861     var Handled: Boolean);
862     procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
863     var Handled: Boolean);
864 yoffy 1.107 procedure ExportFavoriteFileAccept(Sender: TObject);
865     procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
866 yoffy 1.139 procedure CabinetBBSActionExecute(Sender: TObject);
867 yoffy 1.142 procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
868     procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
869 yoffy 1.158 procedure UpBoardActionExecute(Sender: TObject);
870     procedure UpBoardActionUpdate(Sender: TObject);
871 h677 1.174 procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
872     var Handled: Boolean);
873 h677 1.183 procedure KoreCopyExecute(Sender: TObject);
874 h677 1.187 procedure BrowserTabPopupMenuPopup(Sender: TObject);
875 yoffy 1.216 procedure MenuToolBarResize(Sender: TObject);
876     procedure StdToolBarResize(Sender: TObject);
877     procedure LinkToolBarResize(Sender: TObject);
878     procedure ListNameToolBarResize(Sender: TObject);
879     procedure ListToolBarResize(Sender: TObject);
880     procedure BrowserNameToolBarResize(Sender: TObject);
881     procedure BrowserToolBarResize(Sender: TObject);
882     procedure BrowserTabResize(Sender: TObject);
883 h677 1.318 procedure TreeViewClick(Sender: TObject);
884 yoffy 1.236 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
885     Shift: TShiftState);
886 yoffy 1.246 procedure FavoriteTreeViewMouseDown(Sender: TObject;
887 yoffy 1.248 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
888 yoffy 1.250 procedure MessagePanelResize(Sender: TObject);
889 yoffy 1.276 procedure OnResized;
890 yoffy 1.252 procedure TreeSelectNameCopyExecute(Sender: TObject);
891 yoffy 1.260 procedure FavoriteTreeViewMouseUp(Sender: TObject;
892     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
893 yoffy 1.375 procedure ResRangeActionUpdate(Sender: TObject);
894 yoffy 1.370 procedure SetFocusForBrowserActionExecute(Sender: TObject);
895     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
896 h677 1.315 procedure SetFocusForThreadListActionExecute(Sender: TObject);
897     procedure SetFocusForCabinetActionExecute(Sender: TObject);
898 h677 1.319 procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
899     procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
900     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
901 h677 1.320 procedure ListViewExit(Sender: TObject);
902 h677 1.321 procedure SetFocusForCabinetActionUpdate(Sender: TObject);
903 yoffy 1.327 procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
904     Selected: Boolean);
905 yoffy 1.329 procedure SelectTimerTimer(Sender: TObject);
906 h677 1.340 procedure SelectItemSaveForHTMLExecute(Sender: TObject);
907 h677 1.341 procedure KidokuActionExecute(Sender: TObject);
908     procedure MidokuActionExecute(Sender: TObject);
909 h677 1.343 procedure SelectItemSaveForDatExecute(Sender: TObject);
910 h677 1.345 procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
911     NewHeight: Integer; var Resize: Boolean);
912     procedure LogFolderOpenActionExecute(Sender: TObject);
913     procedure LogFolderOpenActionUpdate(Sender: TObject);
914 h677 1.365 procedure TabsSaveActionExecute(Sender: TObject);
915     procedure TabsOpenActionExecute(Sender: TObject);
916     procedure TabsSaveToFileActionExecute(Sender: TObject);
917     procedure TabsOpenFromFileActionExecute(Sender: TObject);
918 yoffy 1.389 procedure OnlyAHundredResActionExecute(Sender: TObject);
919 yoffy 1.375 procedure OnlyKokoResActionExecute(Sender: TObject);
920     procedure OnlyNewResActionExecute(Sender: TObject);
921 h677 1.386 procedure BrowsBoradHeadActionExecute(Sender: TObject);
922 h677 1.388 procedure BrowsBoradHeadActionUpdate(Sender: TObject);
923     procedure EditNGActionExecute(Sender: TObject);
924 yoffy 1.390 procedure ThreadRangeActionUpdate(Sender: TObject);
925     procedure ThreadRangeActionExecute(Sender: TObject);
926 genyakun 1.393 procedure TabAutoSaveActionExecute(Sender: TObject);
927     procedure TabAutoLoadActionExecute(Sender: TObject);
928 hi_ 1.1 private
929     { Private 鐃緒申鐃緒申 }
930 h677 1.182 //RoundList : TRoundList;
931 hi_ 1.1 FSortIndex: Integer;
932     FSortOrder: Boolean;
933    
934     FEnabledCloseButton: Boolean;
935     // ThreadCreate: TThreadCreate;
936    
937     FClickNode: TTreeNode;
938     FHttpState: Boolean;
939     FHint: TResPopup;
940     FPreviewBrowser: TPreviewBrowser;
941     FPreviewURL: string;
942    
943     FBrowserSizeHeight: Integer;
944     FBrowserSizeWidth: Integer;
945    
946     // FFavorite: TFavorite;
947     FTabHintIndex: Integer;
948     FListStyle: TViewStyle; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
949     FItemNoVisible: Boolean; //鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?
950     FViewType: TGikoViewType; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?
951 yoffy 1.123 FActiveList: TObject;
952 h677 1.299 FActiveContent: TBrowserRecord; //
953 yoffy 1.133 FActiveBBS : TBBS;
954 hi_ 1.1 FHistoryList: TList; //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?
955     FTreeType: TGikoTreeType;
956     FWorkCount: Integer;
957     FNameCookie: string;
958     FMailCookie: string;
959     // FLastRoundTime: TDateTime;
960 h677 1.299 BrowserNullTab: TBrowserRecord;
961 hi_ 1.1 // DoubleClickOccurred: array [TMouseButton] of Boolean;
962     FDownloadTitle: string; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
963     FDownloadMax: Integer; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?
964     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
965 h677 1.14
966 h677 1.192 // Fkeynum : Integer; //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
967 yoffy 1.29
968 yoffy 1.51 IsDraggingSelectComboBox : Boolean;
969     DraggingSelectComboBoxPosition : TPoint;
970 yoffy 1.29
971 yoffy 1.54 FSearchDialog: TSearchDialog;
972 yoffy 1.49
973 yoffy 1.100 FDropSpaceNode: TTreeNode;
974 yoffy 1.74
975 yoffy 1.107 FDragTime : Cardinal; //鐃緒申鐃緒申鐃?鐃緒申D&D鐃?
976     FDragButton : TToolButton; //鐃緒申鐃緒申鐃?鐃緒申D&D鐃?鐃緒申Drag鐃緒申鐃緒申鐃緒申Button鐃緒申鐃緒申
977     FDragWFirst : Boolean; //WebTab鐃緒申D&D鐃?
978 h677 1.84
979 yoffy 1.143 FListViewBackGroundColor : TColor; //ListView鐃緒申BackGroundColor
980     FUseOddResOddColor : Boolean; //鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申
981     FOddColor : TColor; //鐃緒申鐃緒申鐃?
982 yoffy 1.152
983 yoffy 1.280 FSelectResWord : string; // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?
984     FIsIgnoreResize : Boolean; // 鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
985     FIsMinimize : TMinimizeType; // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
986     FOldFormWidth : Integer; // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
987 yoffy 1.258 FToolBarSettingSender : TToolBarSettingSenderType; // 鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?
988 yoffy 1.280 FMouseDownPos : TPoint; // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
989 h677 1.303 FBrowsers: TList;
990 yoffy 1.390 FResRangeMenuSelect : Longint; ///< ResRangeButton 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 (鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申 ResRange 鐃緒申鐃緒申)
991 yoffy 1.123 procedure SetBoardTreeNode( inBBS : TBBS );
992     function SetCategoryListItem(ABBS2ch: TBBS): Integer;
993 hi_ 1.1 function SetBoardListItem(Category: TCategory): Integer;
994     function SetThreadListItem(Board: TBoard): Integer;
995     // function GetRoundName(index: integer): string;
996    
997     procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
998     procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
999 q9_ 1.233 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
1000 hi_ 1.1 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
1001     procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
1002    
1003     procedure SetActiveList(Obj: TObject);
1004     procedure ListClick;
1005 h677 1.295 procedure ListDoubleClick(Shift: TShiftState);
1006 h677 1.299 procedure BrowserMovement(const AName: string); overload;
1007     procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1008 hi_ 1.1 procedure SelectListItem(List: TList);
1009     // procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);
1010 h677 1.299 procedure DeleteTab(ThreadItem: TThreadItem); overload;
1011     procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1012 hi_ 1.1 function Hook(var Message: TMessage): Boolean;
1013     procedure AddRoundNameMenu(MenuItem: TMenuItem);
1014 h677 1.188 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
1015 yoffy 1.236 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
1016 hi_ 1.1 procedure SetSelectRoundName(Sender: TObject);
1017     function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
1018    
1019     procedure SetMenuFont;
1020     // procedure CreateFavMenu(Folder: TFavoriteFolder);
1021     procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
1022 yoffy 1.62 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
1023     procedure FavoriteClick(Sender: TObject); overload;
1024 yoffy 1.100 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
1025 yoffy 1.2 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1026 hi_ 1.1 function OnDocumentContextMenu(Sender: TObject): WordBool;
1027     // function GetThreadText(sBoard: string; sThread: string; StNum, ToNum: Integer; Title, First: Boolean): string;
1028 yoffy 1.123 procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
1029 hi_ 1.1 procedure ShowTextPopup;
1030     //procedure ShowTextPopup(HintData: THintData);
1031 yoffy 1.2 // procedure SetStdToolBar;
1032     // function GetAction(ActionName: string): TContainedAction;
1033 hi_ 1.1 procedure SetLinkBar;
1034     function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
1035 yoffy 1.2 procedure MenuBarChevronMenu;
1036     procedure LinkBarChevronMenu;
1037     procedure ToolBarChevronMenu(ToolBar: TToolBar);
1038 yoffy 1.51 procedure ModifySelectList;
1039 yoffy 1.100 procedure FavoriteBrowseFolder( node: TTreeNode );
1040     procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1041     procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1042     procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
1043     procedure LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1044 yoffy 1.85 procedure LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
1045 yoffy 1.72 function TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
1046 yoffy 1.100 procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
1047     procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
1048 yoffy 1.72 procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
1049 yoffy 1.236 //
1050 yoffy 1.143 procedure SetListViewBackGroundColor(value: TColor);
1051 yoffy 1.123 procedure BBSMenuItemOnClick( Sender : TObject );
1052 yoffy 1.236 //
1053     procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1054 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1055     procedure SaveCoolBarSettings;
1056     // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1057     procedure LoadCoolBarSettings;
1058 yoffy 1.276 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1059     procedure OnMinimize;
1060 yoffy 1.248 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1061     procedure OnMinimized;
1062 yoffy 1.216 // CoolBar 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1063     procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1064 yoffy 1.236 // TreeView 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1065     procedure TreeClick( Node : TTreeNode );
1066     // TreeView 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1067     procedure TreeDoubleClick( Node : TTreeNode );
1068     // 鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1069     procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1070     // 鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1071     // 鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 True 鐃緒申鐃緒申鐃緒申
1072 yoffy 1.275 function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1073 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1074     procedure SetBBSMenu;
1075 h677 1.315 function WebBrowserClick(Sender: TObject): WordBool;
1076 h677 1.343 procedure SkinorCSSFilesCopy(path: string);
1077 h677 1.365 //鐃?鐃?鐃緒申鐃緒申
1078 genyakun 1.371 procedure GetTabURLs(AStringList: TStringList; Result:Boolean);
1079 yoffy 1.362 // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1080 yoffy 1.364 procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1081 hi_ 1.1 protected
1082     procedure CreateParams(var Params: TCreateParams); override;
1083 yoffy 1.2 procedure WndProc(var Message: TMessage); override;
1084 hi_ 1.1 procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
1085     procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
1086     procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
1087 yoffy 1.216
1088 hi_ 1.1 public
1089     { Public 鐃緒申鐃緒申 }
1090     // FDownload: TDownload;
1091     FControlThread: TThreadControl;
1092 yoffy 1.48 procedure MoveToURL(URL: string);
1093     procedure InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
1094 hi_ 1.1 procedure ReloadBBS;
1095     function GetHttpState: Boolean;
1096     procedure SetEnabledCloseButton(Enabled: Boolean);
1097     function GetTreeNode(Data: TObject): TTreeNode;
1098     procedure AppFormDeactivate(Sender: TObject);
1099     // procedure CabinetPanelVisible(PanelVisible: Boolean);
1100     procedure ListViewAllSelect;
1101    
1102     property ListStyle: TViewStyle read FListStyle write FListStyle;
1103     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1104     property ViewType: TGikoViewType read FViewType write FViewType;
1105    
1106     property NameCookie: string read FNameCookie write FNameCookie;
1107     property MailCookie: string read FMailCookie write FMailCookie;
1108    
1109 h677 1.299 procedure SetContent(inThread: TBrowserRecord);
1110 hi_ 1.1 function GetActiveContent: TThreadItem;
1111     function GetActiveList: TObject;
1112    
1113     property ActiveList: TObject read GetActiveList write SetActiveList;
1114     // property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;
1115    
1116     procedure SetListViewType(AViewType: TGikoViewType); overload;
1117     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1118 q9_ 1.294 procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1119     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1120 hi_ 1.1 procedure PlaySound(SoundEventName: string);
1121    
1122 yoffy 1.136 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1123     procedure DeleteHistory( threadItem: TThreadItem );
1124 hi_ 1.1 procedure ClearHistory;
1125 yoffy 1.135 procedure SaveHistory;
1126     procedure LoadHistory;
1127 yoffy 1.123 procedure ShowBBSTree( inBBS : TBBS );
1128 yoffy 1.248 procedure ShowBBSTreeOld( inBBS : TBBS );
1129 hi_ 1.1 procedure ShowHistoryTree;
1130     procedure SetHistoryTreeNode;
1131     // procedure SelectTreeNode(Item: TObject);
1132     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1133     procedure SetBrowserTabState;
1134     // property Favorite: TFavorite read FFavorite write FFavorite;
1135 yoffy 1.2 procedure SetToolBarPopup;
1136 yoffy 1.100 procedure ShowFavoriteAddDialog( Item : TObject );
1137 h677 1.189 procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1138 h677 1.226 procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1139 yoffy 1.143 property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1140     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1141     property OddColor : TColor read FOddColor write FOddColor;
1142 h677 1.109
1143 yoffy 1.209 function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1144 yoffy 1.218 procedure OnPlugInMenuItem( Sender : TObject );
1145 genyakun 1.384 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1146 yoffy 1.209
1147 hi_ 1.1 published
1148     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1149     end;
1150    
1151     TFavoriteMenuItem = class(TMenuItem)
1152     private
1153     FData : Pointer;
1154     public
1155     property Data: Pointer read FData write FData;
1156     end;
1157    
1158 yoffy 1.123 TBBSMenuItem = class(TMenuItem)
1159     private
1160     FData : Pointer;
1161     public
1162     property Data: Pointer read FData write FData;
1163     end;
1164    
1165 hi_ 1.1 TLinkToolButton = class(TToolButton)
1166     private
1167     FData : Pointer;
1168     public
1169     property Data: Pointer read FData write FData;
1170     end;
1171    
1172 h677 1.299 TBrowserRecord = class( TObject )
1173     private
1174     FBrowser : TWebBrowser;
1175     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1176     FThread : TThreadItem;
1177     FLastSize : Integer;
1178     FRepaint : Boolean;
1179 yoffy 1.375 // FOnlyHundred: Boolean;
1180 h677 1.299 public
1181     destructor Destroy; override;
1182     property Browser : TWebBrowser read FBrowser write FBrowser;
1183     property Thread : TThreadItem read FThread write FThread;
1184     property LastSize : Integer read FLastSize write FLastSize;
1185     property Repaint : Boolean read FRepaint write FRepaint;
1186 yoffy 1.375 // property OnlyHundred : Boolean read FOnlyHundred write FOnlyHundred;
1187 h677 1.299 end;
1188    
1189 hi_ 1.1 var
1190     GikoForm: TGikoForm;
1191    
1192     implementation
1193    
1194     uses
1195     About, Option, Round, Splash, Sort, ListSelect,
1196 h677 1.183 NewBoard, MojuUtils,Clipbrd;
1197 hi_ 1.1
1198     const
1199     CAPTION_NAME: string = '鐃?鐃?鐃?鐃?';
1200     BLANK_HTML: string = 'about:blank';
1201 yoffy 1.51 SELECTCOMBOBOX_NAME: string = ''; // '鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申';
1202     SELECTCOMBOBOX_COLOR: TColor = clWindow;
1203 yoffy 1.120 //D&D鐃緒申鐃?
1204     DandD_THRESHOLD = 5; //D&D鐃緒申鐃緒申鐃?鐃?pixcel)
1205 yoffy 1.2 //鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1206     ITEM_ICON_2CH1 = 0; //2ch鐃?鐃?鐃?鐃緒申
1207     ITEM_ICON_2CH2 = 1; //2ch鐃?鐃?鐃?鐃緒申
1208     ITEM_ICON_CATEGORY1 = 2; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1209     ITEM_ICON_CATEGORY2 = 3; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1210 yoffy 1.120 ITEM_ICON_BOARD_NOSUBJECT = 3; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1211 yoffy 1.2 ITEM_ICON_BOARD1 = 4; //鐃緒申鐃?鐃?鐃?鐃緒申
1212     ITEM_ICON_BOARD2 = 5; //鐃緒申鐃?鐃?鐃?鐃緒申
1213     ITEM_ICON_THREADLOG1 = 6; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1214     ITEM_ICON_THREADLOG2 = 7; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1215     ITEM_ICON_THREAD1 = 8; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1216     ITEM_ICON_THREAD2 = 9; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1217     ITEM_ICON_THREADNEW1 = 10; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1218     ITEM_ICON_THREADNEW2 = 11; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1219     ITEM_ICON_SORT1 = 12; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1220     ITEM_ICON_SORT2 = 13; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1221 yoffy 1.120 ITEM_ICON_BOARD_LOG = 17; //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1222     ITEM_ICON_BOARD_NEW = 18; //鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1223 yoffy 1.2
1224     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1225 yoffy 1.48 TOOL_ICON_HEIGHT_MAX = 16; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1226     TOOL_ICON_HEIGHT_MIN = 17; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1227     TOOL_ICON_HEIGHT_NORMAL = 18; //鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1228     TOOL_ICON_WIDTH_MAX = 19; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1229     TOOL_ICON_WIDTH_MIN = 20; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1230     TOOL_ICON_WIDTH_NORMAL = 21; //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1231    
1232 yoffy 1.51 TOOL_ICON_FAV_FOLDER = 30; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申
1233 yoffy 1.100 TOOL_ICON_FAV_BOARD = 31; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1234 yoffy 1.51 TOOL_ICON_FAV_THREAD = 32; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1235 hi_ 1.1
1236     HTML_FILE_NAME = 'temp_preview.html';
1237    
1238 yoffy 1.253 WM_XBUTTONDOWN = $020B;
1239     WM_XBUTTONUP = $020C;
1240     WM_XBUTTONDBLCLK = $020D;
1241     XBUTTON1 = $0001;
1242     XBUTTON2 = $0002;
1243 yoffy 1.278 USER_TREECLICK = WM_USER + 2000;
1244     USER_RESIZED = WM_USER + 2001;
1245     USER_MINIMIZED = WM_USER + 2002;
1246     USER_SETLINKBAR = WM_USER + 2003;
1247 h677 1.340 SELECTTIME_INTERBAL = 110;
1248    
1249     BROWSER_COUNT = 5; //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
1250 hi_ 1.1 {$R *.DFM}
1251    
1252     procedure TGikoForm.CreateParams(var Params: TCreateParams);
1253     begin
1254     inherited;
1255     if FormStyle in [fsNormal, fsStayOnTop] then begin
1256     if BorderStyle in [bsSingle, bsSizeable] then begin
1257     Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
1258     Params.WndParent := 0;
1259     end;
1260     end;
1261     end;
1262    
1263     procedure TGikoForm.FormCreate(Sender: TObject);
1264     const
1265     TVS_NOTOOLTIPS = $0080;
1266     var
1267     FileName: string;
1268     Style: DWORD;
1269     msg: string;
1270     i: Integer;
1271     wp: TWindowPlacement;
1272 hi_ 1.32 s: string;
1273 h677 1.303 newbrowser: TWebBrowser;
1274 hi_ 1.1 begin
1275     {$IFDEF DEBUG}
1276     AllocConsole;
1277     Writeln('============================================================');
1278     Writeln(' 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃? 鐃?鐃緒申鐃?鐃?鐃緒申');
1279     Writeln('');
1280     Writeln(' 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?');
1281     Writeln(' 鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申');
1282     Writeln('============================================================');
1283     {$ENDIF}
1284     Application.OnDeactivate := AppFormDeactivate;
1285     Self.OnDeactivate := AppFormDeactivate;
1286     Application.HookMainWindow(Hook);
1287 h677 1.316 Application.OnMessage := HandleAppMessage; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?by鐃?鐃緒申鐃緒申鐃緒申
1288 h677 1.345 Self.DoubleBuffered := true;
1289 hi_ 1.1 FTreeType := gttNone;
1290    
1291 yoffy 1.51 FSearchDialog := nil;
1292 h677 1.299 BrowserNullTab := TBrowserRecord.Create;
1293     BrowserNullTab.Browser := Browser;
1294 h677 1.316 BrowserNullTab.Browser.Navigate(BLANK_HTML);
1295 h677 1.303 FBrowsers := TList.Create;
1296 h677 1.340 for i := 0 to BROWSER_COUNT -1 do begin
1297 h677 1.345 FBrowsers.Add(TWebBrowser.Create(nil));
1298     newBrowser := FBrowsers[FBrowsers.Count - 1];
1299 h677 1.303 TOleControl(newBrowser).Parent := BrowserPanel;
1300 h677 1.345 newBrowser.Align := alNone;
1301 h677 1.346 newBrowser.Left := 0;
1302     newBrowser.Top := 0;
1303     //newBrowser.DoubleBuffered := true;
1304 h677 1.303 newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1305     newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1306     newBrowser.OnEnter := BrowserEnter;
1307     newBrowser.OnNewWindow2 := BrowserNewWindow2;
1308     newBrowser.OnStatusTextChange := BrowserStatusTextChange;
1309 h677 1.333 //newBrowser.OnTitleChange := BrowserTitleChange;
1310 h677 1.306 newBrowser.Navigate(BLANK_HTML);
1311 h677 1.316 ShowWindow(newBrowser.Handle, SW_HIDE);
1312 h677 1.345
1313 h677 1.303 end;
1314 h677 1.316 BrowserNullTab.Browser.BringToFront;
1315     ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
1316 h677 1.303
1317 yoffy 1.216 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1318 yoffy 1.248 FIsIgnoreResize := True;
1319 yoffy 1.216
1320 hi_ 1.1 //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1321     Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1322    
1323    
1324     //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1325     AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1326    
1327 yoffy 1.135 // 鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?(ReadBoardFile, LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1328 yoffy 1.107 InitializeBoardPlugIns;
1329 yoffy 1.105
1330 hi_ 1.1 EnabledCloseButton := True;
1331 h677 1.176
1332    
1333     //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1334     RoundList := TRoundList.Create;
1335     RoundList.LoadRoundBoardFile;
1336    
1337 yoffy 1.210 // 鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申(ReadFavorite 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1338     GikoSys.ListBoardFile;
1339 h677 1.176
1340     RoundList.LoadRoundThreadFile;
1341    
1342 yoffy 1.236 if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1343     GikoSys.ListBoardFile;
1344 h677 1.176
1345 yoffy 1.123 // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1346 yoffy 1.289 SetBBSMenu;
1347 h677 1.176
1348 yoffy 1.135 // 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?(LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1349     FHistoryList := TList.Create;
1350    
1351     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1352     LoadHistory;
1353    
1354 yoffy 1.123 //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1355     // FFavorite := TFavorite.Create(FavoriteTreeView);
1356     FavoriteDM.SetFavTreeView(FavoriteTreeView);
1357     FavoriteDM.ReadFavorite;
1358 hi_ 1.1
1359     //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1360     ListView.ViewStyle := GikoSys.Setting.ListStyle;
1361    
1362     //鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1363     // MainCoolBar.Top := 0;
1364     // MainCoolBar.Left := 0;
1365    
1366     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?
1367     AnimePanel.Top := 0;
1368     AnimePanel.Left := 0;
1369    
1370     //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1371    
1372     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1373     CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1374    
1375     //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1376     MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1377     MsgBarVisibleActionExecute(nil);
1378     MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1379    
1380     //鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1381     StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1382     StatusBarVisibleActionExecute(nil);
1383    
1384     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
1385     TreeView.Items.BeginUpdate;
1386 yoffy 1.100 FavoriteTreeView.Items.BeginUpdate;
1387 hi_ 1.1 ListView.Items.BeginUpdate;
1388     try
1389     TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1390     TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1391     TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1392     TreeView.Color := GikoSys.Setting.CabinetBackColor;
1393    
1394 yoffy 1.67 FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1395     FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1396     FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1397     FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1398    
1399 hi_ 1.1 ListView.Font.Name := GikoSys.Setting.ListFontName;
1400     ListView.Font.Size := GikoSys.Setting.ListFontSize;
1401     ListView.Font.Color := GikoSys.Setting.ListFontColor;
1402 h677 1.109 //ListView.Color := GikoSys.Setting.ListBackColor;
1403 yoffy 1.236 ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
1404     FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1405     FOddColor := GikoSys.Setting.OddColor;
1406 h677 1.109
1407 hi_ 1.1 finally
1408     TreeView.Items.EndUpdate;
1409 yoffy 1.100 FavoriteTreeView.Items.EndUpdate;
1410 hi_ 1.1 ListView.Items.EndUpdate;
1411     end;
1412     //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1413     ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
1414    
1415     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?
1416     BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1417     BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1418 yoffy 1.133 FDragWFirst := false;
1419 h677 1.299 SetContent(BrowserNullTab); //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1420 hi_ 1.1 // TreeView.TopItem.Expanded := True; //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1421     // TreeView.Selected := TreeView.Items[0]; //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1422 h677 1.299
1423 hi_ 1.1
1424     //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1425     wp.length := sizeof(wp);
1426     wp.rcNormalPosition.Top := GikoSys.Setting.WindowTop;
1427     wp.rcNormalPosition.Left := GikoSys.Setting.WindowLeft;
1428     wp.rcNormalPosition.Bottom := GikoSys.Setting.WindowTop + GikoSys.Setting.WindowHeight;
1429     wp.rcNormalPosition.Right := GikoSys.Setting.WindowLeft + GikoSys.Setting.WindowWidth;
1430     wp.showCmd := SW_HIDE;
1431     SetWindowPlacement(Handle, @wp);
1432    
1433     // SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop,
1434     // GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight);
1435     if GikoSys.Setting.WindowMax then
1436 yoffy 1.248 WindowState := wsMaximized;
1437 hi_ 1.1
1438     //鐃?鐃?鐃?鐃?鐃緒申
1439     try
1440     FileName := GikoSys.GetAppDir + 'gikoNavi.avi';
1441     if FileExists(FileName) then
1442     Animate.FileName := FileName;
1443     except
1444     end;
1445    
1446     //鐃?鐃?鐃?鐃?
1447     FNameCookie := '';
1448     FMailCookie := '';
1449    
1450     //鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1451     AllItemAction.Checked := True;
1452 yoffy 1.126 AllResAction.Checked := True;
1453 hi_ 1.1
1454     //TreeView鐃緒申鐃緒申鐃緒申鐃?鐃緒申ToolTip鐃緒申鐃緒申鐃?鐃緒申
1455     Style := GetWindowLong(TreeView.Handle, GWL_STYLE);
1456     Style := Style or TVS_NOTOOLTIPS;
1457     SetWindowLong(TreeView.Handle, GWL_STYLE, Style);
1458    
1459     // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1460     TreeView.Align := alClient;
1461 yoffy 1.57 FavoriteTreeView.Align := alClient;
1462 hi_ 1.1 FavoriteTreeView.Visible := False;
1463    
1464     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1465     // FBrowserSizeFlag := False;
1466     // FBrowserSizeHeight := ViewPanel.Height;
1467    
1468     FBrowserSizeHeight := GikoSys.Setting.ListHeight;
1469     FBrowserSizeWidth := GikoSys.Setting.ListWidth;
1470    
1471     ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1472     ArrangeAction.Execute;
1473    
1474     if GikoSys.Setting.ListOrientation = gloHorizontal then begin
1475     case GikoSys.Setting.ListWidthState of
1476     glsMax: begin
1477     ViewPanel.Width := 1;
1478 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1479     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1480 hi_ 1.1 end;
1481     glsMin: begin
1482     ViewPanel.Width := GikoSys.Setting.ListWidth;
1483 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1484     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1485 hi_ 1.1 end;
1486     else begin
1487     ViewPanel.Width := GikoSys.Setting.ListWidth;
1488 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1489     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1490 hi_ 1.1 end;
1491     end;
1492     end else begin
1493     case GikoSys.Setting.ListHeightState of
1494     glsMax: begin
1495     ViewPanel.Height := 1;
1496 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1497     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1498 hi_ 1.1 end;
1499     glsMin: begin
1500     ViewPanel.Height := GikoSys.Setting.ListHeight;
1501 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1502     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1503 hi_ 1.1 end;
1504     else begin
1505     ViewPanel.Height := GikoSys.Setting.ListHeight;
1506 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1507     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1508 hi_ 1.1 end;
1509     end;
1510     end;
1511    
1512     //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1513     // ProgressBar.Visible := False;
1514     ProgressBar.Parent := StatusBar;
1515     ProgressBar.Top := 2;
1516     ProgressBar.Left := 0;
1517     ProgressBar.Width := StatusBar.Panels[0].Width;
1518     ProgressBar.Height := StatusBar.Height - 2;
1519     ProgressBar.Position := 0;
1520    
1521     //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1522     FControlThread := TThreadControl.Create(True);
1523     FControlThread.MaxThreadCount := 1;
1524     FControlThread.Resume;
1525     FControlThread.OnDownloadEnd := DownloadEnd;
1526     FControlThread.OnDownloadMsg := DownloadMsg;
1527     FControlThread.OnWork := Work;
1528     FControlThread.OnWorkBegin := WorkBegin;
1529     FControlThread.OnWorkEnd := WorkEnd;
1530     // ProgressPanel.Width := FControlThread.MaxThreadCount * 12;
1531    
1532 yoffy 1.51 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1533     SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
1534 yoffy 1.2
1535 hi_ 1.1 //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申
1536     SetBrowserTabState;
1537    
1538     BrowserBoardNameLabel.Caption := '';
1539     BrowserNameLabel.Caption := '';
1540     FWorkCount := 0;
1541    
1542     FTabHintIndex := -1;
1543    
1544     //鐃緒申鐃緒申鐃?鐃?鐃?
1545     SetLinkBar;
1546    
1547     //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1548     SetMenuFont;
1549    
1550     //鐃?鐃?鐃緒申鐃?鐃?Wrapable
1551     ListToolBar.Wrapable := GikoSys.Setting.ListToolBarWrapable;
1552     BrowserToolBar.Wrapable := GikoSys.Setting.BrowserToolBarWrapable;
1553    
1554 yoffy 1.236 KeepDefaultToolButton(StdToolBar, TmpToolBar);
1555     KeepDefaultToolButton(ListToolBar, TmpToolBar);
1556     KeepDefaultToolButton(BrowserToolBar, TmpToolBar);
1557 h677 1.234
1558 yoffy 1.236 MakeDefaultINIFile();
1559 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1560     ReadToolBarSetting(ActionList, StdToolBar);
1561     ReadToolBarSetting(ActionList, ListToolBar);
1562 yoffy 1.51 try
1563     for i := ListToolBar.ControlCount - 1 downto 0 do
1564     begin
1565     if ListToolBar.Controls[ i ].Action = SelectItemAction then
1566     begin
1567     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1568     if (i + 1) < ListToolBar.ControlCount then
1569     if ListToolBar.Controls[ i + 1 ] is TToolButton then
1570     if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
1571     ListToolBar.Controls[ i + 1 ].Visible := False;
1572    
1573     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1574     ListToolBar.Controls[ i ].Visible := False;
1575     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
1576 yoffy 1.239 SelectComboBox.Parent := ListToolBar;
1577 yoffy 1.51 SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1578     SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;
1579     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申
1580 yoffy 1.239 SelectComboBoxSplitter.Parent := ListToolBar;
1581 yoffy 1.51 SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
1582    
1583     break;
1584     end;
1585     end;
1586     except
1587     end;
1588 yoffy 1.2 ReadToolBarSetting(ActionList, BrowserToolBar);
1589     SetToolBarPopup;
1590 yoffy 1.375
1591     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1592 yoffy 1.383 FResRangeMenuSelect := GikoSys.ResRange;
1593 yoffy 1.375 case GikoSys.ResRange of
1594     Ord( grrAll ):
1595     begin
1596     AllResAction.Execute;
1597     end;
1598     Ord( grrSelect ):
1599     begin
1600 yoffy 1.383 SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1601 yoffy 1.375 SelectResAction.Checked := True;
1602     end;
1603     else
1604     // ResRangeAction.Execute;
1605     case FResRangeMenuSelect of
1606     Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1607     Ord( grrNew ): OnlyNewResAction.Checked := True;
1608 yoffy 1.389 100: OnlyAHundredResAction.Checked := True;
1609 yoffy 1.375 end;
1610     end;
1611    
1612 yoffy 1.390 // 鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1613     // ThreadRangeAction.Execute;
1614     case GikoSys.Setting.ThreadRange of
1615     gtrAll:
1616     begin
1617     AllItemAction.Checked := True;
1618     ViewType := gvtAll;
1619     end;
1620     gtrLog:
1621     begin
1622     LogItemAction.Checked := True;
1623     ViewType := gvtLog;
1624     end;
1625     gtrNew:
1626     begin
1627     NewItemAction.Checked := True;
1628     ViewType := gvtNew;
1629     end;
1630     end;
1631    
1632 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃?
1633     AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1634    
1635 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1636    
1637     //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1638     if not FileExists(GikoSys.GetBoardFileName) then begin
1639     msg := '鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申' + #13#10#13#10
1640     + '鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申' + #13#10
1641     + '鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?';
1642     MsgBox(SplashWindow.Handle, msg, '鐃?鐃?鐃?鐃?', MB_OK or MB_ICONINFORMATION);
1643     NewBoardAction.Execute;
1644     end;
1645    
1646     //鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1647     GikoSys.LoadKeySetting(ActionList);
1648    
1649     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1650     // FLastRoundTime := 0;
1651    
1652     //ResHint
1653     FHint := TResPopup.Create(Self);
1654    
1655 yoffy 1.100 // 鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
1656 h677 1.299 CabinetVisible( False );
1657 yoffy 1.141 if GikoSys.Setting.CabinetVisible then begin
1658     i := CabinetSelectPopupMenu.Items.Count - 1;
1659     if GikoSys.Setting.CabinetIndex = i - 1 then
1660     CabinetHistoryAction.Execute
1661     else if GikoSys.Setting.CabinetIndex = i then
1662     CabinetFavoriteAction.Execute
1663     else begin
1664     if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
1665     ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
1666 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 2
1667     FIsIgnoreResize := True;
1668 yoffy 1.141 CabinetBBSAction.Execute;
1669     end;
1670     end else begin
1671 yoffy 1.248 ShowBBSTreeOld( BBSs[ 0 ] );
1672     PostMessage( Handle, USER_TREECLICK, 0, 0 );
1673 yoffy 1.141 end;
1674 yoffy 1.67
1675 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 3
1676 yoffy 1.248 FIsIgnoreResize := True;
1677    
1678 yoffy 1.2 //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申
1679     if GikoSys.Setting.AutoLogin then
1680     LoginAction.Execute;
1681    
1682     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
1683     for i := 1 to ParamCount do begin
1684     MoveToURL(ParamStr(i));
1685     end;
1686     // SetStdToolBar;
1687     // SetLinkBar;
1688 h677 1.22
1689 hi_ 1.32 s := GikoSys.FAbon.NGwordname;
1690     StatusBar.Panels[2].Text := s;
1691     StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1692     StatusBarResize(Sender);
1693 h677 1.187
1694 yoffy 1.236 dummy1.Caption := ItemReservPMenu.Caption;
1695     dummy1.Hint := ItemReservPMenu.Hint;
1696 yoffy 1.216
1697 yoffy 1.236 //Samba24鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?
1698     GikoSys.SambaFileExists();
1699 h677 1.299
1700 genyakun 1.373 //鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 (AV鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申)
1701 yoffy 1.2 end;
1702    
1703 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1704     procedure TGikoForm.SaveCoolBarSettings;
1705 yoffy 1.2 var
1706 yoffy 1.216 i : Integer;
1707     CoolSet : TCoolSet;
1708 yoffy 1.2 begin
1709    
1710 yoffy 1.248 if IsIconic( Handle ) or FIsIgnoreResize then
1711 yoffy 1.216 Exit;
1712 yoffy 1.2
1713 yoffy 1.216 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1714     for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin
1715     CoolSet.FCoolID := MainCoolBar.Bands[i].ID;
1716     CoolSet.FCoolWidth := MainCoolBar.Bands[i].Width;
1717     CoolSet.FCoolBreak := MainCoolBar.Bands[i].Break;
1718     GikoSys.Setting.MainCoolSet[i] := CoolSet;
1719     end;
1720     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1721     for i := 0 to LIST_COOLBAND_COUNT - 1 do begin
1722     CoolSet.FCoolID := ListCoolBar.Bands[i].ID;
1723     CoolSet.FCoolWidth := ListCoolBar.Bands[i].Width;
1724     CoolSet.FCoolBreak := ListCoolBar.Bands[i].Break;
1725     GikoSys.Setting.ListCoolSet[i] := CoolSet;
1726     end;
1727     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1728     for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin
1729     CoolSet.FCoolID := BrowserCoolBar.Bands[i].ID;
1730     CoolSet.FCoolWidth := BrowserCoolBar.Bands[i].Width;
1731     CoolSet.FCoolBreak := BrowserCoolBar.Bands[i].Break;
1732     GikoSys.Setting.BrowserCoolSet[i] := CoolSet;
1733 yoffy 1.2 end;
1734    
1735 yoffy 1.216 end;
1736 yoffy 1.2
1737 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1738     procedure TGikoForm.LoadCoolBarSettings;
1739     var
1740     i : Integer;
1741     CoolSet : TCoolSet;
1742     begin
1743 yoffy 1.2
1744 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1745     MainCoolBar.Bands.BeginUpdate;
1746     try
1747 yoffy 1.216 // for i := 0 to MainCoolBar.Bands.Count - 1 do begin
1748     for i := MAIN_COOLBAND_COUNT - 1 downto 0 do begin
1749 hi_ 1.1 CoolSet := GikoSys.Setting.MainCoolSet[i];
1750 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1751 yoffy 1.265 FIsIgnoreResize := False;
1752 yoffy 1.263 SaveCoolBarSettings;
1753     Exit;
1754     end;
1755 hi_ 1.1 MainCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1756     MainCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1757 yoffy 1.264 MainCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1758 hi_ 1.1 end;
1759     finally
1760     MainCoolBar.Bands.EndUpdate;
1761     end;
1762    
1763     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1764     ListCoolBar.Bands.BeginUpdate;
1765     try
1766 yoffy 1.216 // for i := 0 to ListCoolBar.Bands.Count - 1 do begin
1767     for i := LIST_COOLBAND_COUNT - 1 downto 0 do begin
1768 hi_ 1.1 CoolSet := GikoSys.Setting.ListCoolSet[i];
1769 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1770 yoffy 1.265 FIsIgnoreResize := False;
1771 yoffy 1.263 SaveCoolBarSettings;
1772     Exit;
1773     end;
1774 hi_ 1.1 ListCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1775     ListCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1776     ListCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1777     end;
1778     finally
1779     ListCoolBar.Bands.EndUpdate;
1780     end;
1781    
1782     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1783     BrowserCoolBar.Bands.BeginUpdate;
1784     try
1785 yoffy 1.216 // for i := 0 to BrowserCoolBar.Bands.Count - 1 do begin
1786     for i := BROWSER_COOLBAND_COUNT - 1 downto 0 do begin
1787 hi_ 1.1 CoolSet := GikoSys.Setting.BrowserCoolSet[i];
1788 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1789 yoffy 1.265 FIsIgnoreResize := False;
1790 yoffy 1.263 SaveCoolBarSettings;
1791     Exit;
1792     end;
1793 hi_ 1.1 BrowserCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1794     BrowserCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1795     BrowserCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1796     end;
1797     finally
1798     BrowserCoolBar.Bands.EndUpdate;
1799     end;
1800    
1801     end;
1802 yoffy 1.216
1803     //
1804     //
1805     //
1806     procedure TGikoForm.FormShow(Sender: TObject);
1807     begin
1808     ShowWindow(Application.Handle, SW_HIDE);
1809    
1810     //FormCreate鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1811     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1812     StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1813     StdToolBarVisibleActionExecute( nil );
1814     AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1815     AddressBarVisibleActionExecute( nil );
1816     LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1817     LinkBarVisibleActionExecute( nil );
1818     ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1819     ListToolBarVisibleActionExecute( nil );
1820     ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1821     ListNameBarVisibleActionExecute( nil );
1822     BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1823     BrowserToolBarVisibleActionExecute( nil );
1824     BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1825     BrowserNameBarVisibleActionExecute( nil );
1826    
1827     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1828     BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1829     BrowserTabVisibleActionExecute(nil);
1830    
1831     if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1832     BrowserTabTopAction.Checked := True;
1833     BrowserTabTopActionExecute(nil);
1834     end else begin
1835     BrowserTabBottomAction.Checked := True;
1836     BrowserTabBottomActionExecute(nil);
1837     end;
1838    
1839     if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1840     BrowserTabTabStyleAction.Checked := True;
1841     BrowserTabTabStyleActionExecute(nil);
1842     end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1843     BrowserTabButtonStyleAction.Checked := True;
1844     BrowserTabButtonStyleActionExecute(nil);
1845     end else begin
1846     BrowserTabFlatStyleAction.Checked := True;
1847     BrowserTabFlatStyleActionExecute(nil);
1848     end;
1849    
1850     // CoolBar 鐃緒申鐃緒申
1851     LoadCoolBarSettings;
1852 yoffy 1.265
1853     FIsIgnoreResize := False;
1854 genyakun 1.382
1855     //TabAutoLoad
1856     //FormCrete鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1857 genyakun 1.393 if GikoSys.Setting.TabAutoLoadSave then begin
1858 genyakun 1.382 TabsOpenActionExecute(Sender);
1859     end;
1860    
1861 yoffy 1.239 end;
1862 yoffy 1.216
1863 hi_ 1.1 procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1864     begin
1865 yoffy 1.331 // if GikoForm.WindowState <> wsMinimized then
1866     // SaveCoolBarSettings;
1867 yoffy 1.236 if ( GikoSys.Setting.ShowDialogForEnd ) and
1868     (MessageDlg('鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1869     CanClose := false;
1870     Exit;
1871     end else begin
1872     CanClose := True;
1873 genyakun 1.393 if GikoSys.Setting.TabAutoLoadSave then begin
1874 genyakun 1.373 TabsSaveActionExecute(Sender);
1875     end;
1876 yoffy 1.236 end;
1877 h677 1.241 //Application.HookMainWindow(Hook);
1878     Application.UnhookMainWindow(Hook);
1879     Application.Terminate;
1880     end;
1881    
1882     procedure TGikoForm.FormDestroy(Sender: TObject);
1883     var
1884 yoffy 1.376 i : Integer;
1885 h677 1.241 // CoolSet: TCoolSet;
1886 yoffy 1.376 wp : TWindowPlacement;
1887     tmpBool : Boolean;
1888 h677 1.241 begin
1889 h677 1.181 // Application.OnDeactivate := nil;
1890     // Self.OnDeactivate := nil;
1891 yoffy 1.236 try
1892 h677 1.234 //column鐃緒申
1893     if GetActiveList is TBBS then begin
1894     for i := 0 to ListView.Columns.Count - 1 do
1895     GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;
1896     end else if GetActiveList is TCategory then begin
1897     for i := 0 to ListView.Columns.Count - 1 do
1898     GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;
1899     end else if GetActiveList is TBoard then begin
1900     for i := 0 to ListView.Columns.Count - 1 do
1901     GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
1902     end;
1903 yoffy 1.236 except
1904     end;
1905     try
1906 h677 1.234 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1907     wp.length := sizeof(wp);
1908     GetWindowPlacement(Handle, @wp);
1909     GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1910     GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1911     GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1912     GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1913     GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1914    
1915     GikoSys.Setting.ListStyle := ListView.ViewStyle;
1916     GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1917     GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1918     GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1919     GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1920     if ArrangeAction.Checked then
1921     GikoSys.Setting.ListOrientation := gloVertical
1922     else
1923     GikoSys.Setting.ListOrientation := gloHorizontal;
1924     GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1925 yoffy 1.236 except
1926 yoffy 1.2 end;
1927 yoffy 1.378
1928     try
1929     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1930     if not GikoSys.Setting.ResRangeHold then
1931 yoffy 1.380 GikoSys.Setting.ResRange := FResRangeMenuSelect;
1932 yoffy 1.378 except
1933     end;
1934    
1935     // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申 CoolBar 鐃緒申鐃緒申
1936 yoffy 1.216 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1937 yoffy 1.263 {
1938     // 鐃緒申FormDestroy鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?2004/04/09鐃?
1939 yoffy 1.216 // CoolBar 鐃緒申鐃緒申
1940 h677 1.262 if GikoForm.WindowState <> wsMinimized then
1941     SaveCoolBarSettings;
1942 yoffy 1.263 }
1943 yoffy 1.236 try
1944 h677 1.234 GikoSys.Setting.WriteWindowSettingFile;
1945     GikoSys.Setting.WriteNameMailSettingFile;
1946 yoffy 1.236 except
1947     end;
1948 yoffy 1.2
1949     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1950 hi_ 1.1 try
1951 yoffy 1.236 //FavoriteDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1952 yoffy 1.2 FavoriteDM.WriteFavorite;
1953 yoffy 1.236 FavoriteDM.Clear;
1954 hi_ 1.1 except
1955     end;
1956    
1957     try
1958     //鐃?鐃?鐃?鐃緒申鐃?鐃?
1959 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
1960     GikoSys.Setting.ShowDialogForAllTabClose := false;
1961     AllTabCloseAction.Execute;
1962     GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
1963 h677 1.299 except
1964     end;
1965 h677 1.321 try
1966     LockWindowUpdate(Self.Handle);
1967     for i := FBrowsers.Count - 1 downto 0 do begin
1968     TWebBrowser(FBrowsers[i]).Free;
1969     end;
1970     FBrowsers.Clear;
1971     FBrowsers.Capacity := 0;
1972     finally
1973     FBrowsers.Free;
1974 h677 1.303 end;
1975 h677 1.299 try
1976     if BrowserNullTab <> nil then begin
1977     BrowserNullTab.Browser := nil; {*BrowserNullTab鐃緒申Browser鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?
1978     *鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Free鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1979     *}
1980     BrowserNullTab.Free;
1981 hi_ 1.1 end;
1982     except
1983     end;
1984 h677 1.321 LockWindowUpdate(0);
1985 h677 1.224 try
1986 yoffy 1.236 TreeView.Items.BeginUpdate;
1987 yoffy 1.380 TreeView.Items.GetFirstNode.Free;
1988 yoffy 1.236 TreeView.Items.Clear;
1989     TreeView.Items.EndUpdate;
1990 h677 1.224 except
1991     end;
1992 h677 1.230
1993 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1994     try
1995 yoffy 1.236 //AddressHistoryDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1996 hi_ 1.1 AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1997     except
1998     end;
1999    
2000 h677 1.234 //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
2001 hi_ 1.1 try
2002 h677 1.234 SaveHistory;
2003 hi_ 1.1 except
2004     end;
2005 yoffy 1.236 try
2006     try
2007     ClearHistory;
2008     except
2009     end;
2010     finally
2011     FHistoryList.Free;
2012     end;
2013 h677 1.221
2014 h677 1.182 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申&鐃?鐃緒申
2015     try
2016     RoundList.SaveRoundFile;
2017     except
2018     end;
2019 yoffy 1.236 try
2020 h677 1.234 try
2021 yoffy 1.236 RoundList.Clear;
2022 h677 1.234 except
2023     end;
2024 yoffy 1.236 finally
2025     RoundList.Free;
2026     end;
2027 h677 1.182
2028 yoffy 1.236 try
2029 h677 1.234 try
2030     FControlThread.Terminate;
2031 yoffy 1.236 FControlThread.WaitFor;
2032 h677 1.234 except
2033 h677 1.219 end;
2034 yoffy 1.236 finally
2035     FControlThread.Free;
2036     end;
2037 h677 1.230
2038 yoffy 1.155 // TBBS 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 TCategory, TBoard, TThreadItem 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2039     // TBoard, TThreadItem 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2040     // BoardPluteIns 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2041 yoffy 1.126 try
2042 h677 1.220 for i := Length( BBSs ) - 1 downto 0 do begin
2043 h677 1.153 if BBSs[ i ] <> nil then
2044     BBSs[ i ].Free;
2045     BBSs[ i ] := nil;
2046     end;
2047     except
2048     end;
2049 yoffy 1.155
2050 h677 1.153 try
2051 h677 1.220 for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2052 yoffy 1.126 if BoardPlugIns[ i ] <> nil then
2053     BoardPlugIns[ i ].Free;
2054     BoardPlugIns[ i ] := nil;
2055     end;
2056     except
2057     end;
2058 yoffy 1.124
2059 h677 1.234 try
2060 yoffy 1.236 if FEvent <> nil then
2061     FEvent.Free;
2062 h677 1.181
2063 yoffy 1.2 //Hint鐃?鐃緒申
2064     if FHint <> nil then begin
2065     FHint.ReleaseHandle;
2066     FHint.Free;
2067     FHint := nil;
2068     end;
2069     //Preview鐃?鐃緒申
2070     if TPreviewBrowser <> nil then begin
2071     FPreviewBrowser.Free;
2072     FPreviewBrowser := nil;
2073     end;
2074     except
2075     end;
2076 h677 1.230
2077 hi_ 1.1 end;
2078    
2079     //鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2080     procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);
2081     begin
2082 h677 1.230 end;
2083 hi_ 1.1 //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2084     procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2085     begin
2086     CabinetVisibleAction.Execute;
2087     // CabinetPanelVisible(false);
2088     end;
2089    
2090 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
2091     procedure TGikoForm.SetBBSMenu;
2092 yoffy 1.123 var
2093     i : Integer;
2094 yoffy 1.149 item : TBBSMenuItem;
2095 hi_ 1.1 begin
2096    
2097 yoffy 1.148 // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2098     for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
2099     try
2100     if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
2101 yoffy 1.155 CabinetSelectPopupMenu.Items[ i ].Free;
2102     CabinetMenu.Items[ i ].Free;
2103 yoffy 1.289 BBSSelectPopupMenu.Items[ i ].Free;
2104 yoffy 1.148 end;
2105     except
2106     end;
2107     end;
2108 yoffy 1.289
2109     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2110 yoffy 1.148 for i := Length( BBSs ) - 1 downto 0 do begin
2111     try
2112     item := TBBSMenuItem.Create( PopupMenu );
2113     item.Caption := BBSs[ i ].Title;
2114     item.Data := BBSs[ i ];
2115     item.OnClick := BBSMenuItemOnClick;
2116     CabinetSelectPopupMenu.Items.Insert( 0, item );
2117     item := TBBSMenuItem.Create( PopupMenu );
2118     item.Caption := BBSs[ i ].Title;
2119     item.Data := BBSs[ i ];
2120     item.OnClick := BBSMenuItemOnClick;
2121     CabinetMenu.Insert( 0, item );
2122 yoffy 1.289 item := TBBSMenuItem.Create( PopupMenu );
2123     item.Caption := BBSs[ i ].Title;
2124     item.Data := BBSs[ i ];
2125     item.OnClick := BBSMenuItemOnClick;
2126     BBSSelectPopupMenu.Items.Insert( 0, Item );
2127 yoffy 1.148 except
2128     end;
2129     end;
2130 yoffy 1.289
2131     end;
2132    
2133     procedure TGikoForm.ReloadBBS;
2134     var
2135     i : Integer;
2136 h677 1.321 tmpBool: Boolean;
2137 yoffy 1.289 begin
2138     //鐃?鐃?鐃?鐃緒申鐃?鐃?
2139 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2140     GikoSys.Setting.ShowDialogForAllTabClose := false;
2141 h677 1.320 AllTabCloseAction.Execute;
2142 h677 1.321 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2143    
2144 h677 1.320 SetContent(BrowserNullTab);
2145 yoffy 1.289 //TreeView鐃?鐃緒申鐃?鐃?BBS2ch.Free鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申XP鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?
2146     TreeView.Items.Clear;
2147    
2148     //BBS鐃?鐃緒申
2149     try
2150     for i := Length( BBSs ) - 1 downto 0 do begin
2151     if BBSs[ i ] <> nil then
2152     BBSs[ i ].Free;
2153     BBSs[ i ] := nil;
2154     end;
2155     except
2156     end;
2157    
2158     ActiveList := nil;
2159    
2160     FTreeType := gttNone;
2161    
2162     GikoSys.ListBoardFile; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
2163    
2164     // BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2165     SetBBSMenu;
2166    
2167 yoffy 1.123 ShowBBSTree( BBSs[ 0 ] );
2168 yoffy 1.143
2169     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2170 yoffy 1.146 SaveHistory;
2171 yoffy 1.272 ClearHistory;
2172 yoffy 1.143 LoadHistory;
2173    
2174     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2175 yoffy 1.287 FavoriteDM.WriteFavorite;
2176 yoffy 1.272 FavoriteDM.Clear;
2177 yoffy 1.143 FavoriteDM.ReadFavorite;
2178 yoffy 1.279
2179 yoffy 1.143 SetLinkBar;
2180    
2181 hi_ 1.1 end;
2182    
2183     //鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
2184 yoffy 1.123 procedure TGikoForm.SetBoardTreeNode(
2185     inBBS : TBBS
2186     );
2187 hi_ 1.1 var
2188 yoffy 1.120 i, j, k: integer;
2189 hi_ 1.1 Root: TTreeNode;
2190     CategoryNode: TTreeNode;
2191     BoardNode: TTreeNode;
2192     Category: TCategory;
2193     Board: TBoard;
2194     begin
2195 yoffy 1.112 // 鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
2196 yoffy 1.133 FActiveBBS := inBBS;
2197 hi_ 1.1 TreeView.Items.BeginUpdate;
2198     TreeView.Items.Clear;
2199     try
2200 q9_ 1.385 if not inBBS.IsBoardFileRead then
2201     GikoSys.ReadBoardFile( inBBS );
2202 yoffy 1.123 try
2203     if SplashWindow <> nil then
2204 yoffy 1.210 SplashWindow.ProgressBar.Max := inBBS.Count;
2205 yoffy 1.123 except
2206     end;
2207    
2208 q9_ 1.385 // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?
2209     if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
2210     Sort.SortOrder := true;
2211     Sort.SortIndex := 0;
2212     Sort.SortNoFlag := true;
2213     inBBS.Sort(CategorySortProc);
2214     end;
2215    
2216 yoffy 1.123 Root := TreeView.Items.Add( nil, inBBS.Title );
2217     Root.ImageIndex := ITEM_ICON_2CH1;
2218     Root.SelectedIndex := ITEM_ICON_2CH2;
2219     Root.Data := inBBS;
2220     for i := 0 to inBBS.Count - 1 do begin
2221     Category := TCategory(inBBS.Items[i]);
2222     CategoryNode := TreeView.Items.AddChild(Root, Category.Title);
2223     CategoryNode.Data := Category;
2224     CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
2225     CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
2226 hi_ 1.1
2227 q9_ 1.385 // 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?
2228     if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
2229     Sort.SortOrder := true;
2230     Sort.SortIndex := 0;
2231     Sort.SortNoFlag := true;
2232     Category.CustomSort(BoardSortProc);
2233     end;
2234    
2235 yoffy 1.123 for j := 0 to Category.Count - 1 do begin
2236     B