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

Timestamp:

May 21, 2020, 8:17:38 PM (4 years ago)

Author:

chronos

Message:

• Modified: Update from trunk rev 245.
• Modified: Vcl prefix/suffix changed to Native.

File:

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

branches/highdpi/LocalPlayer/CityScreen.pas

@@ -435 +435 @@
     end;
   end;
-
-  procedure MakeRed(X, Y, W, H: Integer);
-  var
-    XX, YY: Integer;
-    Gray: Integer;
-    PixelPtr: TPixelPointer;
-  begin
-    X := ScaleToVcl(X);
-    Y := ScaleToVcl(Y);
-    W := ScaleToVcl(W);
-    H := ScaleToVcl(H);
-    Offscreen.BeginUpdate;
-    PixelPtr := PixelPointer(Offscreen, X, Y);
-    for YY := 0 to H - 1 do begin
-      for XX := 0 to W - 1 do begin
-        Gray := (Integer(PixelPtr.Pixel^.B) + Integer(PixelPtr.Pixel^.G) +
-        Integer(PixelPtr.Pixel^.R)) * 85 shr 8;
-        PixelPtr.Pixel^.B := 0;
-        PixelPtr.Pixel^.G := 0;
-        PixelPtr.Pixel^.R := Gray; // 255-(255-gray) div 2;
-        PixelPtr.NextPixel;
-      end;
-      PixelPtr.NextLine;
-    end;
-    Offscreen.EndUpdate;
-  end;
-
 var
   line, MessageCount: integer;
@@ -565 +538 @@
   if not IsCityAlive then
   begin
-    MakeRed(18, 280, 298, 40);
+    MakeRed(Offscreen, 18, 280, 298, 40);
     if cGov = gAnarchy then
       s := Phrases.Lookup('GOVERNMENT', gAnarchy)
@@ -701 +674 @@
     else
     begin
-      MakeRed(xHapp + dxBar - 6, yHapp + 2 * dyBar, wBar + 10, 38);
+      MakeRed(Offscreen, xHapp + dxBar - 6, yHapp + 2 * dyBar, wBar + 10, 38);
       CountBar(offscreen, xHapp + dxBar, yHapp + 2 * dyBar, wBar, 18,
         Phrases.Lookup('LACK'), -Report.HappinessBalance, RedTex);
@@ -726 +699 @@
     else
     begin
-      MakeRed(xFood + dxBar - 6, yFood + 2 * dyBar, wBar + 10, 38);
+      MakeRed(Offscreen, xFood + dxBar - 6, yFood + 2 * dyBar, wBar + 10, 38);
       CountBar(offscreen, xFood + dxBar, yFood + 2 * dyBar, wBar, 1,
         Phrases.Lookup('LACK'), -Report.FoodSurplus, RedTex);
@@ -759 +732 @@
     else
     begin
-      MakeRed(xProd + dxBar - 6, yProd + dyBar + 17, wBar + 10, 38);
+      MakeRed(Offscreen, xProd + dxBar - 6, yProd + dyBar + 17, wBar + 10, 38);
       CountBar(offscreen, xProd + dxBar, yProd + dyBar + 16, wBar, 3,
         Phrases.Lookup('LACK'), -Report.Production, RedTex);
@@ -1684 +1657 @@
   end
   else
+  if OpenSoundEvent >= 0 then
     Play(CityEventSoundItem[OpenSoundEvent]);
   OpenSoundEvent := -2;