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.458 - (hide annotations) (download) (as text)
Tue Oct 12 01:21:35 2004 UTC (19 years, 6 months ago) by genyakun
Branch: MAIN
Changes since 1.457: +16 -2 lines
File MIME type: text/x-pascal
2ch言語機構を一部搭載

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     N53: TMenuItem;
471     SearchBoardName: TMenuItem;
472 yoffy 1.205 TreeSelectLogDeleteSeparator: TMenuItem;
473 yoffy 1.51 TreeSelectSearchBoardName: TAction;
474 yoffy 1.100 CabinetFavoriteAction: TAction;
475     N54: TMenuItem;
476     A13: TMenuItem;
477     FavoriteTreePopupMenu: TPopupMenu;
478     FavoriteTreeViewRenameAction: TAction;
479     FavoriteTreeRenamePopupMenu: TMenuItem;
480     FavoriteTreeViewNewFolderAction: TAction;
481     FavoriteTreeNewFolderPopupMenu: TMenuItem;
482     N56: TMenuItem;
483     FavoriteTreeViewDeleteAction: TAction;
484     FavoriteTreeDeletePopupMenu: TMenuItem;
485     FavoriteToolBar: TToolBar;
486     ToolButton17: TToolButton;
487     ToolButton19: TToolButton;
488     FavoriteTreeViewBrowseFolderAction: TAction;
489     FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
490     N57: TMenuItem;
491     FavoriteTreeReloadPopupMenu: TMenuItem;
492     N58: TMenuItem;
493     FavoriteTreeURLCopyPopupMenu: TMenuItem;
494     FavoriteTreeNameCopyPopupMenu: TMenuItem;
495     FavoriteTreeLogDeletePopupMenu: TMenuItem;
496     N59: TMenuItem;
497     FavoriteTreeNameURLCopyPopupMenu: TMenuItem;
498     FavoriteTreeViewReloadAction: TAction;
499     FavoriteTreeViewURLCopyAction: TAction;
500     FavoriteTreeViewNameCopyAction: TAction;
501     FavoriteTreeViewNameURLCopyAction: TAction;
502     FavoriteTreeViewLogDeleteAction: TAction;
503 yoffy 1.375 ResRangeAction: TAction;
504 yoffy 1.100 ToolButton20: TToolButton;
505 yoffy 1.375 ResRangeButton: TToolButton;
506 yoffy 1.100 N60: TMenuItem;
507 yoffy 1.107 ExportFavoriteFileAction1: TMenuItem;
508     ExportFavoriteFile: TFileSaveAs;
509 yoffy 1.141 ToolButton21: TToolButton;
510 yoffy 1.322 CabinetBBSToolButton: TToolButton;
511 yoffy 1.141 ToolButton23: TToolButton;
512     ToolButton24: TToolButton;
513 yoffy 1.142 N6: TMenuItem;
514     N17: TMenuItem;
515     FavoriteTreeViewBrowseBoardAction: TAction;
516     FavoriteTreeViewBrowseThreadAction: TAction;
517 yoffy 1.158 UpBoardAction: TAction;
518 h677 1.174 N18: TMenuItem;
519     N20: TMenuItem;
520     N24: TMenuItem;
521     N62: TMenuItem;
522 h677 1.176 N61: TMenuItem;
523 h677 1.183 N63: TMenuItem;
524     KoreCopy: TAction;
525     N64: TMenuItem;
526 h677 1.187 dummy1: TMenuItem;
527 yoffy 1.205 TreeSelectLogDeletePopupMenu: TMenuItem;
528     N65: TMenuItem;
529 yoffy 1.209 BBSSelectPopupMenu: TPopupMenu;
530 yoffy 1.218 PlugInMenu: TMenuItem;
531 h677 1.407 TmpToolBar: TToolBar;
532 yoffy 1.252 TreeSelectNameCopy: TAction;
533     TreeSelectNamePupupMenu: TMenuItem;
534 h677 1.299 BrowserPanel: TPanel;
535 h677 1.315 SetFocusForBrowserAction: TAction;
536     SetFocusForThreadListAction: TAction;
537     SetFocusForCabinetAction: TAction;
538 h677 1.318 FileRun1: TFileRun;
539 h677 1.319 ThreadlistMaxAndFocusAction: TAction;
540     BrowserMaxAndFocusAction: TAction;
541 yoffy 1.322 UpBoardButton: TToolButton;
542 yoffy 1.329 SelectTimer: TTimer;
543 h677 1.340 SelectThreadSave: TMenuItem;
544     SelectItemSaveForHTML: TAction;
545     FileSaveAs1: TFileSaveAs;
546 h677 1.342 N55: TMenuItem;
547 h677 1.343 N66: TMenuItem;
548     dat1: TMenuItem;
549     SelectItemSaveForDat: TAction;
550 h677 1.345 LogFolderOpenAction: TAction;
551 yoffy 1.397 OpenLogFolder: TMenuItem;
552 h677 1.346 Browser: TWebBrowser;
553 genyakun 1.353 TabSave: TMenuItem;
554 h677 1.407 TabOpen: TMenuItem;
555 yoffy 1.397 TabsSaveAction: TAction;
556 h677 1.365 TabsOpenAction: TAction;
557 yoffy 1.375 ResRangePopupMenu: TPopupMenu;
558     N1001: TMenuItem;
559     N501: TMenuItem;
560     N22: TMenuItem;
561 yoffy 1.389 OnlyAHundredResAction: TAction;
562 yoffy 1.375 OnlyNewResAction: TAction;
563     OnlyKokoResAction: TAction;
564 yoffy 1.380 A14: TMenuItem;
565 h677 1.386 BrowsBoradHeadAction: TAction;
566     BrowsBoradHeadAction1: TMenuItem;
567 yoffy 1.390 ThreadRangeAction: TAction;
568     ThreadRangePopupMenu: TPopupMenu;
569     A15: TMenuItem;
570     L8: TMenuItem;
571     N67: TMenuItem;
572     N68: TMenuItem;
573     S6: TMenuItem;
574     N69: TMenuItem;
575     S7: TMenuItem;
576     ThreadRangeButton: TToolButton;
577 h677 1.407 TabAutoSaveAction: TAction;
578 genyakun 1.393 TabAutoLoadAction: TAction;
579 yoffy 1.415 ListColumnPopupMenu: TPopupMenu;
580 h677 1.429 JumpToNumOfResAction: TAction;
581 yoffy 1.432 FavoriteTreeViewCollapseAction: TAction;
582 yoffy 1.251 procedure FormCreate(Sender: TObject);
583 hi_ 1.1 procedure FormDestroy(Sender: TObject);
584     procedure CabinetPanelHide(Sender: TObject);
585     procedure ListViewData(Sender: TObject; Item: TListItem);
586     procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
587     const FindString: String; const FindPosition: TPoint;
588     FindData: Pointer; StartIndex: Integer; Direction: TSearchDirection;
589     Wrap: Boolean; var Index: Integer);
590     procedure ListViewDataHint(Sender: TObject; StartIndex,
591     EndIndex: Integer);
592     procedure ListViewDataStateChange(Sender: TObject; StartIndex,
593     EndIndex: Integer; OldState, NewState: TItemStates);
594     procedure BrowserStatusTextChange(Sender: TObject;
595     const Text: WideString);
596     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
597     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
598     var AllowChange: Boolean);
599     procedure ListViewKeyDown(Sender: TObject; var Key: Word;
600     Shift: TShiftState);
601     procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
602 q9_ 1.369 procedure ListViewSort(Sender: TObject; Column: TListColumn);
603 hi_ 1.1 procedure MenuToolBarCustomDrawButton(Sender: TToolBar;
604     Button: TToolButton; State: TCustomDrawState;
605     var DefaultDraw: Boolean);
606     procedure BrowserBeforeNavigate2(Sender: TObject;
607     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
608     Headers: OleVariant; var Cancel: WordBool);
609     procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
610     Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
611     var DefaultDraw: Boolean);
612     procedure TreeViewCustomDraw(Sender: TCustomTreeView;
613     const ARect: TRect; var DefaultDraw: Boolean);
614     procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
615     Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
616     procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
617     procedure TreeViewDblClick(Sender: TObject);
618     procedure ListViewCustomDraw(Sender: TCustomListView;
619     const ARect: TRect; var DefaultDraw: Boolean);
620     procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
621     Shift: TShiftState; X, Y: Integer);
622     procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
623     procedure MessageListViewResize(Sender: TObject);
624     procedure ExitActionExecute(Sender: TObject);
625     procedure AllSelectActionExecute(Sender: TObject);
626     procedure StdToolBarVisibleActionExecute(Sender: TObject);
627     procedure MsgBarVisibleActionExecute(Sender: TObject);
628     procedure StatusBarVisibleActionExecute(Sender: TObject);
629     procedure LargeIconActionExecute(Sender: TObject);
630     procedure SmallIconActionExecute(Sender: TObject);
631     procedure ListIconActionExecute(Sender: TObject);
632     procedure DetailIconActionExecute(Sender: TObject);
633     procedure SearchActionExecute(Sender: TObject);
634     procedure OptionActionExecute(Sender: TObject);
635     procedure GikoNaviWebPageActionExecute(Sender: TObject);
636     procedure AboutActionExecute(Sender: TObject);
637     procedure CabinetHistoryActionExecute(Sender: TObject);
638 yoffy 1.138 procedure CabinetVisible( isVisible : Boolean );
639 hi_ 1.1 procedure CabinetVisibleActionExecute(Sender: TObject);
640     procedure AllItemActionExecute(Sender: TObject);
641     procedure LogItemActionExecute(Sender: TObject);
642     procedure NewItemActionExecute(Sender: TObject);
643     procedure SelectItemActionExecute(Sender: TObject);
644     procedure ListNumberVisibleActionExecute(Sender: TObject);
645     procedure UpFolderActionExecute(Sender: TObject);
646     procedure IconStyleExecute(Sender: TObject);
647     procedure RoundActionExecute(Sender: TObject);
648     procedure StopActionExecute(Sender: TObject);
649     procedure MsgBarCloseActionExecute(Sender: TObject);
650     procedure BrowserMaxActionExecute(Sender: TObject);
651     procedure ScrollTopActionExecute(Sender: TObject);
652     procedure ScrollLastActionExecute(Sender: TObject);
653     procedure ScrollNewActionExecute(Sender: TObject);
654     procedure ScrollKokoActionExecute(Sender: TObject);
655     procedure EditorActionExecute(Sender: TObject);
656     procedure IEActionExecute(Sender: TObject);
657     procedure ShowThreadActionExecute(Sender: TObject);
658     procedure ShowBoardActionExecute(Sender: TObject);
659     procedure URLCopyActionExecute(Sender: TObject);
660     procedure ItemReloadActionExecute(Sender: TObject);
661     procedure SelectListReloadActionExecute(Sender: TObject);
662     procedure SelectThreadReloadActionExecute(Sender: TObject);
663     procedure SelectListReloadActionUpdate(Sender: TObject);
664     procedure AllItemActionUpdate(Sender: TObject);
665     procedure LogItemActionUpdate(Sender: TObject);
666     procedure NewItemActionUpdate(Sender: TObject);
667     procedure SelectItemActionUpdate(Sender: TObject);
668     procedure UpFolderActionUpdate(Sender: TObject);
669     procedure FormResize(Sender: TObject);
670     procedure ScrollTopActionUpdate(Sender: TObject);
671     procedure ScrollLastActionUpdate(Sender: TObject);
672     procedure ScrollNewActionUpdate(Sender: TObject);
673     procedure ScrollKokoActionUpdate(Sender: TObject);
674     procedure EditorActionUpdate(Sender: TObject);
675     procedure IEActionUpdate(Sender: TObject);
676     procedure ShowThreadActionUpdate(Sender: TObject);
677     procedure ShowBoardActionUpdate(Sender: TObject);
678     procedure SelectThreadReloadActionUpdate(Sender: TObject);
679 yoffy 1.51 procedure ItemReloadActionUpdate(Sender: TObject);
680     procedure LogDeleteActionExecute(Sender: TObject);
681 hi_ 1.1 procedure KokomadeActionExecute(Sender: TObject);
682     procedure ZenbuActionExecute(Sender: TObject);
683 yoffy 1.51 procedure KokoResActionExecute(Sender: TObject);
684 hi_ 1.1 procedure ListPopupMenuPopup(Sender: TObject);
685     procedure SelectItemURLCopyActionExecute(Sender: TObject);
686     procedure SelectItemURLCopyActionUpdate(Sender: TObject);
687     procedure AllSelectActionUpdate(Sender: TObject);
688     procedure LogDeleteActionUpdate(Sender: TObject);
689     procedure BrowserTabCloseActionExecute(Sender: TObject);
690     procedure NotSelectTabCloseActionExecute(Sender: TObject);
691     procedure TreeSelectBoradReloadExecute(Sender: TObject);
692     procedure TreeSelectThreadReloadExecute(Sender: TObject);
693     procedure TreeSelectURLCopyExecute(Sender: TObject);
694     procedure TreePopupMenuPopup(Sender: TObject);
695     procedure ListToolBarVisibleActionExecute(Sender: TObject);
696     procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
697     procedure BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
698     var Cancel: WordBool);
699     procedure ListSplitterCanResize(Sender: TObject; var NewSize: Integer;
700     var Accept: Boolean);
701     procedure ListSplitterMoved(Sender: TObject);
702     procedure BrowserTabChange(Sender: TObject);
703     procedure BrowserTabMouseDown(Sender: TObject; Button: TMouseButton;
704     Shift: TShiftState; X, Y: Integer);
705     procedure BrowserTabDragOver(Sender, Source: TObject; X, Y: Integer;
706     State: TDragState; var Accept: Boolean);
707     procedure BrowserTabDragDrop(Sender, Source: TObject; X, Y: Integer);
708     procedure BrowserTabMouseMove(Sender: TObject; Shift: TShiftState; X,
709     Y: Integer);
710     procedure BrowserDocumentComplete(Sender: TObject;
711     const pDisp: IDispatch; var URL: OleVariant);
712     procedure SelectReservActionUpdate(Sender: TObject);
713     procedure RoundNamePopupMenuPopup(Sender: TObject);
714     procedure SelectNewRoundNameExecute(Sender: TObject);
715     procedure SelectDeleteRoundExecute(Sender: TObject);
716     procedure SelectReservActionExecute(Sender: TObject);
717     procedure NewBoardActionExecute(Sender: TObject);
718     procedure LoginActionExecute(Sender: TObject);
719     procedure KeySettingActionExecute(Sender: TObject);
720     procedure AllTabCloseActionExecute(Sender: TObject);
721 yoffy 1.51 procedure ArrangeActionExecute(Sender: TObject);
722     procedure NameURLCopyActionExecute(Sender: TObject);
723     procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
724 hi_ 1.1 procedure URLCopyActionUpdate(Sender: TObject);
725 yoffy 1.2 procedure NameURLCopyActionUpdate(Sender: TObject);
726 hi_ 1.1 procedure BrowserTabCloseActionUpdate(Sender: TObject);
727 yoffy 1.51 procedure NotSelectTabCloseActionUpdate(Sender: TObject);
728 hi_ 1.1 procedure AllTabCloseActionUpdate(Sender: TObject);
729     procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);
730     procedure ActiveLogDeleteActionExecute(Sender: TObject);
731     procedure ActiveLogDeleteActionUpdate(Sender: TObject);
732 yoffy 1.51 procedure ListNameBarVisibleActionExecute(Sender: TObject);
733 hi_ 1.1 procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
734 yoffy 1.51 procedure TreeSelectNameURLCopyExecute(Sender: TObject);
735     procedure PaneInitActionExecute(Sender: TObject);
736 hi_ 1.1 procedure FormShow(Sender: TObject);
737     procedure BrowserTabToolBarResize(Sender: TObject);
738     procedure BrowserMinActionExecute(Sender: TObject);
739 yoffy 1.51 procedure SelectTextClearActionExecute(Sender: TObject);
740 hi_ 1.1 procedure NameTextClearActionExecute(Sender: TObject);
741 yoffy 1.51 procedure MailTextClearActionExecute(Sender: TObject);
742     procedure LeftmostTabSelectActionExecute(Sender: TObject);
743     procedure LeftTabSelectActionExecute(Sender: TObject);
744 hi_ 1.1 procedure RightTabSelectActionExecute(Sender: TObject);
745     procedure RightmostTabSelectActionExecute(Sender: TObject);
746     procedure LeftmostTabSelectActionUpdate(Sender: TObject);
747     procedure LeftTabSelectActionUpdate(Sender: TObject);
748     procedure RightTabSelectActionUpdate(Sender: TObject);
749     procedure RightmostTabSelectActionUpdate(Sender: TObject);
750     procedure FavoriteMenuClick(Sender: TObject);
751     procedure FavoriteAddActionExecute(Sender: TObject);
752     procedure FavoriteAddActionUpdate(Sender: TObject);
753     procedure BoardFavoriteAddActionExecute(Sender: TObject);
754     procedure BoardFavoriteAddActionUpdate(Sender: TObject);
755 yoffy 1.51 procedure ThreadFavoriteAddActionExecute(Sender: TObject);
756 hi_ 1.1 procedure ThreadFavoriteAddActionUpdate(Sender: TObject);
757 yoffy 1.51 procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
758 yoffy 1.2 procedure FavoriteArrangeActionExecute(Sender: TObject);
759     procedure MainCoolBarResize(Sender: TObject);
760 hi_ 1.1 procedure MoveToActionExecute(Sender: TObject);
761 yoffy 1.2 procedure AddressToolBarResize(Sender: TObject);
762 hi_ 1.1 procedure AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
763     Shift: TShiftState);
764 yoffy 1.51 procedure AddressBarVisibleActionExecute(Sender: TObject);
765 yoffy 1.2 procedure BrowserEnter(Sender: TObject);
766 hi_ 1.1 procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
767 yoffy 1.51 procedure BrowserTabVisibleActionExecute(Sender: TObject);
768     procedure BrowserTabTopActionExecute(Sender: TObject);
769     procedure BrowserTabBottomActionExecute(Sender: TObject);
770     procedure BrowserTabTabStyleActionExecute(Sender: TObject);
771 hi_ 1.1 procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
772 yoffy 1.51 procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
773 hi_ 1.1 procedure PreviewTimerTimer(Sender: TObject);
774     procedure MessageHideButtonClick(Sender: TObject);
775     procedure MonazillaWebPageActionExecute(Sender: TObject);
776     procedure GikoHelpActionExecute(Sender: TObject);
777     procedure ToolButton18Click(Sender: TObject);
778     procedure KotehanActionExecute(Sender: TObject);
779 yoffy 1.51 procedure LinkBarVisibleActionExecute(Sender: TObject);
780     procedure BBS2chWebPageActionExecute(Sender: TObject);
781     procedure GikoFolderOpenActionExecute(Sender: TObject);
782 yoffy 1.2 procedure MainCoolBarBandInfo(Sender: TObject;
783     var BandInfo: PReBarBandInfoA);
784     procedure MainCoolBarChevronClick(Sender: TObject;
785 yoffy 1.51 RebarChevron: PNMRebarChevron);
786     procedure ListCoolBarBandInfo(Sender: TObject;
787     var BandInfo: PReBarBandInfoA);
788     procedure ListCoolBarChevronClick(Sender: TObject;
789     RebarChevron: PNMRebarChevron);
790     procedure BrowserCoolBarBandInfo(Sender: TObject;
791     var BandInfo: PReBarBandInfoA);
792 yoffy 1.2 procedure BrowserCoolBarChevronClick(Sender: TObject;
793 yoffy 1.51 RebarChevron: PNMRebarChevron);
794     procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
795     procedure ThreadEditorActionExecute(Sender: TObject);
796 yoffy 1.2 procedure ThreadEditorActionUpdate(Sender: TObject);
797 yoffy 1.51 procedure ToolBarSettingActionExecute(Sender: TObject);
798     procedure NameCopyActionExecute(Sender: TObject);
799     procedure BoardIEActionExecute(Sender: TObject);
800     procedure SelectItemNameCopyActionExecute(Sender: TObject);
801 yoffy 1.2 procedure SelectItemNameCopyActionUpdate(Sender: TObject);
802 yoffy 1.51 procedure BoardIEActionUpdate(Sender: TObject);
803     procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
804     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
805     procedure NameCopyActionUpdate(Sender: TObject);
806     procedure SelectComboBoxChange(Sender: TObject);
807     procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
808     Shift: TShiftState);
809     procedure SelectComboBoxExit(Sender: TObject);
810     procedure SelectResActionExecute(Sender: TObject);
811     procedure SelectResActionUpdate(Sender: TObject);
812     procedure AllResActionExecute(Sender: TObject);
813     procedure AllResActionUpdate(Sender: TObject);
814     procedure ReloadClick(Sender: TObject);
815     procedure GoBackClick(Sender: TObject);
816     procedure GoFowardClick(Sender: TObject);
817     procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
818     Shift: TShiftState; X, Y: Integer);
819     procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
820     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
821     procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
822     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
823     procedure StatusBarResize(Sender: TObject);
824     procedure IndividualAbon1Click(Sender: TObject);
825     procedure IndividualAbon2Click(Sender: TObject);
826     procedure N42Click(Sender: TObject);
827     procedure SelectComboBoxEnter(Sender: TObject);
828     procedure AntiIndividualAbonClick(Sender: TObject);
829     procedure N51Click(Sender: TObject);
830     procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
831 yoffy 1.100 procedure CabinetFavoriteActionExecute(Sender: TObject);
832     procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
833     Y: Integer);
834 yoffy 1.71 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
835 yoffy 1.100 procedure FavoriteTreeViewEdited(Sender: TObject; Node: TTreeNode;
836     var S: String);
837     procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
838     Shift: TShiftState);
839     procedure FavoriteTreePopupMenuPopup(Sender: TObject);
840     procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
841     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
842     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
843     procedure ToolButton19Click(Sender: TObject);
844     procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
845     procedure FavoriteTreeViewDblClick(Sender: TObject);
846     procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
847     procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
848     procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
849     procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
850     procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
851     procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
852     procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
853     Shift: TShiftState; X, Y: Integer);
854     procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
855     State: TDragState; var Accept: Boolean);
856 yoffy 1.375 procedure ResRangeActionExecute(Sender: TObject);
857 yoffy 1.100 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
858     Y: Integer);
859     procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
860     var Handled: Boolean);
861     procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
862     var Handled: Boolean);
863     procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
864     var Handled: Boolean);
865 yoffy 1.107 procedure ExportFavoriteFileAccept(Sender: TObject);
866     procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
867 yoffy 1.139 procedure CabinetBBSActionExecute(Sender: TObject);
868 yoffy 1.142 procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
869     procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
870 yoffy 1.158 procedure UpBoardActionExecute(Sender: TObject);
871     procedure UpBoardActionUpdate(Sender: TObject);
872 h677 1.174 procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
873     var Handled: Boolean);
874 h677 1.183 procedure KoreCopyExecute(Sender: TObject);
875 h677 1.187 procedure BrowserTabPopupMenuPopup(Sender: TObject);
876 h677 1.407 procedure MenuToolBarResize(Sender: TObject);
877 yoffy 1.216 procedure StdToolBarResize(Sender: TObject);
878     procedure LinkToolBarResize(Sender: TObject);
879     procedure ListNameToolBarResize(Sender: TObject);
880     procedure ListToolBarResize(Sender: TObject);
881     procedure BrowserNameToolBarResize(Sender: TObject);
882     procedure BrowserToolBarResize(Sender: TObject);
883     procedure BrowserTabResize(Sender: TObject);
884 h677 1.318 procedure TreeViewClick(Sender: TObject);
885 yoffy 1.236 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
886     Shift: TShiftState);
887 yoffy 1.246 procedure FavoriteTreeViewMouseDown(Sender: TObject;
888 yoffy 1.248 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
889 yoffy 1.250 procedure MessagePanelResize(Sender: TObject);
890 yoffy 1.276 procedure OnResized;
891 yoffy 1.252 procedure TreeSelectNameCopyExecute(Sender: TObject);
892 yoffy 1.260 procedure FavoriteTreeViewMouseUp(Sender: TObject;
893     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
894 yoffy 1.375 procedure ResRangeActionUpdate(Sender: TObject);
895 yoffy 1.370 procedure SetFocusForBrowserActionExecute(Sender: TObject);
896     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
897 h677 1.315 procedure SetFocusForThreadListActionExecute(Sender: TObject);
898     procedure SetFocusForCabinetActionExecute(Sender: TObject);
899 h677 1.407 procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
900 h677 1.319 procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
901     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
902 h677 1.320 procedure ListViewExit(Sender: TObject);
903 h677 1.321 procedure SetFocusForCabinetActionUpdate(Sender: TObject);
904 yoffy 1.327 procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
905     Selected: Boolean);
906 yoffy 1.329 procedure SelectTimerTimer(Sender: TObject);
907 h677 1.340 procedure SelectItemSaveForHTMLExecute(Sender: TObject);
908 h677 1.341 procedure KidokuActionExecute(Sender: TObject);
909     procedure MidokuActionExecute(Sender: TObject);
910 h677 1.343 procedure SelectItemSaveForDatExecute(Sender: TObject);
911 h677 1.345 procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
912     NewHeight: Integer; var Resize: Boolean);
913     procedure LogFolderOpenActionExecute(Sender: TObject);
914     procedure LogFolderOpenActionUpdate(Sender: TObject);
915 yoffy 1.397 procedure TabsSaveActionExecute(Sender: TObject);
916     procedure TabsOpenActionExecute(Sender: TObject);
917     procedure TabsSaveToFileActionExecute(Sender: TObject);
918 h677 1.365 procedure TabsOpenFromFileActionExecute(Sender: TObject);
919 yoffy 1.389 procedure OnlyAHundredResActionExecute(Sender: TObject);
920 yoffy 1.375 procedure OnlyKokoResActionExecute(Sender: TObject);
921     procedure OnlyNewResActionExecute(Sender: TObject);
922 h677 1.407 procedure BrowsBoradHeadActionExecute(Sender: TObject);
923 h677 1.388 procedure BrowsBoradHeadActionUpdate(Sender: TObject);
924     procedure EditNGActionExecute(Sender: TObject);
925 yoffy 1.390 procedure ThreadRangeActionUpdate(Sender: TObject);
926     procedure ThreadRangeActionExecute(Sender: TObject);
927 yoffy 1.425 procedure TabAutoSaveActionExecute(Sender: TObject);
928 genyakun 1.393 procedure TabAutoLoadActionExecute(Sender: TObject);
929 yoffy 1.425 procedure ListViewColumnRightClick(Sender: TObject;
930 yoffy 1.415 Column: TListColumn; Point: TPoint);
931 h677 1.429 procedure JumpToNumOfResActionExecute(Sender: TObject);
932     procedure JumpToNumOfResActionUpdate(Sender: TObject);
933 yoffy 1.432 procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
934 hi_ 1.1 private
935     { Private 鐃緒申鐃緒申 }
936 h677 1.182 //RoundList : TRoundList;
937 hi_ 1.1 FSortIndex: Integer;
938     FSortOrder: Boolean;
939    
940     FEnabledCloseButton: Boolean;
941     // ThreadCreate: TThreadCreate;
942    
943     FClickNode: TTreeNode;
944     FHttpState: Boolean;
945     FHint: TResPopup;
946 h677 1.453 FPreviewBrowser: TWebBrowser;
947 hi_ 1.1 FPreviewURL: string;
948    
949     FBrowserSizeHeight: Integer;
950     FBrowserSizeWidth: Integer;
951    
952     // FFavorite: TFavorite;
953     FTabHintIndex: Integer;
954     FListStyle: TViewStyle; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
955     FItemNoVisible: Boolean; //鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?
956     FViewType: TGikoViewType; //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?
957 yoffy 1.123 FActiveList: TObject;
958 h677 1.299 FActiveContent: TBrowserRecord; //
959 yoffy 1.133 FActiveBBS : TBBS;
960 hi_ 1.1 FHistoryList: TList; //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?
961     FTreeType: TGikoTreeType;
962     FWorkCount: Integer;
963     FNameCookie: string;
964     FMailCookie: string;
965     // FLastRoundTime: TDateTime;
966 h677 1.299 BrowserNullTab: TBrowserRecord;
967 hi_ 1.1 // DoubleClickOccurred: array [TMouseButton] of Boolean;
968     FDownloadTitle: string; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
969     FDownloadMax: Integer; //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?
970     FEvent: THTMLDocumentEventSink;//鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
971 h677 1.14
972 h677 1.192 // Fkeynum : Integer; //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
973 yoffy 1.29
974 yoffy 1.51 IsDraggingSelectComboBox : Boolean;
975     DraggingSelectComboBoxPosition : TPoint;
976 yoffy 1.29
977 yoffy 1.54 FSearchDialog: TSearchDialog;
978 yoffy 1.49
979 yoffy 1.100 FDropSpaceNode: TTreeNode;
980 yoffy 1.74
981 yoffy 1.424 FDragTime : Cardinal; ///< 鐃緒申鐃緒申鐃?鐃緒申D&D鐃?
982     FDragButton : TToolButton; ///< 鐃緒申鐃緒申鐃?鐃緒申D&D鐃?鐃緒申Drag鐃緒申鐃緒申鐃緒申Button鐃緒申鐃緒申
983     FDragWFirst : Boolean; ///< WebTab鐃緒申D&D鐃?
984    
985     FListViewBackGroundColor : TColor; ///< ListView鐃緒申BackGroundColor
986     FUseOddResOddColor : Boolean; ///< 鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申
987     FOddColor : TColor; ///< 鐃緒申鐃緒申鐃?
988    
989     FSelectResWord : string; ///< 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?
990     FIsIgnoreResize : TResizeType; ///< 鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
991     FIsMinimize : TMinimizeType; ///< 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
992     FOldFormWidth : Integer; ///< 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
993     FToolBarSettingSender : TToolBarSettingSenderType; ///< 鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?
994     FMouseDownPos : TPoint; ///< 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
995 h677 1.303 FBrowsers: TList;
996 yoffy 1.424 FResRangeMenuSelect : Longint; ///< ResRangeButton 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 (鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申 ResRange 鐃緒申鐃緒申)
997 h677 1.423 FStartUp : Boolean;
998 yoffy 1.427 FIsHandledWheel : Boolean; ///< 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 WM_MOUSEWHEEL 鐃緒申鐃緒申鐃緒申鐃緒申
999 yoffy 1.123 procedure SetBoardTreeNode( inBBS : TBBS );
1000     function SetCategoryListItem(ABBS2ch: TBBS): Integer;
1001 hi_ 1.1 function SetBoardListItem(Category: TCategory): Integer;
1002     function SetThreadListItem(Board: TBoard): Integer;
1003     // function GetRoundName(index: integer): string;
1004    
1005     procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
1006     procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
1007 q9_ 1.233 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
1008 hi_ 1.1 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
1009     procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
1010    
1011 h677 1.433
1012 hi_ 1.1 procedure ListClick;
1013 h677 1.295 procedure ListDoubleClick(Shift: TShiftState);
1014 h677 1.299 procedure BrowserMovement(const AName: string); overload;
1015     procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1016 hi_ 1.1 procedure SelectListItem(List: TList);
1017     // procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);
1018 h677 1.299 procedure DeleteTab(ThreadItem: TThreadItem); overload;
1019     procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1020 hi_ 1.1 function Hook(var Message: TMessage): Boolean;
1021     procedure AddRoundNameMenu(MenuItem: TMenuItem);
1022 h677 1.188 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
1023 yoffy 1.236 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
1024 hi_ 1.1 procedure SetSelectRoundName(Sender: TObject);
1025     function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
1026    
1027     procedure SetMenuFont;
1028     // procedure CreateFavMenu(Folder: TFavoriteFolder);
1029     procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
1030 yoffy 1.62 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
1031     procedure FavoriteClick(Sender: TObject); overload;
1032 yoffy 1.100 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
1033 yoffy 1.2 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1034 hi_ 1.1 function OnDocumentContextMenu(Sender: TObject): WordBool;
1035     // function GetThreadText(sBoard: string; sThread: string; StNum, ToNum: Integer; Title, First: Boolean): string;
1036 yoffy 1.123 procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
1037 hi_ 1.1 procedure ShowTextPopup;
1038     //procedure ShowTextPopup(HintData: THintData);
1039 yoffy 1.2 // procedure SetStdToolBar;
1040     // function GetAction(ActionName: string): TContainedAction;
1041 hi_ 1.1 procedure SetLinkBar;
1042     function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
1043 yoffy 1.2 procedure MenuBarChevronMenu;
1044     procedure LinkBarChevronMenu;
1045     procedure ToolBarChevronMenu(ToolBar: TToolBar);
1046 yoffy 1.51 procedure ModifySelectList;
1047 yoffy 1.100 procedure FavoriteBrowseFolder( node: TTreeNode );
1048     procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1049     procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1050     procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
1051     procedure LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1052 yoffy 1.85 procedure LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
1053 yoffy 1.72 function TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
1054 yoffy 1.100 procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
1055     procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
1056 yoffy 1.72 procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
1057 yoffy 1.236 //
1058 yoffy 1.143 procedure SetListViewBackGroundColor(value: TColor);
1059 yoffy 1.123 procedure BBSMenuItemOnClick( Sender : TObject );
1060 yoffy 1.236 //
1061     procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1062 yoffy 1.424 /// CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1063 yoffy 1.216 procedure SaveCoolBarSettings;
1064 yoffy 1.424 /// CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1065 yoffy 1.216 procedure LoadCoolBarSettings;
1066 yoffy 1.424 /// 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1067 yoffy 1.276 procedure OnMinimize;
1068 yoffy 1.424 /// 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1069 yoffy 1.248 procedure OnMinimized;
1070 yoffy 1.424 /// CoolBar 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1071 yoffy 1.216 procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1072 yoffy 1.424 /// TreeView 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1073 yoffy 1.236 procedure TreeClick( Node : TTreeNode );
1074 yoffy 1.424 /// TreeView 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1075 yoffy 1.236 procedure TreeDoubleClick( Node : TTreeNode );
1076 yoffy 1.424 /// 鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1077 yoffy 1.236 procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1078 yoffy 1.424 /// 鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1079     /// 鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 True 鐃緒申鐃緒申鐃緒申
1080 h677 1.454 // function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1081 yoffy 1.424 /// 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1082 yoffy 1.289 procedure SetBBSMenu;
1083 h677 1.315 function WebBrowserClick(Sender: TObject): WordBool;
1084 h677 1.343 procedure SkinorCSSFilesCopy(path: string);
1085 yoffy 1.424 /// 鐃?鐃?鐃緒申鐃緒申
1086 yoffy 1.397 function GetTabURLs(AStringList: TStringList) : Boolean;
1087 yoffy 1.424 /// 鐃?鐃?鐃緒申鐃緒申
1088 yoffy 1.397 function SaveTabURLs : Boolean;
1089 yoffy 1.424 /// 鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1090 yoffy 1.397 function LoadTabURLs : Boolean;
1091 yoffy 1.424 /// 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1092 yoffy 1.364 procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1093 yoffy 1.413 /// ListView 鐃緒申 Column 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1094     function ActiveListTrueColumn( column : TListColumn ) : TListColumn;
1095 yoffy 1.415 /// ListColumnPopupMenu 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?
1096     procedure ListColumnPopupMenuOnClick( Sender : TObject );
1097 h677 1.454 // BrowserRecord鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申FBrowser鐃緒申鐃?鐃緒申
1098     procedure ReleaseBrowser( BRecord: TBrowserRecord);
1099 yoffy 1.456 //! 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?
1100     procedure OnGestureStart(Sender: TObject);
1101     //! 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申
1102     procedure OnGestureMove(Sender: TObject);
1103     //! 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申
1104     procedure OnGestureEnd(Sender: TObject);
1105 hi_ 1.1 protected
1106     procedure CreateParams(var Params: TCreateParams); override;
1107 yoffy 1.2 procedure WndProc(var Message: TMessage); override;
1108 hi_ 1.1 procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
1109     procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
1110     procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
1111 yoffy 1.216
1112 hi_ 1.1 public
1113     { Public 鐃緒申鐃緒申 }
1114     FControlThread: TThreadControl;
1115 yoffy 1.444 procedure MoveToURL(const inURL: string);
1116     function InsertBrowserTab(
1117     ThreadItem : TThreadItem;
1118     ActiveTab : Boolean = True
1119     ) : TBrowserRecord;
1120 hi_ 1.1 procedure ReloadBBS;
1121     function GetHttpState: Boolean;
1122     procedure SetEnabledCloseButton(Enabled: Boolean);
1123     function GetTreeNode(Data: TObject): TTreeNode;
1124     procedure AppFormDeactivate(Sender: TObject);
1125     procedure ListViewAllSelect;
1126     property ListStyle: TViewStyle read FListStyle write FListStyle;
1127     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1128     property ViewType: TGikoViewType read FViewType write FViewType;
1129     property NameCookie: string read FNameCookie write FNameCookie;
1130     property MailCookie: string read FMailCookie write FMailCookie;
1131 h677 1.299 procedure SetContent(inThread: TBrowserRecord);
1132 hi_ 1.1 function GetActiveContent: TThreadItem;
1133     function GetActiveList: TObject;
1134     procedure SetListViewType(AViewType: TGikoViewType); overload;
1135     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1136 q9_ 1.294 procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1137     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1138 hi_ 1.1 procedure PlaySound(SoundEventName: string);
1139 yoffy 1.136 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1140     procedure DeleteHistory( threadItem: TThreadItem );
1141 hi_ 1.1 procedure ClearHistory;
1142 yoffy 1.135 procedure SaveHistory;
1143     procedure LoadHistory;
1144 yoffy 1.123 procedure ShowBBSTree( inBBS : TBBS );
1145 yoffy 1.248 procedure ShowBBSTreeOld( inBBS : TBBS );
1146 hi_ 1.1 procedure ShowHistoryTree;
1147     procedure SetHistoryTreeNode;
1148     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1149     procedure SetBrowserTabState;
1150 yoffy 1.2 procedure SetToolBarPopup;
1151 yoffy 1.100 procedure ShowFavoriteAddDialog( Item : TObject );
1152 h677 1.433 procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1153     procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1154 yoffy 1.143 property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1155     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1156     property OddColor : TColor read FOddColor write FOddColor;
1157 yoffy 1.209 function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1158 yoffy 1.218 procedure OnPlugInMenuItem( Sender : TObject );
1159 h677 1.433 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1160     /// ListView 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申 KuroutSetting鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1161     procedure ActiveListColumnSave;
1162     procedure SetActiveList(Obj: TObject);
1163     property ActiveList: TObject read GetActiveList write SetActiveList;
1164 hi_ 1.1 published
1165     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1166     end;
1167    
1168     TFavoriteMenuItem = class(TMenuItem)
1169     private
1170     FData : Pointer;
1171     public
1172     property Data: Pointer read FData write FData;
1173     end;
1174    
1175 yoffy 1.123 TBBSMenuItem = class(TMenuItem)
1176     private
1177     FData : Pointer;
1178     public
1179     property Data: Pointer read FData write FData;
1180     end;
1181    
1182 hi_ 1.1 TLinkToolButton = class(TToolButton)
1183     private
1184     FData : Pointer;
1185     public
1186     property Data: Pointer read FData write FData;
1187     end;
1188    
1189 h677 1.299 TBrowserRecord = class( TObject )
1190     private
1191     FBrowser : TWebBrowser;
1192 yoffy 1.455 FEvent: THTMLDocumentEventSink; ///< 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1193 h677 1.299 FThread : TThreadItem;
1194     FLastSize : Integer;
1195     FRepaint : Boolean;
1196 yoffy 1.455 FMovement : string; ///< 鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?
1197 h677 1.299 public
1198     destructor Destroy; override;
1199     property Browser : TWebBrowser read FBrowser write FBrowser;
1200     property Thread : TThreadItem read FThread write FThread;
1201     property LastSize : Integer read FLastSize write FLastSize;
1202     property Repaint : Boolean read FRepaint write FRepaint;
1203 yoffy 1.444 property Movement : string read FMovement write FMovement;
1204 h677 1.299 end;
1205    
1206 hi_ 1.1 var
1207     GikoForm: TGikoForm;
1208    
1209     implementation
1210    
1211     uses
1212     About, Option, Round, Splash, Sort, ListSelect,
1213 h677 1.183 NewBoard, MojuUtils,Clipbrd;
1214 hi_ 1.1
1215     const
1216     CAPTION_NAME: string = '鐃?鐃?鐃?鐃?';
1217     BLANK_HTML: string = 'about:blank';
1218 yoffy 1.51 SELECTCOMBOBOX_NAME: string = ''; // '鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申';
1219     SELECTCOMBOBOX_COLOR: TColor = clWindow;
1220 yoffy 1.120 //D&D鐃緒申鐃?
1221     DandD_THRESHOLD = 5; //D&D鐃緒申鐃緒申鐃?鐃?pixcel)
1222 yoffy 1.2 //鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1223     ITEM_ICON_2CH1 = 0; //2ch鐃?鐃?鐃?鐃緒申
1224     ITEM_ICON_2CH2 = 1; //2ch鐃?鐃?鐃?鐃緒申
1225     ITEM_ICON_CATEGORY1 = 2; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1226     ITEM_ICON_CATEGORY2 = 3; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1227 yoffy 1.120 ITEM_ICON_BOARD_NOSUBJECT = 3; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1228 yoffy 1.2 ITEM_ICON_BOARD1 = 4; //鐃緒申鐃?鐃?鐃?鐃緒申
1229     ITEM_ICON_BOARD2 = 5; //鐃緒申鐃?鐃?鐃?鐃緒申
1230     ITEM_ICON_THREADLOG1 = 6; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1231     ITEM_ICON_THREADLOG2 = 7; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1232     ITEM_ICON_THREAD1 = 8; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1233     ITEM_ICON_THREAD2 = 9; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1234     ITEM_ICON_THREADNEW1 = 10; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1235     ITEM_ICON_THREADNEW2 = 11; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1236     ITEM_ICON_SORT1 = 12; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1237     ITEM_ICON_SORT2 = 13; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1238 yoffy 1.120 ITEM_ICON_BOARD_LOG = 17; //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1239     ITEM_ICON_BOARD_NEW = 18; //鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1240 yoffy 1.2
1241     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1242 yoffy 1.48 TOOL_ICON_HEIGHT_MAX = 16; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1243     TOOL_ICON_HEIGHT_MIN = 17; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1244     TOOL_ICON_HEIGHT_NORMAL = 18; //鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1245     TOOL_ICON_WIDTH_MAX = 19; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1246     TOOL_ICON_WIDTH_MIN = 20; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1247     TOOL_ICON_WIDTH_NORMAL = 21; //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1248    
1249 yoffy 1.51 TOOL_ICON_FAV_FOLDER = 30; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申
1250 yoffy 1.100 TOOL_ICON_FAV_BOARD = 31; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1251 yoffy 1.51 TOOL_ICON_FAV_THREAD = 32; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1252 hi_ 1.1
1253     HTML_FILE_NAME = 'temp_preview.html';
1254    
1255 yoffy 1.253 WM_XBUTTONDOWN = $020B;
1256     WM_XBUTTONUP = $020C;
1257     WM_XBUTTONDBLCLK = $020D;
1258     XBUTTON1 = $0001;
1259     XBUTTON2 = $0002;
1260 yoffy 1.278 USER_TREECLICK = WM_USER + 2000;
1261     USER_RESIZED = WM_USER + 2001;
1262     USER_MINIMIZED = WM_USER + 2002;
1263     USER_SETLINKBAR = WM_USER + 2003;
1264 yoffy 1.434 USER_DOCUMENTCOMPLETE = WM_USER + 2004; ///< wParam : TWebBrowser
1265 h677 1.340 SELECTTIME_INTERBAL = 110;
1266    
1267     BROWSER_COUNT = 5; //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
1268 hi_ 1.1 {$R *.DFM}
1269    
1270     procedure TGikoForm.CreateParams(var Params: TCreateParams);
1271     begin
1272     inherited;
1273     if FormStyle in [fsNormal, fsStayOnTop] then begin
1274     if BorderStyle in [bsSingle, bsSizeable] then begin
1275     Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
1276     Params.WndParent := 0;
1277     end;
1278     end;
1279     end;
1280    
1281     procedure TGikoForm.FormCreate(Sender: TObject);
1282     const
1283     TVS_NOTOOLTIPS = $0080;
1284     var
1285     FileName: string;
1286     Style: DWORD;
1287     msg: string;
1288     i: Integer;
1289     wp: TWindowPlacement;
1290 hi_ 1.32 s: string;
1291 h677 1.303 newbrowser: TWebBrowser;
1292 hi_ 1.1 begin
1293     {$IFDEF DEBUG}
1294     AllocConsole;
1295     Writeln('============================================================');
1296     Writeln(' 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃? 鐃?鐃緒申鐃?鐃?鐃緒申');
1297     Writeln('');
1298     Writeln(' 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?');
1299     Writeln(' 鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申');
1300     Writeln('============================================================');
1301     {$ENDIF}
1302 h677 1.423 FStartUp := false;
1303 hi_ 1.1 Application.OnDeactivate := AppFormDeactivate;
1304     Self.OnDeactivate := AppFormDeactivate;
1305     Application.HookMainWindow(Hook);
1306 h677 1.316 Application.OnMessage := HandleAppMessage; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?by鐃?鐃緒申鐃緒申鐃緒申
1307 hi_ 1.1 FTreeType := gttNone;
1308    
1309 yoffy 1.51 FSearchDialog := nil;
1310 h677 1.299 BrowserNullTab := TBrowserRecord.Create;
1311     BrowserNullTab.Browser := Browser;
1312 h677 1.316 BrowserNullTab.Browser.Navigate(BLANK_HTML);
1313 h677 1.303 FBrowsers := TList.Create;
1314 h677 1.340 for i := 0 to BROWSER_COUNT -1 do begin
1315 h677 1.345 FBrowsers.Add(TWebBrowser.Create(nil));
1316     newBrowser := FBrowsers[FBrowsers.Count - 1];
1317 h677 1.303 TOleControl(newBrowser).Parent := BrowserPanel;
1318 h677 1.345 newBrowser.Align := alNone;
1319 h677 1.346 newBrowser.Left := 0;
1320     newBrowser.Top := 0;
1321 h677 1.423 newBrowser.StatusBar := false;
1322     newBrowser.MenuBar := false;
1323     newBrowser.AddressBar := false;
1324 h677 1.303 newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1325     newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1326     newBrowser.OnEnter := BrowserEnter;
1327     newBrowser.OnNewWindow2 := BrowserNewWindow2;
1328     newBrowser.OnStatusTextChange := BrowserStatusTextChange;
1329 h677 1.306 newBrowser.Navigate(BLANK_HTML);
1330 h677 1.316 ShowWindow(newBrowser.Handle, SW_HIDE);
1331 h677 1.345
1332 h677 1.303 end;
1333 h677 1.316 BrowserNullTab.Browser.BringToFront;
1334     ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
1335 h677 1.303
1336 yoffy 1.216 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1337 yoffy 1.424 FIsIgnoreResize := rtResizing;
1338 yoffy 1.216
1339 hi_ 1.1 //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1340     Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1341    
1342    
1343     //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1344     AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1345    
1346     EnabledCloseButton := True;
1347 h677 1.176
1348 hi_ 1.1 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1349     ListView.ViewStyle := GikoSys.Setting.ListStyle;
1350    
1351     //鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1352     // MainCoolBar.Top := 0;
1353     // MainCoolBar.Left := 0;
1354    
1355     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?
1356     AnimePanel.Top := 0;
1357     AnimePanel.Left := 0;
1358    
1359     //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1360    
1361     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1362     CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1363    
1364     //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1365     MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1366     MsgBarVisibleActionExecute(nil);
1367     MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1368    
1369     //鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1370     StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1371     StatusBarVisibleActionExecute(nil);
1372    
1373     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
1374     TreeView.Items.BeginUpdate;
1375 yoffy 1.100 FavoriteTreeView.Items.BeginUpdate;
1376 hi_ 1.1 ListView.Items.BeginUpdate;
1377     try
1378     TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1379     TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1380     TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1381     TreeView.Color := GikoSys.Setting.CabinetBackColor;
1382    
1383 yoffy 1.67 FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1384     FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1385     FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1386     FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1387    
1388 hi_ 1.1 ListView.Font.Name := GikoSys.Setting.ListFontName;
1389     ListView.Font.Size := GikoSys.Setting.ListFontSize;
1390     ListView.Font.Color := GikoSys.Setting.ListFontColor;
1391 yoffy 1.418 ListViewBackGroundColor := clWhite; // 鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1392     ListViewBackGroundColor := GikoSys.Setting.ListBackColor; // 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1393 yoffy 1.236 FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1394     FOddColor := GikoSys.Setting.OddColor;
1395 h677 1.109
1396 hi_ 1.1 finally
1397     TreeView.Items.EndUpdate;
1398 yoffy 1.100 FavoriteTreeView.Items.EndUpdate;
1399 hi_ 1.1 ListView.Items.EndUpdate;
1400     end;
1401     //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1402     ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
1403    
1404     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?
1405     BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1406     BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1407 yoffy 1.133 FDragWFirst := false;
1408 h677 1.299 SetContent(BrowserNullTab); //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1409 hi_ 1.1 // TreeView.TopItem.Expanded := True; //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1410     // TreeView.Selected := TreeView.Items[0]; //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1411 h677 1.299
1412 hi_ 1.1
1413     //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1414     wp.length := sizeof(wp);
1415     wp.rcNormalPosition.Top := GikoSys.Setting.WindowTop;
1416     wp.rcNormalPosition.Left := GikoSys.Setting.WindowLeft;
1417     wp.rcNormalPosition.Bottom := GikoSys.Setting.WindowTop + GikoSys.Setting.WindowHeight;
1418     wp.rcNormalPosition.Right := GikoSys.Setting.WindowLeft + GikoSys.Setting.WindowWidth;
1419     wp.showCmd := SW_HIDE;
1420     SetWindowPlacement(Handle, @wp);
1421    
1422     // SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop,
1423     // GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight);
1424     if GikoSys.Setting.WindowMax then
1425 yoffy 1.248 WindowState := wsMaximized;
1426 hi_ 1.1
1427     //鐃?鐃?鐃?鐃?鐃緒申
1428     try
1429     FileName := GikoSys.GetAppDir + 'gikoNavi.avi';
1430     if FileExists(FileName) then
1431     Animate.FileName := FileName;
1432     except
1433     end;
1434    
1435     //鐃?鐃?鐃?鐃?
1436     FNameCookie := '';
1437     FMailCookie := '';
1438    
1439     //鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1440     AllItemAction.Checked := True;
1441 yoffy 1.126 AllResAction.Checked := True;
1442 hi_ 1.1
1443     //TreeView鐃緒申鐃緒申鐃緒申鐃?鐃緒申ToolTip鐃緒申鐃緒申鐃?鐃緒申
1444     Style := GetWindowLong(TreeView.Handle, GWL_STYLE);
1445     Style := Style or TVS_NOTOOLTIPS;
1446     SetWindowLong(TreeView.Handle, GWL_STYLE, Style);
1447    
1448     // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1449     TreeView.Align := alClient;
1450 yoffy 1.57 FavoriteTreeView.Align := alClient;
1451 hi_ 1.1 FavoriteTreeView.Visible := False;
1452    
1453     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1454     // FBrowserSizeFlag := False;
1455     // FBrowserSizeHeight := ViewPanel.Height;
1456    
1457     FBrowserSizeHeight := GikoSys.Setting.ListHeight;
1458     FBrowserSizeWidth := GikoSys.Setting.ListWidth;
1459    
1460 yoffy 1.420 // 鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?(ReadBoardFile, LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1461     InitializeBoardPlugIns;
1462    
1463     //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1464     RoundList := TRoundList.Create;
1465     RoundList.LoadRoundBoardFile;
1466    
1467     // 鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申(ReadFavorite 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1468     GikoSys.ListBoardFile;
1469    
1470     RoundList.LoadRoundThreadFile;
1471    
1472     if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1473     GikoSys.ListBoardFile;
1474    
1475     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1476     SetBBSMenu;
1477    
1478     // 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?(LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1479     FHistoryList := TList.Create;
1480    
1481     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1482     LoadHistory;
1483    
1484     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1485     // FFavorite := TFavorite.Create(FavoriteTreeView);
1486     FavoriteDM.SetFavTreeView(FavoriteTreeView);
1487     FavoriteDM.ReadFavorite;
1488    
1489 hi_ 1.1 ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1490     ArrangeAction.Execute;
1491    
1492     if GikoSys.Setting.ListOrientation = gloHorizontal then begin
1493     case GikoSys.Setting.ListWidthState of
1494     glsMax: begin
1495     ViewPanel.Width := 1;
1496 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1497     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1498 hi_ 1.1 end;
1499     glsMin: begin
1500     ViewPanel.Width := GikoSys.Setting.ListWidth;
1501 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1502     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1503 hi_ 1.1 end;
1504     else begin
1505     ViewPanel.Width := GikoSys.Setting.ListWidth;
1506 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1507     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1508 hi_ 1.1 end;
1509     end;
1510     end else begin
1511     case GikoSys.Setting.ListHeightState of
1512     glsMax: begin
1513     ViewPanel.Height := 1;
1514 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1515     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1516 hi_ 1.1 end;
1517     glsMin: begin
1518     ViewPanel.Height := GikoSys.Setting.ListHeight;
1519 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1520     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1521 hi_ 1.1 end;
1522     else begin
1523     ViewPanel.Height := GikoSys.Setting.ListHeight;
1524 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1525     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1526 hi_ 1.1 end;
1527     end;
1528     end;
1529    
1530     //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1531     // ProgressBar.Visible := False;
1532     ProgressBar.Parent := StatusBar;
1533     ProgressBar.Top := 2;
1534     ProgressBar.Left := 0;
1535     ProgressBar.Width := StatusBar.Panels[0].Width;
1536     ProgressBar.Height := StatusBar.Height - 2;
1537     ProgressBar.Position := 0;
1538    
1539     //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1540     FControlThread := TThreadControl.Create(True);
1541     FControlThread.MaxThreadCount := 1;
1542     FControlThread.Resume;
1543     FControlThread.OnDownloadEnd := DownloadEnd;
1544     FControlThread.OnDownloadMsg := DownloadMsg;
1545     FControlThread.OnWork := Work;
1546     FControlThread.OnWorkBegin := WorkBegin;
1547     FControlThread.OnWorkEnd := WorkEnd;
1548     // ProgressPanel.Width := FControlThread.MaxThreadCount * 12;
1549    
1550 yoffy 1.51 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1551     SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
1552 yoffy 1.2
1553 hi_ 1.1 //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申
1554     SetBrowserTabState;
1555    
1556     BrowserBoardNameLabel.Caption := '';
1557     BrowserNameLabel.Caption := '';
1558     FWorkCount := 0;
1559    
1560     FTabHintIndex := -1;
1561    
1562     //鐃緒申鐃緒申鐃?鐃?鐃?
1563     SetLinkBar;
1564    
1565     //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1566     SetMenuFont;
1567    
1568     //鐃?鐃?鐃緒申鐃?鐃?Wrapable
1569     ListToolBar.Wrapable := GikoSys.Setting.ListToolBarWrapable;
1570     BrowserToolBar.Wrapable := GikoSys.Setting.BrowserToolBarWrapable;
1571    
1572 yoffy 1.236 KeepDefaultToolButton(StdToolBar, TmpToolBar);
1573     KeepDefaultToolButton(ListToolBar, TmpToolBar);
1574     KeepDefaultToolButton(BrowserToolBar, TmpToolBar);
1575 h677 1.234
1576 yoffy 1.236 MakeDefaultINIFile();
1577 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1578     ReadToolBarSetting(ActionList, StdToolBar);
1579     ReadToolBarSetting(ActionList, ListToolBar);
1580 yoffy 1.51 try
1581     for i := ListToolBar.ControlCount - 1 downto 0 do
1582     begin
1583     if ListToolBar.Controls[ i ].Action = SelectItemAction then
1584     begin
1585     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1586     if (i + 1) < ListToolBar.ControlCount then
1587     if ListToolBar.Controls[ i + 1 ] is TToolButton then
1588     if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
1589     ListToolBar.Controls[ i + 1 ].Visible := False;
1590    
1591     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1592     ListToolBar.Controls[ i ].Visible := False;
1593     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
1594 yoffy 1.239 SelectComboBox.Parent := ListToolBar;
1595 yoffy 1.51 SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1596     SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;
1597     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申
1598 yoffy 1.239 SelectComboBoxSplitter.Parent := ListToolBar;
1599 yoffy 1.51 SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
1600    
1601     break;
1602     end;
1603     end;
1604     except
1605     end;
1606 yoffy 1.2 ReadToolBarSetting(ActionList, BrowserToolBar);
1607     SetToolBarPopup;
1608 yoffy 1.375
1609     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1610 yoffy 1.383 FResRangeMenuSelect := GikoSys.ResRange;
1611 yoffy 1.375 case GikoSys.ResRange of
1612     Ord( grrAll ):
1613     begin
1614     AllResAction.Execute;
1615     end;
1616     Ord( grrSelect ):
1617     begin
1618 yoffy 1.383 SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1619 yoffy 1.375 SelectResAction.Checked := True;
1620     end;
1621     else
1622     // ResRangeAction.Execute;
1623     case FResRangeMenuSelect of
1624     Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1625     Ord( grrNew ): OnlyNewResAction.Checked := True;
1626 yoffy 1.389 100: OnlyAHundredResAction.Checked := True;
1627 yoffy 1.375 end;
1628     end;
1629    
1630 yoffy 1.390 // 鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1631     // ThreadRangeAction.Execute;
1632     case GikoSys.Setting.ThreadRange of
1633     gtrAll:
1634     begin
1635     AllItemAction.Checked := True;
1636     ViewType := gvtAll;
1637     end;
1638     gtrLog:
1639     begin
1640     LogItemAction.Checked := True;
1641     ViewType := gvtLog;
1642     end;
1643     gtrNew:
1644     begin
1645     NewItemAction.Checked := True;
1646     ViewType := gvtNew;
1647     end;
1648     end;
1649    
1650 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃?
1651     AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1652    
1653 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1654    
1655     //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1656     if not FileExists(GikoSys.GetBoardFileName) then begin
1657     msg := '鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申' + #13#10#13#10
1658     + '鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申' + #13#10
1659     + '鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?';
1660     MsgBox(SplashWindow.Handle, msg, '鐃?鐃?鐃?鐃?', MB_OK or MB_ICONINFORMATION);
1661     NewBoardAction.Execute;
1662     end;
1663    
1664     //鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1665     GikoSys.LoadKeySetting(ActionList);
1666    
1667     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1668     // FLastRoundTime := 0;
1669    
1670     //ResHint
1671     FHint := TResPopup.Create(Self);
1672    
1673 yoffy 1.100 // 鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
1674 h677 1.299 CabinetVisible( False );
1675 yoffy 1.141 if GikoSys.Setting.CabinetVisible then begin
1676     i := CabinetSelectPopupMenu.Items.Count - 1;
1677     if GikoSys.Setting.CabinetIndex = i - 1 then
1678     CabinetHistoryAction.Execute
1679     else if GikoSys.Setting.CabinetIndex = i then
1680     CabinetFavoriteAction.Execute
1681     else begin
1682     if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
1683     ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
1684 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 2
1685 yoffy 1.424 FIsIgnoreResize := rtResizing;
1686 yoffy 1.141 CabinetBBSAction.Execute;
1687     end;
1688     end else begin
1689 yoffy 1.248 ShowBBSTreeOld( BBSs[ 0 ] );
1690     PostMessage( Handle, USER_TREECLICK, 0, 0 );
1691 yoffy 1.141 end;
1692 yoffy 1.67
1693 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 3
1694 yoffy 1.424 FIsIgnoreResize := rtResizing;
1695 yoffy 1.248
1696 yoffy 1.2 //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申
1697     if GikoSys.Setting.AutoLogin then
1698     LoginAction.Execute;
1699    
1700     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
1701     for i := 1 to ParamCount do begin
1702     MoveToURL(ParamStr(i));
1703     end;
1704     // SetStdToolBar;
1705     // SetLinkBar;
1706 h677 1.22
1707 hi_ 1.32 s := GikoSys.FAbon.NGwordname;
1708     StatusBar.Panels[2].Text := s;
1709     StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1710     StatusBarResize(Sender);
1711 h677 1.187
1712 yoffy 1.236 dummy1.Caption := ItemReservPMenu.Caption;
1713     dummy1.Hint := ItemReservPMenu.Hint;
1714 yoffy 1.216
1715 yoffy 1.236 //Samba24鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?
1716     GikoSys.SambaFileExists();
1717 h677 1.299
1718 yoffy 1.456 // 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?
1719     MouseGesture := TMouseGesture.Create;
1720     GikoSys.Setting.Gestures.LoadGesture(
1721     GikoSys.Setting.GetGestureFileName, ActionList );
1722     MouseGesture.Margin := GikoSys.Setting.Gestures.Margin;
1723     MouseGesture.OnGestureStart := OnGestureStart;
1724     MouseGesture.OnGestureMove := OnGestureMove;
1725     MouseGesture.OnGestureEnd := OnGestureEnd;
1726 yoffy 1.457 if GikoSys.Setting.GestureEnabled then
1727     MouseGesture.SetHook( Handle );
1728 genyakun 1.458
1729     //2ch鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1730     if GikoSys.Setting.GengoSupport then begin
1731     GikoSys.Setting.Gengo := TStringList.Create;
1732     GikoSys.Setting.Gengo.LoadFromFile(GikoSys.GetConfigDir + 'language.ini');
1733     end;
1734 yoffy 1.2 end;
1735    
1736 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1737     procedure TGikoForm.SaveCoolBarSettings;
1738 yoffy 1.2 var
1739 yoffy 1.216 i : Integer;
1740     CoolSet : TCoolSet;
1741 yoffy 1.2 begin
1742    
1743 yoffy 1.424 if IsIconic( Handle ) or (FIsIgnoreResize <> rtNone) then
1744 yoffy 1.216 Exit;
1745 yoffy 1.2
1746 yoffy 1.216 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1747     for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin
1748     CoolSet.FCoolID := MainCoolBar.Bands[i].ID;
1749     CoolSet.FCoolWidth := MainCoolBar.Bands[i].Width;
1750     CoolSet.FCoolBreak := MainCoolBar.Bands[i].Break;
1751     GikoSys.Setting.MainCoolSet[i] := CoolSet;
1752     end;
1753     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1754     for i := 0 to LIST_COOLBAND_COUNT - 1 do begin
1755     CoolSet.FCoolID := ListCoolBar.Bands[i].ID;
1756     CoolSet.FCoolWidth := ListCoolBar.Bands[i].Width;
1757     CoolSet.FCoolBreak := ListCoolBar.Bands[i].Break;
1758     GikoSys.Setting.ListCoolSet[i] := CoolSet;
1759     end;
1760     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1761     for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin
1762     CoolSet.FCoolID := BrowserCoolBar.Bands[i].ID;
1763     CoolSet.FCoolWidth := BrowserCoolBar.Bands[i].Width;
1764     CoolSet.FCoolBreak := BrowserCoolBar.Bands[i].Break;
1765     GikoSys.Setting.BrowserCoolSet[i] := CoolSet;
1766 yoffy 1.2 end;
1767    
1768 yoffy 1.216 end;
1769 yoffy 1.2
1770 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1771     procedure TGikoForm.LoadCoolBarSettings;
1772     var
1773     i : Integer;
1774     CoolSet : TCoolSet;
1775     begin
1776 yoffy 1.2
1777 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1778     MainCoolBar.Bands.BeginUpdate;
1779     try
1780 yoffy 1.216 // for i := 0 to MainCoolBar.Bands.Count - 1 do begin
1781     for i := MAIN_COOLBAND_COUNT - 1 downto 0 do begin
1782 hi_ 1.1 CoolSet := GikoSys.Setting.MainCoolSet[i];
1783 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1784 yoffy 1.424 FIsIgnoreResize := rtNone;
1785 yoffy 1.263 SaveCoolBarSettings;
1786     Exit;
1787     end;
1788 hi_ 1.1 MainCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1789     MainCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1790 yoffy 1.264 MainCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1791 hi_ 1.1 end;
1792     finally
1793     MainCoolBar.Bands.EndUpdate;
1794     end;
1795    
1796     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1797     ListCoolBar.Bands.BeginUpdate;
1798     try
1799 yoffy 1.216 // for i := 0 to ListCoolBar.Bands.Count - 1 do begin
1800     for i := LIST_COOLBAND_COUNT - 1 downto 0 do begin
1801 hi_ 1.1 CoolSet := GikoSys.Setting.ListCoolSet[i];
1802 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1803 yoffy 1.424 FIsIgnoreResize := rtNone;
1804 yoffy 1.263 SaveCoolBarSettings;
1805     Exit;
1806     end;
1807 hi_ 1.1 ListCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1808     ListCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1809     ListCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1810     end;
1811     finally
1812     ListCoolBar.Bands.EndUpdate;
1813     end;
1814    
1815     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1816     BrowserCoolBar.Bands.BeginUpdate;
1817     try
1818 yoffy 1.216 // for i := 0 to BrowserCoolBar.Bands.Count - 1 do begin
1819     for i := BROWSER_COOLBAND_COUNT - 1 downto 0 do begin
1820 hi_ 1.1 CoolSet := GikoSys.Setting.BrowserCoolSet[i];
1821 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1822 yoffy 1.424 FIsIgnoreResize := rtNone;
1823 yoffy 1.263 SaveCoolBarSettings;
1824     Exit;
1825     end;
1826 hi_ 1.1 BrowserCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1827     BrowserCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1828     BrowserCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1829     end;
1830     finally
1831     BrowserCoolBar.Bands.EndUpdate;
1832     end;
1833    
1834     end;
1835 yoffy 1.216
1836     //
1837     //
1838     //
1839     procedure TGikoForm.FormShow(Sender: TObject);
1840     begin
1841 h677 1.423 if not FStartUp then begin
1842     ShowWindow(Application.Handle, SW_HIDE);
1843    
1844     //FormCreate鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1845     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1846     StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1847     StdToolBarVisibleActionExecute( nil );
1848     AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1849     AddressBarVisibleActionExecute( nil );
1850     LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1851     LinkBarVisibleActionExecute( nil );
1852     ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1853     ListToolBarVisibleActionExecute( nil );
1854     ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1855     ListNameBarVisibleActionExecute( nil );
1856     BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1857     BrowserToolBarVisibleActionExecute( nil );
1858     BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1859     BrowserNameBarVisibleActionExecute( nil );
1860    
1861     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1862     BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1863     BrowserTabVisibleActionExecute(nil);
1864 yoffy 1.216
1865 h677 1.423 if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1866     BrowserTabTopAction.Checked := True;
1867     BrowserTabTopActionExecute(nil);
1868     end else begin
1869     BrowserTabBottomAction.Checked := True;
1870     BrowserTabBottomActionExecute(nil);
1871     end;
1872    
1873     if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1874     BrowserTabTabStyleAction.Checked := True;
1875     BrowserTabTabStyleActionExecute(nil);
1876     end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1877     BrowserTabButtonStyleAction.Checked := True;
1878     BrowserTabButtonStyleActionExecute(nil);
1879     end else begin
1880     BrowserTabFlatStyleAction.Checked := True;
1881     BrowserTabFlatStyleActionExecute(nil);
1882     end;
1883 yoffy 1.216
1884 h677 1.423 // ListView 鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?
1885 yoffy 1.425 // ListView.FullDrag := True;
1886 yoffy 1.408
1887 h677 1.423 // CoolBar 鐃緒申鐃緒申
1888     LoadCoolBarSettings;
1889 yoffy 1.265
1890 yoffy 1.424 FIsIgnoreResize := rtNone;
1891 genyakun 1.382
1892 h677 1.423 //TabAutoLoad
1893     //FormCrete鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1894     if GikoSys.Setting.TabAutoLoadSave then begin
1895     TabAutoLoadAction.Execute;
1896     end;
1897 genyakun 1.439 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1898     if GikoSys.Setting.GengoSupport then begin
1899 genyakun 1.440 //鐃?鐃緒申鐃?
1900     //Test鐃緒申鐃緒申
1901     end;
1902 genyakun 1.439
1903 h677 1.423 FStartUp := true;
1904 yoffy 1.397 end;
1905 yoffy 1.239 end;
1906 yoffy 1.216
1907 hi_ 1.1 procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1908     begin
1909 yoffy 1.331 // if GikoForm.WindowState <> wsMinimized then
1910     // SaveCoolBarSettings;
1911 yoffy 1.236 if ( GikoSys.Setting.ShowDialogForEnd ) and
1912     (MessageDlg('鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1913     CanClose := false;
1914     Exit;
1915     end else begin
1916     CanClose := True;
1917 yoffy 1.398 if GikoSys.Setting.TabAutoLoadSave then begin
1918     TabAutoSaveAction.Execute;
1919     end;
1920 yoffy 1.236 end;
1921 genyakun 1.458 //2ch鐃緒申鐃緒申鐃緒申鐃緒申Free
1922     if GikoSys.Setting.GengoSupport then begin
1923     GikoSys.Setting.Gengo.Free;
1924     end;
1925 h677 1.241 //Application.HookMainWindow(Hook);
1926     Application.UnhookMainWindow(Hook);
1927     Application.Terminate;
1928     end;
1929    
1930     procedure TGikoForm.FormDestroy(Sender: TObject);
1931     var
1932 yoffy 1.376 i : Integer;
1933 h677 1.241 // CoolSet: TCoolSet;
1934 yoffy 1.376 wp : TWindowPlacement;
1935     tmpBool : Boolean;
1936 h677 1.241 begin
1937 h677 1.181 // Application.OnDeactivate := nil;
1938     // Self.OnDeactivate := nil;
1939 yoffy 1.456 // 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1940     try
1941     MouseGesture.UnHook;
1942     GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );
1943     except
1944     end;
1945 yoffy 1.236 try
1946 yoffy 1.410 ActiveListColumnSave;
1947 yoffy 1.236 except
1948     end;
1949     try
1950 h677 1.234 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1951     wp.length := sizeof(wp);
1952     GetWindowPlacement(Handle, @wp);
1953     GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1954     GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1955     GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1956     GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1957     GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1958    
1959     GikoSys.Setting.ListStyle := ListView.ViewStyle;
1960     GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1961     GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1962     GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1963     GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1964     if ArrangeAction.Checked then
1965     GikoSys.Setting.ListOrientation := gloVertical
1966     else
1967     GikoSys.Setting.ListOrientation := gloHorizontal;
1968     GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1969 yoffy 1.236 except
1970 yoffy 1.2 end;
1971 yoffy 1.378
1972     try
1973     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1974     if not GikoSys.Setting.ResRangeHold then
1975 yoffy 1.380 GikoSys.Setting.ResRange := FResRangeMenuSelect;
1976 yoffy 1.378 except
1977     end;
1978    
1979     // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申 CoolBar 鐃緒申鐃緒申
1980 yoffy 1.216 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1981 yoffy 1.263 {
1982     // 鐃緒申FormDestroy鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?2004/04/09鐃?
1983 yoffy 1.216 // CoolBar 鐃緒申鐃緒申
1984 h677 1.262 if GikoForm.WindowState <> wsMinimized then
1985     SaveCoolBarSettings;
1986 yoffy 1.263 }
1987 yoffy 1.236 try
1988 h677 1.234 GikoSys.Setting.WriteWindowSettingFile;
1989     GikoSys.Setting.WriteNameMailSettingFile;
1990 yoffy 1.236 except
1991     end;
1992 yoffy 1.2
1993     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1994 hi_ 1.1 try
1995 yoffy 1.236 //FavoriteDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1996 yoffy 1.2 FavoriteDM.WriteFavorite;
1997 yoffy 1.236 FavoriteDM.Clear;
1998 hi_ 1.1 except
1999     end;
2000    
2001     try
2002     //鐃?鐃?鐃?鐃緒申鐃?鐃?
2003 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2004     GikoSys.Setting.ShowDialogForAllTabClose := false;
2005     AllTabCloseAction.Execute;
2006     GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2007 h677 1.299 except
2008     end;
2009 h677 1.321 try
2010     LockWindowUpdate(Self.Handle);
2011     for i := FBrowsers.Count - 1 downto 0 do begin
2012     TWebBrowser(FBrowsers[i]).Free;
2013     end;
2014     FBrowsers.Clear;
2015     FBrowsers.Capacity := 0;
2016     finally
2017     FBrowsers.Free;
2018 h677 1.303 end;
2019 h677 1.299 try
2020     if BrowserNullTab <> nil then begin
2021     BrowserNullTab.Browser := nil; {*BrowserNullTab鐃緒申Browser鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?
2022     *鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Free鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
2023     *}
2024     BrowserNullTab.Free;
2025 hi_ 1.1 end;
2026     except
2027     end;
2028 h677 1.321 LockWindowUpdate(0);
2029 h677 1.224 try
2030 yoffy 1.236 TreeView.Items.BeginUpdate;
2031 yoffy 1.380 TreeView.Items.GetFirstNode.Free;
2032 yoffy 1.236 TreeView.Items.Clear;
2033     TreeView.Items.EndUpdate;
2034 h677 1.224 except
2035     end;
2036 h677 1.230
2037 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2038     try
2039 yoffy 1.236 //AddressHistoryDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
2040 hi_ 1.1 AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
2041     except
2042     end;
2043    
2044 h677 1.234 //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
2045 hi_ 1.1 try
2046 h677 1.234 SaveHistory;
2047 hi_ 1.1 except
2048     end;
2049 yoffy 1.236 try
2050     try
2051     ClearHistory;
2052     except
2053     end;
2054     finally
2055     FHistoryList.Free;
2056     end;
2057 h677 1.221
2058 h677 1.182 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申&鐃?鐃緒申
2059     try
2060     RoundList.SaveRoundFile;
2061     except
2062     end;
2063 yoffy 1.236 try
2064 h677 1.234 try
2065 yoffy 1.236 RoundList.Clear;
2066 h677 1.234 except
2067     end;
2068 yoffy 1.236 finally
2069     RoundList.Free;
2070     end;
2071 h677 1.182
2072 yoffy 1.236 try
2073 h677 1.234 try
2074     FControlThread.Terminate;
2075 yoffy 1.236 FControlThread.WaitFor;
2076 h677 1.234 except
2077 h677 1.219 end;
2078 yoffy 1.236 finally
2079     FControlThread.Free;
2080     end;
2081 h677 1.230
2082 yoffy 1.155 // TBBS 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 TCategory, TBoard, TThreadItem 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2083     // TBoard, TThreadItem 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2084     // BoardPluteIns 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2085 yoffy 1.126 try
2086 h677 1.220 for i := Length( BBSs ) - 1 downto 0 do begin
2087 h677 1.153 if BBSs[ i ] <> nil then
2088     BBSs[ i ].Free;
2089     BBSs[ i ] := nil;
2090     end;
2091     except
2092     end;
2093 yoffy 1.155
2094 h677 1.153 try
2095 h677 1.220 for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2096 yoffy 1.126 if BoardPlugIns[ i ] <> nil then
2097     BoardPlugIns[ i ].Free;
2098     BoardPlugIns[ i ] := nil;
2099     end;
2100     except
2101     end;
2102 yoffy 1.124
2103 h677 1.234 try
2104 yoffy 1.236 if FEvent <> nil then
2105     FEvent.Free;
2106 h677 1.181
2107 yoffy 1.2 //Hint鐃?鐃緒申
2108     if FHint <> nil then begin
2109     FHint.ReleaseHandle;
2110     FHint.Free;
2111     FHint := nil;
2112     end;
2113     //Preview鐃?鐃緒申
2114     if TPreviewBrowser <> nil then begin
2115     FPreviewBrowser.Free;
2116     FPreviewBrowser := nil;
2117     end;
2118     except
2119     end;
2120 h677 1.230
2121 hi_ 1.1 end;
2122    
2123     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2124     procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2125     begin
2126     CabinetVisibleAction.Execute;
2127     // CabinetPanelVisible(false);
2128     end;
2129    
2130 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
2131     procedure TGikoForm.SetBBSMenu;
2132 yoffy 1.123 var
2133     i : Integer;
2134 yoffy 1.149 item : TBBSMenuItem;
2135 hi_ 1.1 begin
2136    
2137 yoffy 1.148 // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2138     for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
2139     try
2140     if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
2141 yoffy 1.155 CabinetSelectPopupMenu.Items[ i ].Free;
2142     CabinetMenu.Items[ i ].Free;
2143 yoffy 1.289 BBSSelectPopupMenu.Items[ i ].Free;
2144 yoffy 1.148 end;
2145     except
2146     end;
2147     end;
2148 yoffy 1.289
2149     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2150 yoffy 1.148 for i := Length( BBSs ) - 1 downto 0 do begin
2151     try
2152     item := TBBSMenuItem.Create( PopupMenu );
2153     item.Caption := BBSs[ i ].Title;
2154     item.Data := BBSs[ i ];
2155     item.OnClick := BBSMenuItemOnClick;
2156     CabinetSelectPopupMenu.Items.Insert( 0, item );
2157     item := TBBSMenuItem.Create( PopupMenu );
2158     item.Caption := BBSs[ i ].Title;
2159     item.Data := BBSs[ i ];
2160     item.OnClick := BBSMenuItemOnClick;
2161     CabinetMenu.Insert( 0, item );
2162 yoffy 1.289 item := TBBSMenuItem.Create( PopupMenu );
2163     item.Caption := BBSs[ i ].Title;
2164     item.Data := BBSs[ i ];
2165     item.OnClick := BBSMenuItemOnClick;
2166     BBSSelectPopupMenu.Items.Insert( 0, Item );
2167 yoffy 1.148 except
2168     end;
2169     end;
2170 yoffy 1.289
2171     end;
2172    
2173     procedure TGikoForm.ReloadBBS;
2174     var
2175     i : Integer;
2176 h677 1.321 tmpBool: Boolean;
2177 yoffy 1.289 begin
2178     //鐃?鐃?鐃?鐃緒申鐃?鐃?
2179 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2180     GikoSys.Setting.ShowDialogForAllTabClose := false;
2181 h677 1.320 AllTabCloseAction.Execute;
2182 h677 1.321 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2183    
2184 h677 1.320 SetContent(BrowserNullTab);
2185 yoffy 1.289 //TreeView鐃?鐃緒申鐃?鐃?BBS2ch.Free鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申XP鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?
2186     TreeView.Items.Clear;
2187    
2188     //BBS鐃?鐃緒申
2189     try
2190     for i := Length( BBSs ) - 1 downto 0 do begin
2191     if BBSs[ i ] <> nil then
2192     BBSs[ i ].Free;
2193     BBSs[ i ] := nil;
2194     end;
2195     except
2196     end;
2197    
2198     ActiveList := nil;
2199    
2200     FTreeType := gttNone;
2201    
2202     GikoSys.ListBoardFile; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
2203    
2204     // BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2205     SetBBSMenu;
2206    
2207 yoffy 1.123 ShowBBSTree( BBSs[ 0 ] );
2208 yoffy 1.143
2209     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2210 yoffy 1.146 SaveHistory;
2211 yoffy 1.272 ClearHistory;
2212 yoffy 1.143 LoadHistory;
2213    
2214     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2215 yoffy 1.287 FavoriteDM.WriteFavorite;
2216 yoffy 1.272 FavoriteDM.Clear;
2217 yoffy 1.143 FavoriteDM.ReadFavorite;
2218 yoffy 1.279
2219 yoffy 1.143 SetLinkBar;
2220    
2221 hi_ 1.1 end;
2222    
2223     //鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
2224 yoffy 1.123 procedure TGikoForm.SetBoardTreeNode(
2225     inBBS : TBBS
2226     );
2227 hi_ 1.1 var
2228 yoffy 1.120 i, j, k: integer;
2229 hi_ 1.1 Root: TTreeNode;
2230