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/HistoryForm.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/plugins/HistoryPlusPlus/HistoryForm.pas b/plugins/HistoryPlusPlus/HistoryForm.pas
index a0e1f53b3c..0ce99caf3d 100644
--- a/plugins/HistoryPlusPlus/HistoryForm.pas
+++ b/plugins/HistoryPlusPlus/HistoryForm.pas
@@ -328,7 +328,7 @@ type
     DelayedFilter: TMessageTypes;
     StartTimestamp: DWord;
     EndTimestamp: DWord;
-    FhContact, FhSubContact: THandle;
+    FhContact, FhSubContact: TMCONTACT;
     FProtocol, FSubProtocol: AnsiString;
     SavedLinkUrl: String;
     SavedFileDir: String;
@@ -359,7 +359,7 @@ type
     procedure OpenDetails(Item: Integer);
     procedure TranslateForm;
 
-    procedure SethContact(const Value: THandle);
+    procedure SethContact(const Value: TMCONTACT);
     procedure LoadInOptions();
     function IsFileEvent(Index: Integer): Boolean;
 
@@ -432,9 +432,9 @@ type
     procedure FillBookmarks;
     procedure HMBookmarkChanged(var M: TMessage); message HM_NOTF_BOOKMARKCHANGED;
 
-    property hContact: THandle read FhContact write SethContact;
+    property hContact: TMCONTACT read FhContact write SethContact;
     property Protocol: AnsiString read FProtocol;
-    property hSubContact: THandle read FhSubContact;
+    property hSubContact: TMCONTACT read FhSubContact;
     property SubProtocol: AnsiString read FSubProtocol;
   published
     procedure AlignControls(Control: TControl; var ARect: TRect); override;
@@ -1062,7 +1062,7 @@ end;
 
 procedure THistoryFrm.HMMetaDefaultChanged(var M: TMessage);
 var
-  newSubContact: THandle;
+  newSubContact: TMCONTACT;
   newSubProtocol: AnsiString;
 begin
   if THandle(M.wParam) <> hContact then
@@ -3100,7 +3100,7 @@ begin
   end;
 end;
 
-procedure THistoryFrm.SethContact(const Value: THandle);
+procedure THistoryFrm.SethContact(const Value: TMCONTACT);
 begin
   // if FhContact = Value then exit;
   FhContact := Value;
-- 
cgit v1.2.3