diff options
author | George Hazan <george.hazan@gmail.com> | 2014-06-15 18:15:34 +0000 |
---|---|---|
committer | George Hazan <george.hazan@gmail.com> | 2014-06-15 18:15:34 +0000 |
commit | b27edd53bd42eb923aa59c1664388b28a02b81c5 (patch) | |
tree | 911e4263c5379648e640dc2f9b14ed6a26eb7f63 /plugins/HistoryPlusPlus | |
parent | fb81c5832c45cfa853077f8617a23174f35c0ac4 (diff) |
compilation fix
git-svn-id: http://svn.miranda-ng.org/main/trunk@9510 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/HistoryPlusPlus')
-rw-r--r-- | plugins/HistoryPlusPlus/EmptyHistoryForm.pas | 37 |
1 files changed, 1 insertions, 36 deletions
diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas index 6e6b563ea2..011ca93876 100644 --- a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas +++ b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas @@ -152,21 +152,7 @@ begin BorderWidth := VertSpacing;
ClientWidth := Max(IconTextWidth, ButtonGroupWidth);
- if paContacts.Visible then
- begin
- ContRect := Rect(0,0,0,0);
- DrawTextW(Canvas.Handle,
- PChar(cbInclude.Caption), -1,
- ContRect, DT_CALCRECT or DT_LEFT or DT_SINGLELINE or
- DrawTextBiDiModeFlagsReadingOnly);
- Inc(ContRect.Right, HorzSpacing*4);
- cbInclude.SetBounds((ClientWidth - ContRect.Right) div 2,0,
- ContRect.Right, ContRect.Bottom);
- paContacts.Height := cbInclude.Height + VertSpacing;
- ClientHeight := IconTextHeight + VertSpacing + paContacts.Height + paButtons.Height;
- end
- else
- ClientHeight := IconTextHeight + VertSpacing + paButtons.Height;
+ ClientHeight := IconTextHeight + VertSpacing + paButtons.Height;
Text.SetBounds(Image.Width + HorzSpacing, 0,
TextRect.Right, TextRect.Bottom);
@@ -209,22 +195,6 @@ var i,num: Integer;
begin
FContact := Value;
- SetLength(FContacts,0);
- GetContactProto(FContact,hContact,Proto);
- if Value <> hContact then
- begin
- num := db_mc_getSubCount(FContact);
- for i := 0 to num-1 do
- begin
- hContact := db_mc_getSub(FContact,i);
- if hContact <> THandle(-1) then
- begin
- SetLength(FContacts,Length(FContacts)+1);
- FContacts[High(FContacts)] := hContact;
- end;
- end;
- end;
- paContacts.Visible := (Length(FContacts) > 0);
Image.Picture.Icon.Handle := LoadIcon(0, IDI_QUESTION);
Text.Caption :=
TranslateW('Do you really want to delete ALL items for this contact?')+#10#13+
@@ -252,16 +222,11 @@ begin end;
procedure TEmptyHistoryFrm.btYesClick(Sender: TObject);
-var
- i: Integer;
begin
if Assigned(Owner) and (Owner is THistoryFrm) then
THistoryFrm(Owner).EmptyHistory
else
EmptyHistory(FContact);
- if paContacts.Visible and cbInclude.Checked then
- for i := 0 to High(FContacts) do
- EmptyHistory(FContacts[i]);
end;
end.
|