Changeset 548 for trunk/Packages/DpiControls

Timestamp:

Apr 21, 2024, 10:57:18 AM (7 months ago)

Author:

chronos

Message:

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

Location:

trunk/Packages/DpiControls

Files:

• Dpi.Graphics.pas (modified) (4 diffs)
• DpiControls.lpk (modified) (1 diff)

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

trunk/Packages/DpiControls/DpiControls.lpk

@@ -30 +30 @@
       <Other>
         <CompilerMessages>
-          <IgnoredMessages idx3123="True"/>
+          <IgnoredMessages idx6058="True" idx3123="True"/>
         </CompilerMessages>
       </Other>