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.523 - (hide annotations) (download) (as text)
Mon Aug 22 14:22:46 2005 UTC (18 years, 8 months ago) by h677
Branch: MAIN
Changes since 1.522: +6 -9 lines
File MIME type: text/x-pascal
DivideStrLineを共通関数に追い出したことへの対応

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