Minor code formatting

1 files changed, 17 insertions, 13 deletions

diff --git a/src/IPFFileFormatUnit.pas b/src/IPFFileFormatUnit.pas
index ac1771f7..4ac87108 100644
--- a/src/IPFFileFormatUnit.pas
+++ b/src/IPFFileFormatUnit.pas
@@ -14,34 +14,38 @@ uses
   SysUtils;
 
 type
-  uint32 = longword;
-  uint16 = word;
-  uint8 = byte;
-  pUInt16 = ^ uint16;
-  pUInt32 = ^ uint32;
-  pUInt8 = ^ uint8;
-
-  PCharArray = packed array[ 0..0 ] of PCHar;
+  uint32  = longword;
+  uint16  = word;
+  uint8   = byte;
+  pUInt16 = ^uint16;
+  pUInt32 = ^uint32;
+  pUInt8  = ^uint8;
+
+  PCharArray  = packed array[ 0..0 ] of PCHar;
   UInt32Array = packed array[ 0..0 ] of UInt32;
   UInt16Array = packed array[ 0..0 ] of UInt16;
-  UInt8Array = packed array[ 0..0 ] of UInt8;
+  UInt8Array  = packed array[ 0..0 ] of UInt8;
 
-  PCharArrayPointer = ^ PCharArray;
-  UInt32ArrayPointer = ^ UInt32Array;
-  UInt16ArrayPointer = ^ UInt16Array;
-  UInt8ArrayPointer = ^ UInt8Array;
+  PCharArrayPointer   = ^PCharArray;
+  UInt32ArrayPointer  = ^UInt32Array;
+  UInt16ArrayPointer  = ^UInt16Array;
+  UInt8ArrayPointer   = ^UInt8Array;
 
   TBooleanArray = array[ 0..0 ] of boolean;
   BooleanArrayPointer = ^TBooleanArray;
 
+
   EHelpFileException = class( Exception )
   end;
 
+
   EWindowsHelpFormatException = class( Exception )
   end;
 
+
   TProgressCallback = procedure(n, outof: integer; AMessage: string) of object;
 
+
 var
   ErrorCorruptHelpFile: string;