From 0173277372e2962b8f5703a0ebad7892dda15e6c Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Sun, 9 Mar 2014 21:50:49 +0000
Subject: end of the old MC API

git-svn-id: http://svn.miranda-ng.org/main/trunk@8534 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/HistoryPlusPlus/EmptyHistoryForm.pas | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'plugins/HistoryPlusPlus/EmptyHistoryForm.pas')

diff --git a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
index 39c3ce7ee8..f1faa55e6c 100644
--- a/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
+++ b/plugins/HistoryPlusPlus/EmptyHistoryForm.pas
@@ -64,16 +64,16 @@ type
     procedure FormShow(Sender: TObject);
     procedure btYesClick(Sender: TObject);
   private
-    FContact: THandle;
-    FContacts: Array of THandle;
+    FContact: TMCONTACT;
+    FContacts: Array of TMCONTACT;
     procedure TranslateForm;
     procedure PrepareForm;
-    procedure SetContact(const Value: THandle);
-    procedure EmptyHistory(hContact: THandle);
+    procedure SetContact(const Value: TMCONTACT);
+    procedure EmptyHistory(hContact: TMCONTACT);
   protected
     function GetFormText: String;
   public
-    property Contact: THandle read FContact write SetContact;
+    property Contact: TMCONTACT read FContact write SetContact;
   end;
 
 implementation
@@ -217,9 +217,9 @@ begin
   end;
 end;
 
-procedure TEmptyHistoryFrm.SetContact(const Value: THandle);
+procedure TEmptyHistoryFrm.SetContact(const Value: TMCONTACT);
 var
-  hContact: THandle;
+  hContact: TMCONTACT;
   Proto: AnsiString;
   i,num: Integer;
 begin
@@ -228,10 +228,10 @@ begin
   GetContactProto(FContact,hContact,Proto);
   if Value <> hContact then
   begin
-    num := CallService(MS_MC_GETNUMCONTACTS,FContact,0);
+    num := db_mc_getSubCount(FContact);
     for i := 0 to num-1 do
     begin
-      hContact := CallService(MS_MC_GETSUBCONTACT,FContact,i);
+      hContact := db_mc_getSub(FContact,i);
       if hContact <> THandle(-1) then
       begin
         SetLength(FContacts,Length(FContacts)+1);
@@ -248,7 +248,7 @@ begin
   btYes.Default := true;
 end;
 
-procedure TEmptyHistoryFrm.EmptyHistory(hContact: THandle);
+procedure TEmptyHistoryFrm.EmptyHistory(hContact: TMCONTACT);
 var
   hDBEvent,prevhDbEvent: THandle;
 begin
-- 
cgit v1.2.3