Changeset 319 for trunk/LocalPlayer/Wonders.pas

Timestamp:

Mar 19, 2021, 3:31:53 PM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized drawing of Wonders window.
• Modified: Used named constants for Wonders CitiID special cases.

File:

• trunk/LocalPlayer/Wonders.pas (modified) (6 diffs)

trunk/LocalPlayer/Wonders.pas

@@ -100 +100 @@
   ax: Integer;
   R: Integer;
-  I: Integer;
   C: Integer;
   Ch: Integer;
@@ -223 +222 @@
   PaintBackgroundShape;
 
-  for I := 0 to 20 do
-    if Imp[I].Preq <> preNA then
-    begin
+  // Draw all bitmaps first
+  HaveWonder := False;
+  for I := 0 to 20 do begin
+    if Imp[I].Preq <> preNA then begin
       case MyRO.Wonder[I].CityID of
-        - 1: // not built yet
-          begin
-            Fill(Offscreen.Canvas, Center.X - xSizeBig div 2 + RingPosition[I].X - 3,
-              Center.Y - ySizeBig div 2 + RingPosition[I].Y - 3, xSizeBig + 6,
-              ySizeBig + 6, (wMaintexture - ClientWidth) div 2,
-              (hMaintexture - ClientHeight) div 2);
-            DarkIcon(I);
-          end;
-        -2: // destroyed
-          begin
-            Glow(I, $000000);
-          end;
-      else
-        begin
-          if MyRO.Wonder[I].EffectiveOwner >= 0 then
-            Glow(I, Tribe[MyRO.Wonder[I].EffectiveOwner].Color)
-          else
-            Glow(I, $000000);
-        end;
-      end;
-    end;
-
-  HaveWonder := False;
-  for I := 0 to 20 do
-    if Imp[I].Preq <> preNA then
-    begin
-      case MyRO.Wonder[I].CityID of
-        -1: // not built yet
-          begin
-            Fill(Offscreen.Canvas, Center.X - xSizeBig div 2 + RingPosition[I].X - 3,
-              Center.Y - ySizeBig div 2 + RingPosition[I].Y - 3, xSizeBig + 6,
-              ySizeBig + 6, (wMaintexture - ClientWidth) div 2,
-              (hMaintexture - ClientHeight) div 2);
-            DarkIcon(I);
-          end;
-        -2: // destroyed
-          begin
-            HaveWonder := True;
-            BitBltCanvas(Offscreen.Canvas,
-              Center.X - xSizeBig div 2 + RingPosition[I].X,
-              Center.Y - ySizeBig div 2 + RingPosition[I].Y, xSizeBig,
-              ySizeBig, BigImp.Canvas, 0, (SystemIconLines + 3) *
-              ySizeBig);
-          end;
-      else
-        begin
+        WonderNotBuiltYet: begin
+          Fill(Offscreen.Canvas, Center.X - xSizeBig div 2 + RingPosition[I].X - 3,
+            Center.Y - ySizeBig div 2 + RingPosition[I].Y - 3, xSizeBig + 6,
+            ySizeBig + 6, (wMaintexture - ClientWidth) div 2,
+            (hMaintexture - ClientHeight) div 2);
+        end;
+        WonderDestroyed: begin
+          HaveWonder := True;
+          BitBltCanvas(Offscreen.Canvas,
+            Center.X - xSizeBig div 2 + RingPosition[I].X,
+            Center.Y - ySizeBig div 2 + RingPosition[I].Y, xSizeBig,
+            ySizeBig, BigImp.Canvas, 0, (SystemIconLines + 3) *
+            ySizeBig);
+        end;
+        else begin
           HaveWonder := True;
           BitBltCanvas(Offscreen.Canvas,
@@ -282 +251 @@
       end;
     end;
+  end;
+
+  // Do direct pixel postprocessing separately to avoid bitmap copying in memory
+  Offscreen.Canvas.FillRect(0, 0, 0, 0);
+  Offscreen.BeginUpdate;
+  for I := 0 to 20 do begin
+    if Imp[I].Preq <> preNA then begin
+      case MyRO.Wonder[I].CityID of
+        WonderNotBuiltYet: DarkIcon(I);
+        WonderDestroyed: Glow(I, $000000);
+        else begin
+          if MyRO.Wonder[I].EffectiveOwner >= 0 then
+            Glow(I, Tribe[MyRO.Wonder[I].EffectiveOwner].Color)
+          else Glow(I, $000000);
+        end;
+      end;
+    end;
+  end;
+  Offscreen.EndUpdate;
 
   if not HaveWonder then
@@ -323 +311 @@
     if Selection >= 0 then
     begin
-      if MyRO.Wonder[Selection].CityID = -1 then
+      if MyRO.Wonder[Selection].CityID = WonderNotBuiltYet then
       begin // not built yet
         { S:=Phrases.Lookup('IMPROVEMENTS',Selection);
@@ -338 +326 @@
       begin
         S := Phrases.Lookup('IMPROVEMENTS', Selection);
-        if MyRO.Wonder[Selection].CityID <> -2 then
+        if MyRO.Wonder[Selection].CityID <> WonderDestroyed then
           S := Format(Phrases.Lookup('WONDEROF'),
             [S, CityName(MyRO.Wonder[Selection].CityID)]);
@@ -344 +332 @@
           (ClientWidth - BiColorTextWidth(Canvas, S)) div 2,
           ClientHeight - 3 - 36 - 10, S);
-        if MyRO.Wonder[Selection].CityID = -2 then
+        if MyRO.Wonder[Selection].CityID = WonderDestroyed then
           S := Phrases.Lookup('DESTROYED')
         else if MyRO.Wonder[Selection].EffectiveOwner < 0 then