Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/GikoDataModule.pas

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


Revision 1.1 - (hide annotations) (download) (as text)
Tue Nov 15 16:40:06 2005 UTC (18 years, 5 months ago) by h677
Branch: MAIN
File MIME type: text/x-pascal
GikoFormのアクションの移設先

1 h677 1.1 unit GikoDataModule;
2    
3     interface
4    
5     uses
6     SysUtils, Classes, ExtActns, StdActns, ActnList, ImgList, Controls;
7    
8     type
9     TGikoDM = class(TDataModule)
10     GikoFormActionList: TActionList;
11     OnlyAHundredResAction: TAction;
12     OnlyKokoResAction: TAction;
13     LoginAction: TAction;
14     NewBoardAction: TAction;
15     LogDeleteAction: TAction;
16     KidokuAction: TAction;
17     StdToolBarVisibleAction: TAction;
18     AddressBarVisibleAction: TAction;
19     LinkBarVisibleAction: TAction;
20     ListToolBarVisibleAction: TAction;
21     SearchAction: TAction;
22     GikoNaviWebPageAction: TAction;
23     MonazillaWebPageAction: TAction;
24     BBS2chWebPageAction: TAction;
25     GikoFolderOpenAction: TAction;
26     AboutAction: TAction;
27     SelectTextClearAction: TAction;
28     NameTextClearAction: TAction;
29     MailTextClearAction: TAction;
30     ExitAction: TAction;
31     ListNameBarVisibleAction: TAction;
32     BrowserToolBarVisibleAction: TAction;
33     BrowserNameBarVisibleAction: TAction;
34     MsgBarVisibleAction: TAction;
35     MsgBarCloseAction: TAction;
36     StatusBarVisibleAction: TAction;
37     CabinetBBSAction: TAction;
38     CabinetHistoryAction: TAction;
39     OnlyNewResAction: TAction;
40     CabinetFavoriteAction: TAction;
41     CabinetVisibleAction: TAction;
42     ListNumberVisibleAction: TAction;
43     UpFolderAction: TAction;
44     CabinetCloseAction: TAction;
45     IconStyle: TAction;
46     LargeIconAction: TAction;
47     SmallIconAction: TAction;
48     ListIconAction: TAction;
49     DetailIconAction: TAction;
50     MidokuAction: TAction;
51     AllSelectAction: TAction;
52     AllItemAction: TAction;
53     LogItemAction: TAction;
54     NewItemAction: TAction;
55     ThreadRangeAction: TAction;
56     SelectItemAction: TAction;
57     StopAction: TAction;
58     OptionAction: TAction;
59     RoundAction: TAction;
60     BrowserMaxAction: TAction;
61     BrowserMinAction: TAction;
62     ScrollTopAction: TAction;
63     ScrollLastAction: TAction;
64     ScrollNewAction: TAction;
65     ScrollKokoAction: TAction;
66     EditorAction: TAction;
67     IEAction: TAction;
68     ShowThreadAction: TAction;
69     ShowBoardAction: TAction;
70     URLCopyAction: TAction;
71     NameCopyAction: TAction;
72     NameURLCopyAction: TAction;
73     ItemReloadAction: TAction;
74     ThreadEditorAction: TAction;
75     BoardIEAction: TAction;
76     SelectItemURLCopyAction: TAction;
77     SelectItemNameCopyAction: TAction;
78     SelectItemNameURLCopyAction: TAction;
79     SelectListReloadAction: TAction;
80     SelectThreadReloadAction: TAction;
81     BrowserTabCloseAction: TAction;
82     NotSelectTabCloseAction: TAction;
83     AllTabCloseAction: TAction;
84     KokomadeAction: TAction;
85     ZenbuAction: TAction;
86     KokoResAction: TAction;
87     TreeSelectBoradReload: TAction;
88     TreeSelectThreadReload: TAction;
89     TreeSelectURLCopy: TAction;
90     SelectReservAction: TAction;
91     SelectNewRoundName: TAction;
92     SelectDeleteRound: TAction;
93     KeySettingAction: TAction;
94     ArrangeAction: TAction;
95     ActiveLogDeleteAction: TAction;
96     TreeSelectNameURLCopy: TAction;
97     PaneInitAction: TAction;
98     LeftmostTabSelectAction: TAction;
99     LeftTabSelectAction: TAction;
100     RightTabSelectAction: TAction;
101     RightmostTabSelectAction: TAction;
102     FavoriteAddAction: TAction;
103     BoardFavoriteAddAction: TAction;
104     ThreadFavoriteAddAction: TAction;
105     TreeSelectFavoriteAddAction: TAction;
106     FavoriteArrangeAction: TAction;
107     MoveToAction: TAction;
108     BrowserTabVisibleAction: TAction;
109     BrowserTabTopAction: TAction;
110     BrowserTabBottomAction: TAction;
111     BrowserTabTabStyleAction: TAction;
112     BrowserTabButtonStyleAction: TAction;
113     BrowserTabFlatStyleAction: TAction;
114     GikoHelpAction: TAction;
115     KotehanAction: TAction;
116     ToolBarSettingAction: TAction;
117     SelectResAction: TAction;
118     AllResAction: TAction;
119     EditNGAction: TAction;
120     ReloadAction: TAction;
121     GoFowardAction: TAction;
122     GoBackAction: TAction;
123     TreeSelectSearchBoardName: TAction;
124     FavoriteTreeViewRenameAction: TAction;
125     FavoriteTreeViewNewFolderAction: TAction;
126     FavoriteTreeViewDeleteAction: TAction;
127     FavoriteTreeViewBrowseFolderAction: TAction;
128     FavoriteTreeViewReloadAction: TAction;
129     FavoriteTreeViewURLCopyAction: TAction;
130     FavoriteTreeViewNameCopyAction: TAction;
131     FavoriteTreeViewNameURLCopyAction: TAction;
132     FavoriteTreeViewLogDeleteAction: TAction;
133     ResRangeAction: TAction;
134     ExportFavoriteFile: TFileSaveAs;
135     FavoriteTreeViewBrowseBoardAction: TAction;
136     FavoriteTreeViewBrowseThreadAction: TAction;
137     UpBoardAction: TAction;
138     KoreCopy: TAction;
139     TreeSelectNameCopy: TAction;
140     SetFocusForBrowserAction: TAction;
141     SetFocusForThreadListAction: TAction;
142     SetFocusForCabinetAction: TAction;
143     FileRun1: TFileRun;
144     ThreadlistMaxAndFocusAction: TAction;
145     BrowserMaxAndFocusAction: TAction;
146     SelectItemSaveForHTML: TAction;
147     SelectItemSaveForDat: TAction;
148     FileSaveAs1: TFileSaveAs;
149     LogFolderOpenAction: TAction;
150     TabsSaveAction: TAction;
151     TabsOpenAction: TAction;
152     BrowsBoradHeadAction: TAction;
153     TabAutoSaveAction: TAction;
154     TabAutoLoadAction: TAction;
155     JumpToNumOfResAction: TAction;
156     FavoriteTreeViewCollapseAction: TAction;
157     RightTabCloseAction: TAction;
158     LeftTabCloseAction: TAction;
159     SameIDResAnchorAction: TAction;
160     IndividualAbon1Action: TAction;
161     IndividualAbon0Action: TAction;
162     AntiIndividualAbonAction: TAction;
163     AntiIndividualAbonDlgAction: TAction;
164     IndividualAbonID1Action: TAction;
165     IndividualAbonID0Action: TAction;
166     MuteAction: TAction;
167     SortActiveColumnAction: TAction;
168     SortNextColumnAction: TAction;
169     SortPrevColumnAction: TAction;
170     BeLogInOutAction: TAction;
171     UnSelectedListViewAction: TAction;
172     WikiFAQWebPageAction: TAction;
173     ToobarImageList: TImageList;
174     procedure EditNGActionExecute(Sender: TObject);
175     procedure ReloadActionExecute(Sender: TObject);
176     procedure GoFowardActionExecute(Sender: TObject);
177     procedure GoBackActionExecute(Sender: TObject);
178     procedure MoveToActionExecute(Sender: TObject);
179     procedure FavoriteAddActionExecute(Sender: TObject);
180     procedure FavoriteArrangeActionExecute(Sender: TObject);
181     procedure FavoriteTreeViewCollapseActionExecute(Sender: TObject);
182     private
183     { Private 鐃緒申鐃緒申 }
184     public
185     { Public 鐃緒申鐃緒申 }
186     published
187     { Published 鐃緒申鐃緒申 }
188     procedure DependActiveCntentActionUpdate(Sender: TObject);
189     end;
190    
191     var
192     GikoDM: TGikoDM;
193    
194     implementation
195    
196     uses
197     Windows, Math, Messages,
198     Giko, GikoSystem, GikoUtil,
199     FavoriteArrange;
200    
201    
202     const
203     USER_SETLINKBAR = WM_USER + 2003;
204    
205     {$R *.dfm}
206     // *************************************************************************
207     // NG鐃緒申鐃?鐃?鐃緒申鐃?
208     // *************************************************************************
209     procedure TGikoDM.EditNGActionExecute(Sender: TObject);
210     begin
211     //鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申
212     GikoSys.FAbon.EditNGwords;
213     end;
214     // *************************************************************************
215     // NG鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?
216     // *************************************************************************
217     procedure TGikoDM.ReloadActionExecute(Sender: TObject);
218     begin
219     //鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
220     if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
221     MsgBox(GikoForm.Handle, 'NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申', '鐃?鐃緒申鐃?', MB_OK or MB_ICONEXCLAMATION);
222     end else begin
223     //鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
224     GikoForm.RepaintAllTabsBrowser();
225     end;
226     end;
227     // *************************************************************************
228     // NG鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?
229     // *************************************************************************
230     procedure TGikoDM.GoFowardActionExecute(Sender: TObject);
231     var
232     s: string;
233     begin
234     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
235     if GikoSys.FAbon.GoBack =false then begin
236     MsgBox(GikoForm.Handle, '鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申', '鐃?鐃緒申鐃?', MB_OK or MB_ICONEXCLAMATION);
237     end else begin
238     //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?
239     s := GikoSys.FAbon.NGwordname;
240     GikoForm.StatusBar.Panels.Items[2].Text := s;
241     //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
242     GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
243     GikoForm.StatusBarResize(Sender);
244     //鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
245     GikoForm.RepaintAllTabsBrowser();
246     end;
247     end;
248     // *************************************************************************
249     // NG鐃緒申鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃?鐃?
250     // *************************************************************************
251     procedure TGikoDM.GoBackActionExecute(Sender: TObject);
252     var
253     s: string;
254     begin
255     //鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申
256     if GikoSys.FAbon.GoForward =false then begin
257     MsgBox(GikoForm.Handle, '鐃緒申鐃緒申鐃?鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申', '鐃?鐃緒申鐃?', MB_OK or MB_ICONEXCLAMATION);
258     end else begin
259     //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申NG鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃?鐃?
260     s := GikoSys.FAbon.NGwordname;
261     GikoForm.StatusBar.Panels.Items[2].Text := s;
262     //鐃?鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃緒申鐃?鐃?鐃?
263     GikoForm.StatusBar.Panels[2].Width := Max(GikoForm.StatusBar.Canvas.TextWidth(s), 100);
264     GikoForm.StatusBarResize(Sender);
265     //鐃?鐃緒申鐃緒申鐃?鐃?鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
266     GikoForm.RepaintAllTabsBrowser();
267     end;
268     end;
269     // *************************************************************************
270     // 鐃?鐃?鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
271     // *************************************************************************
272     procedure TGikoDM.MoveToActionExecute(Sender: TObject);
273     var
274     URL: string;
275     idx: Integer;
276     begin
277     //鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃?鐃?鐃?鐃?鐃緒申鐃緒申URL鐃緒申鐃緒申鐃緒申
278     URL := Trim(GikoForm.AddressComboBox.Text);
279     //URL鐃緒申鐃緒申鐃緒申
280     GikoForm.MoveToURL(URL);
281     //鐃緒申鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
282     idx := GikoForm.AddressComboBox.Items.IndexOf(URL);
283     if idx = -1 then begin
284     GikoForm.AddressComboBox.Items.Insert(0, URL);
285     if GikoForm.AddressComboBox.Items.Count > GikoSys.Setting.AddressHistoryCount then
286     GikoForm.AddressComboBox.Items.Delete(GikoForm.AddressComboBox.Items.Count - 1);
287     end else begin
288     GikoForm.AddressComboBox.Items.Delete(idx);
289     GikoForm.AddressComboBox.Items.Insert(0, URL);
290     end;
291     end;
292     // *************************************************************************
293     // TAction鐃緒申GetActiveContent鐃緒申nil鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
294     // *************************************************************************
295     procedure TGikoDM.DependActiveCntentActionUpdate(Sender: TObject);
296     begin
297     TAction(Sender).Enabled := (GikoForm.GetActiveContent <> nil);
298     end;
299     // *************************************************************************
300     // 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
301     // *************************************************************************
302     procedure TGikoDM.FavoriteAddActionExecute(Sender: TObject);
303     begin
304     GikoForm.ShowFavoriteAddDialog(GikoForm.GetActiveContent);
305     end;
306     // *************************************************************************
307     // 鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申
308     // *************************************************************************
309     procedure TGikoDM.FavoriteArrangeActionExecute(Sender: TObject);
310     var
311     Dlg: TFavoriteArrangeDialog;
312     begin
313     Dlg := TFavoriteArrangeDialog.Create(Self);
314     try
315     Dlg.ShowModal;
316     finally
317     Dlg.Release;
318     end;
319     //鐃緒申鐃緒申鐃?鐃?鐃?鐃緒申鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申
320     PostMessage( GikoForm.Handle, USER_SETLINKBAR, 0, 0 );
321     end;
322     // *************************************************************************
323     // 鐃?鐃緒申鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
324     // *************************************************************************
325     procedure TGikoDM.FavoriteTreeViewCollapseActionExecute(Sender: TObject);
326     var
327     node : TTreeNode;
328     begin
329     node := GikoForm.FavoriteTreeView.Items.GetFirstNode;
330     try
331     //鐃?鐃?鐃?鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃?鐃?鐃?鐃?鐃緒申鐃?鐃緒申鐃緒申鐃緒申鐃緒申
332     while node <> nil do begin
333     if node.HasChildren then
334     node.Expanded := False;
335     node := node.GetNext;
336     end;
337     except
338     end;
339     end;
340    
341     end.

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