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.531 - (hide annotations) (download) (as text)
Mon Nov 14 17:03:22 2005 UTC (18 years, 5 months ago) by h677
Branch: MAIN
Changes since 1.530: +2 -0 lines
File MIME type: text/x-pascal
キャビネットのBBSの設定忘れを修正。

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