Changeset 548 for trunk/Packages/CevoComponents

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/CevoComponents

Files:

• ButtonA.pas (modified) (1 diff)
• CevoComponents.lpk (modified) (1 diff)
• ScreenTools.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/ButtonA.pas

@@ -12 +12 @@
   private
     FCaption: string;
-    procedure SetCaption(Text: string);
+    procedure SetCaption(Text: string); override;
     procedure SetFont(const Font: TFont);
   protected

trunk/Packages/CevoComponents/CevoComponents.lpk

@@ -31 +31 @@
       <Other>
         <CompilerMessages>
-          <IgnoredMessages idx5024="True"/>
+          <IgnoredMessages idx6058="True" idx5024="True"/>
         </CompilerMessages>
       </Other>

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -542 +542 @@
           OriginalColor := DataPixel.PixelARGB and $FFFFFF;
           if (OriginalColor = TransparentColor1) or (OriginalColor = TransparentColor2) then begin
-            MaskPixel.PixelR := $FF;
-            MaskPixel.PixelG := $FF;
-            MaskPixel.PixelB := $FF;
-            DataPixel.PixelR := 0;
-            DataPixel.PixelG := 0;
-            DataPixel.PixelB := 0;
+            MaskPixel.PixelRGB := $ffffff;
+            DataPixel.PixelRGB := 0;
           end else begin
-            MaskPixel.PixelR := 0;
-            MaskPixel.PixelG := 0;
-            MaskPixel.PixelB := 0;
+            MaskPixel.PixelRGB := 0;
           end;
           DataPixel.NextPixel;
@@ -1023 +1017 @@
       if X < 0 then
         if Y < 0 then
-          R := round(sqrt(sqr(X) + sqr(Y)))
+          R := Round(Sqrt(Sqr(X) + Sqr(Y)))
         else if Y >= Height then
-          R := round(sqrt(sqr(X) + sqr(Y - (Height - 1))))
+          R := Round(Sqrt(Sqr(X) + Sqr(Y - (Height - 1))))
         else
           R := -X
       else if X >= Width then
         if Y < 0 then
-          R := round(sqrt(sqr(X - (Width - 1)) + sqr(Y)))
+          R := Round(sqrt(Sqr(X - (Width - 1)) + Sqr(Y)))
         else if Y >= Height then
-          R := round(sqrt(sqr(X - (Width - 1)) + sqr(Y - (Height - 1))))
+          R := Round(Sqrt(Sqr(X - (Width - 1)) + Sqr(Y - (Height - 1))))
         else
           R := X - (Width - 1)
@@ -1631 +1625 @@
   TexWidth, TexHeight: Integer;
 begin
-  // texturize background
+  // Texturize background
   Dest.BeginUpdate;
   TexWidth := Texture.Width;
@@ -1639 +1633 @@
   for Y := 0 to ScaleToNative(Dest.Height) - 1 do begin
     for X := 0 to ScaleToNative(Dest.Width) - 1 do begin
-      if (DstPixel.PixelARGB and $FFFFFF) = TransparentColor then begin
+      if DstPixel.PixelRGB = TransparentColor then begin
         SrcPixel.SetXY(X mod TexWidth, Y mod TexHeight);
-        DstPixel.PixelB := SrcPixel.PixelB;
-        DstPixel.PixelG := SrcPixel.PixelG;
-        DstPixel.PixelR := SrcPixel.PixelR;
+        DstPixel.PixelRGB := SrcPixel.PixelRGB;
       end;
       DstPixel.NextPixel;