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.463 - (hide annotations) (download) (as text)
Mon Oct 18 14:36:34 2004 UTC (19 years, 6 months ago) by h677
Branch: MAIN
Changes since 1.462: +52 -53 lines
File MIME type: text/x-pascal
マウスジェスチャーのAV対策

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