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.16 - (hide annotations) (download) (as text)
Sat Jun 4 02:51:09 2005 UTC (18 years, 10 months ago) by h677
Branch: remodeling
CVS Tags: v1_50_0_578
Changes since 1.511.2.15: +86 -123 lines
File MIME type: text/x-pascal
RoundNameをstringに戻した。
起動時にキャビネット非表示だと最大化できない不具合の修正。

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