Changeset 92 for trunk

Timestamp:

Jan 19, 2017, 10:07:16 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Used bad Width and Height for drawing of colony ship.

File:

• trunk/LocalPlayer/Diagram.pas (modified) (3 diffs)

trunk/LocalPlayer/Diagram.pas

@@ -59 +59 @@
   i, x, r, nComp, nPow, nHab: integer;
 begin
-  with canvas do
-  begin
-    Brush.Color := $000000;
-    FillRect(Rect(Left, Top, Left + Width, Top + 200));
-    Brush.Style := bsClear;
+  Canvas.Brush.Color := $000000;
+  Canvas.FillRect(Rect(Left, Top, Left + Width, Top + 200));
+  Canvas.Brush.Style := bsClear;
     ScreenTools.Frame(canvas, Left - 1, Top - 1, Left + Width, Top + 200,
       MainTexture.clBevelShade, MainTexture.clBevelLight);
@@ -75 +73 @@
       x := Random((Width - 16) * 200);
       r := Random(13) + 28;
-      Pixels[x div 200 + 8, x mod 200 + Top] :=
+      Canvas.Pixels[x div 200 + 8, x mod 200 + Top] :=
         (r * r * r * r div 10001) * $10101;
     end;
@@ -125 +123 @@
       Sprite(canvas, HGrSystem2, Left + Width div 2 + xComp[4],
         Top + 100 + 7 + yComp[4], 16, 27, 18, 82);
-  end
 end;