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