Changeset 179 for branches/highdpi/Start.pas

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/Start.pas (modified) (13 diffs)

branches/highdpi/Start.pas

@@ -266 +266 @@
     Top := Location.Y;
 
-    r0 := CreateRectRgn(0, 0, Width, Height);
-    r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
+    r0 := DpiCreateRectRgn(0, 0, Width, Height);
+    r1 := DpiCreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);
     CombineRgn(r0, r0, r1, RGN_DIFF);
     DeleteObject(r1);
-    r1 := CreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
+    r1 := DpiCreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
       QuitBtn.top + QuitBtn.Height);
     CombineRgn(r0, r0, r1, RGN_OR);
@@ -326 +326 @@
   Brains[0].Picture := TDpiBitmap.Create;
   Brains[0].Picture.SetSize(64, 64);
-  BitBlt(Brains[0].Picture.Canvas.Handle, 0, 0, 64, 64,
+  DpiBitBlt(Brains[0].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 1, 111, SRCCOPY);
   Brains[1].Picture := TDpiBitmap.Create;
   Brains[1].Picture.SetSize(64, 64);
-  BitBlt(Brains[1].Picture.Canvas.Handle, 0, 0, 64, 64,
+  DpiBitBlt(Brains[1].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 66, 111, SRCCOPY);
   Brains[2].Picture := TDpiBitmap.Create;
   Brains[2].Picture.SetSize(64, 64);
-  BitBlt(Brains[2].Picture.Canvas.Handle, 0, 0, 64, 64,
+  DpiBitBlt(Brains[2].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 131, 111, SRCCOPY);
   Brains[3].Picture := TDpiBitmap.Create;
   Brains[3].Picture.SetSize(64, 64);
-  BitBlt(Brains[3].Picture.Canvas.Handle, 0, 0, 64, 64,
+  DpiBitBlt(Brains[3].Picture.Canvas.Handle, 0, 0, 64, 64,
     GrExt[HGrSystem2].Data.Canvas.Handle, 131, 46, SRCCOPY);
 
@@ -408 +408 @@
   r0, r1: HRgn;
 begin
-  r0 := CreateRectRgn(x0, y0, x1, y1);
+  r0 := DpiCreateRectRgn(x0, y0, x1, y1);
   for i := 0 to ControlCount - 1 do
     if not (Controls[i] is TArea) and Controls[i].Visible then
     begin
       with Controls[i].BoundsRect do
-        r1 := CreateRectRgn(left, top, Right, Bottom);
+        r1 := DpiCreateRectRgn(left, top, Right, Bottom);
       CombineRgn(r0, r0, r1, RGN_DIFF);
       DeleteObject(r1);
@@ -419 +419 @@
   if not invalidateTab0 then
   begin
-    r1 := CreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
+    r1 := DpiCreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon
     CombineRgn(r0, r0, r1, RGN_DIFF);
     DeleteObject(r1);
@@ -496 +496 @@
     xActionIcon - 2, y - 2, SRCCOPY);
   GlowFrame(LogoBuffer, 8, 8, 34, 34, $202020);
-  BitBlt(Canvas.Handle, xActionIcon - 2, y - 2, 50, 50,
+  DpiBitBlt(Canvas.Handle, xActionIcon - 2, y - 2, 50, 50,
     LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
-  BitBlt(Canvas.Handle, xActionIcon, y, 40, 40, BigImp.Canvas.Handle,
+  DpiBitBlt(Canvas.Handle, xActionIcon, y, 40, 40, BigImp.Canvas.Handle,
     (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig, SRCCOPY);
   RFrame(Canvas, xActionIcon - 1, y - 1, xActionIcon + 40, y + 40,
@@ -595 +595 @@
   ImageOp_BCC(LogoBuffer, Templates, 10, 27, 155, 38 + 27, 26, 9, $BFBF20,
     $4040DF); // logo part 2
-  BitBlt(Canvas.Handle, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,
+  DpiBitBlt(Canvas.Handle, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,
     LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
 
@@ -615 +615 @@
           - 8, SRCCOPY);
         MakeBlue(LogoBuffer, 0, 0, w, h);
-        BitBlt(Canvas.Handle, ActionSideBorder + i * wBuffer,
+        DpiBitBlt(Canvas.Handle, ActionSideBorder + i * wBuffer,
           yAction + SelectedAction * ActionPitch - 8, w, h,
           LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
@@ -643 +643 @@
               ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 400, 91, 25, 0,
                 Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText]);
-              BitBlt(Canvas.Handle, xActionIcon, y + 2, 91, 25,
+              DpiBitBlt(Canvas.Handle, xActionIcon, y + 2, 91, 25,
                 LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);
             end;
@@ -668 +668 @@
         if (i < 13) or (i > 17) then
         begin
-          BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
             GrExt[HGrSystem2].Mask.Canvas.Handle, xOrna, yOrna, SRCAND);
-          BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
             GrExt[HGrSystem2].Data.Canvas.Handle, xOrna, yOrna, SRCPAINT);
         end;
@@ -687 +687 @@
           if Assigned(PlayersBrain[I]) and (PlayersBrain[i].Kind in [btTerm, btRandom, btAI]) then
           begin
-            BitBlt(Canvas.Handle, xBrain[i] - 18, yBrain[i] + 19, 12, 14,
+            DpiBitBlt(Canvas.Handle, xBrain[i] - 18, yBrain[i] + 19, 12, 14,
               GrExt[HGrSystem].Data.Canvas.Handle, 134 + (Difficulty[i] - 1) *
               13, 28, SRCCOPY);
@@ -707 +707 @@
                 PlayerSlots[I].MultiBtn.left + 12, PlayerSlots[I].MultiBtn.top + 12,
                 MainTexture.clBevelShade, MainTexture.clBevelLight);
-              BitBlt(Canvas.Handle, xBrain[i] - 31, yBrain[i], 13, 12,
+              DpiBitBlt(Canvas.Handle, xBrain[i] - 31, yBrain[i], 13, 12,
                 GrExt[HGrSystem].Data.Canvas.Handle, 88, 47, SRCCOPY);
             end;
@@ -752 +752 @@
         if (i < 2) or (i > 6) then
         begin
-          BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
             GrExt[HGrSystem2].Mask.Canvas.Handle, xOrna, yOrna, SRCAND);
-          BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
+          DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,
             GrExt[HGrSystem2].Data.Canvas.Handle, xOrna, yOrna, SRCPAINT);
         end;
@@ -848 +848 @@
   if MiniMode = mmPicture then
   begin
-    BitBlt(Canvas.Handle, xMini + 2, yMini + 2, MiniWidth * 2, MiniHeight,
+    DpiBitBlt(Canvas.Handle, xMini + 2, yMini + 2, MiniWidth * 2, MiniHeight,
       Mini.Canvas.Handle, 0, 0, SRCCOPY);
     if Page = pgStartRandom then