Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.511.2.24 - (hide annotations) (download) (as text)
Thu Jun 23 21:27:44 2005 UTC (18 years, 9 months ago) by h677
Branch: remodeling
CVS Tags: v1_50_0_587, v1_50_0_588
Changes since 1.511.2.23: +56 -46 lines
File MIME type: text/x-pascal
シェブロンのメニューに変な空行が入る不具合の修正
リストツールバーにスレ絞込みがあるとツールボタンの使用可/不可の更新が起動時にうまくいかない不具合の修正

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