From da87b3fa0479333cfe9505713f6ffaa54b9ba543 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 31 Dec 2014 17:08:47 +0000
Subject: pascal code: reformat, small fixes

git-svn-id: http://svn.miranda-ng.org/main/trunk@11700 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/common.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/plugins/Utils.pas/common.pas b/plugins/Utils.pas/common.pas
index 87a4b57f6d..7b78d18160 100644
--- a/plugins/Utils.pas/common.pas
+++ b/plugins/Utils.pas/common.pas
@@ -50,8 +50,8 @@ function IIF(cond:bool;ret1,ret2:variant  ):variant;   overload;
 function Min(a,b:integer):integer;
 function Max(a,b:integer):integer;
 
-function GetImageType (buf:pByte;mime:PAnsiChar=nil):dword;
-function GetImageTypeW(buf:pByte;mime:PWideChar=nil):int64;
+function GetImageType (buf:PByte;mime:PAnsiChar=nil):dword;
+function GetImageTypeW(buf:PByte;mime:PWideChar=nil):int64;
 
 //----- Clipboard -----
 
@@ -91,7 +91,7 @@ const
   CP_UNICODE    = 1200;
   CP_REVERSEBOM = 65534;
 // trying to recognize text encoding. Returns CP_
-function GetTextFormat(Buffer:pByte;sz:cardinal):integer;
+function GetTextFormat(Buffer:PByte;sz:cardinal):integer;
 
 function AdjustLineBreaks(s:PWideChar):PWideChar;
 
@@ -282,7 +282,7 @@ begin
 	result:= not ((Octets>0) or Ascii);
 end;
 
-function GetTextFormat(Buffer:pByte;sz:cardinal):integer;
+function GetTextFormat(Buffer:PByte;sz:cardinal):integer;
 var
   test:integer;
 begin
@@ -395,7 +395,7 @@ const
   (mime:'image/bmp' ; ext:'BMP')
 );
 
-function GetImageType(buf:pByte;mime:PAnsiChar=nil):dword;
+function GetImageType(buf:PByte;mime:PAnsiChar=nil):dword;
 var
   i:integer;
 begin
@@ -420,7 +420,7 @@ begin
   end;
 end;
 
-function GetImageTypeW(buf:pByte;mime:PWideChar=nil):int64;
+function GetImageTypeW(buf:PByte;mime:PWideChar=nil):int64;
 var
   i:integer;
   lmime:array [0..63] of AnsiChar;
@@ -962,7 +962,7 @@ var
 begin
   for i:=0 to Length-1 do
   begin
-    if pByte(P1)^<>pbyte(P2)^ then
+    if PByte(P1)^<>pbyte(P2)^ then
     begin
       result:=false;
       exit;
@@ -1012,7 +1012,7 @@ var
   buf: array of Ansichar;
   i:integer;
   p:PAnsiChar;
-  p1:pByte;
+  p1:PByte;
   cnt:integer;
 begin
   SetLength(buf,len*4+1);
@@ -1041,7 +1041,7 @@ function Hash(s:pointer; len:integer{const Seed: longword=$9747b28c}): longword;
 var
   lhash: longword;
   k: longword;
-  tmp,data: pByte;
+  tmp,data: PByte;
 const
   // 'm' and 'r' are mixing constants generated offline.
   // They're not really 'magic', they just happen to work well.
-- 
cgit v1.2.3