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.515.2.9 - (hide annotations) (download) (as text)
Thu Jun 30 16:08:51 2005 UTC (18 years, 9 months ago) by h677
Branch: Bb50
Changes since 1.515.2.8: +7 -2 lines
File MIME type: text/x-pascal
ToolBarにSelectComboBoxを追加したときの不具合対策Ver2
(シェブロンの処理の変更も完了)

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