- Fixed some events not correctly triggering a repaint

This commit is contained in:
Andreas Schneider 2009-10-02 18:12:36 +02:00
parent 7d038013b2
commit 69a5b97b64
1 changed files with 3 additions and 0 deletions

View File

@ -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;