Changeset 251 for branches/highdpi/Packages/CevoComponents/ScreenTools.pas

Timestamp:

May 22, 2020, 11:52:44 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Drawing start screen ornament under Windows.

File:

• branches/highdpi/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

branches/highdpi/Packages/CevoComponents/ScreenTools.pas

@@ -981 +981 @@
 var
   P: TColor;
-  X, Y, Light, Shade: Integer;
+  X, Y: Integer;
+  Light, Shade: TColor32;
   PixelPtr: TPixelPointer;
 begin
   if InitOrnamentDone then Exit;
-  Light := MainTexture.clBevelLight;
+  Light := ColorToColor32(MainTexture.clBevelLight);
   // and $FCFCFC shr 2*3+MainTexture.clBevelShade and $FCFCFC shr 2;
-  Shade := MainTexture.clBevelShade and $FCFCFC shr 2 * 3 +
-    MainTexture.clBevelLight and $FCFCFC shr 2;
+  Shade := ColorToColor32(MainTexture.clBevelShade and $FCFCFC shr 2 * 3 +
+    MainTexture.clBevelLight and $FCFCFC shr 2);
   GrExt[HGrSystem2].Data.BeginUpdate;
   PixelPtr := PixelPointer(GrExt[HGrSystem2].Data, ScaleToNative(xOrna), ScaleToNative(yOrna));
-  for Y := 0 to ScaleToNative(hOrna) - 1 do begin
-    for X := 0 to ScaleToNative(wOrna) - 1 do begin
-      P := Color32ToColor(PixelPtr.Pixel^.ARGB);
-      if P = $0000FF then PixelPtr.Pixel^.ARGB := ColorToColor32(Light)
-      else if P = $FF0000 then PixelPtr.Pixel^.ARGB := ColorToColor32(Shade);
-      PixelPtr.NextPixel;
-    end;
-    PixelPtr.NextLine;
+  if PixelPtr.BytesPerPixel = 3 then begin
+    for Y := 0 to ScaleToNative(hOrna) - 1 do begin
+      for X := 0 to ScaleToNative(wOrna) - 1 do begin
+        P := Color32ToColor(PixelPtr.Pixel^.GetRGB);
+        if P = $0000FF then PixelPtr.Pixel^.SetRGB(Light)
+        else if P = $FF0000 then PixelPtr.Pixel^.SetRGB(Shade);
+        PixelPtr.NextPixel;
+      end;
+      PixelPtr.NextLine;
+    end;
+  end else begin
+    for Y := 0 to ScaleToNative(hOrna) - 1 do begin
+      for X := 0 to ScaleToNative(wOrna) - 1 do begin
+        P := Color32ToColor(PixelPtr.Pixel^.ARGB);
+        if P = $0000FF then PixelPtr.Pixel^.ARGB := Light
+        else if P = $FF0000 then PixelPtr.Pixel^.ARGB := Shade;
+        PixelPtr.NextPixel;
+      end;
+      PixelPtr.NextLine;
+    end;
   end;
   InitOrnamentDone := True;