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.466 - (hide annotations) (download) (as text)
Tue Oct 19 15:19:34 2004 UTC (19 years, 6 months ago) by h677
Branch: MAIN
Changes since 1.465: +15 -12 lines
File MIME type: text/x-pascal
・ユ・ゥ。シ・爨ホ・?オ・、・コ、ホケ篦ョイス

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