From 69a5b97b64b030a112bbe0b8bb2927519921f629 Mon Sep 17 00:00:00 2001
From: Andreas Schneider <aksdb@gmx.de>
Date: Fri, 2 Oct 2009 18:12:36 +0200
Subject: [PATCH] - Fixed some events not correctly triggering a repaint

---
 Client/UfrmMain.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Client/UfrmMain.pas b/Client/UfrmMain.pas
index 46aa533..291b55f 100644
--- a/Client/UfrmMain.pas
+++ b/Client/UfrmMain.pas
@@ -2150,6 +2150,7 @@ procedure TfrmMain.OnStaticDeleted(AStaticItem: TStaticItem);
 begin
   FScreenBuffer.Delete(AStaticItem);
   UpdateCurrentTile;
+  FRepaintNeeded := True;
 end;
 
 procedure TfrmMain.OnStaticElevated(AStaticItem: TStaticItem);
@@ -2169,6 +2170,7 @@ begin
     if blockInfo^.Item = AStaticItem then
     begin
       PrepareScreenBlock(blockInfo);
+      FRepaintNeeded := True;
       Break;
     end;
   end;
@@ -2182,6 +2184,7 @@ begin
     AStaticItem.PrioritySolver := FScreenBuffer.GetSerial;
     PrepareScreenBlock(FScreenBuffer.Insert(AStaticItem));
     UpdateCurrentTile;
+    FRepaintNeeded := True;
   end;
 end;