Changeset 468 for trunk/IPQ.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (17 months ago)

Author:

chronos

Message:

• Added: High DPI support integrated into trunk branch. It can be enabled by adding DPI define to compiler parameters for main project and packages.

File:

• trunk/IPQ.pas (modified) (4 diffs)

trunk/IPQ.pas

@@ -11 +11 @@
   PIntegerArray = ^TIntegerArray;
 
-  TheapItem = record
+  THeapItem = record
     Item: Integer;
     Value: Integer;
   end;
 
-  TItemArray = array [0 .. $40000000 div SizeOf(TheapItem)] of TheapItem;
+  TItemArray = array [0 .. $40000000 div SizeOf(THeapItem)] of THeapItem;
   PItemArray = ^TItemArray;
 
@@ -37 +37 @@
   end;
 
+
 implementation
 
@@ -43 +44 @@
   inherited Create;
   fmax := Max;
-  GetMem(bh, fmax * SizeOf(TheapItem));
+  GetMem(bh, fmax * SizeOf(THeapItem));
   GetMem(Ix, fmax * SizeOf(Integer));
   N := -1;
@@ -118 +119 @@
 var
   I, J: Integer;
-  Last: TheapItem;
+  Last: THeapItem;
   lbh: PItemArray;
 begin