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.21 by yoffy, Sat Aug 16 04:39:12 2003 UTC revision 1.22 by h677, Mon Aug 18 12:50:03 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;
453        N42: TMenuItem;
454        N49: TMenuItem;
455                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
456                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
457                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 684  type Line 687  type
687        Shift: TShiftState);        Shift: TShiftState);
688      procedure SelectComboBoxExit(Sender: TObject);      procedure SelectComboBoxExit(Sender: TObject);
689      procedure NG1Click(Sender: TObject);      procedure NG1Click(Sender: TObject);
     procedure NG2Click(Sender: TObject);  
690      procedure SelectResActionExecute(Sender: TObject);      procedure SelectResActionExecute(Sender: TObject);
691      procedure SelectResActionUpdate(Sender: TObject);      procedure SelectResActionUpdate(Sender: TObject);
692      procedure FormKeyDown(Sender: TObject; var Key: Word;      procedure FormKeyDown(Sender: TObject; var Key: Word;
# Line 693  type Line 695  type
695        Shift: TShiftState);        Shift: TShiftState);
696      procedure AllResActionExecute(Sender: TObject);      procedure AllResActionExecute(Sender: TObject);
697      procedure AllResActionUpdate(Sender: TObject);      procedure AllResActionUpdate(Sender: TObject);
698        procedure N41Click(Sender: TObject);
699        procedure N42Click(Sender: TObject);
700        procedure N49Click(Sender: TObject);
701          private          private
702                  { Private 宣言 }                  { Private 宣言 }
703    
# Line 1223  begin Line 1228  begin
1228          end;          end;
1229  //      SetStdToolBar;  //      SetStdToolBar;
1230  //      SetLinkBar;  //      SetLinkBar;
1231    
1232        StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname;
1233  end;  end;
1234    
1235  //  //
# Line 6638  begin Line 6645  begin
6645      GikoSys.FAbon.EditNGwords;      GikoSys.FAbon.EditNGwords;
6646  end;  end;
6647  //NGワードファイルを再読み込みする  //NGワードファイルを再読み込みする
 procedure TGikoForm.NG2Click(Sender: TObject);  
 var  
         ThreadItem : TThreadItem;  
 begin  
     if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin  
                 MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);  
     end else begin  
         //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。  
         ThreadItem := GetActiveContent;  
         if ThreadItem <> nil then  
                 SetContent( ThreadItem );  
     end;  
   
 end;  
   
6648  procedure TGikoForm.SelectResActionExecute(Sender: TObject);  procedure TGikoForm.SelectResActionExecute(Sender: TObject);
6649  var  var
6650          Dlg: TListSelectDialog;          Dlg: TListSelectDialog;
# Line 6796  begin Line 6788  begin
6788          AllResAction.Enabled := GetActiveContent <> nil;          AllResAction.Enabled := GetActiveContent <> nil;
6789  end;  end;
6790    
6791    procedure TGikoForm.N41Click(Sender: TObject);
6792    var
6793            ThreadItem : TThreadItem;
6794    begin
6795        if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
6796                    MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6797        end else begin
6798            //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。
6799            ThreadItem := GetActiveContent;
6800            if ThreadItem <> nil then
6801                    SetContent( ThreadItem );
6802        end;
6803    
6804    end;
6805    
6806    procedure TGikoForm.N42Click(Sender: TObject);
6807    var
6808        ThreadItem : TThreadItem;
6809    begin
6810        if GikoSys.FAbon.GoForward =false then begin
6811                    MsgBox(Handle, '一つ前のNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6812        end else begin
6813            StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname;
6814            //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。
6815            ThreadItem := GetActiveContent;
6816                if ThreadItem <> nil then
6817                    SetContent( ThreadItem );
6818        end;
6819    
6820    end;
6821    
6822    procedure TGikoForm.N49Click(Sender: TObject);
6823    var
6824        ThreadItem : TThreadItem;
6825    begin
6826        if GikoSys.FAbon.GoBack =false then begin
6827                    MsgBox(Handle, '一つ後ろのNGワードファイルの読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6828        end else begin
6829            //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。
6830            StatusBar.Panels.Items[2].Text := GikoSys.FAbon.NGwordname;
6831                ThreadItem := GetActiveContent;
6832                if ThreadItem <> nil then
6833                    SetContent( ThreadItem );
6834        end;
6835    
6836    end;
6837    
6838  initialization  initialization
6839          OleInitialize(nil);          OleInitialize(nil);
6840  finalization  finalization

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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