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

4 files changed, 18 insertions, 13 deletions

diff --git a/plugins/Watrack/status/i_opt_11.inc b/plugins/Watrack/status/i_opt_11.inc
index 1e6e3ab8e9..9cf8cd778d 100644
--- a/plugins/Watrack/status/i_opt_11.inc
+++ b/plugins/Watrack/status/i_opt_11.inc
@@ -31,7 +31,7 @@ var
   CurProto,

   CurStatus:integer;

 

-procedure RedrawFields(Dialog:hwnd;proto:integer=-1);

+procedure RedrawFields(Dialog:HWND;proto:integer=-1);

 var

   wnd1,wnd:HWND;

   p:pWideChar;

@@ -110,7 +110,7 @@ begin
   Changed:=Changed and not DLGED_INIT;

 end;

 

-procedure SetScreenFull(Dialog:hwnd);

+procedure SetScreenFull(Dialog:HWND);

 var

   show:integer;

   buf:array [0..127] of AnsiChar;

@@ -159,13 +159,13 @@ begin
   RedrawFields(Dialog);

 end;

 

-procedure SetTemplate(Dialog:hwnd;idc:integer;Tmpl:tTemplateType);

+procedure SetTemplate(Dialog:HWND;idc:integer;Tmpl:tTemplateType);

 begin

   SetTemplateStr   (GetDlgText(Dialog,ABS(idc)),Tmpl,CurProto,CurStatus);

   SetTemplateActive(idc>0                      ,Tmpl,CurProto,CurStatus);

 end;

 

-procedure SaveChanges(Dialog:hwnd);

+procedure SaveChanges(Dialog:HWND);

 var

   i,j:integer;

 begin

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

 end;

 

-function SaveCBExValue(Dialog:HWnd;direct:boolean):cardinal;

+function SaveCBExValue(Dialog:HWND;direct:boolean):cardinal;

 var

   wnd:HWND;

   i,j,shift:cardinal;

@@ -234,7 +234,7 @@ begin
   result:=(i shr (8-shift)) and $FF;

 end;

 

-procedure FillCBType(Dialog:hwnd;proto:pAnsiChar=nil);

+procedure FillCBType(Dialog:HWND;proto:pAnsiChar=nil);

 var

   wnd:HWND;

   j:integer;

@@ -252,7 +252,7 @@ begin
     ShowWindow(GetDlgItem(Dialog,aListFields[j]),aShowFields[0][j]);

 end;

 

-function DlgProcOptions11(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

+function DlgProcOptions11(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;

 var

   Item:LV_ITEMA;

   buf:array [0..127] of AnsiChar;

diff --git a/plugins/Watrack/status/i_opt_12.inc b/plugins/Watrack/status/i_opt_12.inc
index 7414ecf9d7..507e644546 100644
--- a/plugins/Watrack/status/i_opt_12.inc
+++ b/plugins/Watrack/status/i_opt_12.inc
@@ -1,6 +1,6 @@
 {Templates}

 

-procedure SetScreenLite(Dialog:HWnd);

+procedure SetScreenLite(Dialog:HWND);

 var

   p:pWideChar;

 begin

@@ -18,12 +18,12 @@ begin
   Changed:=Changed and not DLGED_INIT;

 end;

 

-procedure SetTemplateLite(Dialog:HWnd;idc:integer;Tmpl:tTemplateType);

+procedure SetTemplateLite(Dialog:HWND;idc:integer;Tmpl:tTemplateType);

 begin

   SetTemplateStr(GetDlgText(Dialog,idc),Tmpl,0,0);

 end;

 

-procedure SaveChangesLite(Dialog:HWnd);

+procedure SaveChangesLite(Dialog:HWND);

 begin

   if (Changed and DLGED_BASE)<>0 then

   begin

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

 end;

 

-function DlgProcOptions12(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lparam; stdcall;

+function DlgProcOptions12(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;

 begin

   result:=0;

   case hMessage of

diff --git a/plugins/Watrack/status/i_opt_3.inc b/plugins/Watrack/status/i_opt_3.inc
index 423b7c22c1..432eebcf64 100644
--- a/plugins/Watrack/status/i_opt_3.inc
+++ b/plugins/Watrack/status/i_opt_3.inc
@@ -1,6 +1,6 @@
 {format specific}

 

-function DlgProcOptions3(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

+function DlgProcOptions3(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;

 const

   dlginit:boolean=false;

 var

diff --git a/plugins/Watrack/status/status.pas b/plugins/Watrack/status/status.pas
index 0bdc7cdcb5..6348ecbb72 100644
--- a/plugins/Watrack/status/status.pas
+++ b/plugins/Watrack/status/status.pas
@@ -15,7 +15,7 @@ const
 

 procedure reghotkey;

 var

-  hkrec:HOTKEYDESC;

+  hkrec:THOTKEYDESC;

 begin

 //  if DisablePlugin=dsPermanent then

 //    exit;

@@ -68,6 +68,10 @@ begin
   reghotkey;

   plStatusHook:=HookEvent(ME_WAT_NEWSTATUS,@NewPlStatus);

 

+//  mStatus.ModuleStat:=1;

+

+//  if ServiceExists(MS_LISTENINGTO_GETPARSEDTEXT)<>0 then

+//    hLTo:=CreateServiceFunction(MS_LISTENINGTO_GETPARSEDTEXT,@ListenProc);

 end;

 

 procedure DeInitProc(aSetDisable:boolean);

@@ -130,6 +134,7 @@ begin
   mStatus.AddOption :=@AddOptionsPage;

   mStatus.Check     :=nil;

   mStatus.ModuleName:='Statuses';

+//  mStatus.ModuleStat:=0;

   ModuleLink        :=@mStatus;

 end;