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.417 - (hide annotations) (download) (as text)
Thu Sep 9 04:23:43 2004 UTC (19 years, 7 months ago) by yoffy
Branch: MAIN
Changes since 1.416: +4 -0 lines
File MIME type: text/x-pascal
ネマーマ・チ・ァ・テ・ッ、ホトノイテ。」

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