Changeset 52 for trunk/LocalPlayer/TechTree.pas

Timestamp:

Jan 11, 2017, 10:14:11 PM (7 years ago)

Author:

chronos

Message:

• Fixed: More Bitmap.ScanLine replaced by direct access to RAWImage data.

File:

• trunk/LocalPlayer/TechTree.pas (modified) (2 diffs)

trunk/LocalPlayer/TechTree.pas

@@ -120 +120 @@
 
 procedure TTechTreeDlg.FormShow(Sender: TObject);
-type
-  TLine = array [0 .. 9999, 0 .. 2] of Byte;
 var
   X, Y, ad, TexWidth, TexHeight: Integer;
   s: string;
-  SrcLine, DstLine: ^TLine;
+  SrcPixel, DstPixel: PPixel32;
 begin
   if Image = nil then
@@ -171 +169 @@
     for Y := 0 to Image.height - 1 do
     begin
-      SrcLine := Paper.ScanLine[Y mod TexHeight];
-      DstLine := Image.ScanLine[Y];
       for X := 0 to Image.width - 1 do
       begin
-        if Cardinal((@DstLine[X])^) and $FFFFFF = $7F007F then // transparent
-          DstLine[X] := SrcLine[X mod TexWidth];
+        DstPixel := GetBitmapPixelPtr(Image, X, Y);
+        if (DstPixel^.ARGB and $FFFFFF) = $7F007F then // transparent
+        begin
+          SrcPixel := GetBitmapPixelPtr(Paper, X mod TexWidth, Y mod TexHeight);
+          DstPixel^.B := SrcPixel^.B;
+          DstPixel^.G := SrcPixel^.G;
+          DstPixel^.R := SrcPixel^.R;
+        end;
       end;
     end;