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.527.2.8 - (hide annotations) (download) (as text)
Sat Nov 5 17:14:21 2005 UTC (18 years, 5 months ago) by h677
Branch: Bdraw
CVS Tags: v1_51_0_615
Changes since 1.527.2.7: +65 -29 lines
File MIME type: text/x-pascal
レス番号付きのURLで飛ぶときに、指定レス番までスクロールしなくなっていた不具合の修正。

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