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.526 - (hide annotations) (download) (as text)
Sat Oct 1 08:39:19 2005 UTC (18 years, 6 months ago) by genyakun
Branch: MAIN
Changes since 1.525: +3 -3 lines
File MIME type: text/x-pascal
要望を書き殴るスレ>>539,543に対応(メッセージもそれに対して多少修正)

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