Changeset 118 for trunk/LocalPlayer

Timestamp:

Feb 3, 2018, 3:29:17 PM (7 years ago)

Author:

chronos

Message:

• Modified: Set Bitmap size at once.

Location:

trunk/LocalPlayer

Files:

• BaseWin.pas (modified) (2 diffs)
• Term.pas (modified) (2 diffs)

trunk/LocalPlayer/BaseWin.pas

@@ -5 +5 @@
 
 uses
-  ScreenTools, Messg,
-
-  LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, DrawDlg;
+  ScreenTools, LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms,
+  DrawDlg;
 
 type
@@ -471 +470 @@
   Offscreen := TBitmap.Create;
   Offscreen.PixelFormat := pf24bit;
-  Offscreen.Width := Screen.Width;
   if Screen.Height - yUnused < 480 then
-    Offscreen.Height := 480
-  else
-    Offscreen.Height := Screen.Height - yUnused;
+    Offscreen.SetSize(Screen.Width, 480)
+  else
+    Offscreen.SetSize(Screen.Width, Screen.Height - yUnused);
   Offscreen.Canvas.FillRect(0, 0, Offscreen.Width, OffScreen.Height);
   Offscreen.Canvas.Brush.Style := bsClear;

trunk/LocalPlayer/Term.pas

@@ -2557 +2557 @@
         CityDlg.Reset;
 
-        Mini.width := G.lx * 2;
-        Mini.height := G.ly;
+        Mini.SetSize(G.lx * 2, G.ly);
         for i := 0 to nPl - 1 do
         begin
@@ -3548 +3547 @@
   end;
   MapHeight := ClientHeight - TopBarHeight - PanelHeight + overlap;
-  Panel.width := ClientWidth;
-  Panel.height := PanelHeight;
-  TopBar.width := ClientWidth;
-  TopBar.height := TopBarHeight;
+  Panel.SetSize(ClientWidth, PanelHeight);
+  TopBar.SetSize(ClientWidth, TopBarHeight);
   MiniFrame := (lxmax_xxx - G.ly) div 2;
   xMidPanel := (G.lx + MiniFrame) * 2 + 1;