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.486 - (hide annotations) (download) (as text)
Wed Nov 3 15:08:17 2004 UTC (19 years, 5 months ago) by h677
Branch: MAIN
Changes since 1.485: +19 -7 lines
File MIME type: text/x-pascal
・゚・蝪シ・ネオ。ヌストノイテ

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