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.511.2.2 - (hide annotations) (download) (as text)
Sat May 14 16:11:26 2005 UTC (18 years, 11 months ago) by h677
Branch: remodeling
Changes since 1.511.2.1: +24 -8 lines
File MIME type: text/x-pascal
BoardGroupクラスを作って、TBBS-TCategoryとTBoardの関係を薄めた

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