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.535 - (hide annotations) (download) (as text)
Sat Nov 19 02:56:07 2005 UTC (18 years, 5 months ago) by h677
Branch: MAIN
Changes since 1.534: +64 -5 lines
File MIME type: text/x-pascal
・ユ・。・、・?゙、ヌーワソ「

1 hi_ 1.1 unit Giko;
2    
3     interface
4    
5     uses
6     Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
7 yoffy 1.117 OleCtrls, ComCtrls, ExtCtrls, Menus, StdCtrls, MMSystem, DateUtils, Math,
8 hi_ 1.4 {$IF Defined(DELPRO) }
9 yoffy 1.138 SHDocVw,
10 hi_ 1.4 MSHTML,
11     {$ELSE}
12     SHDocVw_TLB,
13     MSHTML_TLB,
14     {$IFEND}
15 h677 1.183 IdHTTP, ActiveX, ActnList, ImgList,
16 h677 1.343 ToolWin, Buttons, {Clipbrd,} {HTTPApp,} YofUtils, IdComponent,
17 h677 1.183 ShellAPI, UrlMon, Tabs, IdGlobal, StrUtils,
18 h677 1.170 CommCtrl, IniFiles, Dialogs,
19 hi_ 1.1 GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
20     Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
21     FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
22 h677 1.35 HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
23 h677 1.170 IndividualAbon, Search, ExternalBoardManager, ExternalBoardPlugInMain,
24 genyakun 1.348 StdActns, GikoXMLDoc, Variants, ExtActns,IdTCPConnection, IdBaseComponent,
25 yoffy 1.456 IdTCPClient, Gesture;
26 hi_ 1.1
27     type
28 yoffy 1.138 TGikoTreeType = (gttNone, gtt2ch, gttHistory, gttFavorite);
29 yoffy 1.258 TToolBarSettingSenderType = (tssNone, tssMain, tssList, tssBrowser);
30 yoffy 1.280 TMinimizeType = (mtNone, mtMinimizing, mtMinimized);
31 yoffy 1.424 TResizeType = (rtNone, rtResizing);
32 hi_ 1.1
33 h677 1.299 TBrowserRecord = class;
34    
35 hi_ 1.1 TGikoForm = class(TForm)
36     StatusBar: TStatusBar;
37     MainPanel: TPanel;
38     ClientPanel: TPanel;
39     TreeSplitter: TSplitter;
40     CabinetPanel: TPanel;
41     TreeView: TTreeView;
42     ThreadMainPanel: TPanel;
43     ListSplitter: TSplitter;
44     ViewPanel: TPanel;
45 yoffy 1.51 ListView: TGikoListView;
46 hi_ 1.1 ThreadPanel: TPanel;
47     MessagePanel: TPanel;
48     MessageBar: TPanel;
49     MessageHideButton: TSpeedButton;
50     MessageListView: TListView;
51     MessageSplitter: TSplitter;
52     Panel3: TPanel;
53     SpeedButton1: TSpeedButton;
54     ToolBar1: TToolBar;
55     CabinetSelectToolButton: TToolButton;
56     HistoryToolBar: TToolBar;
57     ToolButton15: TToolButton;
58     ToolButton18: TToolButton;
59     ItemIcon16: TImageList;
60     ItemIcon32: TImageList;
61 yoffy 1.2 HotToobarImageList: TImageList;
62 yoffy 1.51 ToobarImageList: TImageList;
63 hi_ 1.1 ItemImageList: TImageList;
64 yoffy 1.2 ActionList: TActionList;
65 hi_ 1.1 LogDeleteAction: TAction;
66     KidokuAction: TAction;
67     StdToolBarVisibleAction: TAction;
68     SearchAction: TAction;
69 yoffy 1.51 GikoNaviWebPageAction: TAction;
70 hi_ 1.1 AboutAction: TAction;
71     ExitAction: TAction;
72 yoffy 1.51 MsgBarVisibleAction: TAction;
73 hi_ 1.1 StatusBarVisibleAction: TAction;
74     LargeIconAction: TAction;
75     SmallIconAction: TAction;
76     ListIconAction: TAction;
77 yoffy 1.51 DetailIconAction: TAction;
78 yoffy 1.141 CabinetBBSAction: TAction;
79 hi_ 1.1 CabinetHistoryAction: TAction;
80 yoffy 1.51 CabinetVisibleAction: TAction;
81     MidokuAction: TAction;
82 hi_ 1.1 AllSelectAction: TAction;
83     UpFolderAction: TAction;
84 yoffy 1.51 ListNumberVisibleAction: TAction;
85 hi_ 1.1 AllItemAction: TAction;
86 yoffy 1.51 LogItemAction: TAction;
87     NewItemAction: TAction;
88 hi_ 1.1 SelectItemAction: TAction;
89     ShowThreadAction: TAction;
90     StopAction: TAction;
91     MainMenu: TMainMenu;
92     FileMenu: TMenuItem;
93 yoffy 1.51 DeleteMenu: TMenuItem;
94     ExitMenu: TMenuItem;
95     KidokuMenu: TMenuItem;
96 hi_ 1.1 MidokuMenu: TMenuItem;
97 yoffy 1.51 AllSelectMenu: TMenuItem;
98 hi_ 1.1 ViewMenu: TMenuItem;
99     StdToolBarMenu: TMenuItem;
100     CabinetMenu: TMenuItem;
101 yoffy 1.51 H1: TMenuItem;
102 hi_ 1.1 N4: TMenuItem;
103 yoffy 1.51 CabinetVisibleMenu: TMenuItem;
104 hi_ 1.1 MessageMenu: TMenuItem;
105     StatusBarMenu: TMenuItem;
106     MMSep03: TMenuItem;
107 yoffy 1.51 LargeIconMenu: TMenuItem;
108 hi_ 1.1 SmallIconMenu: TMenuItem;
109     ListMenu: TMenuItem;
110     DetailMenu: TMenuItem;
111 yoffy 1.51 ToolMenu: TMenuItem;
112 hi_ 1.1 Find1: TMenuItem;
113     RoundMenu: TMenuItem;
114     MMSep04: TMenuItem;
115     OptionMenu: TMenuItem;
116     HelpMenu: TMenuItem;
117     G1: TMenuItem;
118 yoffy 1.51 N1: TMenuItem;
119 hi_ 1.1 AboutMenu: TMenuItem;
120 yoffy 1.51 IconStyle: TAction;
121 hi_ 1.1 BrowserPopupMenu: TPopupMenu;
122 yoffy 1.51 ShowThreadMenu: TMenuItem;
123 yoffy 1.2 ShowBoardMenu: TMenuItem;
124 hi_ 1.1 ShowBoardAction: TAction;
125     ListIconPopupMenu: TPopupMenu;
126     LargeIconPMenu: TMenuItem;
127     SmallIconPMenu: TMenuItem;
128     ListPMenu: TMenuItem;
129 yoffy 1.51 DetailPMenu: TMenuItem;
130     CabinetCloseAction: TAction;
131 hi_ 1.1 ClosePopupMenu: TPopupMenu;
132 yoffy 1.51 CloseMenu: TMenuItem;
133     OptionAction: TAction;
134 hi_ 1.1 U1: TMenuItem;
135     N3: TMenuItem;
136     B1: TMenuItem;
137     S1: TMenuItem;
138     N2: TMenuItem;
139     A1: TMenuItem;
140     L1: TMenuItem;
141     N5: TMenuItem;
142     S2: TMenuItem;
143 yoffy 1.51 RoundAction: TAction;
144 hi_ 1.1 ListPopupMenu: TPopupMenu;
145 yoffy 1.51 ListRoundPMenu: TMenuItem;
146 hi_ 1.1 ListReservPMenu: TMenuItem;
147     LPMSep01: TMenuItem;
148 yoffy 1.51 ItemRoundPMenu: TMenuItem;
149 hi_ 1.1 LPMSep02: TMenuItem;
150 yoffy 1.2 KidokuPMenu: TMenuItem;
151 hi_ 1.1 MidokuPMenu: TMenuItem;
152     AllSelectPMenu: TMenuItem;
153     UrlCopyPMenu: TMenuItem;
154     LPMSep05: TMenuItem;
155     DeletePMenu: TMenuItem;
156     LPMSep06: TMenuItem;
157     ViewPMenu: TMenuItem;
158     LargeIconLPMenu: TMenuItem;
159     SmallIconLPMenu: TMenuItem;
160     ListLPMenu: TMenuItem;
161     DetailLPMenu: TMenuItem;
162     T1: TMenuItem;
163     B2: TMenuItem;
164     N8: TMenuItem;
165     URLCopyAction: TAction;
166 yoffy 1.51 URLC1: TMenuItem;
167     N9: TMenuItem;
168 hi_ 1.1 N10: TMenuItem;
169 yoffy 1.51 MsgBarCloseAction: TAction;
170     ScrollTopAction: TAction;
171 hi_ 1.1 ScrollLastAction: TAction;
172     ScrollNewAction: TAction;
173     ScrollKokoAction: TAction;
174 yoffy 1.51 EditorAction: TAction;
175 hi_ 1.1 IEAction: TAction;
176     ItemReloadAction: TAction;
177 yoffy 1.51 BrowserMaxAction: TAction;
178 hi_ 1.1 G2: TMenuItem;
179     N11: TMenuItem;
180     T3: TMenuItem;
181     L2: TMenuItem;
182     N12: TMenuItem;
183     K1: TMenuItem;
184     N13: TMenuItem;
185     N14: TMenuItem;
186     R1: TMenuItem;
187     A2: TMenuItem;
188     N15: TMenuItem;
189 yoffy 1.51 SelectListReloadAction: TAction;
190     SelectThreadReloadAction: TAction;
191 hi_ 1.1 KokoPopupMenu: TPopupMenu;
192     KokomadePMenu: TMenuItem;
193 yoffy 1.2 AllPMenu: TMenuItem;
194 hi_ 1.1 MenuItem1: TMenuItem;
195     MenuItem2: TMenuItem;
196     BrowserTabCloseAction: TAction;
197     BrowserTabPopupMenu: TPopupMenu;
198 yoffy 1.51 Close1: TMenuItem;
199 hi_ 1.1 KokomadeAction: TAction;
200     ZenbuAction: TAction;
201     KokoResAction: TAction;
202     SelectItemURLCopyAction: TAction;
203     SelectReservAction: TAction;
204     NotSelectTabCloseAction: TAction;
205     A3: TMenuItem;
206 yoffy 1.51 N16: TMenuItem;
207 hi_ 1.1 A4: TMenuItem;
208     TreePopupMenu: TPopupMenu;
209     TreeSelectThreadPupupMenu: TMenuItem;
210 yoffy 1.51 TreeSelectBoardPupupMenu: TMenuItem;
211 hi_ 1.1 TPMSep01: TMenuItem;
212     TreeSelectURLPupupMenu: TMenuItem;
213     TreeSelectBoradReload: TAction;
214 yoffy 1.51 TreeSelectThreadReload: TAction;
215 hi_ 1.1 TreeSelectURLCopy: TAction;
216     ListToolBarVisibleAction: TAction;
217     BrowserToolBarVisibleAction: TAction;
218     T2: TMenuItem;
219 yoffy 1.2 L3: TMenuItem;
220 hi_ 1.1 B3: TMenuItem;
221     BrowserBottomPanel: TGikoPanel;
222     CabinetSelectPopupMenu: TPopupMenu;
223     H2: TMenuItem;
224 yoffy 1.51 ItemReservPMenu: TMenuItem;
225     RoundNamePopupMenu: TPopupMenu;
226 hi_ 1.1 SelectNewRoundName: TAction;
227 yoffy 1.51 SelectDeleteRound: TAction;
228     NewBoardAction: TAction;
229 yoffy 1.2 N7: TMenuItem;
230 hi_ 1.1 B4: TMenuItem;
231     LoginAction: TAction;
232     L4: TMenuItem;
233     KeySettingAction: TAction;
234     K2: TMenuItem;
235     AllTabCloseAction: TAction;
236 yoffy 1.51 A5: TMenuItem;
237 hi_ 1.1 A6: TMenuItem;
238 yoffy 1.51 C1: TMenuItem;
239     V1: TMenuItem;
240     N19: TMenuItem;
241 hi_ 1.1 D1: TMenuItem;
242 yoffy 1.51 D2: TMenuItem;
243     MessageImageList: TImageList;
244     ProgressBar: TProgressBar;
245     ArrangeAction: TAction;
246     URL1: TMenuItem;
247     NameURLCopyAction: TAction;
248     SelectItemNameURLCopyAction: TAction;
249 hi_ 1.1 NameUrlCopyPMenu: TMenuItem;
250     URLC2: TMenuItem;
251 yoffy 1.51 URLN1: TMenuItem;
252     N21: TMenuItem;
253     URLC3: TMenuItem;
254 yoffy 1.2 URLN2: TMenuItem;
255 yoffy 1.51 N23: TMenuItem;
256 yoffy 1.2 ListCoolBar: TGikoCoolBar;
257 hi_ 1.1 ListToolBar: TToolBar;
258 yoffy 1.2 BrowserCoolBar: TGikoCoolBar;
259 hi_ 1.1 BrowserToolBar: TToolBar;
260     ToolButton3: TToolButton;
261 yoffy 1.51 ToolButton9: TToolButton;
262 hi_ 1.1 ToolButton11: TToolButton;
263 yoffy 1.51 ToolButton5: TToolButton;
264 hi_ 1.1 ListNameToolBar: TToolBar;
265 yoffy 1.51 ListNameLabel: TLabel;
266 hi_ 1.1 FolderImage: TImage;
267     BrowserNameToolBar: TToolBar;
268     ItemBoardImage: TImage;
269     BrowserBoardNameLabel: TLabel;
270 yoffy 1.51 ItemImage: TImage;
271     BrowserNameLabel: TLabel;
272     ActiveLogDeleteAction: TAction;
273     D3: TMenuItem;
274     N25: TMenuItem;
275 hi_ 1.1 N26: TMenuItem;
276     ListNameBarVisibleAction: TAction;
277     D4: TMenuItem;
278     BrowserNameBarVisibleAction: TAction;
279     S3: TMenuItem;
280 yoffy 1.51 R2: TMenuItem;
281     TreeSelectNameURLCopy: TAction;
282     TreeSelectNameURLPupupMenu: TMenuItem;
283     N27: TMenuItem;
284 hi_ 1.1 H3: TMenuItem;
285     PaneInitAction: TAction;
286 yoffy 1.51 I1: TMenuItem;
287     BrowserTabToolBar: TToolBar;
288     BrowserTab: TTabControl;
289 yoffy 1.2 BrowserMinAction: TAction;
290 yoffy 1.51 About1: TMenuItem;
291     N28: TMenuItem;
292     SelectTextClearAction: TAction;
293     MailTextClearAction: TAction;
294 hi_ 1.1 NameTextClearAction: TAction;
295 yoffy 1.51 S4: TMenuItem;
296 yoffy 1.2 N29: TMenuItem;
297     N30: TMenuItem;
298 hi_ 1.1 LeftmostTabSelectAction: TAction;
299 yoffy 1.51 LeftTabSelectAction: TAction;
300     RightTabSelectAction: TAction;
301     RightmostTabSelectAction: TAction;
302 yoffy 1.2 N31: TMenuItem;
303 hi_ 1.1 L5: TMenuItem;
304 yoffy 1.51 L6: TMenuItem;
305 hi_ 1.1 A7: TMenuItem;
306 yoffy 1.51 R3: TMenuItem;
307 hi_ 1.1 FavoriteMenu: TMenuItem;
308 yoffy 1.51 FavoriteAddAction: TAction;
309     N32: TMenuItem;
310 hi_ 1.1 BoardFavoriteAddMenu: TMenuItem;
311 yoffy 1.2 BoardFavoriteAddAction: TAction;
312 hi_ 1.1 ThreadFavoriteAddAction: TAction;
313     ThreadFavoriteAddMenu: TMenuItem;
314     TreeSelectFavoriteAddAction: TAction;
315 yoffy 1.2 N33: TMenuItem;
316 hi_ 1.1 TreeSelectFavoriteAddPupupMenu: TMenuItem;
317     FavoriteArrangeAction: TAction;
318     FavoriteTreeView: TTreeView;
319 yoffy 1.51 StateIconImageList: TImageList;
320     TopPanel: TPanel;
321     TopRightPanel: TPanel;
322     AnimePanel: TPanel;
323 hi_ 1.1 Animate: TAnimate;
324     TopCoolPanel: TPanel;
325 yoffy 1.51 MainCoolBar: TGikoCoolBar;
326     MenuToolBar: TToolBar;
327     StdToolBar: TToolBar;
328     AddressToolBar: TToolBar;
329     AddressComboBox: TComboBox;
330     MoveToToolButton: TToolButton;
331 yoffy 1.2 MoveToAction: TAction;
332 yoffy 1.51 AddressImageList: TImageList;
333     AddressBarVisibleAction: TAction;
334     AddressToolBarMenu: TMenuItem;
335     T4: TMenuItem;
336 hi_ 1.1 BrowserTabVisibleAction: TAction;
337 yoffy 1.51 Show1: TMenuItem;
338     N34: TMenuItem;
339     BrowserTabTopAction: TAction;
340 yoffy 1.2 BrowserTabBottomAction: TAction;
341 hi_ 1.1 T5: TMenuItem;
342     B5: TMenuItem;
343 yoffy 1.51 N35: TMenuItem;
344     BrowserTabTabStyleAction: TAction;
345     BrowserTabButtonStyleAction: TAction;
346     BrowserTabFlatStyleAction: TAction;
347     A8: TMenuItem;
348     U2: TMenuItem;
349 hi_ 1.1 F1: TMenuItem;
350     PreviewTimer: TTimer;
351 yoffy 1.51 MonazillaWebPageAction: TAction;
352     MonazillaWebPageAction1: TMenuItem;
353 hi_ 1.1 GikoHelpAction: TAction;
354 yoffy 1.51 N36: TMenuItem;
355     H4: TMenuItem;
356     KotehanAction: TAction;
357     K3: TMenuItem;
358     LinkBarVisibleAction: TAction;
359     L7: TMenuItem;
360     N37: TMenuItem;
361     A9: TMenuItem;
362 yoffy 1.2 ChevronPopupMenu: TPopupMenu;
363 yoffy 1.51 BBS2chWebPageAction: TAction;
364 yoffy 1.2 N2N1: TMenuItem;
365 hi_ 1.1 N38: TMenuItem;
366     GikoFolderOpenAction: TAction;
367 yoffy 1.2 F2: TMenuItem;
368 yoffy 1.51 LinkToolBar: TToolBar;
369     a10: TMenuItem;
370     ThreadEditorAction: TAction;
371     N39: TMenuItem;
372     T6: TMenuItem;
373     N40: TMenuItem;
374 yoffy 1.2 LinkBarPopupMenu: TPopupMenu;
375 yoffy 1.51 ToolBarSettingAction: TAction;
376     T7: TMenuItem;
377     ThreadPopupMenu: TPopupMenu;
378     MenuItem4: TMenuItem;
379     MenuItem5: TMenuItem;
380     MenuItem6: TMenuItem;
381 yoffy 1.2 T8: TMenuItem;
382 yoffy 1.51 NameCopyAction: TAction;
383     BoardIEAction: TAction;
384     URLN3: TMenuItem;
385     SelectItemNameCopyAction: TAction;
386 yoffy 1.2 SelectItemNameCopyAction1: TMenuItem;
387 yoffy 1.51 B6: TMenuItem;
388     T9: TMenuItem;
389     C2: TMenuItem;
390     SelectComboBox: TComboBox;
391     MainCoolBarPopupMenu: TPopupMenu;
392     StdToolBarVisiblePMenu: TMenuItem;
393     AddressToolBarVisiblePMenu: TMenuItem;
394     LinkToolBarVisiblePMenu: TMenuItem;
395     NG1: TMenuItem;
396     NG2: TMenuItem;
397     N43: TMenuItem;
398     N44: TMenuItem;
399     L9: TMenuItem;
400     I3: TMenuItem;
401     N45: TMenuItem;
402     B9: TMenuItem;
403     R5: TMenuItem;
404     T12: TMenuItem;
405     Show3: TMenuItem;
406     N46: TMenuItem;
407     T13: TMenuItem;
408     B10: TMenuItem;
409     N47: TMenuItem;
410     A12: TMenuItem;
411     U4: TMenuItem;
412     F4: TMenuItem;
413     N48: TMenuItem;
414     T14: TMenuItem;
415     SelectResAction: TAction;
416     ToolButton16: TToolButton;
417     AllResAction: TAction;
418     N50: TMenuItem;
419     A11: TMenuItem;
420     S5: TMenuItem;
421     Reload: TMenuItem;
422     GoBack: TMenuItem;
423     GoFoward: TMenuItem;
424 h677 1.388 EditNGAction: TAction;
425 yoffy 1.51 ReloadAction: TAction;
426     GoFowardAction: TAction;
427     GoBackAction: TAction;
428     IndividualAbon1: TMenuItem;
429     N41: TMenuItem;
430     IndividualAbon2: TMenuItem;
431     N42: TMenuItem;
432     CancellIndividualAbon: TAction;
433     AntiIndividualAbon: TMenuItem;
434     N49: TMenuItem;
435     N51: TMenuItem;
436     N52: TMenuItem;
437     SearchBoardName: TMenuItem;
438 yoffy 1.205 TreeSelectLogDeleteSeparator: TMenuItem;
439 yoffy 1.51 TreeSelectSearchBoardName: TAction;
440 yoffy 1.100 CabinetFavoriteAction: TAction;
441     N54: TMenuItem;
442     A13: TMenuItem;
443     FavoriteTreePopupMenu: TPopupMenu;
444     FavoriteTreeViewRenameAction: TAction;
445     FavoriteTreeRenamePopupMenu: TMenuItem;
446     FavoriteTreeViewNewFolderAction: TAction;
447     FavoriteTreeNewFolderPopupMenu: TMenuItem;
448     N56: TMenuItem;
449     FavoriteTreeViewDeleteAction: TAction;
450     FavoriteTreeDeletePopupMenu: TMenuItem;
451     FavoriteToolBar: TToolBar;
452     ToolButton17: TToolButton;
453     ToolButton19: TToolButton;
454     FavoriteTreeViewBrowseFolderAction: TAction;
455     FavoriteTreeBrowseFolderPopupMenu: TMenuItem;
456     N57: TMenuItem;
457     FavoriteTreeReloadPopupMenu: TMenuItem;
458     N58: TMenuItem;
459     FavoriteTreeURLCopyPopupMenu: TMenuItem;
460     FavoriteTreeNameCopyPopupMenu: TMenuItem;
461     FavoriteTreeLogDeletePopupMenu: TMenuItem;
462     N59: TMenuItem;
463     FavoriteTreeNameURLCopyPopupMenu: TMenuItem;
464     FavoriteTreeViewReloadAction: TAction;
465     FavoriteTreeViewURLCopyAction: TAction;
466     FavoriteTreeViewNameCopyAction: TAction;
467     FavoriteTreeViewNameURLCopyAction: TAction;
468     FavoriteTreeViewLogDeleteAction: TAction;
469 yoffy 1.375 ResRangeAction: TAction;
470 yoffy 1.100 ToolButton20: TToolButton;
471     N60: TMenuItem;
472 yoffy 1.107 ExportFavoriteFileAction1: TMenuItem;
473     ExportFavoriteFile: TFileSaveAs;
474 yoffy 1.142 N6: TMenuItem;
475     N17: TMenuItem;
476     FavoriteTreeViewBrowseBoardAction: TAction;
477     FavoriteTreeViewBrowseThreadAction: TAction;
478 yoffy 1.158 UpBoardAction: TAction;
479 h677 1.174 N18: TMenuItem;
480     N20: TMenuItem;
481 h677 1.532 N24: TMenuItem;
482 h677 1.174 N62: TMenuItem;
483 h677 1.514 N61: TMenuItem;
484 h677 1.478 N63: TMenuItem;
485 h677 1.183 KoreCopy: TAction;
486     N64: TMenuItem;
487 h677 1.187 dummy1: TMenuItem;
488 yoffy 1.205 TreeSelectLogDeletePopupMenu: TMenuItem;
489 h677 1.485 N65: TMenuItem;
490 yoffy 1.209 BBSSelectPopupMenu: TPopupMenu;
491 yoffy 1.218 PlugInMenu: TMenuItem;
492 yoffy 1.252 TreeSelectNameCopy: TAction;
493     TreeSelectNamePupupMenu: TMenuItem;
494 h677 1.299 BrowserPanel: TPanel;
495 h677 1.315 SetFocusForBrowserAction: TAction;
496     SetFocusForThreadListAction: TAction;
497     SetFocusForCabinetAction: TAction;
498 h677 1.318 FileRun1: TFileRun;
499 h677 1.319 ThreadlistMaxAndFocusAction: TAction;
500     BrowserMaxAndFocusAction: TAction;
501 h677 1.514 SelectTimer: TTimer;
502 h677 1.340 SelectThreadSave: TMenuItem;
503     SelectItemSaveForHTML: TAction;
504     FileSaveAs1: TFileSaveAs;
505 h677 1.342 N55: TMenuItem;
506 h677 1.343 N66: TMenuItem;
507     dat1: TMenuItem;
508     SelectItemSaveForDat: TAction;
509 h677 1.345 LogFolderOpenAction: TAction;
510 yoffy 1.397 OpenLogFolder: TMenuItem;
511 h677 1.346 Browser: TWebBrowser;
512 genyakun 1.353 TabSave: TMenuItem;
513 h677 1.407 TabOpen: TMenuItem;
514 yoffy 1.397 TabsSaveAction: TAction;
515 h677 1.365 TabsOpenAction: TAction;
516 yoffy 1.375 ResRangePopupMenu: TPopupMenu;
517     N1001: TMenuItem;
518 h677 1.478 N501: TMenuItem;
519 yoffy 1.375 N22: TMenuItem;
520 yoffy 1.389 OnlyAHundredResAction: TAction;
521 h677 1.514 OnlyNewResAction: TAction;
522 yoffy 1.375 OnlyKokoResAction: TAction;
523 yoffy 1.380 A14: TMenuItem;
524 h677 1.386 BrowsBoradHeadAction: TAction;
525     BrowsBoradHeadAction1: TMenuItem;
526 yoffy 1.390 ThreadRangeAction: TAction;
527     ThreadRangePopupMenu: TPopupMenu;
528     A15: TMenuItem;
529     L8: TMenuItem;
530     N67: TMenuItem;
531     N68: TMenuItem;
532     S6: TMenuItem;
533     N69: TMenuItem;
534     S7: TMenuItem;
535 h677 1.407 TabAutoSaveAction: TAction;
536 genyakun 1.393 TabAutoLoadAction: TAction;
537 yoffy 1.415 ListColumnPopupMenu: TPopupMenu;
538 h677 1.429 JumpToNumOfResAction: TAction;
539 yoffy 1.432 FavoriteTreeViewCollapseAction: TAction;
540 h677 1.514 RightTabCloseAction: TAction;
541 h677 1.532 LeftTabCloseAction: TAction;
542 h677 1.485 N70: TMenuItem;
543     SameIDResAnchorAction: TAction;
544     ID1: TMenuItem;
545     IndividualAbon1Action: TAction;
546     IndividualAbon0Action: TAction;
547     AntiIndividualAbonAction: TAction;
548     AntiIndividualAbonDlgAction: TAction;
549     IndividualAbonID1Action: TAction;
550     ID2: TMenuItem;
551     N53: TMenuItem;
552     ID3: TMenuItem;
553     IndividualAbonID0Action: TAction;
554     N71: TMenuItem;
555 h677 1.486 MuteAction: TAction;
556 h677 1.487 N72: TMenuItem;
557     N73: TMenuItem;
558 h677 1.488 SortActiveColumnAction: TAction;
559 h677 1.514 SortNextColumnAction: TAction;
560 h677 1.488 SortPrevColumnAction: TAction;
561 h677 1.532 BeLogInOutAction: TAction;
562 h677 1.517 UnSelectedListViewAction: TAction;
563     SelectComboBoxPanel: TPanel;
564     SelectComboBoxSplitter: TImage;
565     ToolButton1: TToolButton;
566     N74: TMenuItem;
567 genyakun 1.527 WikiFAQ: TMenuItem;
568     WikiFAQWebPageAction: TAction;
569 yoffy 1.251 procedure FormCreate(Sender: TObject);
570 hi_ 1.1 procedure FormDestroy(Sender: TObject);
571     procedure BrowserStatusTextChange(Sender: TObject;
572     const Text: WideString);
573     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
574     procedure TreeViewChanging(Sender: TObject; Node: TTreeNode;
575     var AllowChange: Boolean);
576     procedure ListViewKeyDown(Sender: TObject; var Key: Word;
577     Shift: TShiftState);
578     procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
579     procedure MenuToolBarCustomDrawButton(Sender: TToolBar;
580     Button: TToolButton; State: TCustomDrawState;
581     var DefaultDraw: Boolean);
582     procedure BrowserBeforeNavigate2(Sender: TObject;
583     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
584     Headers: OleVariant; var Cancel: WordBool);
585     procedure TreeViewCustomDraw(Sender: TCustomTreeView;
586     const ARect: TRect; var DefaultDraw: Boolean);
587     procedure TreeViewCustomDrawItem(Sender: TCustomTreeView;
588     Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
589     procedure TreeViewExpanded(Sender: TObject; Node: TTreeNode);
590     procedure TreeViewDblClick(Sender: TObject);
591     procedure ListViewCustomDraw(Sender: TCustomListView;
592     const ARect: TRect; var DefaultDraw: Boolean);
593     procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton;
594     Shift: TShiftState; X, Y: Integer);
595     procedure TreeViewCollapsed(Sender: TObject; Node: TTreeNode);
596     procedure MessageListViewResize(Sender: TObject);
597     procedure ExitActionExecute(Sender: TObject);
598     procedure AllSelectActionExecute(Sender: TObject);
599     procedure StdToolBarVisibleActionExecute(Sender: TObject);
600     procedure MsgBarVisibleActionExecute(Sender: TObject);
601     procedure StatusBarVisibleActionExecute(Sender: TObject);
602     procedure LargeIconActionExecute(Sender: TObject);
603     procedure SmallIconActionExecute(Sender: TObject);
604     procedure ListIconActionExecute(Sender: TObject);
605     procedure DetailIconActionExecute(Sender: TObject);
606     procedure SearchActionExecute(Sender: TObject);
607     procedure OptionActionExecute(Sender: TObject);
608     procedure GikoNaviWebPageActionExecute(Sender: TObject);
609     procedure AboutActionExecute(Sender: TObject);
610     procedure CabinetHistoryActionExecute(Sender: TObject);
611 yoffy 1.138 procedure CabinetVisible( isVisible : Boolean );
612 hi_ 1.1 procedure CabinetVisibleActionExecute(Sender: TObject);
613     procedure AllItemActionExecute(Sender: TObject);
614     procedure LogItemActionExecute(Sender: TObject);
615     procedure NewItemActionExecute(Sender: TObject);
616     procedure SelectItemActionExecute(Sender: TObject);
617     procedure ListNumberVisibleActionExecute(Sender: TObject);
618     procedure UpFolderActionExecute(Sender: TObject);
619     procedure IconStyleExecute(Sender: TObject);
620     procedure RoundActionExecute(Sender: TObject);
621     procedure StopActionExecute(Sender: TObject);
622     procedure MsgBarCloseActionExecute(Sender: TObject);
623     procedure BrowserMaxActionExecute(Sender: TObject);
624     procedure ScrollTopActionExecute(Sender: TObject);
625     procedure ScrollLastActionExecute(Sender: TObject);
626     procedure ScrollNewActionExecute(Sender: TObject);
627     procedure ScrollKokoActionExecute(Sender: TObject);
628     procedure EditorActionExecute(Sender: TObject);
629     procedure IEActionExecute(Sender: TObject);
630     procedure ShowThreadActionExecute(Sender: TObject);
631     procedure ShowBoardActionExecute(Sender: TObject);
632     procedure URLCopyActionExecute(Sender: TObject);
633     procedure ItemReloadActionExecute(Sender: TObject);
634     procedure SelectListReloadActionExecute(Sender: TObject);
635     procedure SelectThreadReloadActionExecute(Sender: TObject);
636     procedure SelectListReloadActionUpdate(Sender: TObject);
637     procedure UpFolderActionUpdate(Sender: TObject);
638     procedure FormResize(Sender: TObject);
639     procedure ScrollKokoActionUpdate(Sender: TObject);
640     procedure SelectThreadReloadActionUpdate(Sender: TObject);
641 yoffy 1.51 procedure LogDeleteActionExecute(Sender: TObject);
642 hi_ 1.1 procedure KokomadeActionExecute(Sender: TObject);
643     procedure ZenbuActionExecute(Sender: TObject);
644 yoffy 1.51 procedure KokoResActionExecute(Sender: TObject);
645 hi_ 1.1 procedure ListPopupMenuPopup(Sender: TObject);
646     procedure SelectItemURLCopyActionExecute(Sender: TObject);
647     procedure AllSelectActionUpdate(Sender: TObject);
648     procedure BrowserTabCloseActionExecute(Sender: TObject);
649     procedure NotSelectTabCloseActionExecute(Sender: TObject);
650     procedure TreeSelectBoradReloadExecute(Sender: TObject);
651     procedure TreeSelectThreadReloadExecute(Sender: TObject);
652     procedure TreeSelectURLCopyExecute(Sender: TObject);
653     procedure TreePopupMenuPopup(Sender: TObject);
654     procedure ListToolBarVisibleActionExecute(Sender: TObject);
655     procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
656     procedure BrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch;
657     var Cancel: WordBool);
658     procedure ListSplitterMoved(Sender: TObject);
659     procedure BrowserTabChange(Sender: TObject);
660     procedure BrowserTabMouseDown(Sender: TObject; Button: TMouseButton;
661     Shift: TShiftState; X, Y: Integer);
662     procedure BrowserTabDragOver(Sender, Source: TObject; X, Y: Integer;
663     State: TDragState; var Accept: Boolean);
664     procedure BrowserTabDragDrop(Sender, Source: TObject; X, Y: Integer);
665     procedure BrowserTabMouseMove(Sender: TObject; Shift: TShiftState; X,
666     Y: Integer);
667     procedure BrowserDocumentComplete(Sender: TObject;
668     const pDisp: IDispatch; var URL: OleVariant);
669     procedure SelectReservActionUpdate(Sender: TObject);
670     procedure RoundNamePopupMenuPopup(Sender: TObject);
671     procedure SelectNewRoundNameExecute(Sender: TObject);
672     procedure SelectDeleteRoundExecute(Sender: TObject);
673     procedure SelectReservActionExecute(Sender: TObject);
674     procedure NewBoardActionExecute(Sender: TObject);
675     procedure LoginActionExecute(Sender: TObject);
676     procedure KeySettingActionExecute(Sender: TObject);
677     procedure AllTabCloseActionExecute(Sender: TObject);
678 yoffy 1.51 procedure ArrangeActionExecute(Sender: TObject);
679     procedure NameURLCopyActionExecute(Sender: TObject);
680     procedure SelectItemNameURLCopyActionExecute(Sender: TObject);
681 hi_ 1.1 procedure AllTabCloseActionUpdate(Sender: TObject);
682     procedure ActiveLogDeleteActionExecute(Sender: TObject);
683 yoffy 1.51 procedure ListNameBarVisibleActionExecute(Sender: TObject);
684 hi_ 1.1 procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
685 yoffy 1.51 procedure TreeSelectNameURLCopyExecute(Sender: TObject);
686     procedure PaneInitActionExecute(Sender: TObject);
687 hi_ 1.1 procedure FormShow(Sender: TObject);
688     procedure BrowserTabToolBarResize(Sender: TObject);
689     procedure BrowserMinActionExecute(Sender: TObject);
690 yoffy 1.51 procedure SelectTextClearActionExecute(Sender: TObject);
691 hi_ 1.1 procedure NameTextClearActionExecute(Sender: TObject);
692 yoffy 1.51 procedure MailTextClearActionExecute(Sender: TObject);
693     procedure LeftmostTabSelectActionExecute(Sender: TObject);
694     procedure LeftTabSelectActionExecute(Sender: TObject);
695 hi_ 1.1 procedure RightTabSelectActionExecute(Sender: TObject);
696     procedure RightmostTabSelectActionExecute(Sender: TObject);
697     procedure LeftTabSelectActionUpdate(Sender: TObject);
698     procedure RightTabSelectActionUpdate(Sender: TObject);
699     procedure FavoriteMenuClick(Sender: TObject);
700     procedure FavoriteAddActionExecute(Sender: TObject);
701     procedure BoardFavoriteAddActionExecute(Sender: TObject);
702     procedure BoardFavoriteAddActionUpdate(Sender: TObject);
703 yoffy 1.51 procedure ThreadFavoriteAddActionExecute(Sender: TObject);
704     procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
705 yoffy 1.2 procedure FavoriteArrangeActionExecute(Sender: TObject);
706     procedure MainCoolBarResize(Sender: TObject);
707 hi_ 1.1 procedure MoveToActionExecute(Sender: TObject);
708 yoffy 1.2 procedure AddressToolBarResize(Sender: TObject);
709 hi_ 1.1 procedure AddressComboBoxKeyDown(Sender: TObject; var Key: Word;
710     Shift: TShiftState);
711 yoffy 1.51 procedure AddressBarVisibleActionExecute(Sender: TObject);
712 yoffy 1.2 procedure BrowserEnter(Sender: TObject);
713 hi_ 1.1 procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean);
714 yoffy 1.51 procedure BrowserTabVisibleActionExecute(Sender: TObject);
715     procedure BrowserTabTopActionExecute(Sender: TObject);
716     procedure BrowserTabBottomActionExecute(Sender: TObject);
717     procedure BrowserTabTabStyleActionExecute(Sender: TObject);
718 hi_ 1.1 procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
719 yoffy 1.51 procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
720 hi_ 1.1 procedure PreviewTimerTimer(Sender: TObject);
721     procedure MessageHideButtonClick(Sender: TObject);
722     procedure MonazillaWebPageActionExecute(Sender: TObject);
723     procedure GikoHelpActionExecute(Sender: TObject);
724     procedure ToolButton18Click(Sender: TObject);
725     procedure KotehanActionExecute(Sender: TObject);
726 yoffy 1.51 procedure LinkBarVisibleActionExecute(Sender: TObject);
727     procedure BBS2chWebPageActionExecute(Sender: TObject);
728     procedure GikoFolderOpenActionExecute(Sender: TObject);
729 yoffy 1.2 procedure MainCoolBarBandInfo(Sender: TObject;
730     var BandInfo: PReBarBandInfoA);
731     procedure MainCoolBarChevronClick(Sender: TObject;
732 yoffy 1.51 RebarChevron: PNMRebarChevron);
733     procedure ListCoolBarBandInfo(Sender: TObject;
734     var BandInfo: PReBarBandInfoA);
735     procedure ListCoolBarChevronClick(Sender: TObject;
736     RebarChevron: PNMRebarChevron);
737     procedure BrowserCoolBarBandInfo(Sender: TObject;
738     var BandInfo: PReBarBandInfoA);
739 yoffy 1.2 procedure BrowserCoolBarChevronClick(Sender: TObject;
740 yoffy 1.51 RebarChevron: PNMRebarChevron);
741     procedure ListViewColumnInfo(Sender: TObject; var Column: PLVColumnA);
742     procedure ThreadEditorActionExecute(Sender: TObject);
743     procedure ToolBarSettingActionExecute(Sender: TObject);
744     procedure NameCopyActionExecute(Sender: TObject);
745     procedure BoardIEActionExecute(Sender: TObject);
746     procedure SelectItemNameCopyActionExecute(Sender: TObject);
747 yoffy 1.2 procedure SelectItemNameCopyActionUpdate(Sender: TObject);
748 yoffy 1.51 procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
749     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
750     procedure SelectComboBoxChange(Sender: TObject);
751     procedure SelectComboBoxKeyDown(Sender: TObject; var Key: Word;
752     Shift: TShiftState);
753     procedure SelectComboBoxExit(Sender: TObject);
754     procedure SelectResActionExecute(Sender: TObject);
755     procedure AllResActionExecute(Sender: TObject);
756     procedure ReloadClick(Sender: TObject);
757     procedure GoBackClick(Sender: TObject);
758     procedure GoFowardClick(Sender: TObject);
759     procedure SelectComboBoxSplitterMouseMove(Sender: TObject;
760     Shift: TShiftState; X, Y: Integer);
761     procedure SelectComboBoxSplitterMouseDown(Sender: TObject;
762     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
763     procedure SelectComboBoxSplitterMouseUp(Sender: TObject;
764     Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
765     procedure StatusBarResize(Sender: TObject);
766     procedure SelectComboBoxEnter(Sender: TObject);
767     procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
768 yoffy 1.100 procedure CabinetFavoriteActionExecute(Sender: TObject);
769     procedure FavoriteTreeViewDragDrop(Sender, Source: TObject; X,
770     Y: Integer);
771 yoffy 1.71 procedure FavoriteTreeViewDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
772 yoffy 1.100 procedure FavoriteTreeViewEdited(Sender: TObject; Node: TTreeNode;
773     var S: String);
774     procedure FavoriteTreeViewKeyDown(Sender: TObject; var Key: Word;
775     Shift: TShiftState);
776     procedure FavoriteTreePopupMenuPopup(Sender: TObject);
777     procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
778     procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
779     procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
780     procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
781     procedure FavoriteTreeViewDblClick(Sender: TObject);
782     procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
783     procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
784     procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
785     procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
786     procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
787     procedure LinkToolBarDragDrop(Sender, Source: TObject; X, Y: Integer);
788     procedure BrowserTabMouseUp(Sender: TObject; Button: TMouseButton;
789     Shift: TShiftState; X, Y: Integer);
790     procedure LinkToolBarDragOver(Sender, Source: TObject; X, Y: Integer;
791     State: TDragState; var Accept: Boolean);
792 yoffy 1.375 procedure ResRangeActionExecute(Sender: TObject);
793 yoffy 1.100 procedure FavoriteTreeViewEndDrag(Sender, Target: TObject; X,
794     Y: Integer);
795     procedure ListCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
796     var Handled: Boolean);
797     procedure MainCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
798     var Handled: Boolean);
799     procedure BrowserCoolBarContextPopup(Sender: TObject; MousePos: TPoint;
800     var Handled: Boolean);
801 yoffy 1.107 procedure ExportFavoriteFileAccept(Sender: TObject);
802     procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
803 yoffy 1.139 procedure CabinetBBSActionExecute(Sender: TObject);
804 yoffy 1.142 procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
805     procedure FavoriteTreeBrowseBoardPopupMenuClick(Sender: TObject);
806 yoffy 1.158 procedure UpBoardActionExecute(Sender: TObject);
807 h677 1.174 procedure BrowserTabContextPopup(Sender: TObject; MousePos: TPoint;
808     var Handled: Boolean);
809 h677 1.183 procedure KoreCopyExecute(Sender: TObject);
810 h677 1.187 procedure BrowserTabPopupMenuPopup(Sender: TObject);
811 yoffy 1.216 procedure BrowserTabResize(Sender: TObject);
812 h677 1.318 procedure TreeViewClick(Sender: TObject);
813 yoffy 1.236 procedure TreeViewKeyDown(Sender: TObject; var Key: Word;
814     Shift: TShiftState);
815 yoffy 1.246 procedure FavoriteTreeViewMouseDown(Sender: TObject;
816 yoffy 1.248 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
817 yoffy 1.250 procedure MessagePanelResize(Sender: TObject);
818 yoffy 1.276 procedure OnResized;
819 yoffy 1.252 procedure TreeSelectNameCopyExecute(Sender: TObject);
820 yoffy 1.260 procedure FavoriteTreeViewMouseUp(Sender: TObject;
821 h677 1.532 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
822 yoffy 1.370 procedure SetFocusForBrowserActionExecute(Sender: TObject);
823     procedure SetFocusForBrowserActionUpdate(Sender: TObject);
824 h677 1.315 procedure SetFocusForThreadListActionExecute(Sender: TObject);
825     procedure SetFocusForCabinetActionExecute(Sender: TObject);
826 h677 1.407 procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
827 h677 1.517 procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
828 h677 1.321 procedure SetFocusForCabinetActionUpdate(Sender: TObject);
829 yoffy 1.329 procedure SelectTimerTimer(Sender: TObject);
830 h677 1.340 procedure SelectItemSaveForHTMLExecute(Sender: TObject);
831 h677 1.485 procedure KidokuActionExecute(Sender: TObject);
832 h677 1.341 procedure MidokuActionExecute(Sender: TObject);
833 h677 1.343 procedure SelectItemSaveForDatExecute(Sender: TObject);
834 h677 1.345 procedure LogFolderOpenActionExecute(Sender: TObject);
835 yoffy 1.397 procedure TabsSaveActionExecute(Sender: TObject);
836     procedure TabsOpenActionExecute(Sender: TObject);
837 yoffy 1.389 procedure OnlyAHundredResActionExecute(Sender: TObject);
838 yoffy 1.375 procedure OnlyKokoResActionExecute(Sender: TObject);
839 h677 1.514 procedure OnlyNewResActionExecute(Sender: TObject);
840 h677 1.407 procedure BrowsBoradHeadActionExecute(Sender: TObject);
841 h677 1.517 procedure EditNGActionExecute(Sender: TObject);
842 yoffy 1.390 procedure ThreadRangeActionExecute(Sender: TObject);
843 yoffy 1.425 procedure TabAutoSaveActionExecute(Sender: TObject);
844 genyakun 1.393 procedure TabAutoLoadActionExecute(Sender: TObject);
845 yoffy 1.425 procedure ListViewColumnRightClick(Sender: TObject;
846 yoffy 1.415 Column: TListColumn; Point: TPoint);
847 h677 1.429 procedure JumpToNumOfResActionExecute(Sender: TObject);
848 yoffy 1.432 procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
849 h677 1.478 procedure ListViewCustomDrawItem(Sender: TCustomListView;
850 h677 1.463 Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
851     procedure FormActivate(Sender: TObject);
852 h677 1.472 procedure BrowserPanelResize(Sender: TObject);
853 h677 1.482 procedure MenuToolBarResize(Sender: TObject);
854     procedure ListToolBarResize(Sender: TObject);
855     procedure BrowserToolBarResize(Sender: TObject);
856 h677 1.485 procedure RightTabCloseActionExecute(Sender: TObject);
857 h677 1.484 procedure RightTabCloseActionUpdate(Sender: TObject);
858     procedure LeftTabCloseActionExecute(Sender: TObject);
859 h677 1.485 procedure SameIDResAnchorActionExecute(Sender: TObject);
860     procedure IndividualAbon1ActionExecute(Sender: TObject);
861 h677 1.532 procedure IndividualAbon0ActionExecute(Sender: TObject);
862 h677 1.485 procedure AntiIndividualAbonActionExecute(Sender: TObject);
863     procedure AntiIndividualAbonDlgActionExecute(Sender: TObject);
864     procedure IndividualAbonID1ActionExecute(Sender: TObject);
865     procedure IndividualAbonID0ActionExecute(Sender: TObject);
866     procedure KokoPopupMenuPopup(Sender: TObject);
867 h677 1.486 procedure MuteActionExecute(Sender: TObject);
868 h677 1.488 procedure SortActiveColumnActionExecute(Sender: TObject);
869     procedure SortNextColumnActionExecute(Sender: TObject);
870     procedure SortPrevColumnActionExecute(Sender: TObject);
871 h677 1.517 procedure BeLogInOutActionExecute(Sender: TObject);
872 h677 1.514 procedure BeLogInOutActionUpdate(Sender: TObject);
873 h677 1.517 procedure UnSelectedListViewActionExecute(Sender: TObject);
874     procedure ListViewKeyUp(Sender: TObject; var Key: Word;
875     Shift: TShiftState);
876     procedure FavoriteTreeViewEditing(Sender: TObject; Node: TTreeNode;
877     var AllowEdit: Boolean);
878 genyakun 1.527 procedure WikiFAQWebPageActionExecute(Sender: TObject);
879 hi_ 1.1 private
880     { Private ?ス?ス?ス?ス }
881     FSortIndex: Integer;
882     FSortOrder: Boolean;
883     FEnabledCloseButton: Boolean;
884     FClickNode: TTreeNode;
885     FHttpState: Boolean;
886     FHint: TResPopup;
887 h677 1.453 FPreviewBrowser: TWebBrowser;
888 hi_ 1.1 FPreviewURL: string;
889     FBrowserSizeHeight: Integer;
890     FBrowserSizeWidth: Integer;
891     FTabHintIndex: Integer;
892     FListStyle: TViewStyle; //?ス?ス?スX?スg?スA?スC?スR?ス?ス?スX?ス^?スC?ス?ス
893     FItemNoVisible: Boolean; //?ス?ス?スX?スg?ス?ス?ス?ス?ス\?ス?ス?スt?ス?ス?スO
894     FViewType: TGikoViewType; //?ス?ス?スX?スg?スA?スC?スe?ス?ス?ス\?ス?ス?ス^?スC?スv
895 h677 1.517 FActiveList: TObject;
896 h677 1.299 FActiveContent: TBrowserRecord; //
897 yoffy 1.133 FActiveBBS : TBBS;
898 hi_ 1.1 FHistoryList: TList; //?スq?スX?スg?ス?ス?ス?ス?スX?スg
899     FTreeType: TGikoTreeType;
900     FWorkCount: Integer;
901     FNameCookie: string;
902     FMailCookie: string;
903     FDownloadTitle: string; //?ス_?スE?ス?ス?ス?ス?ス[?スh?ス?ス?ス?ス?ス^?スC?スg?ス?ス?ス?ス
904     FDownloadMax: Integer; //?ス_?スE?ス?ス?ス?ス?ス[?スh?ス?ス?ス?ス?ス?ス?ス?ス?スT?スC?スY
905     FEvent: THTMLDocumentEventSink;//?スu?ス?ス?スE?スU?スh?スL?ス?ス?ス?ス?ス?ス?スg?スC?スx?ス?ス?スg
906 yoffy 1.51 IsDraggingSelectComboBox : Boolean;
907     DraggingSelectComboBoxPosition : TPoint;
908 yoffy 1.54 FSearchDialog: TSearchDialog;
909 yoffy 1.100 FDropSpaceNode: TTreeNode;
910 yoffy 1.424 FDragTime : Cardinal; ///< ?ス?ス?ス?ス?スN?ス?スD&D?スp
911     FDragButton : TToolButton; ///< ?ス?ス?ス?ス?スN?ス?スD&D?スp?ス?スDrag?ス?ス?ス?ス?ス?スButton?ス?ス?ス?ス
912     FDragWFirst : Boolean; ///< WebTab?ス?スD&D?スp
913     FListViewBackGroundColor : TColor; ///< ListView?ス?スBackGroundColor
914     FUseOddResOddColor : Boolean; ///< ?ス?ス?ス?ス?ス?ス?スX?ス?ス?ス?ス?スX?ス?ス?スb?スh?ス?ス?ス?ス?スX?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スF?ス?ス?ス\?ス?ス
915     FOddColor : TColor; ///< ?ス?ス?ス?ス?スF
916     FSelectResWord : string; ///< ?ス?ス?スX?スi?ス?ス?ス?ス?ス[?スh
917     FIsIgnoreResize : TResizeType; ///< ?ス?ス?スT?スC?スY?スC?スx?ス?ス?スg?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
918     FIsMinimize : TMinimizeType; ///< ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
919     FOldFormWidth : Integer; ///< ?ス?ス?スO?ス?ス?スE?スB?ス?ス?スh?スE?ス?ス?ス?ス
920     FToolBarSettingSender : TToolBarSettingSenderType; ///< ?スc?ス[?ス?ス?スo?ス[?ス?ス?ス?ス?ス?ス?スN?ス?ス?スb?スN?ス?ス?ス?ス?スN?ス[?ス?ス?スo?ス[
921     FMouseDownPos : TPoint; ///< ?スu?ス?ス?スE?スU?ス^?スu?ス?ス?ス}?スE?スX?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スW
922 h677 1.303 FBrowsers: TList;
923 yoffy 1.424 FResRangeMenuSelect : Longint; ///< ResRangeButton ?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス (?スt?スH?ス[?ス}?スb?スg?ス?ス ResRange ?ス?ス?ス?ス)
924 h677 1.423 FStartUp : Boolean;
925 yoffy 1.427 FIsHandledWheel : Boolean; ///< ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス WM_MOUSEWHEEL ?ス?ス?ス?ス?ス?ス?ス?ス
926 h677 1.517 DiffComp: Boolean; //Add by Genyakun ?スX?ス?ス?ス?ス?スX?スV?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スTrue?ス?ス?ス?ス?ス?ス
927     FOrigenCaption: String; //?ス?ス?スC?ス?ス?ス?ス?ス?ス?スc?ス?ス?ス[?ス?ス?スA?スC?スe?ス?ス?ス?ス?スW?ス?ス?ス?ス?ス?ス?スW?スO?ス?ス?ス?ス?ス?ス?ス?ス
928 hi_ 1.1 procedure DownloadEnd(Sender: TObject; Item: TDownloadItem);
929     procedure DownloadMsg(Sender: TObject; Item: TDownloadItem; Msg: string; Icon: TGikoMessageIcon);
930 q9_ 1.233 procedure WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer; Number: Integer; const AWorkTitle: string);
931 hi_ 1.1 procedure WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
932     procedure Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer; Number: Integer);
933     procedure ListClick;
934 h677 1.295 procedure ListDoubleClick(Shift: TShiftState);
935 hi_ 1.1 function Hook(var Message: TMessage): Boolean;
936     procedure AddRoundNameMenu(MenuItem: TMenuItem);
937 h677 1.188 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string); overload;
938 yoffy 1.236 procedure SetSelectItemRound(RoundFlag: Boolean; RoundName: string; ParentName: string); overload;
939 hi_ 1.1 procedure SetSelectRoundName(Sender: TObject);
940     function GetCoolBand(CoolBar: TCoolBar; Control: TWinControl): TCoolBand;
941     procedure SetMenuFont;
942     procedure CreateFavMenu(Node: TTreeNode; MenuItem: TMenuItem);
943 yoffy 1.62 procedure FavoriteClick(Sender: TObject; ActiveTab: Boolean); overload;
944     procedure FavoriteClick(Sender: TObject); overload;
945 yoffy 1.100 procedure FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
946 hi_ 1.1 function OnDocumentContextMenu(Sender: TObject): WordBool;
947     procedure ShowTextPopup;
948     function GetWidthAllToolButton(ToolBar: TToolBar): Integer;
949 yoffy 1.2 procedure MenuBarChevronMenu;
950     procedure LinkBarChevronMenu;
951     procedure ToolBarChevronMenu(ToolBar: TToolBar);
952 yoffy 1.51 procedure ModifySelectList;
953 yoffy 1.100 procedure LinkToolButtonDragDrop(Sender, Source: TObject; X, Y: Integer);
954     procedure LinkToolButtonOnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
955     procedure LinkToolButtonOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
956     procedure LinkToolButtonOnMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
957 yoffy 1.85 procedure LinkToolButtonStartDrag(Sender: TObject; var DragObject: TDragObject);
958 yoffy 1.72 function TreeNodeDataFind(Node: TTreeNode; FindPointer: Pointer): TTreeNode;
959 yoffy 1.100 procedure FavoriteMoveTo( SenderNode, SourceNode: TTreeNode );
960     procedure FavoriteAddTo( SenderNode: TTreeNode; Source: TObject );
961 yoffy 1.72 procedure FavoriteDragDrop( SenderNode: TTreeNode; Source: TObject );
962 yoffy 1.236 //
963 yoffy 1.143 procedure SetListViewBackGroundColor(value: TColor);
964 yoffy 1.123 procedure BBSMenuItemOnClick( Sender : TObject );
965 yoffy 1.236 //
966     procedure KonoresCopy(Number: Integer; ReplaceTag : Boolean);
967 yoffy 1.424 /// CoolBar ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
968 yoffy 1.216 procedure SaveCoolBarSettings;
969 h677 1.471 procedure SaveMainCoolBarSettings;
970     procedure SaveBoardCoolBarSettings;
971     procedure SaveBrowserCoolBarSettings;
972 yoffy 1.424 /// CoolBar ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
973 yoffy 1.216 procedure LoadCoolBarSettings;
974 yoffy 1.424 /// ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
975 yoffy 1.276 procedure OnMinimize;
976 yoffy 1.424 /// ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
977 yoffy 1.248 procedure OnMinimized;
978 yoffy 1.424 /// TreeView ?ス?ス?スN?ス?ス?スb?スN?ス?ス?ス?ス?ス?ス
979 yoffy 1.236 procedure TreeClick( Node : TTreeNode );
980 yoffy 1.424 /// TreeView ?ス?ス?ス_?スu?ス?ス?スN?ス?ス?スb?スN?ス?ス?ス?ス?ス?ス
981 yoffy 1.236 procedure TreeDoubleClick( Node : TTreeNode );
982 yoffy 1.424 /// ?スM?スR?スi?スr?ス?ス?ス?ス?スb?スZ?ス[?スW?ス?ス?ス[?スv?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
983 yoffy 1.236 procedure HandleAppMessage(var Msg: TMsg; var Handled: Boolean);
984 yoffy 1.424 /// ?スu?ス?ス?スE?スU?ス?ス?スL?ス[?ス_?スE?ス?ス?スC?スx?ス?ス?スg
985     /// ?スC?スx?ス?ス?スg?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス True ?ス?ス?ス?ス?ス?ス
986 h677 1.454 // function BrowserKeydown(var Msg: TMsg; Key: Word; State:TShiftState) : Boolean;
987 yoffy 1.424 /// ?スe?ス?ス?ス?ス?ス?ス?ス?ス?スL?ス?ス?スr?スl?スb?スg?スE BBS ?ス?ス?スj?ス?ス?ス[?ス?ス?スZ?スb?スg?ス^?スX?スV
988 yoffy 1.289 procedure SetBBSMenu;
989 h677 1.315 function WebBrowserClick(Sender: TObject): WordBool;
990 yoffy 1.424 /// ?ス^?スu?ス?ス?ス?ス
991 yoffy 1.397 function GetTabURLs(AStringList: TStringList) : Boolean;
992 yoffy 1.415 /// ListColumnPopupMenu ?スA?スC?スe?ス?ス?ス?ス?スN?ス?ス?スb?スN?スC?スx?ス?ス?スg
993     procedure ListColumnPopupMenuOnClick( Sender : TObject );
994 h677 1.454 // BrowserRecord?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スFBrowser?ス?ス?スO?ス?ス
995     procedure ReleaseBrowser( BRecord: TBrowserRecord);
996 yoffy 1.480 //! ?スi?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
997     procedure SetSelectWord( const text : string );
998 h677 1.535 //?ス?ス?ス?ス?ス?ス?スJ?ス[?ス\?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
999     function GetScreenCursor(): TCursor;
1000     //?スJ?ス[?ス\?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1001     procedure SetScreenCursor(Cursor : TCursor);
1002 hi_ 1.1 protected
1003     procedure CreateParams(var Params: TCreateParams); override;
1004 yoffy 1.2 procedure WndProc(var Message: TMessage); override;
1005 hi_ 1.1 procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
1006     procedure WMSettingChange(var Message: TWMWinIniChange); message WM_SETTINGCHANGE;
1007     procedure WMCopyData(var Message: TWMCopyData); message WM_COPYDATA;
1008 yoffy 1.216
1009 hi_ 1.1 public
1010     { Public ?ス?ス?ス?ス }
1011 h677 1.533 LastRoundTime: TDateTime;
1012     BrowserNullTab: TBrowserRecord;
1013 hi_ 1.1 FControlThread: TThreadControl;
1014 yoffy 1.444 procedure MoveToURL(const inURL: string);
1015 h677 1.530 function InsertBrowserTab(ThreadItem: TThreadItem; ActiveTab: Boolean = True) : TBrowserRecord;
1016 hi_ 1.1 procedure ReloadBBS;
1017     function GetHttpState: Boolean;
1018     procedure SetEnabledCloseButton(Enabled: Boolean);
1019     function GetTreeNode(Data: TObject): TTreeNode;
1020     procedure AppFormDeactivate(Sender: TObject);
1021     procedure ListViewAllSelect;
1022     property ListStyle: TViewStyle read FListStyle write FListStyle;
1023     property ItemNoVisible: Boolean read FItemNoVisible write FItemNoVisible;
1024     property ViewType: TGikoViewType read FViewType write FViewType;
1025     property NameCookie: string read FNameCookie write FNameCookie;
1026     property MailCookie: string read FMailCookie write FMailCookie;
1027 h677 1.532 property ClickNode: TTreeNode read FClickNode write FClickNode;
1028     property TreeType: TGikoTreeType read FTreeType;
1029 h677 1.534 property ActiveContent: TBrowserRecord read FActiveContent write FActiveContent;
1030 h677 1.533 property ResRangeMenuSelect: Longint read FResRangeMenuSelect write FResRangeMenuSelect;
1031 h677 1.534 property SelectResWord : string read FSelectResWord write FSelectResWord;
1032     property BrowserSizeWidth: Integer read FBrowserSizeWidth write FBrowserSizeWidth;
1033     property BrowserSizeHeight: Integer read FBrowserSizeHeight write FBrowserSizeHeight;
1034     property SearchDialog: TSearchDialog read FSearchDialog write FSearchDialog;
1035     property ToolBarSettingSender : TToolBarSettingSenderType
1036     read FToolBarSettingSender write FToolBarSettingSender;
1037 h677 1.535 property ScreenCursor : TCursor read GetScreenCursor write SetScreenCursor;
1038 h677 1.299 procedure SetContent(inThread: TBrowserRecord);
1039 hi_ 1.1 function GetActiveContent: TThreadItem;
1040     function GetActiveList: TObject;
1041 h677 1.533
1042 hi_ 1.1 procedure SetListViewType(AViewType: TGikoViewType); overload;
1043     procedure SetListViewType(AViewType: TGikoViewType; SelectText: string; KubetsuChk: Boolean); overload;
1044     procedure PlaySound(SoundEventName: string);
1045 yoffy 1.136 function AddHistory( FavItem: TFavoriteThreadItem ): Boolean;
1046 hi_ 1.1 procedure ClearHistory;
1047 yoffy 1.135 procedure SaveHistory;
1048     procedure LoadHistory;
1049 yoffy 1.123 procedure ShowBBSTree( inBBS : TBBS );
1050 yoffy 1.248 procedure ShowBBSTreeOld( inBBS : TBBS );
1051 hi_ 1.1 procedure ShowHistoryTree;
1052     procedure SetHistoryTreeNode;
1053     procedure AddMessageList(ACaption: string; AObject: TObject; Icon: TGikoMessageIcon);
1054     procedure SetBrowserTabState;
1055 yoffy 1.2 procedure SetToolBarPopup;
1056 yoffy 1.100 procedure ShowFavoriteAddDialog( Item : TObject );
1057 h677 1.433 procedure FavoritesURLReplace(oldURLs: TStringList; newURLs: TStringList);
1058     procedure RoundListURLReplace(oldURLs: TStringList; newURLs: TStringList);
1059 yoffy 1.143 property ListViewBackGroundColor: TColor read FListViewBackGroundColor write SetListViewBackGroundColor;
1060     property UseOddResOddColor : Boolean read FUseOddResOddColor write FUseOddResOddColor;
1061     property OddColor : TColor read FOddColor write FOddColor;
1062 yoffy 1.209 function FindToolBarButton( bar : TToolBar; action : TAction ) : TToolButton;
1063 yoffy 1.218 procedure OnPlugInMenuItem( Sender : TObject );
1064 h677 1.433 procedure TabFileURLReplace(oldURLs: TStringList; newURLs: TStringList);
1065     /// ListView ?ス?ス?スJ?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スu?ス?ス?ス?ス?ス?ス KuroutSetting?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1066     procedure ActiveListColumnSave;
1067     procedure SetActiveList(Obj: TObject);
1068     property ActiveList: TObject read GetActiveList write SetActiveList;
1069 h677 1.482 /// CoolBar ?ス?ス?スT?スC?スY?ス?ス?スX?ス?ス?ス?ス?ス?ス
1070     procedure CoolBarResized(Sender: TObject; CoolBar: TCoolBar);
1071 h677 1.485 //?ス?ス?ス?スID?ス?ス?ス?ス?ス?ス?ス`?ス?ス
1072     procedure IndividualAbonID(Atype : Integer);
1073     //?ス?ス?ス?ス?ス?ス?スX?ス?ス?ス?ス?ス`?ス?ス
1074     procedure IndividualAbon(Atag, Atype : Integer);
1075 h677 1.492 //ID?スA?ス?ス?スJ?ス[?ス?ス?ス?ス
1076     procedure IDAnchorPopup(Abody :string);
1077 h677 1.532 //?スu?ス?ス?スE?スU?ス?ス?ス?ス?ス`?ス?ス true:?スS?ス?ス?ス?ス?ス^?スu false:?スA?スN?スe?スB?スu?ス?ス?ス^?スu?ス?ス?ス?ス
1078     procedure RepaintAllTabsBrowser();
1079     //?ス?ス?ス?ス?スN?スo?ス[?ス?ス?ス?ス
1080     procedure SetLinkBar;
1081     procedure FavoriteBrowseFolder( node: TTreeNode );
1082     //?スX?ス?ス?スb?スh?ス?ス?ス_?スE?ス?ス?ス?ス?ス[?スh
1083     procedure DownloadContent(ThreadItem: TThreadItem; ForceDownload: Boolean = False);
1084     //?ス?ス?ス?ス?ス_?スE?ス?ス?ス?ス?ス[?スh
1085     procedure DownloadList(Board: TBoard; ForceDownload: Boolean = False);
1086     //?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1087     procedure DeleteHistory( threadItem: TThreadItem );
1088     //?ス^?スu?ス?ス?ス?ス?ス?ス
1089     procedure DeleteTab(ThreadItem: TThreadItem); overload;
1090 h677 1.533 procedure DeleteTab(BrowserRecord: TBrowserRecord); overload;
1091     //?ス?ス?ス?ス?ス\?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スX?ス?ス?スb?スh?ス?ス?スX?スN?ス?ス?ス[?ス?ス
1092     procedure BrowserMovement(const AName: string); overload;
1093     //?スw?ス?ス?ス?ス?ス?ス?スu?ス?ス?スE?スU?ス?ス?スX?スN?ス?ス?ス[?ス?ス
1094     procedure BrowserMovement(const AName: string; BrowserRecord: TBrowserRecord); overload;
1095     //Application?ス?スMainForm?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1096 h677 1.534 function GetMainForm(): TComponent;
1097 h677 1.533 procedure SelectTreeNode(Item: TObject; CallEvent: Boolean);
1098 h677 1.534 //! ?ス}?スE?スX?スW?スF?スX?ス`?ス?ス?ス[?スJ?スn
1099     procedure OnGestureStart(Sender: TObject);
1100     //! ?ス}?スE?スX?スW?スF?スX?ス`?ス?ス?ス[?ス?ス
1101     procedure OnGestureMove(Sender: TObject);
1102     //! ?ス}?スE?スX?スW?スF?スX?ス`?ス?ス?ス[?スI?ス?ス
1103     procedure OnGestureEnd(Sender: TObject);
1104     /// ?スo?ス?ス?スh?ス?ス?ス?ス?ス?ス?スv?スZ?スE?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1105     procedure ResetBandInfo( bar : TGikoCoolBar; band : TToolBar );
1106 h677 1.535 //?スX?スN?ス?ス?ス[?ス?ス?ス?ス?ス?スEditorForm?ス?ス?ス?ス?ス?ス?ス?ス
1107     function EditorFormExists(): boolean;
1108     //?スX?スN?ス?ス?ス[?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スEditorForm?ス?ス?ス?ス?ス?ス?スO?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1109     procedure AllEditroFormNameTextClearClear();
1110     //?スX?スN?ス?ス?ス[?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スEditorForm?ス?ス?ス?ス?ス?ス?ス[?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1111     procedure AllEditroFormMailTextClearClear();
1112     //ListView?ス?ス?スI?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スA?スC?スe?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1113     procedure SelectListItem(List: TList);
1114     /// ?ス^?スu?ス?ス?ス?ス
1115     function SaveTabURLs : Boolean;
1116     /// ?ス^?スu?ス?ス?ス?ス?スo?ス?ス
1117     function LoadTabURLs : Boolean;
1118 hi_ 1.1 published
1119     property EnabledCloseButton: Boolean read FEnabledCloseButton write SetEnabledCloseButton;
1120 h677 1.517 //TAction?ス?スGetActiveContent?ス?スnil?ス?ス?スO?ス?ス?スL?ス?ス?ス?ス?ス?ス?ス?ス
1121     procedure DependActiveCntentActionUpdate(Sender: TObject);
1122     //TAction?ス?スGetActiveContent?ス?スnil?ス?ス?スO?ス?ス?ス?ス?ス?ス?スO?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スL?ス?ス?ス?ス?ス?ス?ス?ス
1123     procedure DependActiveCntentLogActionUpdate(Sender: TObject);
1124     //TAction?ス?スActiveList?ス?スTBoard?ス?ス?スL?ス?ス?ス?ス?ス?ス?ス?ス
1125     procedure DependActiveListTBoardActionUpdate(Sender: TObject);
1126     //?ス?ス?スO?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス?スO?ス?ス?ス?ス?ス?ス?ス?ス?ス?ス
1127     procedure AppException(Sender: TObject; E: Exception);
1128 hi_ 1.1 end;
1129    
1130     TFavoriteMenuItem = class(TMenuItem)
1131     private
1132     FData : Pointer;
1133     public
1134     property Data: Pointer read FData write FData;
1135     end;
1136    
1137 yoffy 1.123 TBBSMenuItem = class(TMenuItem)
1138     private
1139     FData : Pointer;
1140     public
1141     property Data: Pointer read FData write FData;
1142     end;
1143    
1144 hi_ 1.1 TLinkToolButton = class(TToolButton)
1145     private
1146     FData : Pointer;
1147     public
1148     property Data: Pointer read FData write FData;
1149     end;
1150    
1151 h677 1.299 TBrowserRecord = class( TObject )
1152     private
1153     FBrowser : TWebBrowser;
1154 yoffy 1.455 FEvent: THTMLDocumentEventSink; ///< ?スu?ス?ス?スE?スU?スh?スL?ス?ス?ス?ス?ス?ス?スg?スC?スx?ス?ス?スg
1155 h677 1.299 FThread : TThreadItem;
1156     FLastSize : Integer;
1157     FRepaint : Boolean;
1158 yoffy 1.455 FMovement : string; ///< ?スX?スN?ス?ス?ス[?ス?ス?ス?ス?スA?ス?ス?スJ?ス[
1159 h677 1.299 public
1160     destructor Destroy; override;
1161     property Browser : TWebBrowser read FBrowser write FBrowser;
1162     property Thread : TThreadItem read FThread write FThread;
1163     property LastSize : Integer read FLastSize write FLastSize;
1164     property Repaint : Boolean read FRepaint write FRepaint;
1165 yoffy 1.444 property Movement : string read FMovement write FMovement;
1166 h677 1.299 end;
1167    
1168 hi_ 1.1 var
1169     GikoForm: TGikoForm;
1170    
1171     implementation
1172    
1173     uses
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