Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by h677, Sat Nov 19 02:56:07 2005 UTC revision 1.6 by h677, Sat Nov 19 04:51:51 2005 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6    SysUtils, Classes, ExtActns, StdActns, ActnList, ImgList, Controls,    SysUtils, Classes, ExtActns, StdActns, ActnList, ImgList, Controls,
7    {$IF Defined(DELPRO) }
8            SHDocVw,
9            MSHTML,
10    {$ELSE}
11            SHDocVw_TLB,
12            MSHTML_TLB,
13    {$IFEND}
14    ComCtrls;    ComCtrls;
15    
16  type  type
17    TGikoDM = class(TDataModule)    TGikoDM = class(TDataModule)
18      GikoFormActionList: TActionList;          GikoFormActionList: TActionList;
19      OnlyAHundredResAction: TAction;          OnlyAHundredResAction: TAction;
20      OnlyKokoResAction: TAction;          OnlyKokoResAction: TAction;
21      LoginAction: TAction;          LoginAction: TAction;
22      NewBoardAction: TAction;          NewBoardAction: TAction;
23      LogDeleteAction: TAction;          LogDeleteAction: TAction;
24      KidokuAction: TAction;          KidokuAction: TAction;
25      StdToolBarVisibleAction: TAction;          StdToolBarVisibleAction: TAction;
26      AddressBarVisibleAction: TAction;          AddressBarVisibleAction: TAction;
27      LinkBarVisibleAction: TAction;          LinkBarVisibleAction: TAction;
28          ListToolBarVisibleAction: TAction;          ListToolBarVisibleAction: TAction;
29      SearchAction: TAction;          SearchAction: TAction;
30      GikoNaviWebPageAction: TAction;          GikoNaviWebPageAction: TAction;
31      MonazillaWebPageAction: TAction;          MonazillaWebPageAction: TAction;
32      BBS2chWebPageAction: TAction;          BBS2chWebPageAction: TAction;
33      GikoFolderOpenAction: TAction;          GikoFolderOpenAction: TAction;
34      AboutAction: TAction;          AboutAction: TAction;
35      SelectTextClearAction: TAction;          SelectTextClearAction: TAction;
36      NameTextClearAction: TAction;          NameTextClearAction: TAction;
37      MailTextClearAction: TAction;          MailTextClearAction: TAction;
38      ExitAction: TAction;          ExitAction: TAction;
39      ListNameBarVisibleAction: TAction;          ListNameBarVisibleAction: TAction;
40      BrowserToolBarVisibleAction: TAction;          BrowserToolBarVisibleAction: TAction;
41      BrowserNameBarVisibleAction: TAction;          BrowserNameBarVisibleAction: TAction;
42      MsgBarVisibleAction: TAction;          MsgBarVisibleAction: TAction;
43      MsgBarCloseAction: TAction;          MsgBarCloseAction: TAction;
44      StatusBarVisibleAction: TAction;          StatusBarVisibleAction: TAction;
45      CabinetBBSAction: TAction;          CabinetBBSAction: TAction;
46      CabinetHistoryAction: TAction;          CabinetHistoryAction: TAction;
47      OnlyNewResAction: TAction;          OnlyNewResAction: TAction;
48          CabinetFavoriteAction: TAction;          CabinetFavoriteAction: TAction;
49      CabinetVisibleAction: TAction;          CabinetVisibleAction: TAction;
50      ListNumberVisibleAction: TAction;          ListNumberVisibleAction: TAction;
51      UpFolderAction: TAction;          UpFolderAction: TAction;
52      CabinetCloseAction: TAction;          CabinetCloseAction: TAction;
53      IconStyle: TAction;          IconStyle: TAction;
54      LargeIconAction: TAction;          LargeIconAction: TAction;
55      SmallIconAction: TAction;          SmallIconAction: TAction;
56      ListIconAction: TAction;          ListIconAction: TAction;
57      DetailIconAction: TAction;          DetailIconAction: TAction;
58      MidokuAction: TAction;          MidokuAction: TAction;
59      AllSelectAction: TAction;          AllSelectAction: TAction;
60      AllItemAction: TAction;          AllItemAction: TAction;
61      LogItemAction: TAction;          LogItemAction: TAction;
62      NewItemAction: TAction;          NewItemAction: TAction;
63      ThreadRangeAction: TAction;          ThreadRangeAction: TAction;
64      SelectItemAction: TAction;          SelectItemAction: TAction;
65      StopAction: TAction;          StopAction: TAction;
66      OptionAction: TAction;          OptionAction: TAction;
67      RoundAction: TAction;          RoundAction: TAction;
68          BrowserMaxAction: TAction;          BrowserMaxAction: TAction;
69      BrowserMinAction: TAction;          BrowserMinAction: TAction;
70      ScrollTopAction: TAction;          ScrollTopAction: TAction;
71      ScrollLastAction: TAction;          ScrollLastAction: TAction;
72      ScrollNewAction: TAction;          ScrollNewAction: TAction;
73      ScrollKokoAction: TAction;          ScrollKokoAction: TAction;
74      EditorAction: TAction;          EditorAction: TAction;
75      IEAction: TAction;          IEAction: TAction;
76      ShowThreadAction: TAction;          ShowThreadAction: TAction;
77      ShowBoardAction: TAction;          ShowBoardAction: TAction;
78      URLCopyAction: TAction;          URLCopyAction: TAction;
79      NameCopyAction: TAction;          NameCopyAction: TAction;
80      NameURLCopyAction: TAction;          NameURLCopyAction: TAction;
81      ItemReloadAction: TAction;          ItemReloadAction: TAction;
82      ThreadEditorAction: TAction;          ThreadEditorAction: TAction;
83      BoardIEAction: TAction;          BoardIEAction: TAction;
84      SelectItemURLCopyAction: TAction;          SelectItemURLCopyAction: TAction;
85      SelectItemNameCopyAction: TAction;          SelectItemNameCopyAction: TAction;
86      SelectItemNameURLCopyAction: TAction;          SelectItemNameURLCopyAction: TAction;
87      SelectListReloadAction: TAction;          SelectListReloadAction: TAction;
88          SelectThreadReloadAction: TAction;          SelectThreadReloadAction: TAction;
89      BrowserTabCloseAction: TAction;          BrowserTabCloseAction: TAction;
90      NotSelectTabCloseAction: TAction;          NotSelectTabCloseAction: TAction;
91      AllTabCloseAction: TAction;          AllTabCloseAction: TAction;
92      KokomadeAction: TAction;          KokomadeAction: TAction;
93      ZenbuAction: TAction;          ZenbuAction: TAction;
94      KokoResAction: TAction;          KokoResAction: TAction;
95      TreeSelectBoradReload: TAction;          TreeSelectBoradReload: TAction;
96      TreeSelectThreadReload: TAction;          TreeSelectThreadReload: TAction;
97      TreeSelectURLCopy: TAction;          TreeSelectURLCopy: TAction;
98      SelectReservAction: TAction;          SelectReservAction: TAction;
99      SelectNewRoundName: TAction;          SelectNewRoundName: TAction;
100      SelectDeleteRound: TAction;          SelectDeleteRound: TAction;
101      KeySettingAction: TAction;          KeySettingAction: TAction;
102      ArrangeAction: TAction;          ArrangeAction: TAction;
103      ActiveLogDeleteAction: TAction;          ActiveLogDeleteAction: TAction;
104      TreeSelectNameURLCopy: TAction;          TreeSelectNameURLCopy: TAction;
105      PaneInitAction: TAction;          PaneInitAction: TAction;
106      LeftmostTabSelectAction: TAction;          LeftmostTabSelectAction: TAction;
107      LeftTabSelectAction: TAction;          LeftTabSelectAction: TAction;
108          RightTabSelectAction: TAction;          RightTabSelectAction: TAction;
109      RightmostTabSelectAction: TAction;          RightmostTabSelectAction: TAction;
110      FavoriteAddAction: TAction;          FavoriteAddAction: TAction;
111      BoardFavoriteAddAction: TAction;          BoardFavoriteAddAction: TAction;
112      ThreadFavoriteAddAction: TAction;          ThreadFavoriteAddAction: TAction;
113      TreeSelectFavoriteAddAction: TAction;          TreeSelectFavoriteAddAction: TAction;
114      FavoriteArrangeAction: TAction;          FavoriteArrangeAction: TAction;
115      MoveToAction: TAction;          MoveToAction: TAction;
116      BrowserTabVisibleAction: TAction;          BrowserTabVisibleAction: TAction;
117      BrowserTabTopAction: TAction;          BrowserTabTopAction: TAction;
118      BrowserTabBottomAction: TAction;          BrowserTabBottomAction: TAction;
119      BrowserTabTabStyleAction: TAction;          BrowserTabTabStyleAction: TAction;
120      BrowserTabButtonStyleAction: TAction;          BrowserTabButtonStyleAction: TAction;
121      BrowserTabFlatStyleAction: TAction;          BrowserTabFlatStyleAction: TAction;
122      GikoHelpAction: TAction;          GikoHelpAction: TAction;
123      KotehanAction: TAction;          KotehanAction: TAction;
124      ToolBarSettingAction: TAction;          ToolBarSettingAction: TAction;
125      SelectResAction: TAction;          SelectResAction: TAction;
126      AllResAction: TAction;          AllResAction: TAction;
127      EditNGAction: TAction;          EditNGAction: TAction;
128          ReloadAction: TAction;          ReloadAction: TAction;
129      GoFowardAction: TAction;          GoFowardAction: TAction;
130      GoBackAction: TAction;          GoBackAction: TAction;
131      TreeSelectSearchBoardName: TAction;          TreeSelectSearchBoardName: TAction;
132      FavoriteTreeViewRenameAction: TAction;          FavoriteTreeViewRenameAction: TAction;
133      FavoriteTreeViewNewFolderAction: TAction;          FavoriteTreeViewNewFolderAction: TAction;
134      FavoriteTreeViewDeleteAction: TAction;          FavoriteTreeViewDeleteAction: TAction;
135      FavoriteTreeViewBrowseFolderAction: TAction;          FavoriteTreeViewBrowseFolderAction: TAction;
136      FavoriteTreeViewReloadAction: TAction;          FavoriteTreeViewReloadAction: TAction;
137      FavoriteTreeViewURLCopyAction: TAction;          FavoriteTreeViewURLCopyAction: TAction;
138      FavoriteTreeViewNameCopyAction: TAction;          FavoriteTreeViewNameCopyAction: TAction;
139      FavoriteTreeViewNameURLCopyAction: TAction;          FavoriteTreeViewNameURLCopyAction: TAction;
140      FavoriteTreeViewLogDeleteAction: TAction;          FavoriteTreeViewLogDeleteAction: TAction;
141      ResRangeAction: TAction;          ResRangeAction: TAction;
142      ExportFavoriteFile: TFileSaveAs;          ExportFavoriteFile: TFileSaveAs;
143      FavoriteTreeViewBrowseBoardAction: TAction;          FavoriteTreeViewBrowseBoardAction: TAction;
144      FavoriteTreeViewBrowseThreadAction: TAction;          FavoriteTreeViewBrowseThreadAction: TAction;
145      UpBoardAction: TAction;          UpBoardAction: TAction;
146      KoreCopy: TAction;          KoreCopy: TAction;
147      TreeSelectNameCopy: TAction;          TreeSelectNameCopy: TAction;
148          SetFocusForBrowserAction: TAction;          SetFocusForBrowserAction: TAction;
149      SetFocusForThreadListAction: TAction;          SetFocusForThreadListAction: TAction;
150      SetFocusForCabinetAction: TAction;          SetFocusForCabinetAction: TAction;
151      FileRun1: TFileRun;          FileRun1: TFileRun;
152      ThreadlistMaxAndFocusAction: TAction;          ThreadlistMaxAndFocusAction: TAction;
153      BrowserMaxAndFocusAction: TAction;          BrowserMaxAndFocusAction: TAction;
154      SelectItemSaveForHTML: TAction;          SelectItemSaveForHTML: TAction;
155      SelectItemSaveForDat: TAction;          SelectItemSaveForDat: TAction;
156      FileSaveAs1: TFileSaveAs;          FileSaveAs1: TFileSaveAs;
157      LogFolderOpenAction: TAction;          LogFolderOpenAction: TAction;
158      TabsSaveAction: TAction;          TabsSaveAction: TAction;
159      TabsOpenAction: TAction;          TabsOpenAction: TAction;
160      BrowsBoradHeadAction: TAction;          BrowsBoradHeadAction: TAction;
161      TabAutoSaveAction: TAction;          TabAutoSaveAction: TAction;
162      TabAutoLoadAction: TAction;          TabAutoLoadAction: TAction;
163      JumpToNumOfResAction: TAction;          JumpToNumOfResAction: TAction;
164      FavoriteTreeViewCollapseAction: TAction;          FavoriteTreeViewCollapseAction: TAction;
165      RightTabCloseAction: TAction;          RightTabCloseAction: TAction;
166      LeftTabCloseAction: TAction;          LeftTabCloseAction: TAction;
167      SameIDResAnchorAction: TAction;          SameIDResAnchorAction: TAction;
168          IndividualAbon1Action: TAction;          IndividualAbon1Action: TAction;
169      IndividualAbon0Action: TAction;          IndividualAbon0Action: TAction;
170      AntiIndividualAbonAction: TAction;          AntiIndividualAbonAction: TAction;
171      AntiIndividualAbonDlgAction: TAction;          AntiIndividualAbonDlgAction: TAction;
172      IndividualAbonID1Action: TAction;          IndividualAbonID1Action: TAction;
173      IndividualAbonID0Action: TAction;          IndividualAbonID0Action: TAction;
174      MuteAction: TAction;          MuteAction: TAction;
175      SortActiveColumnAction: TAction;          SortActiveColumnAction: TAction;
176      SortNextColumnAction: TAction;          SortNextColumnAction: TAction;
177      SortPrevColumnAction: TAction;          SortPrevColumnAction: TAction;
178      BeLogInOutAction: TAction;          BeLogInOutAction: TAction;
179      UnSelectedListViewAction: TAction;          UnSelectedListViewAction: TAction;
180      WikiFAQWebPageAction: TAction;          WikiFAQWebPageAction: TAction;
181      ToobarImageList: TImageList;          ToobarImageList: TImageList;
182      procedure EditNGActionExecute(Sender: TObject);          procedure EditNGActionExecute(Sender: TObject);
183      procedure ReloadActionExecute(Sender: TObject);          procedure ReloadActionExecute(Sender: TObject);
184      procedure GoFowardActionExecute(Sender: TObject);          procedure GoFowardActionExecute(Sender: TObject);
185      procedure GoBackActionExecute(Sender: TObject);          procedure GoBackActionExecute(Sender: TObject);
186      procedure MoveToActionExecute(Sender: TObject);          procedure MoveToActionExecute(Sender: TObject);
187      procedure FavoriteAddActionExecute(Sender: TObject);          procedure FavoriteAddActionExecute(Sender: TObject);
188          procedure FavoriteArrangeActionExecute(Sender: TObject);          procedure FavoriteArrangeActionExecute(Sender: TObject);
189      procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);          procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
190      procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);          procedure FavoriteTreeViewRenameActionExecute(Sender: TObject);
191      procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);          procedure FavoriteTreeViewNewFolderActionExecute(Sender: TObject);
192      procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);          procedure FavoriteTreeViewDeleteActionExecute(Sender: TObject);
193      procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);          procedure FavoriteTreeViewBrowseFolderActionExecute(Sender: TObject);
194      procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);          procedure FavoriteTreeViewReloadActionExecute(Sender: TObject);
195      procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);          procedure FavoriteTreeViewURLCopyActionExecute(Sender: TObject);
196      procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);          procedure FavoriteTreeViewNameCopyActionExecute(Sender: TObject);
197      procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);          procedure FavoriteTreeViewNameURLCopyActionExecute(Sender: TObject);
198      procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);          procedure FavoriteTreeViewLogDeleteActionExecute(Sender: TObject);
199      procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);          procedure FavoriteTreeViewBrowseThreadActionExecute(Sender: TObject);
200      procedure OnlyAHundredResActionExecute(Sender: TObject);          procedure OnlyAHundredResActionExecute(Sender: TObject);
201      procedure OnlyKokoResActionExecute(Sender: TObject);          procedure OnlyKokoResActionExecute(Sender: TObject);
202      procedure OnlyNewResActionExecute(Sender: TObject);          procedure OnlyNewResActionExecute(Sender: TObject);
203      procedure BrowserMaxActionExecute(Sender: TObject);          procedure BrowserMaxActionExecute(Sender: TObject);
204      procedure BrowserMinActionExecute(Sender: TObject);          procedure BrowserMinActionExecute(Sender: TObject);
205      procedure ScrollTopActionExecute(Sender: TObject);          procedure ScrollTopActionExecute(Sender: TObject);
206      procedure ScrollLastActionExecute(Sender: TObject);          procedure ScrollLastActionExecute(Sender: TObject);
207      procedure ScrollNewActionExecute(Sender: TObject);          procedure ScrollNewActionExecute(Sender: TObject);
208          procedure ScrollKokoActionExecute(Sender: TObject);          procedure ScrollKokoActionExecute(Sender: TObject);
209      procedure ScrollKokoActionUpdate(Sender: TObject);          procedure ScrollKokoActionUpdate(Sender: TObject);
210      procedure EditorActionExecute(Sender: TObject);          procedure EditorActionExecute(Sender: TObject);
211      procedure IEActionExecute(Sender: TObject);          procedure IEActionExecute(Sender: TObject);
212      procedure ShowThreadActionExecute(Sender: TObject);          procedure ShowThreadActionExecute(Sender: TObject);
213      procedure ShowBoardActionExecute(Sender: TObject);          procedure ShowBoardActionExecute(Sender: TObject);
214      procedure URLCopyActionExecute(Sender: TObject);          procedure URLCopyActionExecute(Sender: TObject);
215      procedure NameCopyActionExecute(Sender: TObject);          procedure NameCopyActionExecute(Sender: TObject);
216      procedure NameURLCopyActionExecute(Sender: TObject);          procedure NameURLCopyActionExecute(Sender: TObject);
217      procedure ItemReloadActionExecute(Sender: TObject);          procedure ItemReloadActionExecute(Sender: TObject);
218      procedure BrowserTabCloseActionExecute(Sender: TObject);          procedure BrowserTabCloseActionExecute(Sender: TObject);
219      procedure BrowserTabCloseActionUpdate(Sender: TObject);          procedure BrowserTabCloseActionUpdate(Sender: TObject);
220      procedure NotSelectTabCloseActionExecute(Sender: TObject);          procedure NotSelectTabCloseActionExecute(Sender: TObject);
221      procedure NotSelectTabCloseActionUpdate(Sender: TObject);          procedure NotSelectTabCloseActionUpdate(Sender: TObject);
222      procedure AllTabCloseActionExecute(Sender: TObject);          procedure AllTabCloseActionExecute(Sender: TObject);
223      procedure ActiveLogDeleteActionExecute(Sender: TObject);          procedure ActiveLogDeleteActionExecute(Sender: TObject);
224      procedure LeftmostTabSelectActionExecute(Sender: TObject);          procedure LeftmostTabSelectActionExecute(Sender: TObject);
225      procedure LeftmostTabSelectActionUpdate(Sender: TObject);          procedure LeftmostTabSelectActionUpdate(Sender: TObject);
226      procedure LeftTabSelectActionExecute(Sender: TObject);          procedure LeftTabSelectActionExecute(Sender: TObject);
227      procedure RightTabSelectActionExecute(Sender: TObject);          procedure RightTabSelectActionExecute(Sender: TObject);
228          procedure RightTabSelectActionUpdate(Sender: TObject);          procedure RightTabSelectActionUpdate(Sender: TObject);
229      procedure RightmostTabSelectActionExecute(Sender: TObject);          procedure RightmostTabSelectActionExecute(Sender: TObject);
230      procedure ThreadFavoriteAddActionExecute(Sender: TObject);          procedure ThreadFavoriteAddActionExecute(Sender: TObject);
231      procedure ThreadFavoriteAddActionUpdate(Sender: TObject);          procedure ThreadFavoriteAddActionUpdate(Sender: TObject);
232      procedure SelectResActionExecute(Sender: TObject);          procedure SelectResActionExecute(Sender: TObject);
233      procedure AllResActionExecute(Sender: TObject);          procedure AllResActionExecute(Sender: TObject);
234      procedure ResRangeActionExecute(Sender: TObject);          procedure ResRangeActionExecute(Sender: TObject);
235      procedure UpBoardActionExecute(Sender: TObject);          procedure UpBoardActionExecute(Sender: TObject);
236      procedure JumpToNumOfResActionExecute(Sender: TObject);          procedure JumpToNumOfResActionExecute(Sender: TObject);
237      procedure RightTabCloseActionExecute(Sender: TObject);          procedure RightTabCloseActionExecute(Sender: TObject);
238      procedure RightTabCloseActionUpdate(Sender: TObject);          procedure RightTabCloseActionUpdate(Sender: TObject);
239      procedure LeftTabCloseActionExecute(Sender: TObject);          procedure LeftTabCloseActionExecute(Sender: TObject);
240      procedure DataModuleCreate(Sender: TObject);          procedure DataModuleCreate(Sender: TObject);
241      procedure SearchActionExecute(Sender: TObject);          procedure SearchActionExecute(Sender: TObject);
242      procedure OptionActionExecute(Sender: TObject);          procedure OptionActionExecute(Sender: TObject);
243      procedure RoundActionExecute(Sender: TObject);          procedure RoundActionExecute(Sender: TObject);
244      procedure KeySettingActionExecute(Sender: TObject);          procedure KeySettingActionExecute(Sender: TObject);
245      procedure KotehanActionExecute(Sender: TObject);          procedure KotehanActionExecute(Sender: TObject);
246      procedure ToolBarSettingActionExecute(Sender: TObject);          procedure ToolBarSettingActionExecute(Sender: TObject);
247      procedure MuteActionExecute(Sender: TObject);          procedure MuteActionExecute(Sender: TObject);
248      procedure TreeSelectBoradReloadExecute(Sender: TObject);          procedure TreeSelectBoradReloadExecute(Sender: TObject);
249      procedure TreeSelectThreadReloadExecute(Sender: TObject);          procedure TreeSelectThreadReloadExecute(Sender: TObject);
250      procedure TreeSelectURLCopyExecute(Sender: TObject);          procedure TreeSelectURLCopyExecute(Sender: TObject);
251      procedure TreeSelectNameURLCopyExecute(Sender: TObject);          procedure TreeSelectNameURLCopyExecute(Sender: TObject);
252      procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);          procedure TreeSelectFavoriteAddActionExecute(Sender: TObject);
253      procedure TreeSelectSearchBoardNameExecute(Sender: TObject);          procedure TreeSelectSearchBoardNameExecute(Sender: TObject);
254      procedure TreeSelectNameCopyExecute(Sender: TObject);          procedure TreeSelectNameCopyExecute(Sender: TObject);
255      procedure LoginActionExecute(Sender: TObject);          procedure LoginActionExecute(Sender: TObject);
256      procedure NewBoardActionExecute(Sender: TObject);          procedure NewBoardActionExecute(Sender: TObject);
257      procedure LogDeleteActionExecute(Sender: TObject);          procedure LogDeleteActionExecute(Sender: TObject);
258      procedure LogDeleteActionUpdate(Sender: TObject);          procedure LogDeleteActionUpdate(Sender: TObject);
259      procedure SelectTextClearActionExecute(Sender: TObject);          procedure SelectTextClearActionExecute(Sender: TObject);
260      procedure NameTextClearActionExecute(Sender: TObject);          procedure NameTextClearActionExecute(Sender: TObject);
261      procedure MailTextClearActionExecute(Sender: TObject);          procedure MailTextClearActionExecute(Sender: TObject);
262      procedure ExitActionExecute(Sender: TObject);          procedure ExitActionExecute(Sender: TObject);
263      procedure ExportFavoriteFileBeforeExecute(Sender: TObject);          procedure ExportFavoriteFileBeforeExecute(Sender: TObject);
264      procedure ExportFavoriteFileAccept(Sender: TObject);          procedure ExportFavoriteFileAccept(Sender: TObject);
265      procedure SelectItemSaveForHTMLExecute(Sender: TObject);          procedure SelectItemSaveForHTMLExecute(Sender: TObject);
266      procedure SelectItemSaveForDatExecute(Sender: TObject);          procedure SelectItemSaveForDatExecute(Sender: TObject);
267      procedure TabsSaveActionExecute(Sender: TObject);          procedure TabsSaveActionExecute(Sender: TObject);
268      procedure TabsOpenActionExecute(Sender: TObject);          procedure TabsOpenActionExecute(Sender: TObject);
269      procedure TabAutoSaveActionExecute(Sender: TObject);          procedure TabAutoSaveActionExecute(Sender: TObject);
270      procedure TabAutoLoadActionExecute(Sender: TObject);          procedure TabAutoLoadActionExecute(Sender: TObject);
271      procedure BeLogInOutActionExecute(Sender: TObject);          procedure BeLogInOutActionExecute(Sender: TObject);
272      procedure BeLogInOutActionUpdate(Sender: TObject);          procedure BeLogInOutActionUpdate(Sender: TObject);
273            procedure KokomadeActionExecute(Sender: TObject);
274            procedure ZenbuActionExecute(Sender: TObject);
275            procedure KokoResActionExecute(Sender: TObject);
276            procedure KoreCopyExecute(Sender: TObject);
277            procedure SameIDResAnchorActionExecute(Sender: TObject);
278            procedure IndividualAbon1ActionExecute(Sender: TObject);
279            procedure IndividualAbon0ActionExecute(Sender: TObject);
280            procedure AntiIndividualAbonActionExecute(Sender: TObject);
281            procedure AntiIndividualAbonDlgActionExecute(Sender: TObject);
282            procedure IndividualAbonID1ActionExecute(Sender: TObject);
283            procedure IndividualAbonID0ActionExecute(Sender: TObject);
284            procedure GikoNaviWebPageActionExecute(Sender: TObject);
285        procedure MonazillaWebPageActionExecute(Sender: TObject);
286        procedure BBS2chWebPageActionExecute(Sender: TObject);
287        procedure GikoFolderOpenActionExecute(Sender: TObject);
288        procedure AboutActionExecute(Sender: TObject);
289        procedure GikoHelpActionExecute(Sender: TObject);
290        procedure WikiFAQWebPageActionExecute(Sender: TObject);
291    private    private
292          { Private 宣言 }          { Private 宣言 }
293    public    public
# Line 283  var Line 308  var
308  implementation  implementation
309    
310  uses  uses
311          Windows, Math, Messages, Dialogs, Clipbrd,          Windows, Math, Messages, Dialogs, Clipbrd,
312          Giko, GikoSystem, GikoUtil, BoardGroup,          Giko, GikoSystem, GikoUtil, BoardGroup,
313          FavoriteArrange, Favorite, Setting, MojuUtils,          FavoriteArrange, Favorite, Setting, MojuUtils,
314          Editor, ListSelect, Search, Option, Round,          Editor, ListSelect, Search, Option, Round,
315          KeySetting, Gesture, Kotehan, ToolBarSetting,          KeySetting, Gesture, Kotehan, ToolBarSetting,
316          ToolBarUtil, NewBoard, HTMLCreate;          ToolBarUtil, NewBoard, HTMLCreate, IndividualAbon,
317            GikoBayesian, About, ShellAPI;
318    
319    
320  const  const
# Line 306  const Line 332  const
332          TOOL_ICON_FAV_BOARD                     = 31;           //お気に入り板アイコン          TOOL_ICON_FAV_BOARD                     = 31;           //お気に入り板アイコン
333          TOOL_ICON_FAV_THREAD            = 32;           //お気に入りスレアイコン          TOOL_ICON_FAV_THREAD            = 32;           //お気に入りスレアイコン
334    
335            URL_GIKONAVI: string = 'http://gikonavi.sourceforge.jp/';
336            URL_MONAZILLA: string = 'http://www.monazilla.org/';
337            URL_2ch: string = 'http://www.2ch.net/';
338            URL_Wiki: string = 'http://gikowiki.dyndns.info/index.php?FAQ';
339    
340  {$R *.dfm}  {$R *.dfm}
341  // *************************************************************************  // *************************************************************************
342  // TActionでGetActiveContentがnil以外で有効になる  // TActionでGetActiveContentがnil以外で有効になる
# Line 2201  begin Line 2232  begin
2232                  BeLogInOutAction.Enabled := false;                  BeLogInOutAction.Enabled := false;
2233  end;  end;
2234  ////////////////////////////////ファイルまでおしまい/////////////////////  ////////////////////////////////ファイルまでおしまい/////////////////////
2235    // *************************************************************************
2236    // ココまで読んだ
2237    // *************************************************************************
2238    procedure TGikoDM.KokomadeActionExecute(Sender: TObject);
2239    var
2240            No: Integer;
2241            ThreadItem: TThreadItem;
2242    begin
2243            No := GikoForm.KokoPopupMenu.Tag;
2244            if No = 0 then Exit;
2245            ThreadItem := GikoForm.GetActiveContent;
2246            if ThreadItem = nil then Exit;
2247            ThreadItem.Kokomade := No;
2248            GikoForm.ActiveContent.Thread.ScrollTop :=
2249                    OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
2250            GikoForm.ActiveContent.Repaint := true;
2251            GikoForm.InsertBrowserTab(GikoForm.ActiveContent.Thread, true);
2252            //INFO 2005/11/19 一旦隠蔽、必要ならGikoFormの方にメソッドを追加する
2253            //Application.ProcessMessages;
2254    end;
2255    // *************************************************************************
2256    // 全部読んだ
2257    // *************************************************************************
2258    procedure TGikoDM.ZenbuActionExecute(Sender: TObject);
2259    var
2260            ThreadItem: TThreadItem;
2261    begin
2262            ThreadItem := GikoForm.GetActiveContent;
2263            if ThreadItem = nil then Exit;
2264            ThreadItem.Kokomade := -1;
2265            GikoForm.ActiveContent.Thread.ScrollTop :=
2266                    OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
2267            GikoForm.ActiveContent.Repaint := true;
2268            GikoForm.InsertBrowserTab(GikoForm.ActiveContent.Thread, true);
2269            //INFO 2005/11/19 一旦隠蔽、必要ならGikoFormの方にメソッドを追加する
2270            //Application.ProcessMessages;
2271    end;
2272    // *************************************************************************
2273    // ココにレス
2274    // *************************************************************************
2275    procedure TGikoDM.KokoResActionExecute(Sender: TObject);
2276    var
2277            Editor: TEditorForm;
2278            Item: TThreadItem;
2279            Number: Integer;
2280    begin
2281            Number := GikoForm.KokoPopupMenu.Tag;
2282            if Number = 0 then Exit;
2283            Item := GikoForm.GetActiveContent;
2284            if Item = nil then Exit;
2285    
2286            Editor := TEditorForm.Create(Self);
2287            Editor.SetThreadItem(Item);
2288            GikoSys.LoadEditorKeySetting(Editor.ActionList);
2289            Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10;
2290            Editor.Show;
2291            Editor.BodyEdit.SetFocus;
2292    end;
2293    // *************************************************************************
2294    // 選択したレスをコピーする
2295    // *************************************************************************
2296    procedure TGikoDM.KoreCopyExecute(Sender: TObject);
2297    begin
2298            GikoForm.KonoresCopy(GikoForm.KokoPopupMenu.Tag, true);
2299    end;
2300    // *************************************************************************
2301    // 選択したレスをコピーする
2302    // *************************************************************************
2303    procedure TGikoDM.SameIDResAnchorActionExecute(Sender: TObject);
2304    var
2305            ThreadItem : TThreadItem;
2306            No, count, rc : Integer;
2307            body : string;
2308            limited: boolean;
2309    begin
2310            No := GikoForm.KokoPopupMenu.Tag;
2311            if No = 0 then Exit;
2312            ThreadItem := GikoForm.GetActiveContent;
2313            if ThreadItem = nil then Exit;
2314            count := GikoSys.GetSameIDResCount(No, GikoForm.ActiveContent.Thread);
2315            limited := false;
2316            if count > 20 then begin
2317                    rc := GikoUtil.MsgBox(GikoForm.Handle,
2318                                    '20個以上ありますが、すべて表示しますか?',
2319                                    'IDポップアップ警告',
2320                                    MB_YESNO or MB_ICONQUESTION);
2321                    limited := rc <> ID_YES;
2322            end;
2323            body := GikoSys.GetSameIDResAnchor(No, ThreadItem, limited);
2324            GikoForm.IDAnchorPopup(body);
2325    end;
2326    // *************************************************************************
2327    // このレスあぼ〜ん (通常)
2328    // *************************************************************************
2329    procedure TGikoDM.IndividualAbon1ActionExecute(Sender: TObject);
2330    begin
2331            GikoForm.IndividualAbon(GikoForm.KokoPopupMenu.Tag, 1);
2332    end;
2333    // *************************************************************************
2334    // このレスあぼ〜ん (透明)
2335    // *************************************************************************
2336    procedure TGikoDM.IndividualAbon0ActionExecute(Sender: TObject);
2337    begin
2338            GikoForm.IndividualAbon(GikoForm.KokoPopupMenu.Tag, 0);
2339    end;
2340    // *************************************************************************
2341    // このレスあぼ〜ん解除
2342    // *************************************************************************
2343    procedure TGikoDM.AntiIndividualAbonActionExecute(Sender: TObject);
2344    var
2345            IndividualForm :TIndividualAbonForm;
2346            ThreadItem : TThreadItem;
2347            msg : String;
2348            ReadList                : TStringList;
2349            wordCount               : TWordCount;
2350    begin
2351            IndividualForm := TIndividualAbonForm.Create(Self);
2352            try
2353                    ThreadItem := GikoForm.GetActiveContent;
2354                    ThreadItem.ScrollTop :=
2355                            OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
2356                    if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2357                            if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
2358                                    ReadList                := TStringList.Create;
2359                                    wordCount               := TWordCount.Create;
2360                                    try
2361    {$IFDEF SPAM_FILTER_ENABLED}
2362                                            // スパムを解除
2363                                            ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
2364                                            GikoSys.SpamCountWord( ReadList[ KokoPopupMenu.Tag - 1 ], wordCount );
2365                                            GikoSys.SpamForget( wordCount, True );  // スパムを解除
2366                                            GikoSys.SpamLearn( wordCount, False );  // ハムに設定
2367    {$ENDIF}
2368                                            if IndividualForm.DeleteNG(GikoForm.KokoPopupMenu.Tag) then begin
2369                                                    GikoForm.ActiveContent.Repaint := true;
2370                                                    GikoForm.InsertBrowserTab( ThreadItem, True );
2371                                            end;
2372                                    finally
2373                                            wordCount.Free;
2374                                            ReadList.Free;
2375                                    end;
2376                            end else begin
2377                                    msg := 'このスレッドでは個別あぼ〜んを行ってません';
2378                                    MsgBox(GikoForm.Handle, msg, 'メッセージ', MB_OK);
2379                            end;
2380                    end;
2381            finally
2382                    IndividualForm.Release;
2383            end;
2384    end;
2385    // *************************************************************************
2386    // このレスあぼ〜ん解除レス番号指定(ダイアログ表示)
2387    // *************************************************************************
2388    procedure TGikoDM.AntiIndividualAbonDlgActionExecute(Sender: TObject);
2389    var
2390            IndividualForm :TIndividualAbonForm;
2391            ThreadItem : TThreadItem;
2392            msg : String;
2393            ReadList                : TStringList;
2394            wordCount               : TWordCount;
2395    {$IFDEF SPAM_FILTER_ENABLED}
2396            i : Integer;
2397    {$ENDIF}
2398    begin
2399            IndividualForm := TIndividualAbonForm.Create(Self);
2400            try
2401                    ThreadItem := GikoForm.GetActiveContent;
2402                    ThreadItem.ScrollTop :=
2403                            OleVariant(IHTMLDocument2(GikoForm.ActiveContent.Browser.Document)).Body.ScrollTop;
2404                    if (ThreadItem <> nil) and (ThreadItem.IsLogFile) then begin
2405                            if IndividualForm.SetThreadLogFileName(ThreadItem.GetThreadFileName) then begin
2406                                    if (IndividualForm.ShowModal = mrOK) then begin
2407                                            ReadList                := TStringList.Create;
2408                                            wordCount               := TWordCount.Create;
2409                                            try
2410    {$IFDEF SPAM_FILTER_ENABLED}
2411                                                    // スパムを解除
2412                                                    ReadList.LoadFromFile( ThreadItem.GetThreadFileName );
2413                                                    for i := 0 to IndividualForm.DeleteList.Count - 1 do begin
2414                                                            GikoSys.SpamCountWord( ReadList[ StrToInt(IndividualForm.DeleteList[i]) - 1 ], wordCount );
2415                                                            GikoSys.SpamForget( wordCount, True );  // スパムを解除
2416                                                            GikoSys.SpamLearn( wordCount, False );  // ハムに設定
2417                                                    end;
2418    {$ENDIF}
2419                                                    if IndividualForm.FRepaint then begin
2420                                                            GikoForm.ActiveContent.Repaint := true;
2421                                                            GikoForm.InsertBrowserTab( ThreadItem, True );
2422                                                    end;
2423                                            finally
2424                                                    wordCount.Free;
2425                                                    ReadList.Free;
2426                                            end;
2427                                    end;
2428                            end else begin
2429                                    msg := 'このスレッドでは個別あぼ〜んを行ってません';
2430                                    MsgBox(GikoForm.Handle, msg, 'メッセージ', MB_OK);
2431                            end;
2432                    end;
2433            finally
2434                    IndividualForm.Release;
2435            end;
2436    end;
2437    // *************************************************************************
2438    // このIDあぼ〜ん 通常
2439    // *************************************************************************
2440    procedure TGikoDM.IndividualAbonID1ActionExecute(Sender: TObject);
2441    begin
2442            GikoForm.IndividualAbonID(1);
2443    end;
2444    // *************************************************************************
2445    // このIDあぼ〜ん 透明
2446    // *************************************************************************
2447    procedure TGikoDM.IndividualAbonID0ActionExecute(Sender: TObject);
2448    begin
2449            GikoForm.IndividualAbonID(0);
2450    end;
2451    ////////////////////////////////ブラウザポップアップまでおしまい/////////////////////
2452    // *************************************************************************
2453    // ギコナビのウェブサイトを表示する
2454    // *************************************************************************
2455    procedure TGikoDM.GikoNaviWebPageActionExecute(Sender: TObject);
2456    begin
2457            GikoSys.OpenBrowser(URL_GIKONAVI, gbtAuto);
2458    end;
2459    // *************************************************************************
2460    // モナジラのウェブサイトを表示する
2461    // *************************************************************************
2462    procedure TGikoDM.MonazillaWebPageActionExecute(Sender: TObject);
2463    begin
2464            GikoSys.OpenBrowser(URL_MONAZILLA, gbtAuto);
2465    end;
2466    // *************************************************************************
2467    // 2ちゃんねるトップページを表示する
2468    // *************************************************************************
2469    procedure TGikoDM.BBS2chWebPageActionExecute(Sender: TObject);
2470    begin
2471            GikoSys.OpenBrowser(URL_2ch, gbtAuto);
2472    end;
2473    // *************************************************************************
2474    // ギコナビのフォルダを開く
2475    // *************************************************************************
2476    procedure TGikoDM.GikoFolderOpenActionExecute(Sender: TObject);
2477    begin
2478            GikoSys.CreateProcess('explorer.exe', '/e,"' + GikoSys.GetAppDir + '"');
2479    end;
2480    // *************************************************************************
2481    // バージョン情報を表示する
2482    // *************************************************************************
2483    procedure TGikoDM.AboutActionExecute(Sender: TObject);
2484    var
2485            Dlg: TAboutDialog;
2486    begin
2487            Dlg := TAboutDialog.Create(Self);
2488            try
2489                    Dlg.ShowModal;
2490            finally
2491                    Dlg.Release;
2492            end;
2493    end;
2494    // *************************************************************************
2495    // ギコナビのヘルプを表示する
2496    // *************************************************************************
2497    procedure TGikoDM.GikoHelpActionExecute(Sender: TObject);
2498    var
2499            FileName: string;
2500    begin
2501            FileName := GikoSys.GetAppDir + 'batahlp.chm';
2502            if not FileExists(FileName) then begin
2503                    MsgBox(
2504                            GikoForm.Handle,
2505                            'ヘルプが見つかりませんでした' + #13#10 +
2506                            'ヘルプファイルをギコナビのフォルダに置いてください' + #13#10 +
2507                            'ヘルプはギコナビのサイトに置いてあります',
2508                            'エラー',
2509                            MB_ICONSTOP);
2510                    Exit;
2511            end;
2512            ShellExecute(GikoForm.Handle, 'open', PChar(FileName), '', PChar(GikoSys.GetAppDir), SW_SHOW);
2513    end;
2514    // *************************************************************************
2515    // ギコナビWikiのウェブサイトを表示する
2516    // *************************************************************************
2517    procedure TGikoDM.WikiFAQWebPageActionExecute(Sender: TObject);
2518    begin
2519            GikoSys.OpenBrowser(URL_Wiki, gbtAuto);
2520    end;
2521    ////////////////////////////////ヘルプまでおしまい/////////////////////
2522    
2523  end.  end.
2524    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26