Changeset 29 for trunk/ScreenTools.pas

Timestamp:

Jan 8, 2017, 10:20:03 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Use DirectorySeparator in directory path for platform independence.
• Fixed: Some warining about incorrect pointer arithmetic.
• Added: Support for multi-platform AI library name and location.

Location:

trunk

Files:

• . (modified) (1 prop)
• ScreenTools.pas (modified) (10 diffs)

trunk

@@ -11 +11 @@
 lib
 heaptrclog.trc
+c-evo

@@ -11 +11 @@
 lib
 heaptrclog.trc
+c-evo

trunk/ScreenTools.pas

@@ -9 +9 @@
   {$ENDIF}
   StringTables,
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls,
+  LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,
   Forms, Menus;
 
@@ -192 +192 @@
 
 uses
-  Directories, Sound, Registry;
+  Directories, Sound, ButtonBase, ButtonA, ButtonB,
+
+  Registry;
 
 var
@@ -384 +386 @@
 procedure ApplyGamma(Start, Stop: pbyte);
 begin
-  while Start < Stop do
+  while integer(Start) < integer(Stop) do
   begin
     Start^ := GammaLUT[Start^];
@@ -442 +444 @@
     FirstLine := bmp.ScanLine[0];
     LastLine := bmp.ScanLine[bmp.Height - 1];
-    if FirstLine < LastLine then
+    if integer(FirstLine) < integer(LastLine) then
       ApplyGamma(pointer(FirstLine), @LastLine[bmp.Width])
     else
@@ -502 +504 @@
     FirstLine := bmp.ScanLine[0];
     LastLine := bmp.ScanLine[bmp.Height - 1];
-    if FirstLine < LastLine then
+    if integer(FirstLine) < integer(LastLine) then
       ApplyGamma(pointer(FirstLine), @LastLine[bmp.Width])
     else
@@ -620 +622 @@
 // X channel = background amp (old Dst content), 128=original brightness
 type
-  TPixel = array [0..2] of Byte;
-  PPixel = ^TPixel;
+  TPixel = array [0 .. 2] of Byte;
 var
   i, Brightness, test: integer;
   PixelSrc: ^Byte;
-  PixelDst: PPixel;
+  PixelDst: ^TPixel;
 begin
   {TODO assert(Src.PixelFormat = pf8bit);}
@@ -652 +653 @@
   while yDst < h do
   begin
-    PixelDst := dst.ScanLine[yDst] + 3 * xDst;
-    PixelSrc := Src.ScanLine[ySrc] + xSrc;
+    PixelDst := pointer(integer(dst.ScanLine[yDst]) + 3 * xDst);
+    PixelSrc := pointer(integer(Src.ScanLine[ySrc]) + xSrc);
     for i := 0 to w - 1 do
     begin
@@ -672 +673 @@
       else
         PixelDst[0] := test; // Blue
-      PixelDst := Pointer(PixelDst) + 3;
-      PixelSrc := Pointer(PixelSrc) + 1;
+      PixelDst := pointer(integer(PixelDst) + 3);
+      PixelSrc := pointer(integer(PixelSrc) + 1);
     end;
     inc(yDst);
@@ -763 +764 @@
   while y < h do
   begin
-    Pixel := bmp.ScanLine[y] + 3 * x;
+    Pixel := pointer(integer(bmp.ScanLine[y]) + 3 * x);
     for i := 0 to w - 1 do
     begin
@@ -776 +777 @@
       Pixel[1] := Green;
       Pixel[2] := Red;
-      Pixel := Pointer(Pixel) + 3;
+      Pixel := pointer(integer(Pixel) + 3);
     end;
     inc(y);

@@ -11 +11 @@
 lib
 heaptrclog.trc
+c-evo