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, 15 insertions, 15 deletions

diff --git a/include/delphi/m_zlib.inc b/include/delphi/m_zlib.inc
index 527410c1bd..7302b1e7a0 100644
--- a/include/delphi/m_zlib.inc
+++ b/include/delphi/m_zlib.inc
@@ -63,54 +63,54 @@ const
   Z_DEFLATED = 8;
 

 type

-  alloc_func = function(opaque: Pointer; items, size: Integer): Pointer;
+  alloc_func = function(opaque: pointer; items, size: integer): pointer;
                  cdecl;
-  free_func  = procedure(opaque, address: Pointer);
+  free_func  = procedure(opaque, address: pointer);
                  cdecl;
 
-  in_func    = function(opaque: Pointer; var buf: PByte): Integer;
+  in_func    = function(opaque: pointer; var buf: PByte): integer;
                  cdecl;
-  out_func   = function(opaque: Pointer; buf: PByte; size: Integer): Integer;
+  out_func   = function(opaque: pointer; buf: PByte; size: integer): integer;
                  cdecl;
 

   z_streamp = ^z_stream;
   z_stream = packed record
     next_in: PChar;       (* next input byte *)
-    avail_in: Integer;    (* number of bytes available at next_in *)
+    avail_in: integer;    (* number of bytes available at next_in *)
     total_in: LongInt;    (* total nb of input bytes read so far *)
 
     next_out: PChar;      (* next output byte should be put there *)
-    avail_out: Integer;   (* remaining free space at next_out *)
+    avail_out: integer;   (* remaining free space at next_out *)
     total_out: LongInt;   (* total nb of bytes output so far *)
 
     msg: PChar;           (* last error message, NULL if no error *)
-    state: Pointer;       (* not visible by applications *)
+    state: pointer;       (* not visible by applications *)
 
     zalloc: alloc_func;   (* used to allocate the internal state *)
     zfree: free_func;     (* used to free the internal state *)
-    opaque: Pointer;      (* private data object passed to zalloc and zfree *)
+    opaque: pointer;      (* private data object passed to zalloc and zfree *)
 
-    data_type: Integer;   (* best guess about the data type: ascii or binary *)
+    data_type: integer;   (* best guess about the data type: ascii or binary *)
     adler: LongInt;       (* adler32 value of the uncompressed data *)
     reserved: LongInt;    (* reserved for future use *)
   end;
 

-function deflateInit(var strm: z_stream; level: Integer): Integer; cdecl;
+function deflateInit(var strm: z_stream; level: integer): integer; cdecl;
                  external ZlibDLL name 'deflateInit_';

 
-function deflate(var strm: z_stream; flush: Integer): Integer; cdecl;
+function deflate(var strm: z_stream; flush: integer): integer; cdecl;
                  external ZlibDLL name 'deflate';

 
-function deflateEnd(var strm: z_stream): Integer; cdecl;
+function deflateEnd(var strm: z_stream): integer; cdecl;
                  external ZlibDLL name 'deflateEnd';

 
-function inflateInit(var strm: z_stream): Integer; cdecl;
+function inflateInit(var strm: z_stream): integer; cdecl;
                  external ZlibDLL name 'inflateInit_';

 
-function inflate(var strm: z_stream; flush: Integer): Integer; cdecl;
+function inflate(var strm: z_stream; flush: integer): integer; cdecl;
                  external ZlibDLL name 'inflate';

 
-function inflateEnd(var strm: z_stream): Integer; cdecl;
+function inflateEnd(var strm: z_stream): integer; cdecl;
                  external ZlibDLL name 'inflateEnd';

 

 {$ENDIF}