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.10 by h677, Sun Nov 20 14:58:02 2005 UTC revision 1.11 by h677, Wed Nov 23 05:11:11 2005 UTC
# Line 13  uses Line 13  uses
13  {$IFEND}  {$IFEND}
14    ComCtrls;    ComCtrls;
15    
16    
17  type  type
18    TGikoDM = class(TDataModule)    TGikoDM = class(TDataModule)
19          GikoFormActionList: TActionList;          GikoFormActionList: TActionList;
# Line 318  type Line 319  type
319          procedure LogFolderOpenActionUpdate(Sender: TObject);          procedure LogFolderOpenActionUpdate(Sender: TObject);
320          procedure BrowsBoradHeadActionExecute(Sender: TObject);          procedure BrowsBoradHeadActionExecute(Sender: TObject);
321          procedure SortActiveColumnActionExecute(Sender: TObject);          procedure SortActiveColumnActionExecute(Sender: TObject);
322      procedure SortNextColumnActionExecute(Sender: TObject);          procedure SortNextColumnActionExecute(Sender: TObject);
323      procedure SortPrevColumnActionExecute(Sender: TObject);          procedure SortPrevColumnActionExecute(Sender: TObject);
324      procedure StdToolBarVisibleActionExecute(Sender: TObject);          procedure StdToolBarVisibleActionExecute(Sender: TObject);
325      procedure AddressBarVisibleActionExecute(Sender: TObject);          procedure AddressBarVisibleActionExecute(Sender: TObject);
326      procedure LinkBarVisibleActionExecute(Sender: TObject);          procedure LinkBarVisibleActionExecute(Sender: TObject);
327      procedure ListToolBarVisibleActionExecute(Sender: TObject);          procedure ListToolBarVisibleActionExecute(Sender: TObject);
328      procedure ListNameBarVisibleActionExecute(Sender: TObject);          procedure ListNameBarVisibleActionExecute(Sender: TObject);
329      procedure BrowserToolBarVisibleActionExecute(Sender: TObject);          procedure BrowserToolBarVisibleActionExecute(Sender: TObject);
330      procedure BrowserNameBarVisibleActionExecute(Sender: TObject);          procedure BrowserNameBarVisibleActionExecute(Sender: TObject);
331      procedure MsgBarVisibleActionExecute(Sender: TObject);          procedure MsgBarVisibleActionExecute(Sender: TObject);
332      procedure MsgBarCloseActionExecute(Sender: TObject);          procedure MsgBarCloseActionExecute(Sender: TObject);
333      procedure StatusBarVisibleActionExecute(Sender: TObject);          procedure StatusBarVisibleActionExecute(Sender: TObject);
334      procedure CabinetBBSActionExecute(Sender: TObject);          procedure CabinetBBSActionExecute(Sender: TObject);
335      procedure CabinetHistoryActionExecute(Sender: TObject);          procedure CabinetHistoryActionExecute(Sender: TObject);
336      procedure CabinetFavoriteActionExecute(Sender: TObject);          procedure CabinetFavoriteActionExecute(Sender: TObject);
337      procedure CabinetVisibleActionExecute(Sender: TObject);          procedure CabinetVisibleActionExecute(Sender: TObject);
338      procedure CabinetCloseActionExecute(Sender: TObject);          procedure CabinetCloseActionExecute(Sender: TObject);
339      procedure LargeIconActionExecute(Sender: TObject);          procedure LargeIconActionExecute(Sender: TObject);
340      procedure SmallIconActionExecute(Sender: TObject);          procedure SmallIconActionExecute(Sender: TObject);
341      procedure ListIconActionExecute(Sender: TObject);          procedure ListIconActionExecute(Sender: TObject);
342      procedure DetailIconActionExecute(Sender: TObject);          procedure DetailIconActionExecute(Sender: TObject);
343      procedure StopActionExecute(Sender: TObject);          procedure StopActionExecute(Sender: TObject);
344      procedure ArrangeActionExecute(Sender: TObject);          procedure ArrangeActionExecute(Sender: TObject);
345      procedure PaneInitActionExecute(Sender: TObject);          procedure PaneInitActionExecute(Sender: TObject);
346      procedure BrowserTabVisibleActionExecute(Sender: TObject);          procedure BrowserTabVisibleActionExecute(Sender: TObject);
347      procedure BrowserTabTopActionExecute(Sender: TObject);          procedure BrowserTabTopActionExecute(Sender: TObject);
348      procedure BrowserTabBottomActionExecute(Sender: TObject);          procedure BrowserTabBottomActionExecute(Sender: TObject);
349      procedure BrowserTabTabStyleActionExecute(Sender: TObject);          procedure BrowserTabTabStyleActionExecute(Sender: TObject);
350      procedure BrowserTabButtonStyleActionExecute(Sender: TObject);          procedure BrowserTabButtonStyleActionExecute(Sender: TObject);
351      procedure BrowserTabFlatStyleActionExecute(Sender: TObject);          procedure BrowserTabFlatStyleActionExecute(Sender: TObject);
352      procedure SetFocusForBrowserActionExecute(Sender: TObject);          procedure SetFocusForBrowserActionExecute(Sender: TObject);
353      procedure SetFocusForBrowserActionUpdate(Sender: TObject);          procedure SetFocusForBrowserActionUpdate(Sender: TObject);
354      procedure SetFocusForThreadListActionExecute(Sender: TObject);          procedure SetFocusForThreadListActionExecute(Sender: TObject);
355      procedure SetFocusForCabinetActionExecute(Sender: TObject);          procedure SetFocusForCabinetActionExecute(Sender: TObject);
356      procedure SetFocusForCabinetActionUpdate(Sender: TObject);          procedure SetFocusForCabinetActionUpdate(Sender: TObject);
357      procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);          procedure ThreadlistMaxAndFocusActionExecute(Sender: TObject);
358      procedure BrowserMaxAndFocusActionExecute(Sender: TObject);          procedure BrowserMaxAndFocusActionExecute(Sender: TObject);
359      procedure UnSelectedListViewActionExecute(Sender: TObject);          procedure UnSelectedListViewActionExecute(Sender: TObject);
360      procedure KidokuActionExecute(Sender: TObject);          procedure KidokuActionExecute(Sender: TObject);
361      procedure MidokuActionExecute(Sender: TObject);          procedure MidokuActionExecute(Sender: TObject);
362      procedure AllSelectActionExecute(Sender: TObject);          procedure AllSelectActionExecute(Sender: TObject);
363      procedure AllSelectActionUpdate(Sender: TObject);          procedure AllSelectActionUpdate(Sender: TObject);
364    private    private
365          { Private 宣言 }          { Private 宣言 }
366    public    public
# Line 377  type Line 378  type
378  var  var
379    GikoDM: TGikoDM;    GikoDM: TGikoDM;
380    
381    
382  implementation  implementation
383    
384  uses  uses
# Line 390  uses Line 392  uses
392          RoundName, RoundData, Menus, ListViewUtils,          RoundName, RoundData, Menus, ListViewUtils,
393          ThreadControl;          ThreadControl;
394    
   
395  const  const
396          CAPTION_NAME: string = 'ギコナビ';          CAPTION_NAME: string = 'ギコナビ';
397          USER_SETLINKBAR                                 = WM_USER + 2003;          USER_SETLINKBAR                                 = WM_USER + 2003;
# Line 1578  end; Line 1579  end;
1579  ////////////////////////////////スレッドまでおしまい/////////////////////  ////////////////////////////////スレッドまでおしまい/////////////////////
1580  procedure TGikoDM.DataModuleCreate(Sender: TObject);  procedure TGikoDM.DataModuleCreate(Sender: TObject);
1581  begin  begin
1582            Self.SetParentComponent(GikoForm);
1583  end;  end;
1584  // *************************************************************************  // *************************************************************************
1585  //! ログ検索ダイアログを表示する  //! ログ検索ダイアログを表示する

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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