Changeset 469 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

Dec 3, 2023, 8:33:43 PM (12 months ago)

Author:

chronos

Message:

• Fixed: City screen size sometimes not correctly loaded.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityScreen.pas (modified) (5 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -8 +8 @@
   Protocol, ClientTools, ScreenTools, IsoEngine, BaseWin, LCLIntf, LCLType,
   Messages, SysUtils, Classes, ButtonA, ButtonC, Area, GraphType, Texture,
-  System.UITypes,
   {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE}
   Graphics, Controls, Forms, ExtCtrls{$ENDIF};
@@ -195 +194 @@
 procedure TCityDlg.FormCreate(Sender: TObject);
 begin
-  inherited;
   RedTex := TTexture.Create;
   BarTex := TTexture.Create;
@@ -277 +275 @@
 
     UnshareBitmap(Back);
-    BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
+    BitBltCanvas(Back.Canvas, 0, 0, Width, Height,
       MainTexture.Image.Canvas, 0, 0);
-    ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight);
+    ImageOp_B(Back, Template, 0, 0, 0, 0, Width, Height);
   end;
 end;
@@ -364 +362 @@
       end;
     end;
-    Brush.style := TBrushStyle.bsClear;
+    Brush.Style := TBrushStyle.bsClear;
   end;
 end;
@@ -539 +537 @@
     Brush.Color := $FFFFFF;
     FillRect(Rect(8, 7, 36, 32));
-    Brush.style := TBrushStyle.bsClear;
+    Brush.Style := TBrushStyle.bsClear;
     Font.Color := $000000;
     S := IntToStr(C.Size);