Miranda API sync with small compilation fixes

git-svn-id: http://svn.miranda-ng.org/main/trunk@8083 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

2 files changed, 14 insertions, 14 deletions

diff --git a/plugins/QuickSearch/i_ok.inc b/plugins/QuickSearch/i_ok.inc
index 52c617b66d..40708b8901 100644
--- a/plugins/QuickSearch/i_ok.inc
+++ b/plugins/QuickSearch/i_ok.inc
@@ -209,7 +209,7 @@ begin
 

 end;

 

-function DoMeta(hContact:THANDLE):pointer;

+function DoMeta(hContact:HCONTACT):pointer;

 var

   pw:pWideChar;

   i:integer;

@@ -433,7 +433,7 @@ end;
 

 //----- Initial table filling -----

 

-procedure AddContact(num:integer;hContact:THANDLE);

+procedure AddContact(num:integer;hContact:HCONTACT);

 var

   col:pcolumnitem;

   tmpstr:array [0..63] of AnsiChar;

@@ -476,7 +476,7 @@ end;
 function PrepareToFill:boolean;

 var

   cnt,cnt1:integer;

-  hContact:THANDLE;

+  hContact:THCONTACT;

   i:integer;

 begin

   result:=false;

diff --git a/plugins/QuickSearch/sr_window.pas b/plugins/QuickSearch/sr_window.pas
index b9d94ef2d0..fd241bb3d4 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:THANDLE;

+    contact:HCONTACT;

     proto  :uint_ptr;

     flags  :dword;

     status :dword;

@@ -115,7 +115,7 @@ begin
   end;

 end;

 

-procedure AddContactToList(hContact:THANDLE;num:integer);

+procedure AddContactToList(hContact:HCONTACT;num:integer);

 var

   li:LV_ITEMW;

   i:integer;

@@ -337,7 +337,7 @@ end;
 

 //----- contacts actions -----

 

-function GetFocusedhContact:THANDLE;

+function GetFocusedhContact:HCONTACT;

 var

   i:integer;

 begin

@@ -348,7 +348,7 @@ begin
     result:=FlagBuf[i].contact;

 end;

 

-procedure ShowContactMsgDlg(hContact:THANDLE);

+procedure ShowContactMsgDlg(hContact:HCONTACT);

 begin

   if hContact<>0 then

   begin

@@ -357,7 +357,7 @@ begin
   end;

 end;

 

-procedure DeleteOneContact(hContact:THANDLE);

+procedure DeleteOneContact(hContact:HCONTACT);

 begin

   if ServiceExists(strCListDel)>0 then

     CallService(strCListDel,hContact,0)

@@ -388,8 +388,8 @@ end;
 

 procedure ConvertToMeta;

 var

-  hMeta:THANDLE;

-  tmp:THANDLE;

+  hMeta:HCONTACT;

+  tmp:HCONTACT;

   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:THANDLE;

+  contact:HCONTACT;

   row:integer;

 begin

   contact:=FlagBuf[LV_GetLParam(grid,item)].contact;

@@ -469,7 +469,7 @@ end;
 

 procedure MoveToGroup(group:PWideChar);

 var

-  contact:THANDLE;

+  contact:HCONTACT;

   i,j,grcol,row:integer;

 begin

   j:=ListView_GetItemCount(grid)-1;

@@ -512,7 +512,7 @@ end;
 

 procedure MoveToContainer(container:PWideChar);

 var

-  contact:THANDLE;

+  contact:HCONTACT;

   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:THANDLE;col:integer=-1):HMENU;

+function ShowContactMenu(wnd:HWND;hContact:HCONTACT;col:integer=-1):HMENU;

 var

   mi:TCListMenuItem;

   pt:tpoint;