| 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); |
| 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 |
|
|
| 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 |
| 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 |