From 0269e9306300f5ca12d5120a5a0f3051adfc4302 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Mon, 24 Feb 2014 19:46:11 +0000 Subject: old/unused types removed from Pascal sources git-svn-id: http://svn.miranda-ng.org/main/trunk@8267 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Utils.pas/contact.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'plugins/Utils.pas/contact.pas') diff --git a/plugins/Utils.pas/contact.pas b/plugins/Utils.pas/contact.pas index 697c603591..3d0289cb34 100644 --- a/plugins/Utils.pas/contact.pas +++ b/plugins/Utils.pas/contact.pas @@ -6,7 +6,7 @@ interface uses windows, m_api; procedure FillContactList(list:hwnd; filter:boolean=true;format:pWideChar=nil); -function FindContact(list:hwnd;contact:HCONTACT):integer; +function FindContact(list:hwnd;contact:MCONTACT):integer; implementation @@ -17,7 +17,7 @@ const procedure FillContactList(list:hwnd; filter:boolean=true;format:pWideChar=nil); var - hContact:THCONTACT; + hContact:MCONTACT; buf:array [0..511] of WideChar; buf1:array [0..63] of WideChar; p:PWideChar; @@ -109,7 +109,7 @@ begin end; end; -function FindContact(list:hwnd;contact:HCONTACT):integer; +function FindContact(list:hwnd;contact:MCONTACT):integer; var j:integer; begin -- cgit v1.2.3