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.515.2.15 - (hide annotations) (download) (as text)
Tue Jul 5 15:18:27 2005 UTC (18 years, 9 months ago) by h677
Branch: Bb50
Changes since 1.515.2.14: +56 -120 lines
File MIME type: text/x-pascal
ブラウザタブ非表示時のキーボード操作でのスレ一覧読み飛ばし機能を
SelectItemイベントではなくKeyUpイベントで実現するように変更。
ActionListのUpdateの関数を同じ条件のものをまとめた。

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