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.7 - (hide annotations) (download) (as text)
Sat Nov 5 00:24:49 2005 UTC (18 years, 5 months ago) by h677
Branch: Bdraw
CVS Tags: v1_51_0_614
Changes since 1.527.2.6: +4 -0 lines
File MIME type: text/x-pascal
未取得レスの表示がおかしい不具合の修正

1 hi_ 1.1 unit Giko;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 yoffy 1.117 OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
8 hi_ 1.4 {$IF Defined(DELPRO) }
9 yoffy 1.138 SHDocVw,
10 hi_ 1.4 MSHTML,
11     {$ELSE}
12     SHDocVw_TLB,
13     MSHTML_TLB,
14     {$IFEND}
15 h677 1.183 IdHTTP, ActiveX, ActnList, ImgList,
16 h677 1.343 ToolWin, Buttons, {Clipbrd,} {HTTPApp,} YofUtils, IdComponent,
17 h677 1.183 ShellAPI, UrlMon, Tabs, IdGlobal, StrUtils,
18 h677 1.170 CommCtrl, IniFiles, Dialogs,
19 hi_ 1.1 GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
20     Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
21     FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
22 h677 1.35 HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
23 h677 1.170 IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,
24 genyakun 1.348 StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent,
25 yoffy 1.456 IdTCPClient, Gesture;
26 hi_ 1.1
27     type
28 yoffy 1.138 TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
29 yoffy 1.258 TToolBarSettingSenderType = (tssNone, tssMain, tssList, tssBrowser);
30 yoffy 1.280 TMinimizeType = (mtNone, mtMinimizing, mtMinimized);
31 yoffy 1.424 TResizeType = (rtNone, rtResizing);
32 hi_ 1.1
33 h677 1.299 TBrowserRecord = class;
34    
35 hi_ 1.1 TGikoForm = class(TForm)
36     StatusBar: TStatusBar;
37     MainPanel: TPanel;
38     ClientPanel: TPanel;
39     TreeSplitter: TSplitter;
40     CabinetPanel: TPanel;
41     TreeView: TTreeView;
42     ThreadMainPanel: TPanel;
43     ListSplitter: TSplitter;
44     ViewPanel: TPanel;
45 yoffy 1.51 ListView: TGikoListView;
46 hi_ 1.1 ThreadPanel: TPanel;
47     MessagePanel: TPanel;
48     MessageBar: TPanel;
49     MessageHideButton: TSpeedButton;
50     MessageListView: TListView;
51     MessageSplitter: TSplitter;
52     Panel3: TPanel;
53     SpeedButton1: TSpeedButton;
54     ToolBar1: TToolBar;
55     CabinetSelectToolButton: TToolButton;
56     HistoryToolBar: TToolBar;
57     ToolButton15: TToolButton;
58     ToolButton18: TToolButton;
59     ItemIcon16: TImageList;
60     ItemIcon32: TImageList;
61 yoffy 1.2 HotToobarImageList: TImageList;
62 yoffy 1.51 ToobarImageList: TImageList;
63 hi_ 1.1 ItemImageList: TImageList;
64 yoffy 1.2 ActionList: TActionList;
65 hi_ 1.1 LogDeleteAction: TAction;
66     KidokuAction: TAction;
67     StdToolBarVisibleAction: TAction;
68     SearchAction: TAction;
69 yoffy 1.51 GikoNaviWebPageAction: TAction;
70 hi_ 1.1 AboutAction: TAction;
71     ExitAction: TAction;
72 yoffy 1.51 MsgBarVisibleAction: TAction;
73 hi_ 1.1 StatusBarVisibleAction: TAction;
74     LargeIconAction: TAction;
75     SmallIconAction: TAction;
76     ListIconAction: TAction;
77 yoffy 1.51 DetailIconAction: TAction;
78 yoffy 1.141 CabinetBBSAction: TAction;
79 hi_ 1.1 CabinetHistoryAction: TAction;
80 yoffy 1.51 CabinetVisibleAction: TAction;
81     MidokuAction: TAction;
82 hi_ 1.1 AllSelectAction: TAction;
83     UpFolderAction: TAction;
84 yoffy 1.51 ListNumberVisibleAction: TAction;
85 hi_ 1.1 AllItemAction: TAction;
86 yoffy 1.51 LogItemAction: TAction;
87     NewItemAction: TAction;
88 hi_ 1.1 SelectItemAction: TAction;
89     ShowThreadAction: TAction;
90     StopAction: TAction;
91     MainMenu: TMainMenu;
92     FileMenu: TMenuItem;
93 yoffy 1.51 DeleteMenu: TMenuItem;
94     ExitMenu: TMenuItem;
95     KidokuMenu: TMenuItem;
96 hi_ 1.1 MidokuMenu: TMenuItem;
97 yoffy 1.51 AllSelectMenu: TMenuItem;
98 hi_ 1.1 ViewMenu: TMenuItem;
99     StdToolBarMenu: TMenuItem;
100     CabinetMenu: TMenuItem;
101 yoffy 1.51 H1: TMenuItem;
102 hi_ 1.1 N4: TMenuItem;
103 yoffy 1.51 CabinetVisibleMenu: TMenuItem;
104 hi_ 1.1 MessageMenu: TMenuItem;
105     StatusBarMenu: TMenuItem;
106     MMSep03: TMenuItem;
107 yoffy 1.51 LargeIconMenu: TMenuItem;
108 hi_ 1.1 SmallIconMenu: TMenuItem;
109     ListMenu: TMenuItem;
110     DetailMenu: TMenuItem;
111 yoffy 1.51 ToolMenu: TMenuItem;
112 hi_ 1.1 Find1: TMenuItem;
113     RoundMenu: TMenuItem;
114     MMSep04: TMenuItem;
115     OptionMenu: TMenuItem;
116     HelpMenu: TMenuItem;
117     G1: TMenuItem;
118 yoffy 1.51 N1: TMenuItem;
119 hi_ 1.1 AboutMenu: TMenuItem;
120 yoffy 1.51 IconStyle: TAction;
121 hi_ 1.1 BrowserPopupMenu: TPopupMenu;
122 yoffy 1.51 ShowThreadMenu: TMenuItem;
123 yoffy 1.2 ShowBoardMenu: TMenuItem;
124 hi_ 1.1 ShowBoardAction: TAction;
125     ListIconPopupMenu: TPopupMenu;
126     LargeIconPMenu: TMenuItem;
127     SmallIconPMenu: TMenuItem;
128     ListPMenu: TMenuItem;
129 yoffy 1.51 DetailPMenu: TMenuItem;
130     CabinetCloseAction: TAction;
131 hi_ 1.1 ClosePopupMenu: TPopupMenu;
132 yoffy 1.51 CloseMenu: TMenuItem;
133     OptionAction: TAction;
134 hi_ 1.1 U1: TMenuItem;
135     N3: TMenuItem;
136     B1: TMenuItem;
137     S1: TMenuItem;
138     N2: TMenuItem;
139     A1: TMenuItem;
140     L1: TMenuItem;
141     N5: TMenuItem;
142     S2: TMenuItem;
143 yoffy 1.51 RoundAction: TAction;
144 hi_ 1.1 ListPopupMenu: TPopupMenu;
145 yoffy 1.51 ListRoundPMenu: TMenuItem;
146 hi_ 1.1 ListReservPMenu: TMenuItem;
147     LPMSep01: TMenuItem;
148 yoffy 1.51 ItemRoundPMenu: TMenuItem;
149 hi_ 1.1 LPMSep02: TMenuItem;
150 yoffy 1.2 KidokuPMenu: TMenuItem;
151 hi_ 1.1 MidokuPMenu: TMenuItem;
152     AllSelectPMenu: TMenuItem;
153     UrlCopyPMenu: TMenuItem;
154     LPMSep05: TMenuItem;
155     DeletePMenu: TMenuItem;
156     LPMSep06: TMenuItem;
157     ViewPMenu: TMenuItem;
158     LargeIconLPMenu: TMenuItem;
159     SmallIconLPMenu: TMenuItem;
160     ListLPMenu: TMenuItem;
161     DetailLPMenu: TMenuItem;
162     T1: TMenuItem;
163     B2: TMenuItem;
164     N8: TMenuItem;
165     URLCopyAction: TAction;
166 yoffy 1.51 URLC1: TMenuItem;
167     N9: TMenuItem;
168 hi_ 1.1 N10: TMenuItem;
169 yoffy 1.51 MsgBarCloseAction: TAction;
170     ScrollTopAction: TAction;
171 hi_ 1.1 ScrollLastAction: TAction;
172     ScrollNewAction: TAction;
173     ScrollKokoAction: TAction;
174 yoffy 1.51 EditorAction: TAction;
175 hi_ 1.1 IEAction: TAction;
176     ItemReloadAction: TAction;
177 yoffy 1.51 BrowserMaxAction: TAction;
178 hi_ 1.1 G2: TMenuItem;
179     N11: TMenuItem;
180     T3: TMenuItem;
181     L2: TMenuItem;
182     N12: TMenuItem;
183     K1: TMenuItem;
184     N13: TMenuItem;
185     N14: TMenuItem;
186     R1: TMenuItem;
187     A2: TMenuItem;
188     N15: TMenuItem;
189 yoffy 1.51 SelectListReloadAction: TAction;
190     SelectThreadReloadAction: TAction;
191 hi_ 1.1 KokoPopupMenu: TPopupMenu;
192     KokomadePMenu: TMenuItem;
193 yoffy 1.2 AllPMenu: TMenuItem;
194 hi_ 1.1 MenuItem1: TMenuItem;
195     MenuItem2: TMenuItem;
196     BrowserTabCloseAction: TAction;
197     BrowserTabPopupMenu: TPopupMenu;
198 yoffy 1.51 Close1: TMenuItem;
199 hi_ 1.1 KokomadeAction: TAction;
200     ZenbuAction: TAction;
201     KokoResAction: TAction;
202     SelectItemURLCopyAction: TAction;
203     SelectReservAction: TAction;
204     NotSelectTabCloseAction: TAction;
205     A3: TMenuItem;
206 yoffy 1.51 N16: TMenuItem;
207 hi_ 1.1 A4: TMenuItem;
208     TreePopupMenu: TPopupMenu;
209     TreeSelectThreadPupupMenu: TMenuItem;
210 yoffy 1.51 TreeSelectBoardPupupMenu: TMenuItem;
211 hi_ 1.1 TPMSep01: TMenuItem;
212     TreeSelectURLPupupMenu: TMenuItem;
213     TreeSelectBoradReload: TAction;
214 yoffy 1.51 TreeSelectThreadReload: TAction;
215 hi_ 1.1 TreeSelectURLCopy: TAction;
216     ListToolBarVisibleAction: TAction;
217     BrowserToolBarVisibleAction: TAction;
218     T2: TMenuItem;
219 yoffy 1.2 L3: TMenuItem;
220 hi_ 1.1 B3: TMenuItem;
221     BrowserBottomPanel: TGikoPanel;
222     CabinetSelectPopupMenu: TPopupMenu;
223     H2: TMenuItem;
224 yoffy 1.51 ItemReservPMenu: TMenuItem;
225     RoundNamePopupMenu: TPopupMenu;
226 hi_ 1.1 SelectNewRoundName: TAction;
227 yoffy 1.51 SelectDeleteRound: TAction;
228     NewBoardAction: TAction;
229 yoffy 1.2 N7: TMenuItem;
230 hi_ 1.1 B4: TMenuItem;
231     LoginAction: TAction;
232     L4: TMenuItem;
233     KeySettingAction: TAction;
234     K2: TMenuItem;
235     AllTabCloseAction: TAction;
236 yoffy 1.51 A5: TMenuItem;
237 hi_ 1.1 A6: TMenuItem;
238 yoffy 1.51 C1: TMenuItem;
239     V1: TMenuItem;
240     N19: TMenuItem;
241 hi_ 1.1 D1: TMenuItem;
242 yoffy 1.51 D2: TMenuItem;
243     MessageImageList: TImageList;
244     ProgressBar: TProgressBar;
245     ArrangeAction: TAction;
246     URL1: TMenuItem;
247     NameURLCopyAction: TAction;
248     SelectItemNameURLCopyAction: TAction;
249 hi_ 1.1 NameUrlCopyPMenu: TMenuItem;
250     URLC2: TMenuItem;
251 yoffy 1.51 URLN1: TMenuItem;
252     N21: TMenuItem;
253     URLC3: TMenuItem;
254 yoffy 1.2 URLN2: TMenuItem;
255 yoffy 1.51 N23: TMenuItem;
256 yoffy 1.2 ListCoolBar: TGikoCoolBar;
257 hi_ 1.1 ListToolBar: TToolBar;
258 yoffy 1.2 BrowserCoolBar: TGikoCoolBar;
259 hi_ 1.1 BrowserToolBar: TToolBar;
260     ToolButton3: TToolButton;
261 yoffy 1.51 ToolButton9: TToolButton;
262 hi_ 1.1 ToolButton11: TToolButton;
263 yoffy 1.51 ToolButton5: TToolButton;
264 hi_ 1.1 ListNameToolBar: TToolBar;
265 yoffy 1.51 ListNameLabel: TLabel;
266 hi_ 1.1 FolderImage: TImage;
267     BrowserNameToolBar: TToolBar;
268     ItemBoardImage: TImage;
269     BrowserBoardNameLabel: TLabel;
270 yoffy 1.51 ItemImage: TImage;
271     BrowserNameLabel: TLabel;
272     ActiveLogDeleteAction: TAction;
273     D3: TMenuItem;
274     N25: TMenuItem;
275 hi_ 1.1 N26: TMenuItem;
276     ListNameBarVisibleAction: TAction;
277     D4: TMenuItem;
278     BrowserNameBarVisibleAction: TAction;
279     S3: TMenuItem;
280 yoffy 1.51 R2: TMenuItem;
281     TreeSelectNameURLCopy: TAction;
282     TreeSelectNameURLPupupMenu: TMenuItem;
283     N27: TMenuItem;
284 hi_ 1.1 H3: TMenuItem;
285     PaneInitAction: TAction;
286 yoffy 1.51 I1: TMenuItem;
287     BrowserTabToolBar: TToolBar;
288     BrowserTab: TTabControl;
289 yoffy 1.2 BrowserMinAction: TAction;
290 yoffy 1.51 About1: TMenuItem;
291     N28: TMenuItem;
292     SelectTextClearAction: TAction;
293     MailTextClearAction: TAction;
294 hi_ 1.1 NameTextClearAction: TAction;
295 yoffy 1.51 S4: TMenuItem;
296 yoffy 1.2 N29: TMenuItem;
297     N30: TMenuItem;
298 hi_ 1.1 LeftmostTabSelectAction: TAction;
299 yoffy 1.51 LeftTabSelectAction: TAction;
300     RightTabSelectAction: TAction;
301     RightmostTabSelectAction: TAction;
302 yoffy 1.2 N31: TMenuItem;
303 hi_ 1.1 L5: TMenuItem;
304 yoffy 1.51 L6: TMenuItem;
305 hi_ 1.1 A7: TMenuItem;
306 yoffy 1.51 R3: TMenuItem;
307 hi_ 1.1 FavoriteMenu: TMenuItem;
308 yoffy 1.51 FavoriteAddAction: TAction;
309     N32: TMenuItem;
310 hi_ 1.1 BoardFavoriteAddMenu: TMenuItem;
311 yoffy 1.2 BoardFavoriteAddAction: TAction;
312 hi_ 1.1 ThreadFavoriteAddAction: TAction;
313     ThreadFavoriteAddMenu: TMenuItem;
314     TreeSelectFavoriteAddAction: TAction;
315 yoffy 1.2 N33: TMenuItem;
316 hi_ 1.1 TreeSelectFavoriteAddPupupMenu: TMenuItem;
317     FavoriteArrangeAction: TAction;
318     FavoriteTreeView: TTreeView;
319 yoffy 1.51 StateIconImageList: TImageList;
320     TopPanel: TPanel;
321     TopRightPanel: TPanel;
322     AnimePanel: TPanel;
323 hi_ 1.1 Animate: TAnimate;
324     TopCoolPanel: TPanel;
325 yoffy 1.51 MainCoolBar: TGikoCoolBar;
326     MenuToolBar: TToolBar;
327     StdToolBar: TToolBar;
328     AddressToolBar: TToolBar;
329     AddressComboBox: TComboBox;
330     MoveToToolButton: TToolButton;
331 yoffy 1.2 MoveToAction: TAction;
332 yoffy 1.51 AddressImageList: TImageList;
333     AddressBarVisibleAction: TAction;
334     AddressToolBarMenu: TMenuItem;
335     T4: TMenuItem;
336 hi_ 1.1 BrowserTabVisibleAction: TAction;
337 yoffy 1.51 Show1: TMenuItem;
338     N34: TMenuItem;
339     BrowserTabTopAction: TAction;
340 yoffy 1.2 BrowserTabBottomAction: TAction;
341 hi_ 1.1 T5: TMenuItem;
342     B5: TMenuItem;
343 yoffy 1.51 N35: TMenuItem;
344     BrowserTabTabStyleAction: TAction;
345     BrowserTabButtonStyleAction: TAction;
346     BrowserTabFlatStyleAction: TAction;
347     A8: TMenuItem;
348     U2: TMenuItem;
349 hi_ 1.1 F1: TMenuItem;
350     PreviewTimer: TTimer;
351 yoffy 1.51 MonazillaWebPageAction: TAction;
352     MonazillaWebPageAction1: TMenuItem;
353 hi_ 1.1 GikoHelpAction: TAction;
354 yoffy 1.51 N36: TMenuItem;
355     H4: TMenuItem;
356     KotehanAction: TAction;
357     K3: TMenuItem;
358     LinkBarVisibleAction: TAction;
359     L7: TMenuItem;
360     N37: TMenuItem;
361     A9: TMenuItem;
362 yoffy 1.2 ChevronPopupMenu: TPopupMenu;
363 yoffy 1.51 BBS2chWebPageAction: TAction;
364 yoffy 1.2 N2N1: TMenuItem;
365 hi_ 1.1 N38: TMenuItem;
366     GikoFolderOpenAction: TAction;
367 yoffy 1.2 F2: TMenuItem;
368 yoffy 1.51 LinkToolBar: TToolBar;
369     a10: TMenuItem;
370     ThreadEditorAction: TAction;
371     N39: TMenuItem;
372     T6: TMenuItem;
373     N40: TMenuItem;
374 yoffy 1.2 LinkBarPopupMenu: TPopupMenu;
375 yoffy 1.51 ToolBarSettingAction: TAction;
376     T7: TMenuItem;
377     ThreadPopupMenu: TPopupMenu;
378     MenuItem4: TMenuItem;
379     MenuItem5: TMenuItem;
380     MenuItem6: TMenuItem;
381 yoffy 1.2 T8: TMenuItem;
382 yoffy 1.51 NameCopyAction: TAction;
383     BoardIEAction: TAction;
384     URLN3: TMenuItem;
385     SelectItemNameCopyAction: TAction;
386 yoffy 1.2 SelectItemNameCopyAction1: TMenuItem;
387 yoffy 1.51 B6: TMenuItem;
388     T9: TMenuItem;
389     C2: TMenuItem;
390     SelectComboBox: TComboBox;
391     MainCoolBarPopupMenu: TPopupMenu;
392     StdToolBarVisiblePMenu: TMenuItem;
393     AddressToolBarVisiblePMenu: TMenuItem;
394     LinkToolBarVisiblePMenu: TMenuItem;
395     NG1: TMenuItem;
396     NG2: TMenuItem;
397     N43: TMenuItem;
398     N44: TMenuItem;
399     L9: TMenuItem;
400     I3: TMenuItem;
401     N45: TMenuItem;
402     B9: TMenuItem;
403     R5: TMenuItem;
404     T12: TMenuItem;
405     Show3: TMenuItem;
406     N46: TMenuItem;
407     T13: TMenuItem;
408     B10: TMenuItem;
409     N47: TMenuItem;
410     A12: TMenuItem;
411     U4: TMenuItem;
412     F4: TMenuItem;
413     N48: TMenuItem;
414     T14: TMenuItem;
415     SelectResAction: TAction;
416     ToolButton16: TToolButton;
417     AllResAction: TAction;
418     N50: TMenuItem;
419     A11: TMenuItem;
420     S5: TMenuItem;
421     Reload: TMenuItem;
422     GoBack: TMenuItem;
423     GoFoward: TMenuItem;
424 h677 1.388 EditNGAction: TAction;
425 yoffy 1.51 ReloadAction: TAction;
426     GoFowardAction: TAction;
427     GoBackAction: TAction;
428     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     ActiveTab : Boolean = True
1082     ) : TBrowserRecord;
1083 hi_ 1.1 procedure ReloadBBS;
1084     function GetHttpState: Boolean;
1085     procedure SetEnabledCloseButton(Enabled: Boolean);
1086     function GetTreeNode(Data: TObject): TTreeNode;
1087     procedure AppFormDeactivate(Sender: TObject);
1088     procedure ListViewAllSelect;
1089     property ListStyle: TViewStyle read FListStyle write FListStyle;
1090     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1091     property ViewType: TGikoViewType read FViewType write FViewType;
1092     property NameCookie: string read FNameCookie write FNameCookie;
1093     property MailCookie: string read FMailCookie write FMailCookie;
1094 h677 1.299 procedure SetContent(inThread: TBrowserRecord);
1095 hi_ 1.1 function GetActiveContent: TThreadItem;
1096     function GetActiveList: TObject;
1097     procedure SetListViewType(AViewType: TGikoViewType); overload;
1098     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1099 q9_ 1.294 procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1100     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1101 hi_ 1.1 procedure PlaySound(SoundEventName: string);
1102 yoffy 1.136 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1103     procedure DeleteHistory( threadItem: TThreadItem );
1104 hi_ 1.1 procedure ClearHistory;
1105 yoffy 1.135 procedure SaveHistory;
1106     procedure LoadHistory;
1107 yoffy 1.123 procedure ShowBBSTree( inBBS : TBBS );
1108 yoffy 1.248 procedure ShowBBSTreeOld( inBBS : TBBS );
1109 hi_ 1.1 procedure ShowHistoryTree;
1110     procedure SetHistoryTreeNode;
1111     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1112     procedure SetBrowserTabState;
1113 yoffy 1.2 procedure SetToolBarPopup;
1114 yoffy 1.100 procedure ShowFavoriteAddDialog( Item : TObject );
1115 h677 1.433 procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1116     procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1117 yoffy 1.143 property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1118     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1119     property OddColor : TColor read FOddColor write FOddColor;
1120 yoffy 1.209 function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1121 yoffy 1.218 procedure OnPlugInMenuItem( Sender : TObject );
1122 h677 1.433 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1123     /// ListView 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申 KuroutSetting鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1124     procedure ActiveListColumnSave;
1125     procedure SetActiveList(Obj: TObject);
1126     property ActiveList: TObject read GetActiveList write SetActiveList;
1127 h677 1.482 /// CoolBar 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1128     procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1129 h677 1.485 //鐃緒申鐃緒申ID鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1130     procedure IndividualAbonID(Atype : Integer);
1131     //鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申
1132     procedure IndividualAbon(Atag, Atype : Integer);
1133 h677 1.492 //ID鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
1134     procedure IDAnchorPopup(Abody :string);
1135 hi_ 1.1 published
1136     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1137 h677 1.517 //TAction鐃緒申GetActiveContent鐃緒申nil鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1138     procedure DependActiveCntentActionUpdate(Sender: TObject);
1139     //TAction鐃緒申GetActiveContent鐃緒申nil鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1140     procedure DependActiveCntentLogActionUpdate(Sender: TObject);
1141     //TAction鐃緒申ActiveList鐃緒申TBoard鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1142     procedure DependActiveListTBoardActionUpdate(Sender: TObject);
1143     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1144     procedure AppException(Sender: TObject; E: Exception);
1145 hi_ 1.1 end;
1146    
1147     TFavoriteMenuItem = class(TMenuItem)
1148     private
1149     FData : Pointer;
1150     public
1151     property Data: Pointer read FData write FData;
1152     end;
1153    
1154 yoffy 1.123 TBBSMenuItem = class(TMenuItem)
1155     private
1156     FData : Pointer;
1157     public
1158     property Data: Pointer read FData write FData;
1159     end;
1160    
1161 hi_ 1.1 TLinkToolButton = class(TToolButton)
1162     private
1163     FData : Pointer;
1164     public
1165     property Data: Pointer read FData write FData;
1166     end;
1167    
1168 h677 1.299 TBrowserRecord = class( TObject )
1169     private
1170     FBrowser : TWebBrowser;
1171 yoffy 1.455 FEvent: THTMLDocumentEventSink; ///< 鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1172 h677 1.299 FThread : TThreadItem;
1173     FLastSize : Integer;
1174     FRepaint : Boolean;
1175 yoffy 1.455 FMovement : string; ///< 鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?
1176 h677 1.299 public
1177     destructor Destroy; override;
1178     property Browser : TWebBrowser read FBrowser write FBrowser;
1179     property Thread : TThreadItem read FThread write FThread;
1180     property LastSize : Integer read FLastSize write FLastSize;
1181     property Repaint : Boolean read FRepaint write FRepaint;
1182 yoffy 1.444 property Movement : string read FMovement write FMovement;
1183 h677 1.299 end;
1184    
1185 hi_ 1.1 var
1186     GikoForm: TGikoForm;
1187    
1188     implementation
1189    
1190     uses
1191 yoffy 1.480 About, Option, Round, Splash, Sort, ListSelect, Imm,
1192 h677 1.521 NewBoard, MojuUtils, Clipbrd, GikoBayesian,Y_TextConverter,
1193     HTMLCreate;
1194 hi_ 1.1
1195     const
1196     CAPTION_NAME: string = '鐃?鐃?鐃?鐃?';
1197     BLANK_HTML: string = 'about:blank';
1198 yoffy 1.51 SELECTCOMBOBOX_NAME: string = ''; // '鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申';
1199     SELECTCOMBOBOX_COLOR: TColor = clWindow;
1200 yoffy 1.120 //D&D鐃緒申鐃?
1201     DandD_THRESHOLD = 5; //D&D鐃緒申鐃緒申鐃?鐃?pixcel)
1202 yoffy 1.2 //鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1203     ITEM_ICON_2CH1 = 0; //2ch鐃?鐃?鐃?鐃緒申
1204     ITEM_ICON_2CH2 = 1; //2ch鐃?鐃?鐃?鐃緒申
1205     ITEM_ICON_CATEGORY1 = 2; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1206     ITEM_ICON_CATEGORY2 = 3; //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1207 yoffy 1.120 ITEM_ICON_BOARD_NOSUBJECT = 3; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1208 yoffy 1.2 ITEM_ICON_BOARD1 = 4; //鐃緒申鐃?鐃?鐃?鐃緒申
1209     ITEM_ICON_BOARD2 = 5; //鐃緒申鐃?鐃?鐃?鐃緒申
1210     ITEM_ICON_THREADLOG1 = 6; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1211     ITEM_ICON_THREADLOG2 = 7; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1212     ITEM_ICON_THREAD1 = 8; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1213     ITEM_ICON_THREAD2 = 9; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1214     ITEM_ICON_THREADNEW1 = 10; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1215     ITEM_ICON_THREADNEW2 = 11; //鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?
1216     ITEM_ICON_SORT1 = 12; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1217     ITEM_ICON_SORT2 = 13; //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申
1218 yoffy 1.120 ITEM_ICON_BOARD_LOG = 17; //鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1219     ITEM_ICON_BOARD_NEW = 18; //鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1220 yoffy 1.2
1221     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1222 yoffy 1.48 TOOL_ICON_HEIGHT_MAX = 16; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1223     TOOL_ICON_HEIGHT_MIN = 17; //鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1224     TOOL_ICON_HEIGHT_NORMAL = 18; //鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1225     TOOL_ICON_WIDTH_MAX = 19; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1226     TOOL_ICON_WIDTH_MIN = 20; //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1227     TOOL_ICON_WIDTH_NORMAL = 21; //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1228    
1229 yoffy 1.51 TOOL_ICON_FAV_FOLDER = 30; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申
1230 yoffy 1.100 TOOL_ICON_FAV_BOARD = 31; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1231 yoffy 1.51 TOOL_ICON_FAV_THREAD = 32; //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1232 hi_ 1.1
1233     HTML_FILE_NAME = 'temp_preview.html';
1234    
1235 yoffy 1.253 WM_XBUTTONDOWN = $020B;
1236     WM_XBUTTONUP = $020C;
1237     WM_XBUTTONDBLCLK = $020D;
1238     XBUTTON1 = $0001;
1239     XBUTTON2 = $0002;
1240 yoffy 1.278 USER_TREECLICK = WM_USER + 2000;
1241     USER_RESIZED = WM_USER + 2001;
1242     USER_MINIMIZED = WM_USER + 2002;
1243     USER_SETLINKBAR = WM_USER + 2003;
1244 yoffy 1.434 USER_DOCUMENTCOMPLETE = WM_USER + 2004; ///< wParam : TWebBrowser
1245 h677 1.340 SELECTTIME_INTERBAL = 110;
1246    
1247     BROWSER_COUNT = 5; //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申
1248 hi_ 1.1 {$R *.DFM}
1249    
1250     procedure TGikoForm.CreateParams(var Params: TCreateParams);
1251     begin
1252     inherited;
1253     if FormStyle in [fsNormal, fsStayOnTop] then begin
1254     if BorderStyle in [bsSingle, bsSizeable] then begin
1255     Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
1256     Params.WndParent := 0;
1257     end;
1258     end;
1259     end;
1260    
1261     procedure TGikoForm.FormCreate(Sender: TObject);
1262     const
1263     TVS_NOTOOLTIPS = $0080;
1264     var
1265     FileName: string;
1266     Style: DWORD;
1267     msg: string;
1268     i: Integer;
1269     wp: TWindowPlacement;
1270 hi_ 1.32 s: string;
1271 h677 1.303 newbrowser: TWebBrowser;
1272 h677 1.517 ToolButton: TToolButton;
1273 hi_ 1.1 begin
1274     {$IFDEF DEBUG}
1275     AllocConsole;
1276     Writeln('============================================================');
1277     Writeln(' 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃? 鐃?鐃緒申鐃?鐃?鐃緒申');
1278     Writeln('');
1279     Writeln(' 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?');
1280     Writeln(' 鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申');
1281     Writeln('============================================================');
1282     {$ENDIF}
1283 h677 1.514 FTreeType := gttNone;
1284     // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1285 h677 1.471 FStartUp := true;
1286 h677 1.496 // LockWindowUpdate(Self.Handle);
1287 h677 1.510 Application.OnDeactivate := AppFormDeactivate;
1288     //Self.OnDeactivate := AppFormDeactivate;
1289 hi_ 1.1 Application.HookMainWindow(Hook);
1290 h677 1.517 Application.OnException := AppException; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1291 h677 1.463 // Application.OnMessage := HandleAppMessage; //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?by鐃?鐃緒申鐃緒申鐃緒申
1292 h677 1.514 FIsIgnoreResize := rtResizing;
1293 hi_ 1.1
1294 yoffy 1.51 FSearchDialog := nil;
1295 h677 1.299 BrowserNullTab := TBrowserRecord.Create;
1296 h677 1.527.2.7 Browser.ControlInterface.FullScreen := true;
1297 h677 1.299 BrowserNullTab.Browser := Browser;
1298 h677 1.527.2.7
1299 h677 1.316 BrowserNullTab.Browser.Navigate(BLANK_HTML);
1300 h677 1.303 FBrowsers := TList.Create;
1301 h677 1.340 for i := 0 to BROWSER_COUNT -1 do begin
1302 h677 1.514 FBrowsers.Add(TWebBrowser.Create(BrowserPanel));
1303 h677 1.345 newBrowser := FBrowsers[FBrowsers.Count - 1];
1304 h677 1.303 TOleControl(newBrowser).Parent := BrowserPanel;
1305 h677 1.511 TOleControl(newBrowser).Align := alNone;
1306     TOleControl(newBrowser).Left := 0;
1307     TOleControl(newBrowser).Top := 0;
1308 h677 1.527.2.6 newBrowser.ControlInterface.Silent := true;
1309 h677 1.527.2.7 newBrowser.ControlInterface.FullScreen := true;
1310 h677 1.303 newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1311     newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1312     newBrowser.OnEnter := BrowserEnter;
1313     newBrowser.OnNewWindow2 := BrowserNewWindow2;
1314     newBrowser.OnStatusTextChange := BrowserStatusTextChange;
1315 h677 1.306 newBrowser.Navigate(BLANK_HTML);
1316 h677 1.316 ShowWindow(newBrowser.Handle, SW_HIDE);
1317 h677 1.303 end;
1318 h677 1.316 BrowserNullTab.Browser.BringToFront;
1319     ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
1320 h677 1.527.2.6
1321 h677 1.514 //鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?
1322     SetMenuFont;
1323 yoffy 1.216
1324 hi_ 1.1 //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
1325     Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1326    
1327     //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1328 h677 1.513 //AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1329     AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
1330 hi_ 1.1
1331     EnabledCloseButton := True;
1332 h677 1.176
1333 hi_ 1.1 //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1334     ListView.ViewStyle := GikoSys.Setting.ListStyle;
1335    
1336     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?
1337     AnimePanel.Top := 0;
1338     AnimePanel.Left := 0;
1339    
1340     //鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1341    
1342     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1343     CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1344    
1345     //鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1346     MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1347     MsgBarVisibleActionExecute(nil);
1348     MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1349    
1350     //鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1351     StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1352     StatusBarVisibleActionExecute(nil);
1353    
1354     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
1355     TreeView.Items.BeginUpdate;
1356 yoffy 1.100 FavoriteTreeView.Items.BeginUpdate;
1357 hi_ 1.1 ListView.Items.BeginUpdate;
1358     try
1359     TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1360     TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1361     TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1362     TreeView.Color := GikoSys.Setting.CabinetBackColor;
1363 h677 1.473 FavoriteTreeView.Font.Assign(TreeView.Font);
1364 yoffy 1.67 FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1365    
1366 hi_ 1.1 ListView.Font.Name := GikoSys.Setting.ListFontName;
1367     ListView.Font.Size := GikoSys.Setting.ListFontSize;
1368     ListView.Font.Color := GikoSys.Setting.ListFontColor;
1369 h677 1.473 ListView.Font.Style := [];
1370     if GikoSys.Setting.ListFontBold then
1371     ListView.Font.Style := [fsbold];
1372     if GikoSys.Setting.ListFontItalic then
1373     ListView.Font.Style := ListView.Font.Style + [fsitalic];
1374    
1375 yoffy 1.418 ListViewBackGroundColor := clWhite; // 鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1376     ListViewBackGroundColor := GikoSys.Setting.ListBackColor; // 鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?
1377 yoffy 1.236 FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1378     FOddColor := GikoSys.Setting.OddColor;
1379 h677 1.109
1380 hi_ 1.1 finally
1381     TreeView.Items.EndUpdate;
1382 yoffy 1.100 FavoriteTreeView.Items.EndUpdate;
1383 hi_ 1.1 ListView.Items.EndUpdate;
1384     end;
1385     //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1386     ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
1387    
1388     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?
1389     BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1390     BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1391 h677 1.473 BrowserTab.Font.Style := [];
1392     if GikoSys.Setting.BrowserTabFontBold then
1393     BrowserTab.Font.Style := [fsBold];
1394     if GikoSys.Setting.BrowserTabFontItalic then
1395     BrowserTab.Font.Style := GikoForm.BrowserTab.Font.Style + [fsItalic];
1396 yoffy 1.133 FDragWFirst := false;
1397 h677 1.299 SetContent(BrowserNullTab); //鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1398    
1399 h677 1.514 //鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1400     ProgressBar.Parent := StatusBar;
1401     ProgressBar.Top := 2;
1402     ProgressBar.Left := 0;
1403     ProgressBar.Width := StatusBar.Panels[0].Width;
1404     ProgressBar.Height := StatusBar.Height - 2;
1405     ProgressBar.Position := 0;
1406    
1407     // 鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?(ReadBoardFile, LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1408     InitializeBoardPlugIns;
1409    
1410     // 鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申(ReadFavorite 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1411     GikoSys.ListBoardFile;
1412    
1413     // 鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
1414     SplashWindow.ProgressBar.Max := Length(BBSs) * 20;
1415    
1416     // 鐃緒申鐃緒申鐃緒申鐃緒申BBS鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1417     for i := Length(BBSs) - 1 downto 0 do begin
1418     if not BBSs[i].IsBoardFileRead then
1419     GikoSys.ReadBoardFile(BBSs[i]);
1420    
1421     if SplashWindow <> nil then begin
1422     SplashWindow.ProgressBar.StepBy(20);
1423     SplashWindow.Update;
1424     end;
1425     end;
1426     //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1427     RoundList := TRoundList.Create;
1428     RoundList.LoadRoundBoardFile;
1429     RoundList.LoadRoundThreadFile;
1430    
1431     //TreeView鐃緒申鐃緒申鐃緒申鐃?鐃緒申ToolTip鐃緒申鐃緒申鐃?鐃緒申
1432     Style := GetWindowLong(TreeView.Handle, GWL_STYLE);
1433     Style := Style or TVS_NOTOOLTIPS;
1434     SetWindowLong(TreeView.Handle, GWL_STYLE, Style);
1435    
1436     // 鐃?鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1437     TreeView.Align := alClient;
1438     FavoriteTreeView.Align := alClient;
1439     FavoriteTreeView.Visible := False;
1440    
1441     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1442     SetBBSMenu;
1443 hi_ 1.1
1444     //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1445     wp.length := sizeof(wp);
1446     wp.rcNormalPosition.Top := GikoSys.Setting.WindowTop;
1447     wp.rcNormalPosition.Left := GikoSys.Setting.WindowLeft;
1448     wp.rcNormalPosition.Bottom := GikoSys.Setting.WindowTop + GikoSys.Setting.WindowHeight;
1449     wp.rcNormalPosition.Right := GikoSys.Setting.WindowLeft + GikoSys.Setting.WindowWidth;
1450     wp.showCmd := SW_HIDE;
1451     SetWindowPlacement(Handle, @wp);
1452 h677 1.514 //Self.Update;
1453 hi_ 1.1
1454     if GikoSys.Setting.WindowMax then
1455 h677 1.514 WindowState := wsMaximized;
1456 hi_ 1.1
1457     //鐃?鐃?鐃?鐃?鐃緒申
1458     try
1459     FileName := GikoSys.GetAppDir + 'gikoNavi.avi';
1460     if FileExists(FileName) then
1461     Animate.FileName := FileName;
1462     except
1463     end;
1464    
1465     //鐃?鐃?鐃?鐃?
1466     FNameCookie := '';
1467     FMailCookie := '';
1468    
1469     //鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1470     AllItemAction.Checked := True;
1471 yoffy 1.126 AllResAction.Checked := True;
1472 hi_ 1.1
1473     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1474     FBrowserSizeHeight := GikoSys.Setting.ListHeight;
1475     FBrowserSizeWidth := GikoSys.Setting.ListWidth;
1476    
1477 yoffy 1.420
1478     // 鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?(LoadHistory 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申)
1479     FHistoryList := TList.Create;
1480    
1481     // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1482     LoadHistory;
1483    
1484     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1485     FavoriteDM.SetFavTreeView(FavoriteTreeView);
1486     FavoriteDM.ReadFavorite;
1487    
1488 hi_ 1.1 ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1489     ArrangeAction.Execute;
1490    
1491     if GikoSys.Setting.ListOrientation = gloHorizontal then begin
1492     case GikoSys.Setting.ListWidthState of
1493     glsMax: begin
1494     ViewPanel.Width := 1;
1495 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1496     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1497 hi_ 1.1 end;
1498     glsMin: begin
1499     ViewPanel.Width := GikoSys.Setting.ListWidth;
1500 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1501     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1502 hi_ 1.1 end;
1503     else begin
1504     ViewPanel.Width := GikoSys.Setting.ListWidth;
1505 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1506     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1507 hi_ 1.1 end;
1508     end;
1509     end else begin
1510     case GikoSys.Setting.ListHeightState of
1511     glsMax: begin
1512     ViewPanel.Height := 1;
1513 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1514     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1515 hi_ 1.1 end;
1516     glsMin: begin
1517     ViewPanel.Height := GikoSys.Setting.ListHeight;
1518 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1519     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1520 hi_ 1.1 end;
1521     else begin
1522     ViewPanel.Height := GikoSys.Setting.ListHeight;
1523 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1524     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1525 hi_ 1.1 end;
1526     end;
1527     end;
1528    
1529     //鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃?
1530     FControlThread := TThreadControl.Create(True);
1531     FControlThread.MaxThreadCount := 1;
1532     FControlThread.Resume;
1533     FControlThread.OnDownloadEnd := DownloadEnd;
1534     FControlThread.OnDownloadMsg := DownloadMsg;
1535     FControlThread.OnWork := Work;
1536     FControlThread.OnWorkBegin := WorkBegin;
1537     FControlThread.OnWorkEnd := WorkEnd;
1538     // ProgressPanel.Width := FControlThread.MaxThreadCount * 12;
1539    
1540 yoffy 1.51 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1541     SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
1542 yoffy 1.2
1543 hi_ 1.1 //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申
1544     SetBrowserTabState;
1545    
1546     BrowserBoardNameLabel.Caption := '';
1547     BrowserNameLabel.Caption := '';
1548     FWorkCount := 0;
1549    
1550     FTabHintIndex := -1;
1551    
1552     //鐃?鐃?鐃緒申鐃?鐃?Wrapable
1553     ListToolBar.Wrapable := GikoSys.Setting.ListToolBarWrapable;
1554     BrowserToolBar.Wrapable := GikoSys.Setting.BrowserToolBarWrapable;
1555    
1556 yoffy 1.236 MakeDefaultINIFile();
1557 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1558     ReadToolBarSetting(ActionList, StdToolBar);
1559     ReadToolBarSetting(ActionList, ListToolBar);
1560     ReadToolBarSetting(ActionList, BrowserToolBar);
1561     SetToolBarPopup;
1562 yoffy 1.375
1563 h677 1.517 //ListToolBar鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申ComboBox鐃緒申鐃?鐃?
1564     SelectComboBoxPanel.Visible := False;
1565     try
1566     for i := ListToolBar.ControlCount - 1 downto 0 do
1567     begin
1568     if ListToolBar.Controls[ i ].Action = SelectItemAction then
1569     begin
1570     SelectComboBoxPanel.Left := ListToolBar.Controls[ i ].Left;
1571     SelectComboBoxPanel.Width := GikoSys.Setting.SelectComboBoxWidth;
1572     SelectComboBoxPanel.Parent := ListToolBar;
1573     SelectComboBoxPanel.Visible := True;
1574    
1575     SelectComboBox.Left := 0;
1576     SelectComboBox.Top := 0;
1577     SelectComboBox.Height := SelectComboBoxPanel.ClientHeight;
1578     SelectComboBox.Width := SelectComboBoxPanel.Width -
1579     SelectComboBoxSplitter.Width;
1580    
1581     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1582     ToolButton := TToolButton.Create(ListToolBar);
1583     ToolButton.Name := 'SelectComboBoxDummy';
1584     ToolButton.Style := tbsSeparator;
1585     ToolButton.Width := 0;
1586     ToolButton.Left := ListToolBar.Controls[ i ].Left;
1587     ListToolBar.InsertControl(ToolButton);
1588     ToolButton.Visible := False;
1589    
1590     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1591     if (i + 1) < ListToolBar.ControlCount then
1592     if ListToolBar.Controls[ i + 1 ] is TToolButton then
1593     if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
1594     ListToolBar.Controls[ i + 1 ].Visible := False;
1595    
1596    
1597     // 鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申
1598     ListToolBar.Controls[ i ].Visible := False;
1599    
1600     break;
1601     end;
1602     end;
1603     except
1604     end;
1605    
1606 h677 1.514
1607     //鐃?鐃?鐃緒申鐃?鐃?鐃?
1608     AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1609    
1610     //鐃緒申鐃緒申鐃?鐃?鐃?
1611     SetLinkBar;
1612    
1613 yoffy 1.375 // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1614 yoffy 1.383 FResRangeMenuSelect := GikoSys.ResRange;
1615 yoffy 1.375 case GikoSys.ResRange of
1616     Ord( grrAll ):
1617     begin
1618     AllResAction.Execute;
1619     end;
1620     Ord( grrSelect ):
1621     begin
1622 yoffy 1.383 SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1623 yoffy 1.375 SelectResAction.Checked := True;
1624     end;
1625     else
1626     // ResRangeAction.Execute;
1627     case FResRangeMenuSelect of
1628     Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1629     Ord( grrNew ): OnlyNewResAction.Checked := True;
1630 yoffy 1.389 100: OnlyAHundredResAction.Checked := True;
1631 yoffy 1.375 end;
1632     end;
1633    
1634 yoffy 1.390 // 鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
1635     // ThreadRangeAction.Execute;
1636     case GikoSys.Setting.ThreadRange of
1637     gtrAll:
1638     begin
1639     AllItemAction.Checked := True;
1640     ViewType := gvtAll;
1641     end;
1642     gtrLog:
1643     begin
1644     LogItemAction.Checked := True;
1645     ViewType := gvtLog;
1646     end;
1647     gtrNew:
1648     begin
1649     NewItemAction.Checked := True;
1650     ViewType := gvtNew;
1651     end;
1652     end;
1653    
1654 hi_ 1.1
1655 yoffy 1.2 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1656    
1657     //鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
1658     if not FileExists(GikoSys.GetBoardFileName) then begin
1659     msg := '鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申' + #13#10#13#10
1660     + '鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申' + #13#10
1661     + '鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?';
1662     MsgBox(SplashWindow.Handle, msg, '鐃?鐃?鐃?鐃?', MB_OK or MB_ICONINFORMATION);
1663     NewBoardAction.Execute;
1664     end;
1665    
1666     //鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1667     GikoSys.LoadKeySetting(ActionList);
1668    
1669     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
1670     // FLastRoundTime := 0;
1671    
1672     //ResHint
1673     FHint := TResPopup.Create(Self);
1674    
1675 yoffy 1.100 // 鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申
1676 h677 1.299 CabinetVisible( False );
1677 yoffy 1.141 if GikoSys.Setting.CabinetVisible then begin
1678     i := CabinetSelectPopupMenu.Items.Count - 1;
1679     if GikoSys.Setting.CabinetIndex = i - 1 then
1680     CabinetHistoryAction.Execute
1681     else if GikoSys.Setting.CabinetIndex = i then
1682     CabinetFavoriteAction.Execute
1683     else begin
1684     if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
1685     ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
1686 yoffy 1.265 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 2
1687 yoffy 1.424 FIsIgnoreResize := rtResizing;
1688 yoffy 1.141 CabinetBBSAction.Execute;
1689     end;
1690     end else begin
1691 yoffy 1.248 ShowBBSTreeOld( BBSs[ 0 ] );
1692     PostMessage( Handle, USER_TREECLICK, 0, 0 );
1693 yoffy 1.141 end;
1694 yoffy 1.67
1695 yoffy 1.2
1696     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
1697     for i := 1 to ParamCount do begin
1698     MoveToURL(ParamStr(i));
1699     end;
1700 h677 1.22
1701 hi_ 1.32 s := GikoSys.FAbon.NGwordname;
1702     StatusBar.Panels[2].Text := s;
1703     StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1704     StatusBarResize(Sender);
1705 h677 1.187
1706 yoffy 1.236 dummy1.Caption := ItemReservPMenu.Caption;
1707     dummy1.Hint := ItemReservPMenu.Hint;
1708 yoffy 1.216
1709 yoffy 1.236 //Samba24鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?
1710     GikoSys.SambaFileExists();
1711 h677 1.299
1712 yoffy 1.500 {$IFDEF SPAM_FILTER_ENABLED}
1713 yoffy 1.468 // 鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申
1714     GikoSys.Bayesian.LoadFromFile( GikoSys.Setting.GetSpamFilterFileName );
1715 yoffy 1.500 {$ENDIF}
1716 yoffy 1.468
1717 yoffy 1.456 // 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?
1718     MouseGesture := TMouseGesture.Create;
1719     GikoSys.Setting.Gestures.LoadGesture(
1720     GikoSys.Setting.GetGestureFileName, ActionList );
1721     MouseGesture.Margin := GikoSys.Setting.Gestures.Margin;
1722     MouseGesture.OnGestureStart := OnGestureStart;
1723     MouseGesture.OnGestureMove := OnGestureMove;
1724     MouseGesture.OnGestureEnd := OnGestureEnd;
1725 yoffy 1.457 if GikoSys.Setting.GestureEnabled then
1726     MouseGesture.SetHook( Handle );
1727 genyakun 1.458
1728 h677 1.483 //2ch鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申
1729 h677 1.514 GikoSys.Setting.SetMessages;
1730    
1731 genyakun 1.497 //鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申
1732     if GikoSys.Setting.AutoLogin then
1733     LoginAction.Execute;
1734    
1735 h677 1.486 MuteAction.Checked := GikoSys.Setting.Mute;
1736 h677 1.510
1737 h677 1.514 GikoSys.Setting.BeLogin := GikoSys.Setting.BeAutoLogin;
1738 h677 1.496 // LockWindowUpdate(0);
1739 yoffy 1.2 end;
1740    
1741 yoffy 1.216 // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1742     procedure TGikoForm.SaveCoolBarSettings;
1743 yoffy 1.2 begin
1744    
1745 yoffy 1.424 if IsIconic( Handle ) or (FIsIgnoreResize <> rtNone) then
1746 yoffy 1.216 Exit;
1747 h677 1.471 SaveMainCoolBarSettings;
1748     SaveBoardCoolBarSettings;
1749     SaveBrowserCoolBarSettings;
1750 yoffy 1.2
1751 h677 1.471 end;
1752     procedure TGikoForm.SaveMainCoolBarSettings;
1753     var
1754     i : Integer;
1755     CoolSet : TCoolSet;
1756     begin
1757 yoffy 1.216 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1758     for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin
1759     CoolSet.FCoolID := MainCoolBar.Bands[i].ID;
1760     CoolSet.FCoolWidth := MainCoolBar.Bands[i].Width;
1761     CoolSet.FCoolBreak := MainCoolBar.Bands[i].Break;
1762     GikoSys.Setting.MainCoolSet[i] := CoolSet;
1763     end;
1764 h677 1.471 end;
1765     procedure TGikoForm.SaveBoardCoolBarSettings;
1766     var
1767     i : Integer;
1768     CoolSet : TCoolSet;
1769     begin
1770 yoffy 1.216 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1771     for i := 0 to LIST_COOLBAND_COUNT - 1 do begin
1772     CoolSet.FCoolID := ListCoolBar.Bands[i].ID;
1773     CoolSet.FCoolWidth := ListCoolBar.Bands[i].Width;
1774     CoolSet.FCoolBreak := ListCoolBar.Bands[i].Break;
1775     GikoSys.Setting.ListCoolSet[i] := CoolSet;
1776     end;
1777 h677 1.471 end;
1778     procedure TGikoForm.SaveBrowserCoolBarSettings;
1779     var
1780     i : Integer;
1781     CoolSet : TCoolSet;
1782     begin
1783 yoffy 1.216 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1784     for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin
1785     CoolSet.FCoolID := BrowserCoolBar.Bands[i].ID;
1786     CoolSet.FCoolWidth := BrowserCoolBar.Bands[i].Width;
1787     CoolSet.FCoolBreak := BrowserCoolBar.Bands[i].Break;
1788     GikoSys.Setting.BrowserCoolSet[i] := CoolSet;
1789 yoffy 1.2 end;
1790 yoffy 1.216 end;
1791     // CoolBar 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1792     procedure TGikoForm.LoadCoolBarSettings;
1793     var
1794     i : Integer;
1795     CoolSet : TCoolSet;
1796     begin
1797 yoffy 1.2
1798 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Main)
1799     MainCoolBar.Bands.BeginUpdate;
1800     try
1801 yoffy 1.216 // for i := 0 to MainCoolBar.Bands.Count - 1 do begin
1802     for i := MAIN_COOLBAND_COUNT - 1 downto 0 do begin
1803 hi_ 1.1 CoolSet := GikoSys.Setting.MainCoolSet[i];
1804 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1805 yoffy 1.424 FIsIgnoreResize := rtNone;
1806 yoffy 1.263 SaveCoolBarSettings;
1807     Exit;
1808     end;
1809 hi_ 1.1 MainCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1810     MainCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1811 yoffy 1.264 MainCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1812 hi_ 1.1 end;
1813     finally
1814     MainCoolBar.Bands.EndUpdate;
1815     end;
1816    
1817     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Board)
1818     ListCoolBar.Bands.BeginUpdate;
1819     try
1820 yoffy 1.216 // for i := 0 to ListCoolBar.Bands.Count - 1 do begin
1821     for i := LIST_COOLBAND_COUNT - 1 downto 0 do begin
1822 hi_ 1.1 CoolSet := GikoSys.Setting.ListCoolSet[i];
1823 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1824 yoffy 1.424 FIsIgnoreResize := rtNone;
1825 yoffy 1.263 SaveCoolBarSettings;
1826     Exit;
1827     end;
1828 hi_ 1.1 ListCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1829     ListCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1830     ListCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1831     end;
1832     finally
1833     ListCoolBar.Bands.EndUpdate;
1834     end;
1835    
1836     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申(Browser)
1837     BrowserCoolBar.Bands.BeginUpdate;
1838     try
1839 yoffy 1.216 // for i := 0 to BrowserCoolBar.Bands.Count - 1 do begin
1840 h677 1.514 for i := BROWSER_COOLBAND_COUNT - 1 downto 0 do begin
1841 hi_ 1.1 CoolSet := GikoSys.Setting.BrowserCoolSet[i];
1842 yoffy 1.263 if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1843 yoffy 1.424 FIsIgnoreResize := rtNone;
1844 yoffy 1.263 SaveCoolBarSettings;
1845     Exit;
1846     end;
1847 hi_ 1.1 BrowserCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1848     BrowserCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1849     BrowserCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1850     end;
1851     finally
1852     BrowserCoolBar.Bands.EndUpdate;
1853     end;
1854    
1855     end;
1856 yoffy 1.216
1857     //
1858     //
1859     //
1860     procedure TGikoForm.FormShow(Sender: TObject);
1861     begin
1862 h677 1.471 if FStartUp then begin
1863 h677 1.423 ShowWindow(Application.Handle, SW_HIDE);
1864    
1865     //FormCreate鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申FormShow鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1866     //鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申
1867     StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1868     StdToolBarVisibleActionExecute( nil );
1869     AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1870     AddressBarVisibleActionExecute( nil );
1871     LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1872     LinkBarVisibleActionExecute( nil );
1873     ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1874     ListToolBarVisibleActionExecute( nil );
1875     ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1876     ListNameBarVisibleActionExecute( nil );
1877     BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1878     BrowserToolBarVisibleActionExecute( nil );
1879     BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1880     BrowserNameBarVisibleActionExecute( nil );
1881    
1882     //鐃?鐃緒申鐃?鐃?鐃?鐃?
1883     BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1884     BrowserTabVisibleActionExecute(nil);
1885 yoffy 1.216
1886 h677 1.423 if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1887     BrowserTabTopAction.Checked := True;
1888     BrowserTabTopActionExecute(nil);
1889     end else begin
1890     BrowserTabBottomAction.Checked := True;
1891     BrowserTabBottomActionExecute(nil);
1892     end;
1893    
1894     if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1895     BrowserTabTabStyleAction.Checked := True;
1896     BrowserTabTabStyleActionExecute(nil);
1897     end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1898     BrowserTabButtonStyleAction.Checked := True;
1899     BrowserTabButtonStyleActionExecute(nil);
1900     end else begin
1901     BrowserTabFlatStyleAction.Checked := True;
1902     BrowserTabFlatStyleActionExecute(nil);
1903     end;
1904 yoffy 1.216
1905 h677 1.423 // ListView 鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?
1906 yoffy 1.425 // ListView.FullDrag := True;
1907 yoffy 1.408
1908 h677 1.423 // CoolBar 鐃緒申鐃緒申
1909     LoadCoolBarSettings;
1910 yoffy 1.265
1911 h677 1.514 //鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
1912 h677 1.517 // ResetBandInfo( ListCoolBar, ListToolBar );
1913 yoffy 1.424 FIsIgnoreResize := rtNone;
1914 genyakun 1.382
1915 h677 1.423 //TabAutoLoad
1916     //FormCrete鐃緒申鐃緒申鐃緒申鐃緒申鐃?
1917     if GikoSys.Setting.TabAutoLoadSave then begin
1918     TabAutoLoadAction.Execute;
1919     end;
1920 h677 1.466 //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
1921     if GikoSys.Setting.GengoSupport then begin
1922     //鐃?鐃緒申鐃?
1923     //Test鐃緒申鐃緒申
1924     end;
1925 h677 1.471 FStartUp := false;
1926 yoffy 1.397 end;
1927 yoffy 1.239 end;
1928 yoffy 1.216
1929 hi_ 1.1 procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1930     begin
1931 yoffy 1.331 // if GikoForm.WindowState <> wsMinimized then
1932     // SaveCoolBarSettings;
1933 yoffy 1.236 if ( GikoSys.Setting.ShowDialogForEnd ) and
1934     (MessageDlg('鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1935     CanClose := false;
1936     Exit;
1937     end else begin
1938     CanClose := True;
1939 yoffy 1.398 if GikoSys.Setting.TabAutoLoadSave then begin
1940     TabAutoSaveAction.Execute;
1941     end;
1942 yoffy 1.236 end;
1943 h677 1.498 { //2ch鐃緒申鐃緒申鐃緒申鐃緒申Free
1944 h677 1.462 if GikoSys.Setting.Gengo <> nil then begin
1945     GikoSys.Setting.Gengo.Free;
1946 genyakun 1.458 end;
1947 h677 1.498 }
1948 h677 1.241 //Application.HookMainWindow(Hook);
1949     Application.UnhookMainWindow(Hook);
1950     Application.Terminate;
1951     end;
1952    
1953     procedure TGikoForm.FormDestroy(Sender: TObject);
1954     var
1955 yoffy 1.376 i : Integer;
1956 h677 1.241 // CoolSet: TCoolSet;
1957 yoffy 1.376 wp : TWindowPlacement;
1958     tmpBool : Boolean;
1959 h677 1.241 begin
1960 h677 1.181 // Application.OnDeactivate := nil;
1961     // Self.OnDeactivate := nil;
1962 yoffy 1.460 // 鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申
1963 yoffy 1.456 try
1964     MouseGesture.UnHook;
1965     except
1966     end;
1967 yoffy 1.236 try
1968 yoffy 1.410 ActiveListColumnSave;
1969 yoffy 1.236 except
1970     end;
1971     try
1972 h677 1.234 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
1973     wp.length := sizeof(wp);
1974     GetWindowPlacement(Handle, @wp);
1975     GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1976     GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1977     GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1978     GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1979     GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1980    
1981     GikoSys.Setting.ListStyle := ListView.ViewStyle;
1982     GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1983     GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1984     GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1985     GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1986     if ArrangeAction.Checked then
1987     GikoSys.Setting.ListOrientation := gloVertical
1988     else
1989     GikoSys.Setting.ListOrientation := gloHorizontal;
1990     GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1991 yoffy 1.236 except
1992 yoffy 1.2 end;
1993 yoffy 1.378
1994     try
1995     // 鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申
1996     if not GikoSys.Setting.ResRangeHold then
1997 yoffy 1.380 GikoSys.Setting.ResRange := FResRangeMenuSelect;
1998 yoffy 1.378 except
1999     end;
2000 h677 1.483 if WindowState <> wsNormal then
2001     WindowState := wsNormal;
2002     SaveCoolBarSettings;
2003     try
2004     GikoSys.Setting.WriteWindowSettingFile;
2005     GikoSys.Setting.WriteNameMailSettingFile;
2006     except
2007     end;
2008 yoffy 1.378 // 鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申 CoolBar 鐃緒申鐃緒申
2009 yoffy 1.216 // 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2010 h677 1.482
2011 yoffy 1.263 // 鐃緒申FormDestroy鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?2004/04/09鐃?
2012 yoffy 1.216 // CoolBar 鐃緒申鐃緒申
2013 h677 1.482 //if (GikoForm.WindowState <> wsMinimized) and (GikoForm.WindowState <> wsMaximized) then
2014 h677 1.483
2015 yoffy 1.2
2016     //鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
2017 hi_ 1.1 try
2018 yoffy 1.236 //FavoriteDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2019 yoffy 1.2 FavoriteDM.WriteFavorite;
2020 yoffy 1.236 FavoriteDM.Clear;
2021 hi_ 1.1 except
2022     end;
2023 h677 1.483 LockWindowUpdate(Self.Handle);
2024 hi_ 1.1 try
2025     //鐃?鐃?鐃?鐃緒申鐃?鐃?
2026 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2027     GikoSys.Setting.ShowDialogForAllTabClose := false;
2028     AllTabCloseAction.Execute;
2029 h677 1.483 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2030 h677 1.299 except
2031     end;
2032 h677 1.321 try
2033     for i := FBrowsers.Count - 1 downto 0 do begin
2034     TWebBrowser(FBrowsers[i]).Free;
2035     end;
2036     FBrowsers.Clear;
2037     FBrowsers.Capacity := 0;
2038     finally
2039     FBrowsers.Free;
2040 h677 1.303 end;
2041 h677 1.299 try
2042     if BrowserNullTab <> nil then begin
2043     BrowserNullTab.Browser := nil; {*BrowserNullTab鐃緒申Browser鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃?
2044     *鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Free鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
2045     *}
2046     BrowserNullTab.Free;
2047 hi_ 1.1 end;
2048     except
2049     end;
2050 h677 1.483
2051 h677 1.224 try
2052 yoffy 1.236 TreeView.Items.BeginUpdate;
2053 yoffy 1.380 TreeView.Items.GetFirstNode.Free;
2054 yoffy 1.236 TreeView.Items.Clear;
2055     TreeView.Items.EndUpdate;
2056 h677 1.224 except
2057     end;
2058 h677 1.230
2059 hi_ 1.1 //鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2060     try
2061 yoffy 1.236 //AddressHistoryDM鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
2062 h677 1.513 //AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
2063     AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.MaxRecordCount);
2064 hi_ 1.1 except
2065     end;
2066    
2067 h677 1.234 //鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申
2068 hi_ 1.1 try
2069 h677 1.234 SaveHistory;
2070 hi_ 1.1 except
2071     end;
2072 yoffy 1.236 try
2073     try
2074     ClearHistory;
2075     except
2076     end;
2077     finally
2078     FHistoryList.Free;
2079     end;
2080 h677 1.221
2081 h677 1.182 //鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申&鐃?鐃緒申
2082     try
2083     RoundList.SaveRoundFile;
2084     except
2085     end;
2086 yoffy 1.236 try
2087 h677 1.234 try
2088 yoffy 1.236 RoundList.Clear;
2089 h677 1.234 except
2090     end;
2091 yoffy 1.236 finally
2092     RoundList.Free;
2093     end;
2094 h677 1.182
2095 yoffy 1.236 try
2096 h677 1.234 try
2097     FControlThread.Terminate;
2098 yoffy 1.236 FControlThread.WaitFor;
2099 h677 1.234 except
2100 h677 1.219 end;
2101 yoffy 1.236 finally
2102     FControlThread.Free;
2103     end;
2104 h677 1.230
2105 yoffy 1.155 // TBBS 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 TCategory, TBoard, TThreadItem 鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2106     // TBoard, TThreadItem 鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
2107     // BoardPluteIns 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2108 h677 1.514 for i := Length(BoardGroups) - 1 downto 0 do begin
2109 h677 1.517 //BoardGroups[i].Clear;
2110     BoardGroups[i].Free;
2111 h677 1.514 end;
2112    
2113 yoffy 1.126 try
2114 h677 1.220 for i := Length( BBSs ) - 1 downto 0 do begin
2115 h677 1.153 if BBSs[ i ] <> nil then
2116     BBSs[ i ].Free;
2117     BBSs[ i ] := nil;
2118     end;
2119     except
2120     end;
2121 yoffy 1.155
2122 h677 1.515 {
2123 h677 1.153 try
2124 h677 1.220 for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2125 yoffy 1.126 if BoardPlugIns[ i ] <> nil then
2126     BoardPlugIns[ i ].Free;
2127     BoardPlugIns[ i ] := nil;
2128     end;
2129     except
2130     end;
2131 h677 1.515 }
2132 h677 1.234 try
2133 yoffy 1.236 if FEvent <> nil then
2134     FEvent.Free;
2135 h677 1.181
2136 yoffy 1.2 //Hint鐃?鐃緒申
2137     if FHint <> nil then begin
2138     FHint.ReleaseHandle;
2139     FHint.Free;
2140     FHint := nil;
2141     end;
2142     //Preview鐃?鐃緒申
2143     if TPreviewBrowser <> nil then begin
2144     FPreviewBrowser.Free;
2145     FPreviewBrowser := nil;
2146     end;
2147     except
2148     end;
2149 h677 1.483 LockWindowUpdate(0);
2150 hi_ 1.1 end;
2151    
2152     //鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?
2153     procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2154     begin
2155     CabinetVisibleAction.Execute;
2156     // CabinetPanelVisible(false);
2157     end;
2158    
2159 yoffy 1.289 // 鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃? BBS 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃?
2160     procedure TGikoForm.SetBBSMenu;
2161 yoffy 1.123 var
2162     i : Integer;
2163 yoffy 1.149 item : TBBSMenuItem;
2164 hi_ 1.1 begin
2165    
2166 yoffy 1.148 // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2167     for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
2168     try
2169     if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
2170 yoffy 1.155 CabinetSelectPopupMenu.Items[ i ].Free;
2171     CabinetMenu.Items[ i ].Free;
2172 yoffy 1.289 BBSSelectPopupMenu.Items[ i ].Free;
2173 yoffy 1.148 end;
2174     except
2175     end;
2176     end;
2177 yoffy 1.289
2178     // 鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申
2179 yoffy 1.148 for i := Length( BBSs ) - 1 downto 0 do begin
2180     try
2181     item := TBBSMenuItem.Create( PopupMenu );
2182     item.Caption := BBSs[ i ].Title;
2183     item.Data := BBSs[ i ];
2184     item.OnClick := BBSMenuItemOnClick;
2185     CabinetSelectPopupMenu.Items.Insert( 0, item );
2186     item := TBBSMenuItem.Create( PopupMenu );
2187     item.Caption := BBSs[ i ].Title;
2188     item.Data := BBSs[ i ];
2189     item.OnClick := BBSMenuItemOnClick;
2190     CabinetMenu.Insert( 0, item );
2191 yoffy 1.289 item := TBBSMenuItem.Create( PopupMenu );
2192     item.Caption := BBSs[ i ].Title;
2193     item.Data := BBSs[ i ];
2194     item.OnClick := BBSMenuItemOnClick;
2195     BBSSelectPopupMenu.Items.Insert( 0, Item );
2196 yoffy 1.148 except
2197     end;
2198     end;
2199 yoffy 1.289
2200     end;
2201    
2202     procedure TGikoForm.ReloadBBS;
2203     var
2204     i : Integer;
2205 h677 1.321 tmpBool: Boolean;
2206 yoffy 1.289 begin
2207 h677 1.517 LockWindowUpdate(Self.Handle);
2208    
2209 yoffy 1.289 //鐃?鐃?鐃?鐃緒申鐃?鐃?
2210 h677 1.321 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2211     GikoSys.Setting.ShowDialogForAllTabClose := false;
2212 h677 1.320 AllTabCloseAction.Execute;
2213 h677 1.321 GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2214    
2215 h677 1.320 SetContent(BrowserNullTab);
2216 yoffy 1.289 //TreeView鐃?鐃緒申鐃?鐃?BBS2ch.Free鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申XP鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃?鐃緒申鐃?
2217     TreeView.Items.Clear;