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.428 - (hide annotations) (download) (as text)
Sun Sep 12 14:18:58 2004 UTC (19 years, 7 months ago) by yoffy
Branch: MAIN
Changes since 1.427: +43 -12 lines
File MIME type: text/x-pascal
ListView のカラムを右クリックすると、カラムのポップアップメニューと共に
リストアイテムのポップアップメニューも出てしまう問題を解消。

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