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.503 - (hide annotations) (download) (as text)
Sun Feb 20 14:43:38 2005 UTC (19 years, 2 months ago) by genyakun
Branch: MAIN
Changes since 1.502: +27 -7 lines
File MIME type: text/x-pascal
スレッド未更新時に(・∀・)イイ!!になる問題を修正

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