From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Sat, 8 Mar 2014 13:10:05 +0000
Subject: Pascal-style type correction Letter case correction small fixes
 Actman UA part dialog slightly changed

git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/QuickSearch/sr_window.pas | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'plugins/QuickSearch/sr_window.pas')

diff --git a/plugins/QuickSearch/sr_window.pas b/plugins/QuickSearch/sr_window.pas
index 0b4383fcc2..fcc23e7020 100644
--- a/plugins/QuickSearch/sr_window.pas
+++ b/plugins/QuickSearch/sr_window.pas
@@ -51,12 +51,12 @@ type
   end;
   pQSFRec = ^tQSFRec;
   tQSFRec = record // row (contact)
-    contact:MCONTACT;
+    contact:TMCONTACT;
     proto  :uint_ptr;
     flags  :dword;
     status :dword;
 //--- Metacontacts only ---
-    wparam :WPARAM;
+    wparam :WPARAM; 
     lparam :LPARAM;
   end;
 var
@@ -115,7 +115,7 @@ begin
   end;
 end;
 
-procedure AddContactToList(hContact:MCONTACT;num:integer);
+procedure AddContactToList(hContact:TMCONTACT;num:integer);
 var
   li:LV_ITEMW;
   i:integer;
@@ -337,7 +337,7 @@ end;
 
 //----- contacts actions -----
 
-function GetFocusedhContact:MCONTACT;
+function GetFocusedhContact:TMCONTACT;
 var
   i:integer;
 begin
@@ -348,7 +348,7 @@ begin
     result:=FlagBuf[i].contact;
 end;
 
-procedure ShowContactMsgDlg(hContact:MCONTACT);
+procedure ShowContactMsgDlg(hContact:TMCONTACT);
 begin
   if hContact<>0 then
   begin
@@ -357,7 +357,7 @@ begin
   end;
 end;
 
-procedure DeleteOneContact(hContact:MCONTACT);
+procedure DeleteOneContact(hContact:TMCONTACT);
 begin
   if ServiceExists(strCListDel)>0 then
     CallService(strCListDel,hContact,0)
@@ -388,8 +388,8 @@ end;
 
 procedure ConvertToMeta;
 var
-  hMeta:MCONTACT;
-  tmp:MCONTACT;
+  hMeta:TMCONTACT;
+  tmp:TMCONTACT;
   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:MCONTACT;
+  contact:TMCONTACT;
   row:integer;
 begin
   contact:=FlagBuf[LV_GetLParam(grid,item)].contact;
@@ -469,7 +469,7 @@ end;
 
 procedure MoveToGroup(group:PWideChar);
 var
-  contact:MCONTACT;
+  contact:TMCONTACT;
   i,j,grcol,row:integer;
 begin
   j:=ListView_GetItemCount(grid)-1;
@@ -512,7 +512,7 @@ end;
 
 procedure MoveToContainer(container:PWideChar);
 var
-  contact:MCONTACT;
+  contact:TMCONTACT;
   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:MCONTACT;col:integer=-1):HMENU;
+function ShowContactMenu(wnd:HWND;hContact:TMCONTACT;col:integer=-1):HMENU;
 var
   mi:TCListMenuItem;
   pt:tpoint;
@@ -798,7 +798,7 @@ begin
       col:=ListViewToColumn(col);
       if (qsopt.columns[col].setting_type=QST_SETTING) and
          // right now, not time or IP
-         (qsopt.columns[col].datatype<>QSTS_IP) and
+         (qsopt.columns[col].datatype<>QSTS_IP) and 
          (qsopt.columns[col].datatype<>QSTS_TIMESTAMP) then
       begin
         doit:=true;
@@ -1096,7 +1096,7 @@ begin
   end;
 end;
 
-function NewLVHProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+function NewLVHProc(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
 begin
   case hMessage of
     WM_RBUTTONUP: begin
@@ -1114,7 +1114,7 @@ end;
 var
   HintWnd:HWND;
 
-function NewLVProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+function NewLVProc(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
 const
   OldHItem   :integer=0;
   OldHSubItem:integer=0;
@@ -1388,7 +1388,7 @@ procedure SetCellColor(lplvcd:PNMLVCUSTOMDRAW;idx:integer);
 begin
   if (qsopt.flags and QSO_COLORIZE)<>0 then
   begin
-    with FlagBuf[idx] do
+    with FlagBuf[idx] do 
     begin
       if (flags and QSF_ACCDEL)<>0 then
       begin
@@ -1526,13 +1526,13 @@ begin
 end;
 
 
-function NewEditProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+function NewEditProc(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
 var
   li:LV_ITEM;
   count,current,next,perpage:integer;
 begin
   result:=0;
-  case hMessage of
+  case hMessage of 
     WM_CHAR: if wParam=27 then
     begin
       PostMessage(GetParent(Dialog),WM_COMMAND,(BN_CLICKED shl 16)+IDCANCEL,0);
@@ -1881,7 +1881,7 @@ begin
   end;
 end;
 
-function QSMainWndProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;
+function QSMainWndProc(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
 var
   smenu:HMENU;
   header:HWND;
-- 
cgit v1.2.3