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

Timestamp:

Jun 23, 2019, 11:57:39 PM (5 years ago)

Author:

chronos

Message:

• Modified: More scaling in CevoComponents.

File:

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

branches/highdpi/Packages/CevoComponents/ScreenTools.pas

@@ -569 +569 @@
     DataPixel.Init(GrExt[nGrExt].Data);
     MaskPixel.Init(GrExt[nGrExt].Mask);
-    for y := 0 to Source.Height - 1 do begin
-      for x := 0 to xmax - 1 do begin
+    for y := 0 to ScaleToVcl(Source.Height) - 1 do begin
+      for x := 0 to ScaleToVcl(xmax) - 1 do begin
         OriginalColor := DataPixel.Pixel^.ARGB and $FFFFFF;
         if (OriginalColor = $FF00FF) or (OriginalColor = $7F007F) then