Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.23 by hi_, Mon Aug 25 17:00:08 2003 UTC revision 1.24 by h677, Wed Aug 27 05:40:29 2003 UTC
# Line 449  type Line 449  type
449      ToolButton16: TToolButton;      ToolButton16: TToolButton;
450      AllResAction: TAction;      AllResAction: TAction;
451      AllResToolButton: TToolButton;      AllResToolButton: TToolButton;
452      N41: TMenuItem;      Reload: TMenuItem;
453      N42: TMenuItem;      GoBack: TMenuItem;
454      N49: TMenuItem;      GoFoward: TMenuItem;
455        EditAction: TAction;
456        ReloadAction: TAction;
457        GoFowardAction: TAction;
458        GoBackAction: TAction;
459                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
460                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
461                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 695  type Line 699  type
699        Shift: TShiftState);        Shift: TShiftState);
700      procedure AllResActionExecute(Sender: TObject);      procedure AllResActionExecute(Sender: TObject);
701      procedure AllResActionUpdate(Sender: TObject);      procedure AllResActionUpdate(Sender: TObject);
702      procedure N41Click(Sender: TObject);      procedure ReloadClick(Sender: TObject);
703      procedure N42Click(Sender: TObject);      procedure GoBackClick(Sender: TObject);
704      procedure N49Click(Sender: TObject);      procedure GoFowardClick(Sender: TObject);
705          private          private
706                  { Private 宣言 }                  { Private 宣言 }
707    
# Line 6788  begin Line 6792  begin
6792          AllResAction.Enabled := GetActiveContent <> nil;          AllResAction.Enabled := GetActiveContent <> nil;
6793  end;  end;
6794    
6795  procedure TGikoForm.N41Click(Sender: TObject);  procedure TGikoForm.ReloadClick(Sender: TObject);
6796  var  var
6797          ThreadItem : TThreadItem;          ThreadItem : TThreadItem;
6798  begin  begin
# Line 6803  begin Line 6807  begin
6807    
6808  end;  end;
6809    
6810  procedure TGikoForm.N42Click(Sender: TObject);  procedure TGikoForm.GoBackClick(Sender: TObject);
6811  var  var
6812      ThreadItem : TThreadItem;      ThreadItem : TThreadItem;
6813  begin  begin
# Line 6819  begin Line 6823  begin
6823    
6824  end;  end;
6825    
6826  procedure TGikoForm.N49Click(Sender: TObject);  procedure TGikoForm.GoFowardClick(Sender: TObject);
6827  var  var
6828      ThreadItem : TThreadItem;      ThreadItem : TThreadItem;
6829  begin  begin

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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