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.474 - (hide annotations) (download) (as text)
Sun Oct 24 13:24:30 2004 UTC (19 years, 5 months ago) by genyakun
Branch: MAIN
Changes since 1.473: +7 -5 lines
File MIME type: text/x-pascal
Tabファイルの板更新に対応

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