Changeset 179 for branches/highdpi/LocalPlayer/CityScreen.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

• branches/highdpi/LocalPlayer/CityScreen.pas (modified) (12 diffs)

branches/highdpi/LocalPlayer/CityScreen.pas

@@ -260 +260 @@
     Back.Canvas.FillRect(0, 0, ClientWidth, ClientHeight);
 
-    bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
+    Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
       MainTexture.Image.Canvas.Handle, 0, 0, SRCCOPY);
     ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight);
@@ -291 +291 @@
   Color2 := Colors.Canvas.Pixels[clkAge0 + Age, cliHouse];
   SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height);
-  bitblt(SmallCityMap.Canvas.Handle, 0, 0, 83, hSmallMap,
+  Dpibitblt(SmallCityMap.Canvas.Handle, 0, 0, 83, hSmallMap,
     SmallCityMapTemplate.Canvas.Handle, 83 * SizeClass, 0, SRCCOPY);
   if IsPort then
   begin
-    bitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap,
+    Dpibitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap,
       SmallCityMapTemplate.Canvas.Handle, 332 + 15, 0, SRCCOPY);
     ImageOp_CCC(SmallCityMap, 0, 0, 83, hSmallMap, Color0, Color1, Color2);
@@ -303 +303 @@
   else
   begin
-    bitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap,
+    Dpibitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap,
       SmallCityMapTemplate.Canvas.Handle, 332, 0, SRCCOPY);
     ImageOp_CCC(SmallCityMap, 0, 0, wSmallMap, hSmallMap, Color0,
@@ -359 +359 @@
   ZoomCityMap.Canvas.FillRect(0, 0, ZoomCityMap.Width, ZoomCityMap.Height);
 
-  bitblt(ZoomCityMap.Canvas.Handle, 0, 0, wZoomMap, hZoomMap,
+  Dpibitblt(ZoomCityMap.Canvas.Handle, 0, 0, wZoomMap, hZoomMap,
     Back.Canvas.Handle, xZoomMap, yZoomMap, SRCCOPY);
   if Mode = mImp then begin
@@ -542 +542 @@
   RedTex.clTextShade := $0000FF;
 
-  bitblt(offscreen.Canvas.Handle, 0, 0, 640, 480, Back.Canvas.Handle, 0,
+  Dpibitblt(offscreen.Canvas.Handle, 0, 0, 640, 480, Back.Canvas.Handle, 0,
     0, SRCCOPY);
 
@@ -614 +614 @@
     false, AllowChange and IsCityAlive and
     (c.Status and csResourceWeightsMask = 0));
-  bitblt(offscreen.Canvas.Handle, xmArea + 102, 42, 90, 33, Back.Canvas.Handle,
+  Dpibitblt(offscreen.Canvas.Handle, xmArea + 102, 42, 90, 33, Back.Canvas.Handle,
     xmArea + 102, 42, SRCCOPY);
 
@@ -645 +645 @@
     else
       xGr := 141;
-    bitblt(offscreen.Canvas.Handle, xmArea - 192 + 5 + i * d, ymArea - 96 - 29,
+    Dpibitblt(offscreen.Canvas.Handle, xmArea - 192 + 5 + i * d, ymArea - 96 - 29,
       27, 30, GrExt[HGrSystem].Mask.Canvas.Handle, xGr, 171, SRCAND); { shadow }
     Sprite(offscreen, HGrSystem, xmArea - 192 + 4 + i * d, ymArea - 96 - 30, 27,
@@ -657 +657 @@
   begin
     xGr := 1 + 112;
-    bitblt(offscreen.Canvas.Handle, xmArea + 192 - 27 + 1 - i * d, 29 + 1, 27,
+    Dpibitblt(offscreen.Canvas.Handle, xmArea + 192 - 27 + 1 - i * d, 29 + 1, 27,
       30, GrExt[HGrSystem].Mask.Canvas.Handle, xGr, 171, SRCAND); { shadow }
     Sprite(offscreen, HGrSystem, xmArea + 192 - 27 - i * d, 29, 27, 30,
@@ -803 +803 @@
 
   // small map
-  bitblt(offscreen.Canvas.Handle, xSmallMap, ySmallMap, wSmallMap, hSmallMap,
+  Dpibitblt(offscreen.Canvas.Handle, xSmallMap, ySmallMap, wSmallMap, hSmallMap,
     SmallCityMap.Canvas.Handle, 0, 0, SRCCOPY);
   if Mode = mImp then
@@ -831 +831 @@
   Sprite(offscreen, HGrSystem, x + 6, y - 5, 10, 10, 154, 126);
 
-  bitblt(offscreen.Canvas.Handle, xZoomMap, yZoomMap, wZoomMap, hZoomMap,
+  Dpibitblt(offscreen.Canvas.Handle, xZoomMap, yZoomMap, wZoomMap, hZoomMap,
     ZoomCityMap.Canvas.Handle, 0, 0, SRCCOPY);
 
@@ -1620 +1620 @@
       with Canvas do
       begin
-        bitblt(Canvas.Handle, xView + 5, yView + 1, 64, 2, Back.Canvas.Handle,
+        Dpibitblt(Canvas.Handle, xView + 5, yView + 1, 64, 2, Back.Canvas.Handle,
           xView + 5, yView + 1, SRCCOPY);
-        bitblt(Canvas.Handle, xView + 5, yView + 3, 2, 42, Back.Canvas.Handle,
+        Dpibitblt(Canvas.Handle, xView + 5, yView + 3, 2, 42, Back.Canvas.Handle,
           xView + 5, yView + 3, SRCCOPY);
-        bitblt(Canvas.Handle, xView + 5 + 62, yView + 3, 2, 42,
+        Dpibitblt(Canvas.Handle, xView + 5 + 62, yView + 3, 2, 42,
           Back.Canvas.Handle, xView + 5 + 62, yView + 3, SRCCOPY);
         ScreenTools.Frame(Canvas, xView + 9 - 1, yView + 5 - 1, xView + 9 + xSizeBig,
@@ -1644 +1644 @@
       else if c.Project and cpImp = 0 then
       begin // project is unit
-        bitblt(Canvas.Handle, xView + 9, yView + 5, xSizeBig, ySizeBig,
+        Dpibitblt(Canvas.Handle, xView + 9, yView + 5, xSizeBig, ySizeBig,
           bigimp.Canvas.Handle, 0, 0, SRCCOPY);
         with Tribe[cOwner].ModelPicture[c.Project and cpIndex] do