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.11 by h677, Wed Aug 13 05:10:13 2003 UTC revision 1.12 by yoffy, Wed Aug 13 19:35:01 2003 UTC
# Line 443  type Line 443  type
443      F4: TMenuItem;      F4: TMenuItem;
444      N48: TMenuItem;      N48: TMenuItem;
445      T14: TMenuItem;      T14: TMenuItem;
446        SelectItemToolButton: TToolButton;
447        SelectResToolButton: TToolButton;
448        SelectResAction: TAction;
449                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
450                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
451                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 679  type Line 682  type
682      procedure SelectComboBoxExit(Sender: TObject);      procedure SelectComboBoxExit(Sender: TObject);
683      procedure NG1Click(Sender: TObject);      procedure NG1Click(Sender: TObject);
684      procedure NG2Click(Sender: TObject);      procedure NG2Click(Sender: TObject);
685        procedure SelectResActionExecute(Sender: TObject);
686        procedure SelectResActionUpdate(Sender: TObject);
687          private          private
688                  { Private 宣言 }                  { Private 宣言 }
689    
# Line 6597  begin Line 6602  begin
6602  end;  end;
6603  //NGワードファイルを再読み込みする  //NGワードファイルを再読み込みする
6604  procedure TGikoForm.NG2Click(Sender: TObject);  procedure TGikoForm.NG2Click(Sender: TObject);
6605    var
6606            ThreadItem : TThreadItem;
6607  begin  begin
6608      if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin      if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
6609                  MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);                  MsgBox(Handle, 'NGワードファイルの再読み込みに失敗しました', 'エラー', MB_OK or MB_ICONEXCLAMATION);
6610      end else begin      end else begin
6611          //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。          //ここで現在表示されているスレッドの再描画を呼び出したいがやり方分からず・・・。
6612            ThreadItem := GetActiveContent;
6613            if ThreadItem <> nil then
6614                    SetContent( ThreadItem );
6615      end;      end;
6616    
6617  end;  end;
6618    
6619    procedure TGikoForm.SelectResActionExecute(Sender: TObject);
6620    var
6621            Dlg: TListSelectDialog;
6622            ThreadItem : TThreadItem;
6623            FilterList : TStringList;
6624    begin
6625            try
6626                    Dlg := TListSelectDialog.Create(Self);
6627                    Dlg.SelectComboBox.Items.Assign(GikoSys.Setting.SelectTextList);
6628                    Dlg.ShowModal;
6629                    if Dlg.ModalResult <> mrCancel then begin
6630                            if Length( Dlg.SelectComboBox.Text ) = 0 then
6631                                    GikoSys.FSelectResFilter.Reverse := False
6632                            else
6633                                    GikoSys.FSelectResFilter.Reverse := True;
6634                            FilterList := TStringList.Create;
6635                            FilterList.Add( Dlg.SelectComboBox.Text );
6636                            GikoSys.FSelectResFilter.LoadFromStringList( FilterList );
6637                            ThreadItem := GetActiveContent;
6638                            if ThreadItem <> nil then
6639                                    SetContent( ThreadItem );
6640                   end;
6641            finally
6642                   Dlg.Release;
6643                   FilterList.Destroy;
6644            end;
6645    
6646    end;
6647    
6648    procedure TGikoForm.SelectResActionUpdate(Sender: TObject);
6649    begin
6650            SelectResAction.Enabled := GetActiveContent <> nil;
6651    end;
6652    
6653  initialization  initialization
6654          OleInitialize(nil);          OleInitialize(nil);
6655  finalization  finalization

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

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