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.502 - (hide annotations) (download) (as text)
Sat Jan 15 06:16:07 2005 UTC (19 years, 3 months ago) by genyakun
Branch: MAIN
Changes since 1.501: +9 -0 lines
File MIME type: text/x-pascal
巡回出来る数に制限を設けた(500個)

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