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/Watrack/status/i_opt_11.inc | 14 +++++++-------
 plugins/Watrack/status/i_opt_12.inc |  8 ++++----
 plugins/Watrack/status/i_opt_3.inc  |  2 +-
 plugins/Watrack/status/status.pas   |  7 ++++++-
 4 files changed, 18 insertions(+), 13 deletions(-)

(limited to 'plugins/Watrack/status')

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;
 
-- 
cgit v1.2.3