From fda2be2b8c7f698830b5cedb4e0b22fc73572ff2 Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Fri, 4 Dec 2009 01:27:06 +0100
Subject: [PATCH] - Added static ghost tiles

---
 Client/UfrmMain.pas | 29 ++++++++++++++++++++---------
 1 file changed, 20 insertions(+), 9 deletions(-)

diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas
index 8083ec2..d3ec850 100644
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -2280,6 +2280,7 @@ procedure TfrmMain.UpdateSelection;
     tileInfo: PTileInfo;
     node: PVirtualNode;
     cell: TMapCell;
+    ghostTile: TGhostTile;
     i: Integer;
   begin
     tileInfo := nil;
@@ -2308,12 +2309,6 @@ procedure TfrmMain.UpdateSelection;
         begin
           cell.IsGhost := True;
           cell.GhostID := tileInfo^.ID;
-          {if (FGhostTile is TStaticItem) and (not frmDrawSettings.cbForceAltitude.Checked) then
-             begin
-               FGhostTile.Z := CurrentTile.Z;
-               if CurrentTile is TStaticItem then
-                 Inc(FGhostTile.Z, ResMan.Tiledata.StaticTiles[CurrentTile.TileID].Height);
-             end else}
           if frmDrawSettings.cbForceAltitude.Checked then
             cell.GhostZ := frmDrawSettings.seForceAltitude.Value
           else
@@ -2323,9 +2318,25 @@ procedure TfrmMain.UpdateSelection;
         end;
       end else
       begin
-        {FGhostTile := TStaticItem.Create(nil, nil, 0, 0);
-        FGhostTile.TileID := tileInfo^.ID - $4000;
-        TStaticItem(FGhostTile).Hue := frmHueSettings.lbHue.ItemIndex;}
+        ghostTile := TGhostTile.Create(nil, nil, 0, 0);
+        ghostTile.TileID := tileInfo^.ID - $4000;
+        ghostTile.Hue := frmHueSettings.lbHue.ItemIndex;
+        ghostTile.X := AX;
+        ghostTile.Y := AY;
+        if not frmDrawSettings.cbForceAltitude.Checked then
+        begin
+          ghostTile.Z := CurrentTile.Z;
+          if CurrentTile is TStaticItem then
+            ghostTile.Z := ghostTile.Z +
+              ResMan.Tiledata.StaticTiles[CurrentTile.TileID].Height;
+        end else
+          ghostTile.Z := frmDrawSettings.seForceAltitude.Value;
+        ghostTile.PrioritySolver := MaxInt;
+
+        FVirtualTiles.Add(ghostTile);
+        blockInfo := FScreenBuffer.Insert(ghostTile);
+        blockInfo^.State := ssGhost;
+        PrepareScreenBlock(blockInfo);
       end;
 
     end;