Changeset 193 for branches/highdpi/Start.pas

Timestamp:

May 7, 2020, 7:05:57 PM (4 years ago)

Author:

chronos

Message:

• Modified: Improved code in HighDPI branch.

File:

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

branches/highdpi/Start.pas

@@ -256 +256 @@
     end; // default AI not found, use any
 
-  DirectDlg.Left := (Screen.Width - DirectDlg.Width) div 2;
-  DirectDlg.Top := (Screen.Height - DirectDlg.Height) div 2;
+  DirectDlg.Left := (DpiScreen.Width - DirectDlg.Width) div 2;
+  DirectDlg.Top := (DpiScreen.Height - DirectDlg.Height) div 2;
 
   if FullScreen then
   begin
-    Location := Point((Screen.Width - 800) * 3 div 8,
-      Screen.Height - Height - (Screen.Height - 600) div 3);
+    Location := Point((DpiScreen.Width - 800) * 3 div 8,
+      DpiScreen.Height - Height - (DpiScreen.Height - 600) div 3);
     Left := Location.X;
     Top := Location.Y;
@@ -279 +279 @@
   else
   begin
-    Left := (Screen.Width - Width) div 2;
-    Top := (Screen.Height - Height) div 2;
+    Left := (DpiScreen.Width - Width) div 2;
+    Top := (DpiScreen.Height - Height) div 2;
   end;
 
@@ -611 +611 @@
           h := ClientHeight - ActionBottomBorder -
             (yAction + SelectedAction * ActionPitch - 8);
-        BitBltCanvas(LogoBuffer.Canvas, 0, 0, w, h, Canvas,
+        //BitBltCanvas(LogoBuffer.Canvas, 0, 0, w, h, Canvas,
+        //  ActionSideBorder + i * wBuffer, yAction + SelectedAction * ActionPitch
+        //  - 8, SRCCOPY);
+        BitBlt(LogoBuffer.Canvas.Handle, 0, 0, w, h, Canvas.Handle,
           ActionSideBorder + i * wBuffer, yAction + SelectedAction * ActionPitch
           - 8, SRCCOPY);
@@ -879 +882 @@
   EmptyPicture.BeginUpdate;
   PicturePixel.Init(EmptyPicture);
-  for y := 0 to 63 do begin
-    for x := 0 to 64 - 1 do begin
+  for y := 0 to ScaleToVcl(64) - 1 do begin
+    for x := 0 to ScaleToVcl(64) - 1 do begin
       PicturePixel.Pixel^.B := Max(PicturePixel.Pixel^.B - 28, 0);
       PicturePixel.Pixel^.G := Max(PicturePixel.Pixel^.G - 28, 0);
@@ -1049 +1052 @@
   Mini.BeginUpdate;
   MiniPixel.Init(Mini);
-  for y := 0 to MiniHeight - 1 do begin
-    for x := 0 to MiniWidth - 1 do begin
+  for y := 0 to ScaleToVcl(MiniHeight) - 1 do begin
+    for x := 0 to ScaleToVcl(MiniWidth) - 1 do begin
       for i := 0 to 1 do begin
-        xm := (x * 2 + i + y and 1) mod (MiniWidth * 2);
+        xm := (x * 2 + i + y and 1) mod (ScaleToVcl(MiniWidth) * 2);
         MiniPixel.SetX(xm);
         cm := MiniColors