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/Utils.pas/kolsizer.pas | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'plugins/Utils.pas/kolsizer.pas')

diff --git a/plugins/Utils.pas/kolsizer.pas b/plugins/Utils.pas/kolsizer.pas
index 28361a4585..1004e1de57 100644
--- a/plugins/Utils.pas/kolsizer.pas
+++ b/plugins/Utils.pas/kolsizer.pas
@@ -37,8 +37,8 @@ type
     function  GetFlags(aControl:pControl):cardinal;
   protected
     procedure init;virtual;
-    procedure DoKeyUp( Sender: PControl; var Key: Longint; Shift: DWORD);
-    procedure DoChar( Sender: PControl; var Key: KOLChar; Shift: DWORD);
+    procedure DoKeyUp( Sender: PControl; var Key: Longint; Shift: dword);
+    procedure DoChar( Sender: PControl; var Key: KOLChar; Shift: dword);
   public
     destructor destroy;virtual;
     procedure Connect(aName: KOLString; aControl: pControl; flags:cardinal=0);
@@ -98,7 +98,7 @@ type
 var
   LocalDesigner:PDesigner=nil;
 
-function DesignHandlerProc(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean;
+function DesignHandlerProc(Sender: PControl; var Msg: TMsg; var Rslt: integer): Boolean;
 //var MouseData:TMouseEventData;
 begin
   Result:=false;
@@ -136,10 +136,10 @@ begin
 end;
 
 // TSizerControl methods
-function WndProcSizer( Sender: PControl; var Msg: TMsg; var Rslt: Integer ): Boolean;
+function WndProcSizer( Sender: PControl; var Msg: TMsg; var Rslt: integer ): Boolean;
 var
   Pt: TPoint;
-  i: Integer;
+  i: integer;
   R:Trect;
   Data:PSizerData;
 begin
@@ -247,7 +247,7 @@ end;
 
 procedure TSizerData.DoPaint(sender:pControl;DC:HDC);
 var
-  i: Integer;
+  i: integer;
 begin
   // I simply use the current pen and brush
   for i := 0 to  7 do
@@ -284,7 +284,7 @@ end;
 
 procedure TDesigner.PaintGrid(Sender: pControl; DC: HDC);
 var
-  i, j: Integer;
+  i, j: integer;
 begin
   i := 0;
   j := 0;
@@ -367,7 +367,7 @@ end;
 
 procedure TDesigner.DisConnect(aControl: pControl);
 var
-  index: Integer;
+  index: integer;
 begin
   index := IndexOfObj(aControl);
   if index = -1 then
@@ -417,16 +417,16 @@ begin
       FOnControlChange(sender);
 end;
 
-procedure TDesigner.DoChar( Sender: PControl; var Key: KOLChar; Shift: DWORD);
+procedure TDesigner.DoChar( Sender: PControl; var Key: KOLChar; Shift: dword);
 begin
 //   messagebox(0,'444','',0);
 end;
 
-procedure TDesigner.DoKeyUp(Sender: PControl; var Key: Integer; Shift: DWORD);
+procedure TDesigner.DoKeyUp(Sender: PControl; var Key: integer; Shift: dword);
 
   procedure DeleteControl(Index:integer);
   var
-    i: Integer;
+    i: integer;
     C:PControl;
   begin
     C:=PControl(Objects[index]);
@@ -472,7 +472,7 @@ end;
 
 function TDesigner.UniqueName(aName: KOLString; flags:cardinal): KOLString;
 var
-  I, J: Integer;
+  I, J: integer;
   T: KOLString;
 begin
   // Strip obj_ prefix and all other prefix+underscores from
-- 
cgit v1.2.3