- Fixed some events not correctly triggering a repaint
This commit is contained in:
parent
7d038013b2
commit
69a5b97b64
|
@ -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;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue