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

1 files changed, 19 insertions, 19 deletions

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;