- Fixed TfrmMain.OnStaticElevated to correctly handle off-screen updates
This commit is contained in:
		
							parent
							
								
									a5082879fe
								
							
						
					
					
						commit
						4da488a02b
					
				@ -2096,10 +2096,16 @@ begin
 | 
				
			|||||||
end;
 | 
					end;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
procedure TfrmMain.OnStaticElevated(AStaticItem: TStaticItem);
 | 
					procedure TfrmMain.OnStaticElevated(AStaticItem: TStaticItem);
 | 
				
			||||||
 | 
					var
 | 
				
			||||||
 | 
					  blockInfo: PBlockInfo;
 | 
				
			||||||
begin
 | 
					begin
 | 
				
			||||||
  AStaticItem.PrioritySolver := FScreenBuffer.GetSerial;
 | 
					  AStaticItem.PrioritySolver := FScreenBuffer.GetSerial;
 | 
				
			||||||
  PrepareScreenBlock(FScreenBuffer.UpdateSortOrder(AStaticItem));
 | 
					  blockInfo := FScreenBuffer.UpdateSortOrder(AStaticItem);
 | 
				
			||||||
  Exclude(FScreenBufferState, sbsIndexed);
 | 
					  if blockInfo <> nil then
 | 
				
			||||||
 | 
					  begin
 | 
				
			||||||
 | 
					    PrepareScreenBlock(blockInfo);
 | 
				
			||||||
 | 
					    Exclude(FScreenBufferState, sbsIndexed);
 | 
				
			||||||
 | 
					  end;
 | 
				
			||||||
end;
 | 
					end;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
procedure TfrmMain.OnStaticHued(AStaticItem: TStaticItem);
 | 
					procedure TfrmMain.OnStaticHued(AStaticItem: TStaticItem);
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user