Changeset 118

Timestamp:

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

Author:

chronos

Message:

• Modified: Set Bitmap size at once.

Location:

trunk

Files:

• LocalPlayer/BaseWin.pas (modified) (2 diffs)
• LocalPlayer/Term.pas (modified) (2 diffs)
• NoTerm.pas (modified) (3 diffs)
• Start.pas (modified) (1 diff)

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;

trunk/NoTerm.pas

@@ -147 +147 @@
         TInitModuleData(Data).Flags := aiThreaded;
         Shade := TBitmap.Create;
-        Shade.Width := 64;
-        Shade.Height := 64;
+        Shade.SetSize(64, 64);
         for x := 0 to 63 do
           for y := 0 to 63 do
@@ -156 +155 @@
               Shade.Canvas.Pixels[x, y] := $000000;
         State := TBitmap.Create;
-        State.Width := 192;
-        State.Height := 20;
+        State.SetSize(192, 20);
         State.Canvas.Brush.Style := bsClear;
         State.Canvas.Font.Assign(UniFont[ftSmall]);
@@ -166 +164 @@
       begin
         Shade.Free;
-        State.Free
+        State.Free;
       end;
 

trunk/Start.pas

@@ -338 +338 @@
     if not LoadGraphicFile(BrainPicture[i], HomeDir + 'AI' + DirectorySeparator + Brain[i].FileName + '.png',
       gfNoError) then begin
-      BrainPicture[i].width := 64;
-      BrainPicture[i].height := 64;
+      BrainPicture[i].SetSize(64, 64);
       with BrainPicture[i].Canvas do begin
         Brush.Color := $904830;