Changeset 548 for trunk/Packages/DpiControls/Dpi.Graphics.pas

Timestamp:

Apr 21, 2024, 10:57:18 AM (4 weeks ago)

Author:

chronos

Message:

• Fixed: Bad unit drawing in battle dialog.
• Modified: Code cleanup.

File:

• trunk/Packages/DpiControls/Dpi.Graphics.pas (modified) (4 diffs)

trunk/Packages/DpiControls/Dpi.Graphics.pas

@@ -290 +290 @@
   public
     NativeBitmap: Graphics.TBitmap;
-    procedure BeginUpdate;
-    procedure EndUpdate;
     constructor Create; override;
     destructor Destroy; override;
@@ -337 +335 @@
   published
     procedure LoadFromFile(FileName: string);
-    property Bitmpa: TBitmap read FBitmap write SetBitmap;
+    property Bitmap: TBitmap read FBitmap write SetBitmap;
   end;
 
@@ -713 +711 @@
         DstPixelWidth := ScaleToNative(XX + 1) - ScaleToNative(XX);
         for DstPixelX := 0 to DstPixelWidth - 1 do begin
-          DstPtr.PixelB := SrcPtr.PixelB;
-          DstPtr.PixelG := SrcPtr.PixelG;
-          DstPtr.PixelR := SrcPtr.PixelR;
+          DstPtr.PixelRGB := SrcPtr.PixelRGB;
           DstPtr.NextPixel;
         end;
@@ -819 +815 @@
 end;
 
-procedure TBitmap.BeginUpdate;
-begin
-  GetNativeBitmap.BeginUpdate;
-end;
-
-procedure TBitmap.EndUpdate;
-begin
-  GetNativeBitmap.EndUpdate;
-end;
-
 constructor TBitmap.Create;
 begin