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.45 by hi_, Sun Sep 14 16:36:38 2003 UTC revision 1.46 by h677, Wed Sep 17 07:13:03 2003 UTC
# Line 465  type Line 465  type
465      IndividualAbon2: TMenuItem;      IndividualAbon2: TMenuItem;
466      N42: TMenuItem;      N42: TMenuItem;
467      CancellIndividualAbon: TAction;      CancellIndividualAbon: TAction;
468        AntiIndividualAbon: TMenuItem;
469        N49: TMenuItem;
470        N51: TMenuItem;
471        N52: TMenuItem;
472        N53: TMenuItem;
473                  procedure FormCreate(Sender: TObject);                  procedure FormCreate(Sender: TObject);
474                  procedure FormDestroy(Sender: TObject);                  procedure FormDestroy(Sender: TObject);
475                  procedure CabinetPanelHide(Sender: TObject);                  procedure CabinetPanelHide(Sender: TObject);
# Line 728  type Line 733  type
733      procedure IndividualAbon2Click(Sender: TObject);      procedure IndividualAbon2Click(Sender: TObject);
734      procedure N42Click(Sender: TObject);      procedure N42Click(Sender: TObject);
735      procedure SelectComboBoxEnter(Sender: TObject);      procedure SelectComboBoxEnter(Sender: TObject);
736        procedure AntiIndividualAbonClick(Sender: TObject);
737        procedure N51Click(Sender: TObject);
738          private          private
739                  { Private 宣言 }                  { Private 宣言 }
740    
# Line 7136  begin Line 7143  begin
7143      if ThreadItem <> nil then      if ThreadItem <> nil then
7144          SetContent( ThreadItem );          SetContent( ThreadItem );
7145  end;  end;
7146    //個別あぼーん解除()
7147    procedure TGikoForm.AntiIndividualAbonClick(Sender: TObject);
7148    var
7149        ThreadItem : TThreadItem;
7150        msg : String;
7151    begin
7152            if GikoSys.FAbon.GetAbonResCount <> 0 then begin
7153            GikoSys.FAbon.DeleteIndividualAbon(KokoPopupMenu.Tag);
7154            ThreadItem := GetActiveContent;
7155            if ThreadItem <> nil then
7156                    SetContent( ThreadItem );
7157        end else begin
7158            msg := 'このスレッドでは個別あぼ〜んを行ってません';
7159            MsgBox(Handle, msg, 'メッセージ', MB_OK);
7160        end;
7161    end;
7162  //個別あぼーん解除  //個別あぼーん解除
7163  procedure TGikoForm.N42Click(Sender: TObject);  procedure TGikoForm.N42Click(Sender: TObject);
7164  var  var
# Line 7177  begin Line 7200  begin
7200    
7201  end;  end;
7202    
7203    procedure TGikoForm.N51Click(Sender: TObject);
7204    begin
7205            N42Click(Sender);
7206    end;
7207    
7208  initialization  initialization
7209                                  OleInitialize(nil);                                  OleInitialize(nil);
7210  finalization  finalization

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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