- Fixed TfrmMain.OnStaticElevated to correctly handle off-screen updates

This commit is contained in:
Andreas Schneider 2009-12-05 00:57:55 +01:00
parent a5082879fe
commit 4da488a02b
1 changed files with 8 additions and 2 deletions

View File

@ -2096,10 +2096,16 @@ begin
end;
procedure TfrmMain.OnStaticElevated(AStaticItem: TStaticItem);
var
blockInfo: PBlockInfo;
begin
AStaticItem.PrioritySolver := FScreenBuffer.GetSerial;
PrepareScreenBlock(FScreenBuffer.UpdateSortOrder(AStaticItem));
Exclude(FScreenBufferState, sbsIndexed);
blockInfo := FScreenBuffer.UpdateSortOrder(AStaticItem);
if blockInfo <> nil then
begin
PrepareScreenBlock(blockInfo);
Exclude(FScreenBufferState, sbsIndexed);
end;
end;
procedure TfrmMain.OnStaticHued(AStaticItem: TStaticItem);