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.98.2.3 - (hide annotations) (download) (as text)
Thu Sep 9 16:20:31 2004 UTC (19 years, 7 months ago) by yoffy
Branch: stable
Changes since 1.98.2.2: +2176 -671 lines
File MIME type: text/x-pascal
・ミ・ソ48、ヒ・゙。シ・ク。」

1 hi_ 1.1 unit Giko;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 yoffy 1.98.2.2 OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
8 hi_ 1.4 {$IF Defined(DELPRO) }
9     SHDocVw,
10     MSHTML,
11     {$ELSE}
12     SHDocVw_TLB,
13     MSHTML_TLB,
14     {$IFEND}
15 yoffy 1.98.2.2 IdHTTP, ActiveX, ActnList, ImgList,
16 yoffy 1.98.2.3 ToolWin, Buttons, {Clipbrd,} {HTTPApp,} YofUtils, IdComponent,
17 yoffy 1.98.2.2 ShellAPI, UrlMon, Tabs, IdGlobal, StrUtils,
18     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 yoffy 1.98.2.2 IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,
24 yoffy 1.98.2.3 StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent,
25     IdTCPClient;
26 hi_ 1.1
27     type
28 yoffy 1.98.2.2 TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
29     TToolBarSettingSenderType = (tssNone, tssMain, tssList, tssBrowser);
30     TMinimizeType = (mtNone, mtMinimizing, mtMinimized);
31 hi_ 1.1
32 yoffy 1.98.2.3 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.98.2.2 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 yoffy 1.98.2.3 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.98.2.2 TreeSelectLogDeleteSeparator: TMenuItem;
472 yoffy 1.51 TreeSelectSearchBoardName: TAction;
473 yoffy 1.98.2.2 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.98.2.3 ResRangeAction: TAction;
503 yoffy 1.98.2.2 ToolButton20: TToolButton;
504 yoffy 1.98.2.3 ResRangeButton: TToolButton;
505 yoffy 1.98.2.2 N60: TMenuItem;
506     ExportFavoriteFileAction1: TMenuItem;
507     ExportFavoriteFile: TFileSaveAs;
508     ToolButton21: TToolButton;
509 yoffy 1.98.2.3 CabinetBBSToolButton: TToolButton;
510 yoffy 1.98.2.2 ToolButton23: TToolButton;
511     ToolButton24: TToolButton;
512     N6: TMenuItem;
513     N17: TMenuItem;
514     FavoriteTreeViewBrowseBoardAction: TAction;
515     FavoriteTreeViewBrowseThreadAction: TAction;
516     UpBoardAction: TAction;
517     N18: TMenuItem;
518     N20: TMenuItem;
519     N24: TMenuItem;
520     N62: TMenuItem;
521     N61: TMenuItem;
522     N63: TMenuItem;
523     KoreCopy: TAction;
524     N64: TMenuItem;
525     dummy1: TMenuItem;
526     TreeSelectLogDeletePopupMenu: TMenuItem;
527     N65: TMenuItem;
528     BBSSelectPopupMenu: TPopupMenu;
529     PlugInMenu: TMenuItem;
530     TmpToolBar: TToolBar;
531     TreeSelectNameCopy: TAction;
532     TreeSelectNamePupupMenu: TMenuItem;
533 yoffy 1.98.2.3 BrowserPanel: TPanel;
534     SetFocusForBrowserAction: TAction;
535     SetFocusForThreadListAction: TAction;
536     SetFocusForCabinetAction: TAction;
537     FileRun1: TFileRun;
538     ThreadlistMaxAndFocusAction: TAction;
539     BrowserMaxAndFocusAction: TAction;
540     UpBoardButton: TToolButton;
541     SelectTimer: TTimer;
542     SelectThreadSave: TMenuItem;
543     SelectItemSaveForHTML: TAction;
544     FileSaveAs1: TFileSaveAs;
545     N55: TMenuItem;
546     N66: TMenuItem;
547     dat1: TMenuItem;
548     SelectItemSaveForDat: TAction;
549     LogFolderOpenAction: TAction;
550     OpenLogFolder: TMenuItem;
551     Browser: TWebBrowser;
552     TabSave: TMenuItem;
553     TabOpen: TMenuItem;
554     TabsSaveAction: TAction;
555     TabsOpenAction: TAction;
556     ResRangePopupMenu: TPopupMenu;
557     N1001: TMenuItem;
558     N501: TMenuItem;
559     N22: TMenuItem;
560     OnlyAHundredResAction: TAction;
561     OnlyNewResAction: TAction;
562     OnlyKokoResAction: TAction;
563     A14: TMenuItem;
564     BrowsBoradHeadAction: TAction;
565     BrowsBoradHeadAction1: TMenuItem;
566     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     TabAutoSaveAction: TAction;
577     TabAutoLoadAction: TAction;
578 yoffy 1.98.2.2 procedure FormCreate(Sender: TObject);
579 hi_ 1.1 procedure FormDestroy(Sender: TObject);
580     procedure CabinetPanelHide(Sender: TObject);
581     procedure FormClose(Sender: TObject; var Action: TCloseAction);
582     procedure ListViewData(Sender: TObject; Item: TListItem);
583     procedure ListViewDataFind(Sender: TObject; Find: TItemFind;
584     const FindString: String; const FindPosition: TPoint;
585     FindData: Pointer; StartIndex: Integer; Direction: TSearchDirection;
586     Wrap: Boolean; var Index: Integer);
587     procedure ListViewDataHint(Sender: TObject; StartIndex,
588     EndIndex: Integer);
589     procedure ListViewDataStateChange(Sender: TObject; StartIndex,
590     EndIndex: Integer; OldState, NewState: TItemStates);
591     procedure BrowserStatusTextChange(Sender: TObject;
592     const Text: WideString);
593     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
594     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
595     var AllowChange: Boolean);
596     procedure ListViewKeyDown(Sender: TObject; var Key: Word;
597     Shift: TShiftState);
598     procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
599 yoffy 1.98.2.3 procedure ListViewSort(Sender: TObject; Column: TListColumn);
600 hi_ 1.1 procedure MenuToolBarCustomDrawButton(Sender: TToolBar;
601     Button: TToolButton; State: TCustomDrawState;
602     var DefaultDraw: Boolean);
603     procedure BrowserBeforeNavigate2(Sender: TObject;
604     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
605     Headers: OleVariant; var Cancel: WordBool);
606     procedure ListViewAdvancedCustomDrawItem(Sender: TCustomListView;
607     Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage;
608     var DefaultDraw: Boolean);
609     procedure TreeViewCustomDraw(Sender: TCustomTreeView;
610     const ARect: TRect; var DefaultDraw: Boolean);
611     procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
612     Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
613     procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
614     procedure TreeViewDblClick(Sender: TObject);
615     procedure ListViewCustomDraw(Sender: TCustomListView;
616     const ARect: TRect; var DefaultDraw: Boolean);
617     procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
618     Shift: TShiftState; X, Y: Integer);
619     procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
620     procedure MessageListViewResize(Sender: TObject);
621     procedure ExitActionExecute(Sender: TObject);
622     procedure AllSelectActionExecute(Sender: TObject);
623     procedure StdToolBarVisibleActionExecute(Sender: TObject);
624     procedure MsgBarVisibleActionExecute(Sender: TObject);
625     procedure StatusBarVisibleActionExecute(Sender: TObject);
626     procedure LargeIconActionExecute(Sender: TObject);
627     procedure SmallIconActionExecute(Sender: TObject);
628     procedure ListIconActionExecute(Sender: TObject);
629     procedure DetailIconActionExecute(Sender: TObject);
630     procedure SearchActionExecute(Sender: TObject);
631     procedure OptionActionExecute(Sender: TObject);
632     procedure GikoNaviWebPageActionExecute(Sender: TObject);
633     procedure AboutActionExecute(Sender: TObject);
634     procedure CabinetHistoryActionExecute(Sender: TObject);
635 yoffy 1.98.2.2 procedure CabinetVisible( isVisible : Boolean );
636 hi_ 1.1 procedure CabinetVisibleActionExecute(Sender: TObject);
637     procedure AllItemActionExecute(Sender: TObject);
638     procedure LogItemActionExecute(Sender: TObject);
639     procedure NewItemActionExecute(Sender: TObject);
640     procedure SelectItemActionExecute(Sender: TObject);
641     procedure ListNumberVisibleActionExecute(Sender: TObject);
642     procedure UpFolderActionExecute(Sender: TObject);
643     procedure IconStyleExecute(Sender: TObject);
644     procedure RoundActionExecute(Sender: TObject);
645     procedure StopActionExecute(Sender: TObject);
646     procedure MsgBarCloseActionExecute(Sender: TObject);
647     procedure BrowserMaxActionExecute(Sender: TObject);
648     procedure ScrollTopActionExecute(Sender: TObject);
649     procedure ScrollLastActionExecute(Sender: TObject);
650     procedure ScrollNewActionExecute(Sender: TObject);
651     procedure ScrollKokoActionExecute(Sender: TObject);
652     procedure EditorActionExecute(Sender: TObject);
653     procedure IEActionExecute(Sender: TObject);
654     procedure ShowThreadActionExecute(Sender: TObject);
655     procedure ShowBoardActionExecute(Sender: TObject);
656     procedure URLCopyActionExecute(Sender: TObject);
657     procedure ItemReloadActionExecute(Sender: TObject);
658     procedure SelectListReloadActionExecute(Sender: TObject);
659     procedure SelectThreadReloadActionExecute(Sender: TObject);
660     procedure SelectListReloadActionUpdate(Sender: TObject);
661     procedure AllItemActionUpdate(Sender: TObject);
662     procedure LogItemActionUpdate(Sender: TObject);
663     procedure NewItemActionUpdate(Sender: TObject);
664     procedure SelectItemActionUpdate(Sender: TObject);
665     procedure UpFolderActionUpdate(Sender: TObject);
666     procedure FormResize(Sender: TObject);
667     procedure ScrollTopActionUpdate(Sender: TObject);
668     procedure ScrollLastActionUpdate(Sender: TObject);
669     procedure ScrollNewActionUpdate(Sender: TObject);
670     procedure ScrollKokoActionUpdate(Sender: TObject);
671     procedure EditorActionUpdate(Sender: TObject);
672     procedure IEActionUpdate(Sender: TObject);
673     procedure ShowThreadActionUpdate(Sender: TObject);
674     procedure ShowBoardActionUpdate(Sender: TObject);
675     procedure SelectThreadReloadActionUpdate(Sender: TObject);
676 yoffy 1.51 procedure ItemReloadActionUpdate(Sender: TObject);
677     procedure LogDeleteActionExecute(Sender: TObject);
678 hi_ 1.1 procedure KokomadeActionExecute(Sender: TObject);
679     procedure ZenbuActionExecute(Sender: TObject);
680 yoffy 1.51 procedure KokoResActionExecute(Sender: TObject);
681 hi_ 1.1 procedure ListPopupMenuPopup(Sender: TObject);
682     procedure SelectItemURLCopyActionExecute(Sender: TObject);
683     procedure SelectItemURLCopyActionUpdate(Sender: TObject);
684     procedure AllSelectActionUpdate(Sender: TObject);
685     procedure LogDeleteActionUpdate(Sender: TObject);
686     procedure BrowserTabCloseActionExecute(Sender: TObject);
687     procedure NotSelectTabCloseActionExecute(Sender: TObject);
688     procedure TreeSelectBoradReloadExecute(Sender: TObject);
689     procedure TreeSelectThreadReloadExecute(Sender: TObject);
690     procedure TreeSelectURLCopyExecute(Sender: TObject);
691     procedure TreePopupMenuPopup(Sender: TObject);
692     procedure ListToolBarVisibleActionExecute(Sender: TObject);
693     procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
694     procedure BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
695     var Cancel: WordBool);
696     procedure ListSplitterCanResize(Sender: TObject; var NewSize: Integer;
697     var Accept: Boolean);
698     procedure ListSplitterMoved(Sender: TObject);
699     procedure BrowserTabChange(Sender: TObject);
700     procedure BrowserTabMouseDown(Sender: TObject; Button: TMouseButton;
701     Shift: TShiftState; X, Y: Integer);
702     procedure BrowserTabDragOver(Sender, Source: TObject; X, Y: Integer;
703     State: TDragState; var Accept: Boolean);
704     procedure BrowserTabDragDrop(Sender, Source: TObject; X, Y: Integer);
705     procedure BrowserTabMouseMove(Sender: TObject; Shift: TShiftState; X,
706     Y: Integer);
707     procedure BrowserDocumentComplete(Sender: TObject;
708     const pDisp: IDispatch; var URL: OleVariant);
709     procedure SelectReservActionUpdate(Sender: TObject);
710     procedure RoundNamePopupMenuPopup(Sender: TObject);
711     procedure SelectNewRoundNameExecute(Sender: TObject);
712     procedure SelectDeleteRoundExecute(Sender: TObject);
713     procedure SelectReservActionExecute(Sender: TObject);
714     procedure NewBoardActionExecute(Sender: TObject);
715     procedure LoginActionExecute(Sender: TObject);
716     procedure KeySettingActionExecute(Sender: TObject);
717     procedure AllTabCloseActionExecute(Sender: TObject);
718 yoffy 1.51 procedure ArrangeActionExecute(Sender: TObject);
719     procedure NameURLCopyActionExecute(Sender: TObject);
720     procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
721 hi_ 1.1 procedure URLCopyActionUpdate(Sender: TObject);
722 yoffy 1.2 procedure NameURLCopyActionUpdate(Sender: TObject);
723 hi_ 1.1 procedure BrowserTabCloseActionUpdate(Sender: TObject);
724 yoffy 1.51 procedure NotSelectTabCloseActionUpdate(Sender: TObject);
725 hi_ 1.1 procedure AllTabCloseActionUpdate(Sender: TObject);
726     procedure SelectItemNameURLCopyActionUpdate(Sender: TObject);
727     procedure ActiveLogDeleteActionExecute(Sender: TObject);
728     procedure ActiveLogDeleteActionUpdate(Sender: TObject);
729 yoffy 1.51 procedure ListNameBarVisibleActionExecute(Sender: TObject);
730 hi_ 1.1 procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
731 yoffy 1.51 procedure TreeSelectNameURLCopyExecute(Sender: TObject);
732     procedure PaneInitActionExecute(Sender: TObject);
733 hi_ 1.1 procedure FormShow(Sender: TObject);
734     procedure BrowserTabToolBarResize(Sender: TObject);
735     procedure BrowserMinActionExecute(Sender: TObject);
736 yoffy 1.51 procedure SelectTextClearActionExecute(Sender: TObject);
737 hi_ 1.1 procedure NameTextClearActionExecute(Sender: TObject);
738 yoffy 1.51 procedure MailTextClearActionExecute(Sender: TObject);
739     procedure LeftmostTabSelectActionExecute(Sender: TObject);
740     procedure LeftTabSelectActionExecute(Sender: TObject);
741 hi_ 1.1 procedure RightTabSelectActionExecute(Sender: TObject);
742     procedure RightmostTabSelectActionExecute(Sender: TObject);
743     procedure LeftmostTabSelectActionUpdate(Sender: TObject);
744     procedure LeftTabSelectActionUpdate(Sender: TObject);
745     procedure RightTabSelectActionUpdate(Sender: TObject);
746     procedure RightmostTabSelectActionUpdate(Sender: TObject);
747     procedure FavoriteMenuClick(Sender: TObject);
748     procedure FavoriteAddActionExecute(Sender: TObject);
749     procedure FavoriteAddActionUpdate(Sender: TObject);
750     procedure BoardFavoriteAddActionExecute(Sender: TObject);
751     procedure BoardFavoriteAddActionUpdate(Sender: TObject);
752 yoffy 1.51 procedure ThreadFavoriteAddActionExecute(Sender: TObject);
753 hi_ 1.1 procedure ThreadFavoriteAddActionUpdate(Sender: TObject);
754 yoffy 1.51 procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
755 yoffy 1.2 procedure FavoriteArrangeActionExecute(Sender: TObject);
756     procedure MainCoolBarResize(Sender: TObject);
757 hi_ 1.1 procedure MoveToActionExecute(Sender: TObject);
758 yoffy 1.2 procedure AddressToolBarResize(Sender: TObject);
759 hi_ 1.1 procedure AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
760     Shift: TShiftState);
761 yoffy 1.51 procedure AddressBarVisibleActionExecute(Sender: TObject);
762 yoffy 1.2 procedure BrowserEnter(Sender: TObject);
763 hi_ 1.1 procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
764 yoffy 1.51 procedure BrowserTabVisibleActionExecute(Sender: TObject);
765     procedure BrowserTabTopActionExecute(Sender: TObject);
766     procedure BrowserTabBottomActionExecute(Sender: TObject);
767     procedure BrowserTabTabStyleActionExecute(Sender: TObject);
768 hi_ 1.1 procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
769 yoffy 1.51 procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
770 hi_ 1.1 procedure PreviewTimerTimer(Sender: TObject);
771     procedure MessageHideButtonClick(Sender: TObject);
772     procedure MonazillaWebPageActionExecute(Sender: TObject);
773     procedure GikoHelpActionExecute(Sender: TObject);
774     procedure ToolButton18Click(Sender: TObject);
775     procedure KotehanActionExecute(Sender: TObject);
776 yoffy 1.51 procedure LinkBarVisibleActionExecute(Sender: TObject);
777     procedure BBS2chWebPageActionExecute(Sender: TObject);
778     procedure GikoFolderOpenActionExecute(Sender: TObject);
779 yoffy 1.2 procedure MainCoolBarBandInfo(Sender: TObject;
780     var BandInfo: PReBarBandInfoA);
781     procedure MainCoolBarChevronClick(Sender: TObject;
782 yoffy 1.51 RebarChevron: PNMRebarChevron);
783     procedure ListCoolBarBandInfo(Sender: TObject;
784     var BandInfo: PReBarBandInfoA);
785     procedure ListCoolBarChevronClick(Sender: TObject;
786     RebarChevron: PNMRebarChevron);
787     procedure BrowserCoolBarBandInfo(Sender: TObject;
788     var BandInfo: PReBarBandInfoA);
789 yoffy 1.2 procedure BrowserCoolBarChevronClick(Sender: TObject;
790 yoffy 1.51 RebarChevron: PNMRebarChevron);
791     procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
792     procedure ThreadEditorActionExecute(Sender: TObject);
793 yoffy 1.2 procedure ThreadEditorActionUpdate(Sender: TObject);
794 yoffy 1.51 procedure ToolBarSettingActionExecute(Sender: TObject);
795     procedure NameCopyActionExecute(Sender: TObject);
796     procedure BoardIEActionExecute(Sender: TObject);
797     procedure SelectItemNameCopyActionExecute(Sender: TObject);
798 yoffy 1.2 procedure SelectItemNameCopyActionUpdate(Sender: TObject);
799 yoffy 1.51 procedure BoardIEActionUpdate(Sender: TObject);
800     procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
801     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
802     procedure NameCopyActionUpdate(Sender: TObject);
803     procedure SelectComboBoxChange(Sender: TObject);
804     procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
805     Shift: TShiftState);
806     procedure SelectComboBoxExit(Sender: TObject);
807     procedure SelectResActionExecute(Sender: TObject);
808     procedure SelectResActionUpdate(Sender: TObject);
809     procedure FormKeyUp(Sender: TObject; var Key: Word;
810     Shift: TShiftState);
811     procedure AllResActionExecute(Sender: TObject);
812     procedure AllResActionUpdate(Sender: TObject);
813     procedure ReloadClick(Sender: TObject);
814     procedure GoBackClick(Sender: TObject);
815     procedure GoFowardClick(Sender: TObject);
816     procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
817     Shift: TShiftState; X, Y: Integer);
818     procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
819     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
820     procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
821     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
822     procedure StatusBarResize(Sender: TObject);
823     procedure IndividualAbon1Click(Sender: TObject);
824     procedure IndividualAbon2Click(Sender: TObject);
825     procedure N42Click(Sender: TObject);
826     procedure SelectComboBoxEnter(Sender: TObject);
827     procedure AntiIndividualAbonClick(Sender: TObject);
828     procedure N51Click(Sender: TObject);
829     procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
830 yoffy 1.98.2.2 procedure CabinetFavoriteActionExecute(Sender: TObject);
831     procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
832     Y: Integer);
833 yoffy 1.71 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
834 yoffy 1.98.2.2 procedure FavoriteTreeViewEdited(Sender: TObject; Node: TTreeNode;
835     var S: String);
836     procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
837     Shift: TShiftState);
838     procedure FavoriteTreePopupMenuPopup(Sender: TObject);
839     procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
840     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
841     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
842     procedure ToolButton19Click(Sender: TObject);
843     procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
844     procedure FavoriteTreeViewDblClick(Sender: TObject);
845     procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
846     procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
847     procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
848     procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
849     procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
850     procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
851     procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
852     Shift: TShiftState; X, Y: Integer);
853     procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
854     State: TDragState; var Accept: Boolean);
855 yoffy 1.98.2.3 procedure ResRangeActionExecute(Sender: TObject);
856 yoffy 1.98.2.2 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
857     Y: Integer);
858     procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
859     var Handled: Boolean);
860     procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
861     var Handled: Boolean);
862     procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
863     var Handled: Boolean);
864     procedure ExportFavoriteFileAccept(Sender: TObject);
865     procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
866     procedure CabinetBBSActionExecute(Sender: TObject);
867     procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
868     procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
869     procedure UpBoardActionExecute(Sender: TObject);
870     procedure UpBoardActionUpdate(Sender: TObject);
871     procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
872 yoffy 1.96 var Handled: Boolean);
873 yoffy 1.98.2.2 procedure KoreCopyExecute(Sender: TObject);
874     procedure BrowserTabPopupMenuPopup(Sender: TObject);
875     procedure MenuToolBarResize(Sender: TObject);
876     procedure StdToolBarResize(Sender: TObject);
877     procedure LinkToolBarResize(Sender: TObject);
878     procedure ListNameToolBarResize(Sender: TObject);
879     procedure ListToolBarResize(Sender: TObject);
880     procedure BrowserNameToolBarResize(Sender: TObject);
881     procedure BrowserToolBarResize(Sender: TObject);
882     procedure BrowserTabResize(Sender: TObject);
883 yoffy 1.98.2.3 procedure TreeViewClick(Sender: TObject);
884 yoffy 1.98.2.2 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
885     Shift: TShiftState);
886     procedure FavoriteTreeViewMouseDown(Sender: TObject;
887     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
888     procedure MessagePanelResize(Sender: TObject);
889     procedure OnResized;
890     procedure TreeSelectNameCopyExecute(Sender: TObject);
891     procedure FavoriteTreeViewMouseUp(Sender: TObject;
892     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
893 yoffy 1.98.2.3 procedure ResRangeActionUpdate(Sender: TObject);
894     procedure SetFocusForBrowserActionExecute(Sender: TObject);
895     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
896     procedure SetFocusForThreadListActionExecute(Sender: TObject);
897     procedure SetFocusForCabinetActionExecute(Sender: TObject);
898     procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
899     procedure BrowserMaxAndFocusActionUpdate(Sender: TObject);
900     procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
901     procedure ListViewExit(Sender: TObject);
902     procedure SetFocusForCabinetActionUpdate(Sender: TObject);
903     procedure ListViewSelectItem(Sender: TObject; Item: TListItem;
904     Selected: Boolean);
905     procedure SelectTimerTimer(Sender: TObject);
906     procedure SelectItemSaveForHTMLExecute(Sender: TObject);
907     procedure KidokuActionExecute(Sender: TObject);
908     procedure MidokuActionExecute(Sender: TObject);
909     procedure SelectItemSaveForDatExecute(Sender: TObject);
910     procedure BrowserPanelCanResize(Sender: TObject; var NewWidth,
911     NewHeight: Integer; var Resize: Boolean);
912     procedure LogFolderOpenActionExecute(Sender: TObject);
913     procedure LogFolderOpenActionUpdate(Sender: TObject);
914     procedure TabsSaveActionExecute(Sender: TObject);
915     procedure TabsOpenActionExecute(Sender: TObject);
916     procedure TabsSaveToFileActionExecute(Sender: TObject);
917     procedure TabsOpenFromFileActionExecute(Sender: TObject);
918     procedure OnlyAHundredResActionExecute(Sender: TObject);
919     procedure OnlyKokoResActionExecute(Sender: TObject);
920     procedure OnlyNewResActionExecute(Sender: TObject);
921     procedure BrowsBoradHeadActionExecute(Sender: TObject);
922     procedure BrowsBoradHeadActionUpdate(Sender: TObject);
923     procedure EditNGActionExecute(Sender: TObject);
924     procedure ThreadRangeActionUpdate(Sender: TObject);
925     procedure ThreadRangeActionExecute(Sender: TObject);
926     procedure TabAutoSaveActionExecute(Sender: TObject);
927     procedure TabAutoLoadActionExecute(Sender: TObject);
928 hi_ 1.1 private
929     { Private ?ス?ス?ス?ス }
930 yoffy 1.98.2.2 //RoundList : TRoundList;
931 hi_ 1.1 FSortIndex: Integer;
932     FSortOrder: Boolean;
933    
934     FEnabledCloseButton: Boolean;
935     // ThreadCreate: TThreadCreate;
936    
937     FClickNode: TTreeNode;
938     FHttpState: Boolean;
939     FHint: TResPopup;
940     FPreviewBrowser: TPreviewBrowser;
941     FPreviewURL: string;
942    
943     FBrowserSizeHeight: Integer;
944     FBrowserSizeWidth: Integer;
945    
946     // FFavorite: TFavorite;
947     FTabHintIndex: Integer;
948     FListStyle: TViewStyle; //?ス?ス?スX?スg?スA?スC?スR?ス?ス?スX?ス^?スC?ス?ス
949     FItemNoVisible: Boolean; //?ス?ス?スX?スg?ス?ス?ス?ス?ス\?ス?ス?スt?ス?ス?スO
950     FViewType: TGikoViewType; //?ス?ス?スX?スg?スA?スC?スe?ス?ス?ス\?ス?ス?ス^?スC?スv
951 yoffy 1.98.2.2 FActiveList: TObject;
952 yoffy 1.98.2.3 FActiveContent: TBrowserRecord; //
953 yoffy 1.98.2.2 FActiveBBS : TBBS;
954 hi_ 1.1 FHistoryList: TList; //?スq?スX?スg?ス?ス?ス?ス?スX?スg
955     FTreeType: TGikoTreeType;
956     FWorkCount: Integer;
957     FNameCookie: string;
958     FMailCookie: string;
959     // FLastRoundTime: TDateTime;
960 yoffy 1.98.2.3 BrowserNullTab: TBrowserRecord;
961 hi_ 1.1 // DoubleClickOccurred: array [TMouseButton] of Boolean;
962     FDownloadTitle: string; //?ス_?スE?ス?ス?ス?ス?ス[?スh?ス?ス?ス?ス?ス^?スC?スg?ス?ス?ス?ス
963     FDownloadMax: Integer; //?ス_?スE?ス?ス?ス?ス?ス[?スh?ス?ス?ス?ス?ス?ス?ス?ス?スT?スC?スY
964     FEvent: THTMLDocumentEventSink;//?スu?ス?ス?スE?スU?スh?スL?ス?ス?ス?ス?ス?ス?スg?スC?スx?ス?ス?スg
965 h677 1.14
966 yoffy 1.98.2.2 // Fkeynum : Integer; //?スL?ス[?ス{?ス[?スh?ス?ス?スX?ス|?スb?スv?スA?スb?スv?スp
967 yoffy 1.29
968 yoffy 1.51 IsDraggingSelectComboBox : Boolean;
969     DraggingSelectComboBoxPosition : TPoint;
970 yoffy 1.29
971 yoffy 1.54 FSearchDialog: TSearchDialog;
972 yoffy 1.49
973 yoffy 1.98.2.2 FDropSpaceNode: TTreeNode;
974 yoffy 1.74
975 yoffy 1.98.2.2 FDragTime : Cardinal; //?ス?ス?ス?ス?スN?ス?スD&D?スp
976     FDragButton : TToolButton; //?ス?ス?ス?ス?スN?ス?スD&D?スp?ス?スDrag?ス?ス?ス?ス?ス?スButton?ス?ス?ス?ス
977     FDragWFirst : Boolean; //WebTab?ス?スD&D?スp
978    
979     FListViewBackGroundColor : TColor; //ListView?ス?スBackGroundColor
980     FUseOddResOddColor : Boolean; //?ス?ス?ス?ス?ス?ス?スX?ス?ス?ス?ス?スX?ス?ス?スb?スh?ス?ス?ス?ス?スX?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スF?ス?ス?ス\?ス?ス
981     FOddColor : TColor; //?ス?ス?ス?ス?スF
982    
983     FSelectResWord : string; // ?ス?ス?スX?スi?ス?ス?ス?ス?ス[?スh
984     FIsIgnoreResize : Boolean; // ?ス?ス?スT?スC?スY?スC?スx?ス?ス?スg?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
985     FIsMinimize : TMinimizeType; // ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
986     FOldFormWidth : Integer; // ?ス?ス?スO?ス?ス?スE?スB?ス?ス?スh?スE?ス?ス?ス?ス
987     FToolBarSettingSender : TToolBarSettingSenderType; // ?スc?ス[?ス?ス?スo?ス[?ス?ス?ス?ス?ス?ス?スN?ス?ス?スb?スN?ス?ス?ス?ス?スN?ス[?ス?ス?スo?ス[
988     FMouseDownPos : TPoint; // ?スu?ス?ス?スE?スU?ス^?スu?ス?ス?ス}?スE?スX?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スW
989 yoffy 1.98.2.3 FBrowsers: TList;
990     FResRangeMenuSelect : Longint; ///< ResRangeButton ?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス (?スt?スH?ス[?ス}?スb?スg?ス?ス ResRange ?ス?ス?ス?ス)
991 yoffy 1.98.2.2 procedure SetBoardTreeNode( inBBS : TBBS );
992     function SetCategoryListItem(ABBS2ch: TBBS): Integer;
993 hi_ 1.1 function SetBoardListItem(Category: TCategory): Integer;
994     function SetThreadListItem(Board: TBoard): Integer;
995     // function GetRoundName(index: integer): string;
996    
997     procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
998     procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
999 yoffy 1.98.2.2 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
1000 hi_ 1.1 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
1001     procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
1002    
1003     procedure SetActiveList(Obj: TObject);
1004     procedure ListClick;
1005 yoffy 1.98.2.3 procedure ListDoubleClick(Shift: TShiftState);
1006     procedure BrowserMovement(const AName: string); overload;
1007     procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1008 hi_ 1.1 procedure SelectListItem(List: TList);
1009     // procedure SetProgressValue(Number: Integer; Value: Integer; Max: Integer = -1);
1010 yoffy 1.98.2.3 procedure DeleteTab(ThreadItem: TThreadItem); overload;
1011     procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1012 hi_ 1.1 function Hook(var Message: TMessage): Boolean;
1013     procedure AddRoundNameMenu(MenuItem: TMenuItem);
1014 yoffy 1.98.2.2 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
1015     procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
1016 hi_ 1.1 procedure SetSelectRoundName(Sender: TObject);
1017     function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
1018    
1019     procedure SetMenuFont;
1020     // procedure CreateFavMenu(Folder: TFavoriteFolder);
1021     procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
1022 yoffy 1.62 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
1023     procedure FavoriteClick(Sender: TObject); overload;
1024 yoffy 1.98.2.2 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
1025 yoffy 1.2 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1026 hi_ 1.1 function OnDocumentContextMenu(Sender: TObject): WordBool;
1027     // function GetThreadText(sBoard: string; sThread: string; StNum, ToNum: Integer; Title, First: Boolean): string;
1028 yoffy 1.98.2.2 procedure SetResPopupText(ThreadItem : TThreadItem; StNum, ToNum: Integer; Title, First: Boolean);
1029 hi_ 1.1 procedure ShowTextPopup;
1030     //procedure ShowTextPopup(HintData: THintData);
1031 yoffy 1.2 // procedure SetStdToolBar;
1032     // function GetAction(ActionName: string): TContainedAction;
1033 hi_ 1.1 procedure SetLinkBar;
1034     function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
1035 yoffy 1.2 procedure MenuBarChevronMenu;
1036     procedure LinkBarChevronMenu;
1037     procedure ToolBarChevronMenu(ToolBar: TToolBar);
1038 yoffy 1.51 procedure ModifySelectList;
1039 yoffy 1.98.2.2 procedure FavoriteBrowseFolder( node: TTreeNode );
1040     procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
1041     procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1042     procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
1043     procedure LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
1044 yoffy 1.85 procedure LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
1045 yoffy 1.72 function TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
1046 yoffy 1.98.2.2 procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
1047     procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
1048 yoffy 1.72 procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
1049 yoffy 1.98.2.2 //
1050     procedure SetListViewBackGroundColor(value: TColor);
1051     procedure BBSMenuItemOnClick( Sender : TObject );
1052     //
1053     procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
1054     // CoolBar ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1055     procedure SaveCoolBarSettings;
1056     // CoolBar ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1057     procedure LoadCoolBarSettings;
1058     // ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1059     procedure OnMinimize;
1060     // ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1061     procedure OnMinimized;
1062     // CoolBar ?ス?ス?スT?スC?スY?ス?ス?スX?ス?ス?ス?ス?ス?ス
1063     procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1064     // TreeView ?ス?ス?スN?ス?ス?スb?スN?ス?ス?ス?ス?ス?ス
1065     procedure TreeClick( Node : TTreeNode );
1066     // TreeView ?ス?ス?ス_?スu?ス?ス?スN?ス?ス?スb?スN?ス?ス?ス?ス?ス?ス
1067     procedure TreeDoubleClick( Node : TTreeNode );
1068     // ?スM?スR?スi?スr?ス?ス?ス?ス?スb?スZ?ス[?スW?ス?ス?ス[?スv?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1069     procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
1070     // ?スu?ス?ス?スE?スU?ス?ス?スL?ス[?ス_?スE?ス?ス?スC?スx?ス?ス?スg
1071     // ?スC?スx?ス?ス?スg?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス True ?ス?ス?ス?ス?ス?ス
1072     function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
1073 yoffy 1.98.2.3 // ?スe?ス?ス?ス?ス?ス?ス?ス?ス?スL?ス?ス?スr?スl?スb?スg?スE BBS ?ス?ス?スj?ス?ス?ス[?ス?ス?スZ?スb?スg?ス^?スX?スV
1074     procedure SetBBSMenu;
1075     function WebBrowserClick(Sender: TObject): WordBool;
1076     procedure SkinorCSSFilesCopy(path: string);
1077     // ?ス^?スu?ス?ス?ス?ス
1078     function GetTabURLs(AStringList: TStringList) : Boolean;
1079     // ?ス^?スu?ス?ス?ス?ス
1080     function SaveTabURLs : Boolean;
1081     // ?ス^?スu?ス?ス?ス?ス?スo?ス?ス
1082     function LoadTabURLs : Boolean;
1083     // ?スo?ス?ス?スh?ス?ス?ス?ス?ス?ス?スv?スZ?スE?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1084     procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1085 hi_ 1.1 protected
1086     procedure CreateParams(var Params: TCreateParams); override;
1087 yoffy 1.2 procedure WndProc(var Message: TMessage); override;
1088 hi_ 1.1 procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
1089     procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
1090     procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
1091 yoffy 1.98.2.2
1092 hi_ 1.1 public
1093     { Public ?ス?ス?ス?ス }
1094     // FDownload: TDownload;
1095     FControlThread: TThreadControl;
1096 yoffy 1.48 procedure MoveToURL(URL: string);
1097     procedure InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True);
1098 hi_ 1.1 procedure ReloadBBS;
1099     function GetHttpState: Boolean;
1100     procedure SetEnabledCloseButton(Enabled: Boolean);
1101     function GetTreeNode(Data: TObject): TTreeNode;
1102     procedure AppFormDeactivate(Sender: TObject);
1103     // procedure CabinetPanelVisible(PanelVisible: Boolean);
1104     procedure ListViewAllSelect;
1105    
1106     property ListStyle: TViewStyle read FListStyle write FListStyle;
1107     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1108     property ViewType: TGikoViewType read FViewType write FViewType;
1109    
1110     property NameCookie: string read FNameCookie write FNameCookie;
1111     property MailCookie: string read FMailCookie write FMailCookie;
1112    
1113 yoffy 1.98.2.3 procedure SetContent(inThread: TBrowserRecord);
1114 hi_ 1.1 function GetActiveContent: TThreadItem;
1115     function GetActiveList: TObject;
1116    
1117     property ActiveList: TObject read GetActiveList write SetActiveList;
1118     // property LastRoundTime: TDateTime read FLastRoundTime write FLastRoundTime;
1119    
1120     procedure SetListViewType(AViewType: TGikoViewType); overload;
1121     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1122 yoffy 1.98.2.3 procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1123     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1124 hi_ 1.1 procedure PlaySound(SoundEventName: string);
1125    
1126 yoffy 1.98.2.2 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1127     procedure DeleteHistory( threadItem: TThreadItem );
1128 hi_ 1.1 procedure ClearHistory;
1129 yoffy 1.98.2.2 procedure SaveHistory;
1130     procedure LoadHistory;
1131     procedure ShowBBSTree( inBBS : TBBS );
1132     procedure ShowBBSTreeOld( inBBS : TBBS );
1133 hi_ 1.1 procedure ShowHistoryTree;
1134     procedure SetHistoryTreeNode;
1135     // procedure SelectTreeNode(Item: TObject);
1136     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1137     procedure SetBrowserTabState;
1138     // property Favorite: TFavorite read FFavorite write FFavorite;
1139 yoffy 1.2 procedure SetToolBarPopup;
1140 yoffy 1.98.2.2 procedure ShowFavoriteAddDialog( Item : TObject );
1141     procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1142     procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1143     property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1144     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1145     property OddColor : TColor read FOddColor write FOddColor;
1146    
1147     function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1148     procedure OnPlugInMenuItem( Sender : TObject );
1149 yoffy 1.98.2.3 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1150 yoffy 1.98.2.2
1151 hi_ 1.1 published
1152     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1153     end;
1154    
1155     TFavoriteMenuItem = class(TMenuItem)
1156     private
1157     FData : Pointer;
1158     public
1159     property Data: Pointer read FData write FData;
1160     end;
1161    
1162 yoffy 1.98.2.2 TBBSMenuItem = class(TMenuItem)
1163     private
1164     FData : Pointer;
1165     public
1166     property Data: Pointer read FData write FData;
1167     end;
1168    
1169 hi_ 1.1 TLinkToolButton = class(TToolButton)
1170     private
1171     FData : Pointer;
1172     public
1173     property Data: Pointer read FData write FData;
1174     end;
1175    
1176 yoffy 1.98.2.3 TBrowserRecord = class( TObject )
1177     private
1178     FBrowser : TWebBrowser;
1179     FEvent: THTMLDocumentEventSink;//?スu?ス?ス?スE?スU?スh?スL?ス?ス?ス?ス?ス?ス?スg?スC?スx?ス?ス?スg
1180     FThread : TThreadItem;
1181     FLastSize : Integer;
1182     FRepaint : Boolean;
1183     // FOnlyHundred: Boolean;
1184     public
1185     destructor Destroy; override;
1186     property Browser : TWebBrowser read FBrowser write FBrowser;
1187     property Thread : TThreadItem read FThread write FThread;
1188     property LastSize : Integer read FLastSize write FLastSize;
1189     property Repaint : Boolean read FRepaint write FRepaint;
1190     // property OnlyHundred : Boolean read FOnlyHundred write FOnlyHundred;
1191     end;
1192    
1193 hi_ 1.1 var
1194     GikoForm: TGikoForm;
1195    
1196     implementation
1197    
1198     uses
1199     About, Option, Round, Splash, Sort, ListSelect,
1200 yoffy 1.98.2.2 NewBoard, MojuUtils,Clipbrd;
1201 hi_ 1.1
1202     const
1203     CAPTION_NAME: string = '?スM?スR?スi?スr';
1204     BLANK_HTML: string = 'about:blank';
1205 yoffy 1.51 SELECTCOMBOBOX_NAME: string = ''; // '?スX?ス?ス?スb?スh?スi?ス?ス?ス?ス?ス?ス';
1206     SELECTCOMBOBOX_COLOR: TColor = clWindow;
1207 yoffy 1.98.2.2 //D&D?ス?ス?スl
1208     DandD_THRESHOLD = 5; //D&D?ス?ス?ス?ス?スl?スipixcel)
1209 yoffy 1.2 //?スc?ス?ス?ス[?スE?ス?ス?スX?スg?スA?スC?スR?ス?ス
1210     ITEM_ICON_2CH1 = 0; //2ch?スA?スC?スR?ス?ス
1211     ITEM_ICON_2CH2 = 1; //2ch?スA?スC?スR?ス?ス
1212     ITEM_ICON_CATEGORY1 = 2; //?スJ?スe?スS?ス?ス?スA?スC?スR?ス?ス
1213     ITEM_ICON_CATEGORY2 = 3; //?スJ?スe?スS?ス?ス?スA?スC?スR?ス?ス
1214 yoffy 1.98.2.2 ITEM_ICON_BOARD_NOSUBJECT = 3; //?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1215 yoffy 1.2 ITEM_ICON_BOARD1 = 4; //?ス?ス?スA?スC?スR?ス?ス
1216     ITEM_ICON_BOARD2 = 5; //?ス?ス?スA?スC?スR?ス?ス
1217     ITEM_ICON_THREADLOG1 = 6; //?スX?ス?ス?スA?スC?スR?ス?ス?スi?ス?ス?スO?ス?ス?ス?ス?スj
1218     ITEM_ICON_THREADLOG2 = 7; //?スX?ス?ス?スA?スC?スR?ス?ス?スi?ス?ス?スO?ス?ス?ス?ス?スj
1219     ITEM_ICON_THREAD1 = 8; //?スX?ス?ス?スA?スC?スR?ス?ス?スi?ス?ス?スO?ス?ス?ス?ス?スj
1220     ITEM_ICON_THREAD2 = 9; //?スX?ス?ス?スA?スC?スR?ス?ス?スi?ス?ス?スO?ス?ス?ス?ス?スj
1221     ITEM_ICON_THREADNEW1 = 10; //?スX?ス?ス?スA?スC?スR?ス?ス?スi?スV?ス?ス?スj
1222     ITEM_ICON_THREADNEW2 = 11; //?スX?ス?ス?スA?スC?スR?ス?ス?スi?スV?ス?ス?スj
1223     ITEM_ICON_SORT1 = 12; //?ス\?ス[?スg?スA?スC?スR?ス?ス
1224     ITEM_ICON_SORT2 = 13; //?ス\?ス[?スg?スA?スC?スR?ス?ス
1225 yoffy 1.98.2.2 ITEM_ICON_BOARD_LOG = 17; //?スX?ス?ス?ス?ス?スO?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1226     ITEM_ICON_BOARD_NEW = 18; //?スX?ス?ス?スV?ス?ス?ス?ス?スA?スC?スR?ス?ス
1227 yoffy 1.2
1228     //?スc?ス[?ス?ス?スo?ス[?スA?スC?スR?ス?ス
1229 yoffy 1.48 TOOL_ICON_HEIGHT_MAX = 16; //?ス?ス?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1230     TOOL_ICON_HEIGHT_MIN = 17; //?ス?ス?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1231     TOOL_ICON_HEIGHT_NORMAL = 18; //?ス?ス?ス?ス?スW?ス?ス?スA?スC?スR?ス?ス
1232     TOOL_ICON_WIDTH_MAX = 19; //?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1233     TOOL_ICON_WIDTH_MIN = 20; //?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1234     TOOL_ICON_WIDTH_NORMAL = 21; //?ス?ス?スW?ス?ス?スA?スC?スR?ス?ス
1235    
1236 yoffy 1.51 TOOL_ICON_FAV_FOLDER = 30; //?ス?ス?スC?ス?ス?ス?ス?ス?ス?スt?スH?ス?ス?ス_?スA?スC?スR?ス?ス
1237 yoffy 1.98.2.2 TOOL_ICON_FAV_BOARD = 31; //?ス?ス?スC?ス?ス?ス?ス?ス?ス?ス?ス?スA?スC?スR?ス?ス
1238 yoffy 1.51 TOOL_ICON_FAV_THREAD = 32; //?ス?ス?スC?ス?ス?ス?ス?ス?ス?スX?ス?ス?スA?スC?スR?ス?ス
1239 hi_ 1.1
1240     HTML_FILE_NAME = 'temp_preview.html';
1241    
1242 yoffy 1.98.2.2 WM_XBUTTONDOWN = $020B;
1243     WM_XBUTTONUP = $020C;
1244     WM_XBUTTONDBLCLK = $020D;
1245     XBUTTON1 = $0001;
1246     XBUTTON2 = $0002;
1247     USER_TREECLICK = WM_USER + 2000;
1248     USER_RESIZED = WM_USER + 2001;
1249     USER_MINIMIZED = WM_USER + 2002;
1250     USER_SETLINKBAR = WM_USER + 2003;
1251 yoffy 1.98.2.3 SELECTTIME_INTERBAL = 110;
1252 yoffy 1.98.2.2
1253 yoffy 1.98.2.3 BROWSER_COUNT = 5; //?スu?ス?ス?スE?スU?ス?ス?ス?ス
1254 hi_ 1.1 {$R *.DFM}
1255    
1256     procedure TGikoForm.CreateParams(var Params: TCreateParams);
1257     begin
1258     inherited;
1259     if FormStyle in [fsNormal, fsStayOnTop] then begin
1260     if BorderStyle in [bsSingle, bsSizeable] then begin
1261     Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
1262     Params.WndParent := 0;
1263     end;
1264     end;
1265     end;
1266    
1267     procedure TGikoForm.FormCreate(Sender: TObject);
1268     const
1269     TVS_NOTOOLTIPS = $0080;
1270     var
1271     FileName: string;
1272     Style: DWORD;
1273     msg: string;
1274     i: Integer;
1275     wp: TWindowPlacement;
1276 hi_ 1.32 s: string;
1277 yoffy 1.98.2.3 newbrowser: TWebBrowser;
1278 hi_ 1.1 begin
1279     {$IFDEF DEBUG}
1280     AllocConsole;
1281     Writeln('============================================================');
1282     Writeln(' ?スM?スR?スi?スr?スf?スo?スb?スO ?スR?ス?ス?ス\?ス[?ス?ス');
1283     Writeln('');
1284     Writeln(' ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スB');
1285     Writeln(' ?スI?ス?ス?ス?ス?ス?ス?スA?スM?スR?スi?スr?スE?スB?ス?ス?スh?スE?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス');
1286     Writeln('============================================================');
1287     {$ENDIF}
1288     Application.OnDeactivate := AppFormDeactivate;
1289     Self.OnDeactivate := AppFormDeactivate;
1290     Application.HookMainWindow(Hook);
1291 yoffy 1.98.2.3 Application.OnMessage := HandleAppMessage; //?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スv?ス?ス?ス?ス?ス?ス?ス?ス?ス@by?ス@?ス?ス?ス?ス?ス?ス
1292     Self.DoubleBuffered := true;
1293 hi_ 1.1 FTreeType := gttNone;
1294    
1295 yoffy 1.51 FSearchDialog := nil;
1296 yoffy 1.98.2.3 BrowserNullTab := TBrowserRecord.Create;
1297     BrowserNullTab.Browser := Browser;
1298     BrowserNullTab.Browser.Navigate(BLANK_HTML);
1299     FBrowsers := TList.Create;
1300     for i := 0 to BROWSER_COUNT -1 do begin
1301     FBrowsers.Add(TWebBrowser.Create(nil));
1302     newBrowser := FBrowsers[FBrowsers.Count - 1];
1303     TOleControl(newBrowser).Parent := BrowserPanel;
1304     newBrowser.Align := alNone;
1305     newBrowser.Left := 0;
1306     newBrowser.Top := 0;
1307     //newBrowser.DoubleBuffered := true;
1308     newBrowser.OnDocumentComplete := BrowserDocumentComplete;
1309     newBrowser.OnBeforeNavigate2 := BrowserBeforeNavigate2;
1310     newBrowser.OnEnter := BrowserEnter;
1311     newBrowser.OnNewWindow2 := BrowserNewWindow2;
1312     newBrowser.OnStatusTextChange := BrowserStatusTextChange;
1313     //newBrowser.OnTitleChange := BrowserTitleChange;
1314     newBrowser.Navigate(BLANK_HTML);
1315     ShowWindow(newBrowser.Handle, SW_HIDE);
1316    
1317     end;
1318     BrowserNullTab.Browser.BringToFront;
1319     ShowWindow(BrowserNullTab.Browser.Handle, SW_SHOW);
1320 yoffy 1.49
1321 yoffy 1.98.2.2 // ?スN?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1322     FIsIgnoreResize := True;
1323    
1324 hi_ 1.1 //?ス?ス?ス?ス?スJ?ス[?ス\?ス?ス
1325     Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
1326    
1327 yoffy 1.98.2.2
1328     //?スA?スh?ス?ス?スX?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1329     AddressHistoryDM.ReadHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
1330    
1331     // ?スO?ス?ス?ス?ス?スv?ス?ス?スO?スC?ス?ス?ス?ス?ス?ス?ス[?スh(ReadBoardFile, LoadHistory ?ス?ス?ス?ス?ス?ス?ス?ス?スs?ス?ス?ス?ス?ス?ス)
1332     InitializeBoardPlugIns;
1333    
1334     EnabledCloseButton := True;
1335    
1336    
1337 hi_ 1.1 //?ス?ス?ス?ス?スf?ス[?ス^?ス?ス?ス?ス?ス?ス?ス?ス
1338     RoundList := TRoundList.Create;
1339 yoffy 1.98.2.2 RoundList.LoadRoundBoardFile;
1340    
1341     // ?ス{?ス[?スh?スt?ス@?スC?ス?ス?ス?ス?ス?ス(ReadFavorite ?ス?ス?ス?ス?ス?ス?ス?ス?スs?ス?ス?ス?ス?ス?ス)
1342     GikoSys.ListBoardFile;
1343    
1344     RoundList.LoadRoundThreadFile;
1345    
1346     if RoundList.OldFileRead or ( RoundList.Count[grtItem] > 0 ) then
1347     GikoSys.ListBoardFile;
1348    
1349     // ?ス?ス?スj?ス?ス?ス[?ス?ス?ス?ス?ス?ス
1350 yoffy 1.98.2.3 SetBBSMenu;
1351 yoffy 1.98.2.2
1352     // ?スq?スX?スg?ス?ス?ス?ス?スX?スg(LoadHistory ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スs?ス?ス?ス?ス?ス?ス)
1353     FHistoryList := TList.Create;
1354 hi_ 1.1
1355 yoffy 1.98.2.2 // ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1356     LoadHistory;
1357 hi_ 1.1
1358     //?ス?ス?スC?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1359     // FFavorite := TFavorite.Create(FavoriteTreeView);
1360     FavoriteDM.SetFavTreeView(FavoriteTreeView);
1361     FavoriteDM.ReadFavorite;
1362    
1363     //?ス?ス?スX?スg?スX?ス^?スC?ス?ス
1364     ListView.ViewStyle := GikoSys.Setting.ListStyle;
1365    
1366     //?ス?ス?スC?ス?ス?スN?ス[?ス?ス?スo?ス[?ス?ス?スu
1367     // MainCoolBar.Top := 0;
1368     // MainCoolBar.Left := 0;
1369    
1370     //?スA?スj?ス?ス?スp?スl?ス?ス?ス?ス?スu
1371     AnimePanel.Top := 0;
1372     AnimePanel.Left := 0;
1373    
1374     //?スe?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1375    
1376     //?スL?ス?ス?スr?スl?スb?スg
1377     CabinetPanel.Width := GikoSys.Setting.CabinetWidth;
1378    
1379     //?ス?ス?スb?スZ?ス[?スW?スo?ス[
1380     MsgBarVisibleAction.Checked := GikoSys.Setting.MessageBarVisible;
1381     MsgBarVisibleActionExecute(nil);
1382     MessagePanel.Height := GikoSys.Setting.MessegeBarHeight;
1383    
1384     //?スX?スe?ス[?ス^?スX?スo?ス[
1385     StatusBarVisibleAction.Checked := GikoSys.Setting.StatusBarVisible;
1386     StatusBarVisibleActionExecute(nil);
1387    
1388     //?スt?スH?ス?ス?スg?スE?スF?ス?ス?ス?ス
1389     TreeView.Items.BeginUpdate;
1390 yoffy 1.98.2.2 FavoriteTreeView.Items.BeginUpdate;
1391 hi_ 1.1 ListView.Items.BeginUpdate;
1392     try
1393     TreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1394     TreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1395     TreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1396     TreeView.Color := GikoSys.Setting.CabinetBackColor;
1397    
1398 yoffy 1.67 FavoriteTreeView.Font.Name := GikoSys.Setting.CabinetFontName;
1399     FavoriteTreeView.Font.Size := GikoSys.Setting.CabinetFontSize;
1400     FavoriteTreeView.Font.Color := GikoSys.Setting.CabinetFontColor;
1401     FavoriteTreeView.Color := GikoSys.Setting.CabinetBackColor;
1402    
1403 hi_ 1.1 ListView.Font.Name := GikoSys.Setting.ListFontName;
1404     ListView.Font.Size := GikoSys.Setting.ListFontSize;
1405     ListView.Font.Color := GikoSys.Setting.ListFontColor;
1406 yoffy 1.98.2.2 //ListView.Color := GikoSys.Setting.ListBackColor;
1407     ListViewBackGroundColor := GikoSys.Setting.ListBackColor;
1408     FUseOddResOddColor := GikoSys.Setting.UseOddColorOddResNum;
1409     FOddColor := GikoSys.Setting.OddColor;
1410    
1411 hi_ 1.1 finally
1412     TreeView.Items.EndUpdate;
1413 yoffy 1.98.2.2 FavoriteTreeView.Items.EndUpdate;
1414 hi_ 1.1 ListView.Items.EndUpdate;
1415     end;
1416     //ViewNoButton.Down := GikoSys.Setting.ListViewNo;
1417     ListNumberVisibleAction.Checked := GikoSys.Setting.ListViewNo;
1418    
1419     //?スu?ス?ス?スE?スU?ス^?スu?スt?スH?ス?ス?スg
1420     BrowserTab.Font.Name := GikoSys.Setting.BrowserTabFontName;
1421     BrowserTab.Font.Size := GikoSys.Setting.BrowserTabFontSize;
1422 yoffy 1.98.2.2 FDragWFirst := false;
1423 yoffy 1.98.2.3 SetContent(BrowserNullTab); //?スu?ス?ス?スE?スU?ス?ス?ス?ス?ス?ス?ス\?ス?ス
1424 hi_ 1.1 // TreeView.TopItem.Expanded := True; //?スc?ス?ス?ス[?スg?スb?スv?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スJ?ス?ス
1425     // TreeView.Selected := TreeView.Items[0]; //?スc?ス?ス?ス[?ス?ス?スg?スb?スv?ス?ス?ス?ス?ス?ス?スI?ス?ス?ス?ス?ス?ス
1426 yoffy 1.98.2.3
1427 hi_ 1.1
1428     //?ス?ス?ス?ス?ス?ス?スE?スE?スB?ス?ス?スh?スE?ス?ス?スu?ス?ス?ス?ス
1429     wp.length := sizeof(wp);
1430     wp.rcNormalPosition.Top := GikoSys.Setting.WindowTop;
1431     wp.rcNormalPosition.Left := GikoSys.Setting.WindowLeft;
1432     wp.rcNormalPosition.Bottom := GikoSys.Setting.WindowTop + GikoSys.Setting.WindowHeight;
1433     wp.rcNormalPosition.Right := GikoSys.Setting.WindowLeft + GikoSys.Setting.WindowWidth;
1434     wp.showCmd := SW_HIDE;
1435     SetWindowPlacement(Handle, @wp);
1436    
1437     // SetBounds(GikoSys.Setting.WindowLeft, GikoSys.Setting.WindowTop,
1438     // GikoSys.Setting.WindowWidth, GikoSys.Setting.WindowHeight);
1439     if GikoSys.Setting.WindowMax then
1440 yoffy 1.98.2.2 WindowState := wsMaximized;
1441 hi_ 1.1
1442     //?スM?スR?スA?スj?ス?ス
1443     try
1444     FileName := GikoSys.GetAppDir + 'gikoNavi.avi';
1445     if FileExists(FileName) then
1446     Animate.FileName := FileName;
1447     except
1448     end;
1449    
1450     //?スN?スb?スL?ス[
1451     FNameCookie := '';
1452     FMailCookie := '';
1453    
1454     //?スX?ス?ス?スS?ス?ス?ス\?ス?ス?ス{?ス^?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1455     AllItemAction.Checked := True;
1456 yoffy 1.98.2.2 AllResAction.Checked := True;
1457 hi_ 1.1
1458     //TreeView?ス?ス?ス?ス?ス?ス?スL?ス?スToolTip?ス?ス?ス?ス?ス\?ス?ス
1459     Style := GetWindowLong(TreeView.Handle, GWL_STYLE);
1460     Style := Style or TVS_NOTOOLTIPS;
1461     SetWindowLong(TreeView.Handle, GWL_STYLE, Style);
1462    
1463     // ?スc?ス?ス?ス[?ス?ス?ス?ス?スC?ス?ス?ス?ス?ス?ス?ス\?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1464     TreeView.Align := alClient;
1465 yoffy 1.57 FavoriteTreeView.Align := alClient;
1466 hi_ 1.1 FavoriteTreeView.Visible := False;
1467    
1468     //?スu?ス?ス?スE?スU?スT?スC?スY?ス?ス?スX?ス?ス?ス?ス?ス?ス?ス?ス
1469     // FBrowserSizeFlag := False;
1470     // FBrowserSizeHeight := ViewPanel.Height;
1471    
1472     FBrowserSizeHeight := GikoSys.Setting.ListHeight;
1473     FBrowserSizeWidth := GikoSys.Setting.ListWidth;
1474    
1475     ArrangeAction.Checked := not (GikoSys.Setting.ListOrientation = gloVertical);
1476     ArrangeAction.Execute;
1477    
1478     if GikoSys.Setting.ListOrientation = gloHorizontal then begin
1479     case GikoSys.Setting.ListWidthState of
1480     glsMax: begin
1481     ViewPanel.Width := 1;
1482 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1483     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1484 hi_ 1.1 end;
1485     glsMin: begin
1486     ViewPanel.Width := GikoSys.Setting.ListWidth;
1487 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1488     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_NORMAL;
1489 hi_ 1.1 end;
1490     else begin
1491     ViewPanel.Width := GikoSys.Setting.ListWidth;
1492 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_WIDTH_MAX;
1493     BrowserMinAction.ImageIndex := TOOL_ICON_WIDTH_MIN;
1494 hi_ 1.1 end;
1495     end;
1496     end else begin
1497     case GikoSys.Setting.ListHeightState of
1498     glsMax: begin
1499     ViewPanel.Height := 1;
1500 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1501     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1502 hi_ 1.1 end;
1503     glsMin: begin
1504     ViewPanel.Height := GikoSys.Setting.ListHeight;
1505 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1506     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_NORMAL;
1507 hi_ 1.1 end;
1508     else begin
1509     ViewPanel.Height := GikoSys.Setting.ListHeight;
1510 yoffy 1.2 BrowserMaxAction.ImageIndex := TOOL_ICON_HEIGHT_MAX;
1511     BrowserMinAction.ImageIndex := TOOL_ICON_HEIGHT_MIN;
1512 hi_ 1.1 end;
1513     end;
1514     end;
1515    
1516     //?スv?ス?ス?スO?ス?ス?スX?スo?ス[?ス?ス?ス?ス?ス?ス?ス?ス
1517     // ProgressBar.Visible := False;
1518     ProgressBar.Parent := StatusBar;
1519     ProgressBar.Top := 2;
1520     ProgressBar.Left := 0;
1521     ProgressBar.Width := StatusBar.Panels[0].Width;
1522     ProgressBar.Height := StatusBar.Height - 2;
1523     ProgressBar.Position := 0;
1524    
1525     //?ス_?スE?ス?ス?ス?ス?ス[?スh?スI?スu?スW?スF?スN?スg
1526     FControlThread := TThreadControl.Create(True);
1527     FControlThread.MaxThreadCount := 1;
1528     FControlThread.Resume;
1529     FControlThread.OnDownloadEnd := DownloadEnd;
1530     FControlThread.OnDownloadMsg := DownloadMsg;
1531     FControlThread.OnWork := Work;
1532     FControlThread.OnWorkBegin := WorkBegin;
1533     FControlThread.OnWorkEnd := WorkEnd;
1534     // ProgressPanel.Width := FControlThread.MaxThreadCount * 12;
1535    
1536 yoffy 1.51 // ?スi?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1537     SelectComboBox.Items.Assign( GikoSys.Setting.SelectTextList );
1538 yoffy 1.2
1539 hi_ 1.1 //?スu?ス?ス?スE?スU?ス^?スu?ス?ス?ス?ス
1540     SetBrowserTabState;
1541    
1542     BrowserBoardNameLabel.Caption := '';
1543     BrowserNameLabel.Caption := '';
1544     FWorkCount := 0;
1545    
1546     FTabHintIndex := -1;
1547    
1548     //?ス?ス?ス?ス?スN?スo?ス[
1549     SetLinkBar;
1550    
1551     //?ス?ス?スj?ス?ス?ス[?スt?スH?ス?ス?スg
1552     SetMenuFont;
1553    
1554     //?スc?ス[?ス?ス?スo?ス[Wrapable
1555     ListToolBar.Wrapable := GikoSys.Setting.ListToolBarWrapable;
1556     BrowserToolBar.Wrapable := GikoSys.Setting.BrowserToolBarWrapable;
1557    
1558 yoffy 1.98.2.2 KeepDefaultToolButton(StdToolBar, TmpToolBar);
1559     KeepDefaultToolButton(ListToolBar, TmpToolBar);
1560     KeepDefaultToolButton(BrowserToolBar, TmpToolBar);
1561    
1562     MakeDefaultINIFile();
1563 yoffy 1.2 //?スc?ス[?ス?ス?ス{?ス^?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1564     ReadToolBarSetting(ActionList, StdToolBar);
1565     ReadToolBarSetting(ActionList, ListToolBar);
1566 yoffy 1.51 try
1567     for i := ListToolBar.ControlCount - 1 downto 0 do
1568     begin
1569     if ListToolBar.Controls[ i ].Action = SelectItemAction then
1570     begin
1571     // ?スX?ス?ス?スb?スh?スi?ス?ス?ス?ス?ス?ス?ス?ス?スZ?スp?ス?ス?ス[?ス^?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スB?ス?ス
1572     if (i + 1) < ListToolBar.ControlCount then
1573     if ListToolBar.Controls[ i + 1 ] is TToolButton then
1574     if TToolButton( ListToolBar.Controls[ i + 1 ] ).Style = tbsSeparator then
1575     ListToolBar.Controls[ i + 1 ].Visible := False;
1576    
1577     // ?スX?ス?ス?スb?スh?スi?ス?ス?ス{?ス^?ス?ス?ス?ス?スB?ス?ス
1578     ListToolBar.Controls[ i ].Visible := False;
1579     // ?スX?ス?ス?スb?スh?スi?ス?ス?スt?スB?ス[?ス?ス?スh?ス?ス?ス}?ス?ス
1580 yoffy 1.98.2.2 SelectComboBox.Parent := ListToolBar;
1581 yoffy 1.51 SelectComboBox.Left := ListToolBar.Controls[ i ].Left;
1582     SelectComboBox.Width := GikoSys.Setting.SelectComboBoxWidth;
1583     // ?スX?ス?ス?スb?スh?スi?ス?ス?スp?ス?ス?ス?ス?スZ?スp?ス?ス?ス[?ス^?ス?ス?ス}?ス?ス
1584     SelectComboBoxSplitter.Parent := ListToolBar;
1585 yoffy 1.98.2.2 SelectComboBoxSplitter.Left := SelectComboBox.Left + SelectComboBox.Width;
1586 yoffy 1.51
1587     break;
1588     end;
1589     end;
1590     except
1591     end;
1592 yoffy 1.2 ReadToolBarSetting(ActionList, BrowserToolBar);
1593     SetToolBarPopup;
1594 yoffy 1.98.2.3
1595     // ?ス?ス?スX?ス\?ス?ス?ス?ス?ス?ス
1596     FResRangeMenuSelect := GikoSys.ResRange;
1597     case GikoSys.ResRange of
1598     Ord( grrAll ):
1599     begin
1600     AllResAction.Execute;
1601     end;
1602     Ord( grrSelect ):
1603     begin
1604     SelectComboBox.Text := SelectComboBox.Items[ 1 ];
1605     SelectResAction.Checked := True;
1606     end;
1607     else
1608     // ResRangeAction.Execute;
1609     case FResRangeMenuSelect of
1610     Ord( grrKoko ): OnlyKokoResAction.Checked := True;
1611     Ord( grrNew ): OnlyNewResAction.Checked := True;
1612     100: OnlyAHundredResAction.Checked := True;
1613     end;
1614     end;
1615    
1616     // ?スX?ス?ス?スb?スh?ス?ス?ス?ス?ス\?ス?ス?ス?ス?ス?ス
1617     // ThreadRangeAction.Execute;
1618     case GikoSys.Setting.ThreadRange of
1619     gtrAll:
1620     begin
1621     AllItemAction.Checked := True;
1622     ViewType := gvtAll;
1623     end;
1624     gtrLog:
1625     begin
1626     LogItemAction.Checked := True;
1627     ViewType := gvtLog;
1628     end;
1629     gtrNew:
1630     begin
1631     NewItemAction.Checked := True;
1632     ViewType := gvtNew;
1633     end;
1634     end;
1635    
1636 hi_ 1.1 //?スA?スh?ス?ス?スX?スo?ス[
1637     AddressComboBox.TabStop := GikoSys.Setting.AddressBarTabStop;
1638    
1639 yoffy 1.2 //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス?ス?スFormShow?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1640    
1641     //?ス{?ス[?スh?スt?ス@?スC?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スb?スZ?ス[?スW?ス\?ス?ス
1642     if not FileExists(GikoSys.GetBoardFileName) then begin
1643     msg := '?ス?ス?ス?ス?ス?ス?スb?スZ?ス[?スW?ス?ス?スM?スR?スi?スr?ス?ス?ス?ス?ス?ス?ス?ス?スg?スp?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スP?ス?ス?ス?ス?ス?ス?ス\?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス' + #13#10#13#10
1644     + '?ス?ス?ス?ス?ス?ス?ス?ス?スA?スu?スQ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スv?ス?ス?スA?スh?ス?ス?スX?ス?ス?ス?ス?ス?ス?ス_?スE?ス?ス?ス?ス?ス[?スh?ス?ス?ス?ス?ス?ス' + #13#10
1645     + '?ス?ス?ス?ス?スo?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スA?スu?スX?スV?スv?ス{?ス^?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スB';
1646     MsgBox(SplashWindow.Handle, msg, '?スM?スR?スi?スr', MB_OK or MB_ICONINFORMATION);
1647     NewBoardAction.Execute;
1648     end;
1649    
1650     //?スL?ス[?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1651     GikoSys.LoadKeySetting(ActionList);
1652    
1653     //?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス
1654     // FLastRoundTime := 0;
1655    
1656     //ResHint
1657     FHint := TResPopup.Create(Self);
1658    
1659 yoffy 1.98.2.2 // ?ス?ス?ス?ス?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス?スL?ス?ス?スr?スl?スb?スg?ス?ス?ス?ス?ス?ス
1660 yoffy 1.98.2.3 CabinetVisible( False );
1661 yoffy 1.98.2.2 if GikoSys.Setting.CabinetVisible then begin
1662     i := CabinetSelectPopupMenu.Items.Count - 1;
1663     if GikoSys.Setting.CabinetIndex = i - 1 then
1664     CabinetHistoryAction.Execute
1665     else if GikoSys.Setting.CabinetIndex = i then
1666     CabinetFavoriteAction.Execute
1667     else begin
1668     if GikoSys.Setting.CabinetIndex < Length( BBSs ) then
1669     ShowBBSTree( BBSs[ GikoSys.Setting.CabinetIndex ] );
1670     // ?スN?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス 2
1671     FIsIgnoreResize := True;
1672     CabinetBBSAction.Execute;
1673     end;
1674     end else begin
1675     ShowBBSTreeOld( BBSs[ 0 ] );
1676     PostMessage( Handle, USER_TREECLICK, 0, 0 );
1677     end;
1678    
1679     // ?スN?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス 3
1680     FIsIgnoreResize := True;
1681 yoffy 1.67
1682 yoffy 1.2 //?スI?ス[?スg?ス?ス?スO?スC?ス?ス
1683     if GikoSys.Setting.AutoLogin then
1684     LoginAction.Execute;
1685    
1686     //?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スX?ス?ス?ス?ス?スJ?ス?ス?スi?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス_?スE?ス?ス?ス?ス?ス[?スh?スj
1687     for i := 1 to ParamCount do begin
1688     MoveToURL(ParamStr(i));
1689     end;
1690     // SetStdToolBar;
1691     // SetLinkBar;
1692 h677 1.22
1693 hi_ 1.32 s := GikoSys.FAbon.NGwordname;
1694     StatusBar.Panels[2].Text := s;
1695     StatusBar.Panels[2].Width := Max(StatusBar.Canvas.TextWidth(s), 100);
1696     StatusBarResize(Sender);
1697 yoffy 1.98.2.2
1698     dummy1.Caption := ItemReservPMenu.Caption;
1699     dummy1.Hint := ItemReservPMenu.Hint;
1700    
1701     //Samba24?ス?ス?スt?ス@?スC?ス?ス?ス`?スF?スb?スN
1702     GikoSys.SambaFileExists();
1703 yoffy 1.98.2.3
1704     //?ス^?スu?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス (AV?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス)
1705 yoffy 1.98.2.2 end;
1706    
1707     // CoolBar ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1708     procedure TGikoForm.SaveCoolBarSettings;
1709     var
1710     i : Integer;
1711     CoolSet : TCoolSet;
1712     begin
1713    
1714     if IsIconic( Handle ) or FIsIgnoreResize then
1715     Exit;
1716    
1717     //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス(Main)
1718     for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin
1719     CoolSet.FCoolID := MainCoolBar.Bands[i].ID;
1720     CoolSet.FCoolWidth := MainCoolBar.Bands[i].Width;
1721     CoolSet.FCoolBreak := MainCoolBar.Bands[i].Break;
1722     GikoSys.Setting.MainCoolSet[i] := CoolSet;
1723     end;
1724     //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス(Board)
1725     for i := 0 to LIST_COOLBAND_COUNT - 1 do begin
1726     CoolSet.FCoolID := ListCoolBar.Bands[i].ID;
1727     CoolSet.FCoolWidth := ListCoolBar.Bands[i].Width;
1728     CoolSet.FCoolBreak := ListCoolBar.Bands[i].Break;
1729     GikoSys.Setting.ListCoolSet[i] := CoolSet;
1730     end;
1731     //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス(Browser)
1732     for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin
1733     CoolSet.FCoolID := BrowserCoolBar.Bands[i].ID;
1734     CoolSet.FCoolWidth := BrowserCoolBar.Bands[i].Width;
1735     CoolSet.FCoolBreak := BrowserCoolBar.Bands[i].Break;
1736     GikoSys.Setting.BrowserCoolSet[i] := CoolSet;
1737     end;
1738    
1739     end;
1740    
1741     // CoolBar ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1742     procedure TGikoForm.LoadCoolBarSettings;
1743     var
1744     i : Integer;
1745     CoolSet : TCoolSet;
1746     begin
1747    
1748     //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス(Main)
1749     MainCoolBar.Bands.BeginUpdate;
1750     try
1751     // for i := 0 to MainCoolBar.Bands.Count - 1 do begin
1752     for i := MAIN_COOLBAND_COUNT - 1 downto 0 do begin
1753     CoolSet := GikoSys.Setting.MainCoolSet[i];
1754     if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1755     FIsIgnoreResize := False;
1756     SaveCoolBarSettings;
1757     Exit;
1758     end;
1759     MainCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1760     MainCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1761     MainCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1762     end;
1763     finally
1764     MainCoolBar.Bands.EndUpdate;
1765     end;
1766    
1767     //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス(Board)
1768     ListCoolBar.Bands.BeginUpdate;
1769     try
1770     // for i := 0 to ListCoolBar.Bands.Count - 1 do begin
1771     for i := LIST_COOLBAND_COUNT - 1 downto 0 do begin
1772     CoolSet := GikoSys.Setting.ListCoolSet[i];
1773     if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1774     FIsIgnoreResize := False;
1775     SaveCoolBarSettings;
1776     Exit;
1777     end;
1778     ListCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1779     ListCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1780     ListCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1781     end;
1782     finally
1783     ListCoolBar.Bands.EndUpdate;
1784     end;
1785    
1786     //?スN?ス[?ス?ス?スo?ス[?ス?ス?ス?ス(Browser)
1787     BrowserCoolBar.Bands.BeginUpdate;
1788     try
1789     // for i := 0 to BrowserCoolBar.Bands.Count - 1 do begin
1790     for i := BROWSER_COOLBAND_COUNT - 1 downto 0 do begin
1791     CoolSet := GikoSys.Setting.BrowserCoolSet[i];
1792     if (CoolSet.FCoolID = -1) or (CoolSet.FCoolWidth = -1) then begin
1793     FIsIgnoreResize := False;
1794     SaveCoolBarSettings;
1795     Exit;
1796     end;
1797     BrowserCoolBar.Bands.FindItemID(CoolSet.FCoolID).Index := i;
1798     BrowserCoolBar.Bands[i].Break := CoolSet.FCoolBreak;
1799     BrowserCoolBar.Bands[i].Width := CoolSet.FCoolWidth;
1800     end;
1801     finally
1802     BrowserCoolBar.Bands.EndUpdate;
1803     end;
1804    
1805 yoffy 1.2 end;
1806    
1807     //
1808     //
1809     //
1810     procedure TGikoForm.FormShow(Sender: TObject);
1811     begin
1812     ShowWindow(Application.Handle, SW_HIDE);
1813    
1814     //FormCreate?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スf?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スFormShow?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1815     //?スc?ス[?ス?ス?スo?ス[?ス\?ス?ス
1816     StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
1817     StdToolBarVisibleActionExecute( nil );
1818     AddressBarVisibleAction.Checked := GikoSys.Setting.AddressBarVisible;
1819     AddressBarVisibleActionExecute( nil );
1820     LinkBarVisibleAction.Checked := GikoSys.Setting.LinkBarVisible;
1821     LinkBarVisibleActionExecute( nil );
1822     ListToolBarVisibleAction.Checked := GikoSys.Setting.ListToolBarVisible;
1823     ListToolBarVisibleActionExecute( nil );
1824     ListNameBarVisibleAction.Checked := GikoSys.Setting.ListNameBarVisible;
1825     ListNameBarVisibleActionExecute( nil );
1826     BrowserToolBarVisibleAction.Checked := GikoSys.Setting.BrowserToolBarVisible;
1827     BrowserToolBarVisibleActionExecute( nil );
1828     BrowserNameBarVisibleAction.Checked := GikoSys.Setting.BrowserNameBarVisible;
1829     BrowserNameBarVisibleActionExecute( nil );
1830    
1831     //?スu?ス?ス?スE?スU?ス^?スu
1832     BrowserTabVisibleAction.Checked := GikoSys.Setting.BrowserTabVisible;
1833     BrowserTabVisibleActionExecute(nil);
1834    
1835     if GikoSys.Setting.BrowserTabPosition = gtpTop then begin
1836     BrowserTabTopAction.Checked := True;
1837     BrowserTabTopActionExecute(nil);
1838     end else begin
1839     BrowserTabBottomAction.Checked := True;
1840     BrowserTabBottomActionExecute(nil);
1841     end;
1842    
1843     if GikoSys.Setting.BrowserTabStyle = gtsTab then begin
1844     BrowserTabTabStyleAction.Checked := True;
1845     BrowserTabTabStyleActionExecute(nil);
1846     end else if GikoSys.Setting.BrowserTabStyle = gtsButton then begin
1847     BrowserTabButtonStyleAction.Checked := True;
1848     BrowserTabButtonStyleActionExecute(nil);
1849     end else begin
1850     BrowserTabFlatStyleAction.Checked := True;
1851     BrowserTabFlatStyleActionExecute(nil);
1852     end;
1853    
1854 yoffy 1.98.2.2 // CoolBar ?ス?ス?ス?ス
1855     LoadCoolBarSettings;
1856 yoffy 1.2
1857 yoffy 1.98.2.2 FIsIgnoreResize := False;
1858 yoffy 1.98.2.3
1859     //TabAutoLoad
1860     //FormCrete?ス?ス?ス?ス?ス?ス?ス?ス?スB
1861     if GikoSys.Setting.TabAutoLoadSave then begin
1862     TabAutoLoadAction.Execute;
1863     end;
1864    
1865 yoffy 1.98.2.2 end;
1866    
1867     procedure TGikoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
1868     begin
1869 yoffy 1.98.2.3 // if GikoForm.WindowState <> wsMinimized then
1870     // SaveCoolBarSettings;
1871 yoffy 1.98.2.2 if ( GikoSys.Setting.ShowDialogForEnd ) and
1872     (MessageDlg('?スM?スR?スi?スr?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スH', mtConfirmation,[mbOk, mbCancel], 0) = mrCancel ) then begin
1873     CanClose := false;
1874     Exit;
1875     end else begin
1876     CanClose := True;
1877 yoffy 1.98.2.3 if GikoSys.Setting.TabAutoLoadSave then begin
1878     TabAutoSaveAction.Execute;
1879     end;
1880 yoffy 1.98.2.2 end;
1881     //Application.HookMainWindow(Hook);
1882     Application.UnhookMainWindow(Hook);
1883     Application.Terminate;
1884     end;
1885    
1886     procedure TGikoForm.FormDestroy(Sender: TObject);
1887     var
1888 yoffy 1.98.2.3 i : Integer;
1889 yoffy 1.98.2.2 // CoolSet: TCoolSet;
1890 yoffy 1.98.2.3 wp : TWindowPlacement;
1891     tmpBool : Boolean;
1892 yoffy 1.98.2.2 begin
1893     // Application.OnDeactivate := nil;
1894     // Self.OnDeactivate := nil;
1895 hi_ 1.1 try
1896 yoffy 1.98.2.2 //column?ス?ス
1897     if GetActiveList is TBBS then begin
1898     for i := 0 to ListView.Columns.Count - 1 do
1899     GikoSys.Setting.BBSColumnWidth[i] := ListView.Column[i].Width;
1900     end else if GetActiveList is TCategory then begin
1901     for i := 0 to ListView.Columns.Count - 1 do
1902     GikoSys.Setting.CategoryColumnWidth[i] := ListView.Column[i].Width;
1903     end else if GetActiveList is TBoard then begin
1904     for i := 0 to ListView.Columns.Count - 1 do
1905     GikoSys.Setting.BoardColumnWidth[i] := ListView.Column[i].Width;
1906 hi_ 1.1 end;
1907 yoffy 1.98.2.2 except
1908     end;
1909     try
1910     //?ス?ス?ス?ス?ス?ス?スE?スE?スB?ス?ス?スh?スE?ス?ス?スu?ス?ス?ス?ス
1911     wp.length := sizeof(wp);
1912     GetWindowPlacement(Handle, @wp);
1913     GikoSys.Setting.WindowTop := wp.rcNormalPosition.Top;
1914     GikoSys.Setting.WindowLeft := wp.rcNormalPosition.Left;
1915     GikoSys.Setting.WindowHeight := wp.rcNormalPosition.Bottom - wp.rcNormalPosition.Top;
1916     GikoSys.Setting.WindowWidth := wp.rcNormalPosition.Right - wp.rcNormalPosition.Left;
1917     GikoSys.Setting.WindowMax := WindowState = wsMaximized;
1918    
1919     GikoSys.Setting.ListStyle := ListView.ViewStyle;
1920     GikoSys.Setting.CabinetVisible := CabinetVisibleAction.Checked;
1921     GikoSys.Setting.CabinetWidth := CabinetPanel.Width;
1922     GikoSys.Setting.ListHeight := FBrowserSizeHeight;
1923     GikoSys.Setting.ListWidth := FBrowserSizeWidth;
1924     if ArrangeAction.Checked then
1925     GikoSys.Setting.ListOrientation := gloVertical
1926     else
1927     GikoSys.Setting.ListOrientation := gloHorizontal;
1928     GikoSys.Setting.MessegeBarHeight := MessagePanel.Height;
1929     except
1930 hi_ 1.1 end;
1931    
1932 yoffy 1.98.2.3 try
1933     // ?ス?ス?スX?ス\?ス?ス?ス?ス?ス?ス
1934     if not GikoSys.Setting.ResRangeHold then
1935     GikoSys.Setting.ResRange := FResRangeMenuSelect;
1936     except
1937     end;
1938    
1939     // ?ス?ス?スA?ス?ス?ス^?スC?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スA?ス?ス?ス?ス?スA?スE?スB?ス?ス?スh?スE?スT?スC?スY?ス?ス CoolBar ?ス?ス?ス?ス
1940 yoffy 1.98.2.2 // ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スl?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1941     {
1942     // ?ス?スFormDestroy?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スA?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スv?ス?ス?スB?スi?ス?ス?ス?ス?ス?ス?ス@2004/04/09?スj
1943     // CoolBar ?ス?ス?ス?ス
1944     if GikoForm.WindowState <> wsMinimized then
1945     SaveCoolBarSettings;
1946     }
1947 hi_ 1.1 try
1948 yoffy 1.98.2.2 GikoSys.Setting.WriteWindowSettingFile;
1949     GikoSys.Setting.WriteNameMailSettingFile;
1950     except
1951 hi_ 1.1 end;
1952    
1953 yoffy 1.98.2.2 //?ス?ス?スC?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1954 hi_ 1.1 try
1955 yoffy 1.98.2.2 //FavoriteDM?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スt?スH?ス[?ス?ス?ス?ス?ス?ス?ス?ス?スA?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス
1956     FavoriteDM.WriteFavorite;
1957     FavoriteDM.Clear;
1958     except
1959 hi_ 1.1 end;
1960    
1961 yoffy 1.98.2.2 try
1962     //?ス^?スu?スN?ス?ス?ス[?スY
1963 yoffy 1.98.2.3 tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
1964     GikoSys.Setting.ShowDialogForAllTabClose := false;
1965     AllTabCloseAction.Execute;
1966     GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
1967     except
1968     end;
1969     try
1970     LockWindowUpdate(Self.Handle);
1971     for i := FBrowsers.Count - 1 downto 0 do begin
1972     TWebBrowser(FBrowsers[i]).Free;
1973     end;
1974     FBrowsers.Clear;
1975     FBrowsers.Capacity := 0;
1976     finally
1977     FBrowsers.Free;
1978     end;
1979     try
1980     if BrowserNullTab <> nil then begin
1981     BrowserNullTab.Browser := nil; {*BrowserNullTab?ス?スBrowser?ス?ス?ス?ス?スv?ス?ス?ス?ス?ス\?ス?ス?スt?ス?ス?ス?ス?ス?ス?スz
1982     *?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スFree?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スB
1983     *}
1984     BrowserNullTab.Free;
1985 hi_ 1.1 end;
1986 yoffy 1.98.2.2 except
1987 hi_ 1.1 end;
1988 yoffy 1.98.2.3 LockWindowUpdate(0);
1989 yoffy 1.98.2.2 try
1990     TreeView.Items.BeginUpdate;
1991 yoffy 1.98.2.3 TreeView.Items.GetFirstNode.Free;
1992 yoffy 1.98.2.2 TreeView.Items.Clear;
1993     TreeView.Items.EndUpdate;
1994     except
1995 hi_ 1.1 end;
1996    
1997 yoffy 1.98.2.2 //?スA?スh?ス?ス?スX?ス?ス?ス?ス?ス?ス?ス?ス
1998     try
1999     //AddressHistoryDM?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スt?スH?ス[?ス?ス?ス?ス?ス?ス?ス?ス?スA?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス?スB
2000     AddressHistoryDM.WriteHistory(AddressComboBox.Items, GikoSys.Setting.AddressHistoryCount);
2001     except
2002 yoffy 1.2 end;
2003    
2004 yoffy 1.98.2.2 //?スq?スX?スg?ス?ス?ス?ス?スX?スg?ス?ス?ス?ス
2005 hi_ 1.1 try
2006 yoffy 1.98.2.2 SaveHistory;
2007 hi_ 1.1 except
2008     end;
2009     try
2010 yoffy 1.98.2.2 try
2011     ClearHistory;
2012     except
2013 hi_ 1.1 end;
2014 yoffy 1.98.2.2 finally
2015     FHistoryList.Free;
2016 hi_ 1.1 end;
2017    
2018     //?ス?ス?ス?ス?ス?ス?スX?スg?ス?ス?ス?ス&?スj?ス?ス
2019     try
2020     RoundList.SaveRoundFile;
2021     except
2022     end;
2023     try
2024 yoffy 1.98.2.2 try
2025     RoundList.Clear;
2026     except
2027     end;
2028     finally
2029 hi_ 1.1 RoundList.Free;
2030 yoffy 1.98.2.2 end;
2031 hi_ 1.1
2032     try
2033 yoffy 1.98.2.2 try
2034     FControlThread.Terminate;
2035     FControlThread.WaitFor;
2036     except
2037     end;
2038     finally
2039     FControlThread.Free;
2040 hi_ 1.1 end;
2041    
2042 yoffy 1.98.2.2 // TBBS ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス TCategory, TBoard, TThreadItem ?ス?ス?ス?ス?ス?ス?ス?ス?スJ?ス?ス?ス?ス?ス?ス
2043     // TBoard, TThreadItem ?ス?ス?スf?スX?スg?ス?ス?スN?ス^?ス?ス?スv?ス?ス?スO?スC?ス?ス?ス?ス?スj?ス?ス?ス?ス?ス`?ス?ス?ス?ス?ス?ス?ス?ス
2044     // BoardPluteIns ?ス?ス?スJ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スs?ス?ス?ス?ス?ス?ス
2045 hi_ 1.1 try
2046 yoffy 1.98.2.2 for i := Length( BBSs ) - 1 downto 0 do begin
2047     if BBSs[ i ] <> nil then
2048     BBSs[ i ].Free;
2049     BBSs[ i ] := nil;
2050     end;
2051 hi_ 1.1 except
2052     end;
2053    
2054     try
2055 yoffy 1.98.2.2 for i := Length( BoardPlugIns ) - 1 downto 0 do begin
2056     if BoardPlugIns[ i ] <> nil then
2057     BoardPlugIns[ i ].Free;
2058     BoardPlugIns[ i ] := nil;
2059     end;
2060 hi_ 1.1 except
2061     end;
2062    
2063     try
2064 yoffy 1.98.2.2 if FEvent <> nil then
2065     FEvent.Free;
2066 yoffy 1.2
2067     //Hint?スj?ス?ス
2068     if FHint <> nil then begin
2069     FHint.ReleaseHandle;
2070     FHint.Free;
2071     FHint := nil;
2072     end;
2073     //Preview?スj?ス?ス
2074     if TPreviewBrowser <> nil then begin
2075     FPreviewBrowser.Free;
2076     FPreviewBrowser := nil;
2077     end;
2078     except
2079     end;
2080 hi_ 1.1
2081     end;
2082    
2083     //?スt?スH?ス[?ス?ス?スN?ス?ス?ス[?スY
2084     procedure TGikoForm.FormClose(Sender: TObject; var Action: TCloseAction);
2085     begin
2086     end;
2087     //?スL?ス?ス?スr?スl?スb?スg?ス~?ス{?ス^?ス?ス?スN?ス?ス?スb?スN
2088     procedure TGikoForm.CabinetPanelHide(Sender: TObject);
2089     begin
2090     CabinetVisibleAction.Execute;
2091     // CabinetPanelVisible(false);
2092     end;
2093    
2094 yoffy 1.98.2.3 // ?スe?ス?ス?ス?ス?ス?ス?ス?ス?スL?ス?ス?スr?スl?スb?スg?スE BBS ?ス?ス?スj?ス?ス?ス[?ス?ス?スZ?スb?スg?ス^?スX?スV
2095     procedure TGikoForm.SetBBSMenu;
2096 yoffy 1.98.2.2 var
2097     i : Integer;
2098     item : TBBSMenuItem;
2099 hi_ 1.1 begin
2100    
2101 yoffy 1.98.2.2 // ?ス?ス?スj?ス?ス?ス[?ス?ス?ス?ス?ス?ス
2102     for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
2103     try
2104     if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin
2105     CabinetSelectPopupMenu.Items[ i ].Free;
2106     CabinetMenu.Items[ i ].Free;
2107 yoffy 1.98.2.3 BBSSelectPopupMenu.Items[ i ].Free;
2108 yoffy 1.98.2.2 end;
2109     except
2110     end;
2111     end;
2112 yoffy 1.98.2.3
2113     // ?ス?ス?スj?ス?ス?ス[?ス?ス?ス?ス?ス?ス
2114 yoffy 1.98.2.2 for i := Length( BBSs ) - 1 downto 0 do begin
2115     try
2116     item := TBBSMenuItem.Create( PopupMenu );
2117     item.Caption := BBSs[ i ].Title;
2118     item.Data := BBSs[ i ];
2119     item.OnClick := BBSMenuItemOnClick;
2120     CabinetSelectPopupMenu.Items.Insert( 0, item );
2121     item := TBBSMenuItem.Create( PopupMenu );
2122     item.Caption := BBSs[ i ].Title;
2123     item.Data := BBSs[ i ];
2124     item.OnClick := BBSMenuItemOnClick;
2125     CabinetMenu.Insert( 0, item );
2126 yoffy 1.98.2.3 item := TBBSMenuItem.Create( PopupMenu );
2127     item.Caption := BBSs[ i ].Title;
2128     item.Data := BBSs[ i ];
2129     item.OnClick := BBSMenuItemOnClick;
2130     BBSSelectPopupMenu.Items.Insert( 0, Item );
2131 yoffy 1.98.2.2 except
2132     end;
2133     end;
2134 yoffy 1.98.2.3
2135     end;
2136    
2137     procedure TGikoForm.ReloadBBS;
2138     var
2139     i : Integer;
2140     tmpBool: Boolean;
2141     begin
2142     //?ス^?スu?スN?ス?ス?ス[?スY
2143     tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
2144     GikoSys.Setting.ShowDialogForAllTabClose := false;
2145     AllTabCloseAction.Execute;
2146     GikoSys.Setting.ShowDialogForAllTabClose := tmpBool;
2147    
2148     SetContent(BrowserNullTab);
2149     //TreeView?スN?ス?ス?スA?スiBBS2ch.Free?ス?ス?ス?ス?ス?ス?スN?ス?ス?スA?ス?ス?ス?ス?ス?スXP?スX?ス^?スC?ス?ス?ス?ス?ス?ス?スG?ス?ス?ス[?スo?ス?ス?スj
2150     TreeView.Items.Clear;
2151    
2152     //BBS?スj?ス?ス
2153     try
2154     for i := Length( BBSs ) - 1 downto 0 do begin
2155     if BBSs[ i ] <> nil then
2156     BBSs[ i ].Free;
2157     BBSs[ i ] := nil;
2158     end;
2159     except
2160     end;
2161    
2162     ActiveList := nil;
2163    
2164     FTreeType := gttNone;
2165    
2166     GikoSys.ListBoardFile; //?ス{?ス[?スh?スt?ス@?スC?ス?ス?ス?ス?ス?ス
2167    
2168     // BBS ?ス?ス?スj?ス?ス?ス[?ス?ス?スX?スV
2169     SetBBSMenu;
2170    
2171 yoffy 1.98.2.2 ShowBBSTree( BBSs[ 0 ] );
2172    
2173     // ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
2174     SaveHistory;
2175     ClearHistory;
2176     LoadHistory;
2177    
2178     //?ス?ス?スC?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
2179     FavoriteDM.WriteFavorite;
2180     FavoriteDM.Clear;
2181     FavoriteDM.ReadFavorite;
2182    
2183     SetLinkBar;
2184 hi_ 1.1
2185     end;
2186    
2187     //?ス{?ス[?スh?スc?ス?ス?ス[?ス?ス?ス?ス
2188 yoffy 1.98.2.2 procedure TGikoForm.SetBoardTreeNode(
2189     inBBS : TBBS
2190     );
2191 hi_ 1.1 var
2192 yoffy 1.98.2.2 i, j, k: integer;
2193 hi_ 1.1 Root: TTreeNode;
2194     CategoryNode: TTreeNode;
2195     BoardNode: TTreeNode;
2196     Category: TCategory;
2197     Board: TBoard;
2198     begin
2199 yoffy 1.98.2.2 // ?ス?ス?ス?ス?スX?スg?ス?ス?ス?ス?ス?ス
2200     FActiveBBS := inBBS;
2201 hi_ 1.1 TreeView.Items.BeginUpdate;
2202     TreeView.Items.Clear;
2203     try
2204 yoffy 1.98.2.3 if not inBBS.IsBoardFileRead then
2205     GikoSys.ReadBoardFile( inBBS );
2206 yoffy 1.98.2.2 try
2207     if SplashWindow <> nil then
2208     SplashWindow.ProgressBar.Max := inBBS.Count;
2209     except
2210     end;
2211 hi_ 1.1
2212 yoffy 1.98.2.3 // ?スL?ス?ス?スr?スl?スb?スg?ス\?ス?ス?スO?ス?ス?ス?ス?ス\?ス[?スg
2213     if ( GikoSys.Setting.BBSSortIndex <> 0 ) or ( GikoSys.Setting.BBSSortOrder <> true ) then begin
2214     Sort.SortOrder := true;
2215     Sort.SortIndex := 0;
2216     Sort.SortNoFlag := true;
2217     inBBS.Sort(CategorySortProc);
2218     end;
2219    
2220 yoffy 1.98.2.2 Root := TreeView.Items.Add( nil, inBBS.Title );
2221     Root.ImageIndex := ITEM_ICON_2CH1;
2222     Root.SelectedIndex := ITEM_ICON_2CH2;
2223     Root.Data := inBBS;
2224     for i := 0 to inBBS.Count - 1 do begin
2225     Category := TCategory(inBBS.Items[i]);
2226 hi_ 1.1 CategoryNode := TreeView.Items.AddChild(Root, Category.Title);
2227     CategoryNode.Data := Category;
2228 yoffy 1.2 CategoryNode.ImageIndex := ITEM_ICON_CATEGORY1;
2229     CategoryNode.SelectedIndex := ITEM_ICON_CATEGORY2;
2230 hi_ 1.1
2231 yoffy 1.98.2.3 // ?スL?ス?ス?スr?スl?スb?スg?ス\?ス?ス?スO?ス?ス?ス?ス?ス\?ス[?スg
2232     if ( GikoSys.Setting.CategorySortIndex <> 0 ) or ( GikoSys.Setting.CategorySortOrder <> true ) then begin
2233     Sort.SortOrder := true;
2234     Sort.SortIndex := 0;
2235     Sort.SortNoFlag := true;
2236     Category.CustomSort(BoardSortProc);
2237     end;
2238    
2239 hi_ 1.1 for j := 0 to Category.Count - 1 do begin
2240     Board := TBoard(Category.Items[j]);
2241     Board.BeginUpdate;
2242     BoardNode := TreeView.Items.AddChild(CategoryNode, Board.Title);
2243     BoardNode.Data := Board;
2244 yoffy 1.98.2.2 //if (Board.LastGetTime = 0) or (Board.LastGetTime = ZERO_DATE) then begin
2245     if not Board.IsLogFile then begin
2246     BoardNode.ImageIndex := ITEM_ICON_BOARD_NOSUBJECT;
2247     BoardNode.SelectedIndex := ITEM_ICON_BOARD_NOSUBJECT;
2248     end else begin
2249     BoardNode.ImageIndex := ITEM_ICON_BOARD1;
2250     BoardNode.SelectedIndex := ITEM_ICON_BOARD2;
2251     for k := 0 to Board.Count - 1 do begin
2252     if Board.Items[ k ].IsLogFile then begin
2253     BoardNode.ImageIndex := ITEM_ICON_BOARD_LOG;
2254     BoardNode.SelectedIndex := ITEM_ICON_BOARD_LOG;
2255    
2256     Break;
2257     end;
2258     end;
2259     end;
2260 hi_ 1.1 Board.EndUpdate;
2261     end;
2262    
2263     CategoryNode.Expanded := Category.NodeExpand;
2264    
2265     if SplashWindow <> nil then begin
2266     SplashWindow.ProgressBar.StepIt;
2267     Application.ProcessMessages;
2268     end;
2269     end;
2270     finally
2271     TreeView.Items.EndUpdate;
2272     end;
2273     end;
2274    
2275 yoffy 1.98.2.2 function TGikoForm.SetCategoryListItem(ABBS2ch: TBBS): Integer;
2276 hi_ 1.1 const
2277     COLUMN: array[0..0] of string = ('?スJ?スe?スS?ス?ス?ス?ス');
2278     var
2279     ListColumn: TListColumn;
2280     i: Integer;
2281     begin
2282     ListView.Items.BeginUpdate;
2283     try
2284     Screen.Cursor := crHourGlass;
2285    
2286     ListView.Columns.Clear;
2287     for i := 0 to Length(COLUMN) -