aksdb
/
CentrED
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Client/UfrmMain.pas
View File

@ -2150,6 +2150,7 @@ procedure TfrmMain.OnStaticDeleted(AStaticItem: TStaticItem);
begin begin
FScreenBuffer.Delete(AStaticItem); FScreenBuffer.Delete(AStaticItem);
UpdateCurrentTile; UpdateCurrentTile;
FRepaintNeeded := True;
end; end;
procedure TfrmMain.OnStaticElevated(AStaticItem: TStaticItem); procedure TfrmMain.OnStaticElevated(AStaticItem: TStaticItem);
@ -2169,6 +2170,7 @@ begin
if blockInfo^.Item = AStaticItem then if blockInfo^.Item = AStaticItem then
begin begin
PrepareScreenBlock(blockInfo); PrepareScreenBlock(blockInfo);
FRepaintNeeded := True;
Break; Break;
end; end;
end; end;
@ -2182,6 +2184,7 @@ begin
AStaticItem.PrioritySolver := FScreenBuffer.GetSerial; AStaticItem.PrioritySolver := FScreenBuffer.GetSerial;
PrepareScreenBlock(FScreenBuffer.Insert(AStaticItem)); PrepareScreenBlock(FScreenBuffer.Insert(AStaticItem));
UpdateCurrentTile; UpdateCurrentTile;
FRepaintNeeded := True;
end; end;
end; end;