From 0269e9306300f5ca12d5120a5a0f3051adfc4302 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
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/QuickSearch/i_ok.inc      |  6 +++---
 plugins/QuickSearch/sr_window.pas | 22 +++++++++++-----------
 2 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'plugins/QuickSearch')

diff --git a/plugins/QuickSearch/i_ok.inc b/plugins/QuickSearch/i_ok.inc
index 40708b8901..cb4b161694 100644
--- a/plugins/QuickSearch/i_ok.inc
+++ b/plugins/QuickSearch/i_ok.inc
@@ -209,7 +209,7 @@ begin
 
 end;
 
-function DoMeta(hContact:HCONTACT):pointer;
+function DoMeta(hContact:MCONTACT):pointer;
 var
   pw:pWideChar;
   i:integer;
@@ -433,7 +433,7 @@ end;
 
 //----- Initial table filling -----
 
-procedure AddContact(num:integer;hContact:HCONTACT);
+procedure AddContact(num:integer;hContact:MCONTACT);
 var
   col:pcolumnitem;
   tmpstr:array [0..63] of AnsiChar;
@@ -476,7 +476,7 @@ end;
 function PrepareToFill:boolean;
 var
   cnt,cnt1:integer;
-  hContact:THCONTACT;
+  hContact:MCONTACT;
   i:integer;
 begin
   result:=false;
diff --git a/plugins/QuickSearch/sr_window.pas b/plugins/QuickSearch/sr_window.pas
index fd241bb3d4..d9b83503c9 100644
--- a/plugins/QuickSearch/sr_window.pas
+++ b/plugins/QuickSearch/sr_window.pas
@@ -51,7 +51,7 @@ type
   end;
   pQSFRec = ^tQSFRec;
   tQSFRec = record // row (contact)
-    contact:HCONTACT;
+    contact:MCONTACT;
     proto  :uint_ptr;
     flags  :dword;
     status :dword;
@@ -115,7 +115,7 @@ begin
   end;
 end;
 
-procedure AddContactToList(hContact:HCONTACT;num:integer);
+procedure AddContactToList(hContact:MCONTACT;num:integer);
 var
   li:LV_ITEMW;
   i:integer;
@@ -337,7 +337,7 @@ end;
 
 //----- contacts actions -----
 
-function GetFocusedhContact:HCONTACT;
+function GetFocusedhContact:MCONTACT;
 var
   i:integer;
 begin
@@ -348,7 +348,7 @@ begin
     result:=FlagBuf[i].contact;
 end;
 
-procedure ShowContactMsgDlg(hContact:HCONTACT);
+procedure ShowContactMsgDlg(hContact:MCONTACT);
 begin
   if hContact<>0 then
   begin
@@ -357,7 +357,7 @@ begin
   end;
 end;
 
-procedure DeleteOneContact(hContact:HCONTACT);
+procedure DeleteOneContact(hContact:MCONTACT);
 begin
   if ServiceExists(strCListDel)>0 then
     CallService(strCListDel,hContact,0)
@@ -388,8 +388,8 @@ end;
 
 procedure ConvertToMeta;
 var
-  hMeta:HCONTACT;
-  tmp:HCONTACT;
+  hMeta:MCONTACT;
+  tmp:MCONTACT;
   i,j:integer;
 begin
   j:=ListView_GetItemCount(grid)-1;
@@ -438,7 +438,7 @@ end;
 procedure UpdateLVCell(item,column:integer;text:pWideChar=pWideChar(-1));
 var
   li:LV_ITEMW;
-  contact:HCONTACT;
+  contact:MCONTACT;
   row:integer;
 begin
   contact:=FlagBuf[LV_GetLParam(grid,item)].contact;
@@ -469,7 +469,7 @@ end;
 
 procedure MoveToGroup(group:PWideChar);
 var
-  contact:HCONTACT;
+  contact:MCONTACT;
   i,j,grcol,row:integer;
 begin
   j:=ListView_GetItemCount(grid)-1;
@@ -512,7 +512,7 @@ end;
 
 procedure MoveToContainer(container:PWideChar);
 var
-  contact:HCONTACT;
+  contact:MCONTACT;
   i,j,grcol,row:integer;
 begin
   j:=ListView_GetItemCount(grid)-1;
@@ -784,7 +784,7 @@ begin
   UpdateLVCell(SendMessage(grid,LVM_GETNEXTITEM,-1,LVNI_FOCUSED),cmcolumn,qsr.text);
 end;
 
-function ShowContactMenu(wnd:HWND;hContact:HCONTACT;col:integer=-1):HMENU;
+function ShowContactMenu(wnd:HWND;hContact:MCONTACT;col:integer=-1):HMENU;
 var
   mi:TCListMenuItem;
   pt:tpoint;
-- 
cgit v1.2.3