From b27edd53bd42eb923aa59c1664388b28a02b81c5 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Sun, 15 Jun 2014 18:15:34 +0000
Subject: compilation fix

git-svn-id: http://svn.miranda-ng.org/main/trunk@9510 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/HistoryPlusPlus/EmptyHistoryForm.pas | 37 +---------------------------
 1 file changed, 1 insertion(+), 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.
-- 
cgit v1.2.3