Changeset 71 for trunk/UGame.pas

Timestamp:

Sep 28, 2014, 8:53:50 PM (10 years ago)

Author:

chronos

Message:

• Modified: Tested csOpaque direct drawing with temporary bitmap buffer. Not significant improvement over non opaque mode.

File:

• trunk/UGame.pas (modified) (3 diffs)

trunk/UGame.pas

@@ -193 +193 @@
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
-    procedure Paint(PaintBox: TPaintBox);
+    procedure Paint(Canvas: TCanvas);
     constructor Create;
     destructor Destroy; override;
@@ -1393 +1393 @@
 end;
 
-procedure TPlayer.Paint(PaintBox: TPaintBox);
-begin
-  Game.Map.Paint(PaintBox.Canvas, View);
+procedure TPlayer.Paint(Canvas: TCanvas);
+begin
+  Game.Map.Paint(Canvas, View);
 end;
 
@@ -2108 +2108 @@
             Brush.Color := clPurple
           else Brush.Color := Cell.GetColor;
-        Pen.Color := clBlack;
+        //Pen.Color := clBlack;
         PaintCell(Canvas, Cell.PosPx, IntToStr(Cell.GetAvialPower), View, Cell);
       end;