mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-07 01:57:57 +02:00
LCL: Optimize ImageList drawing by removing RefreshControl in TToolButton.SetImageIndex, issue #21766, patch from David Jenkins
git-svn-id: trunk@36785 -
This commit is contained in:
parent
f7fbc97d3f
commit
5323209a79
@ -580,10 +580,7 @@ begin
|
||||
if FImageIndex = Value then exit;
|
||||
FImageIndex := Value;
|
||||
if IsControlVisible and Assigned(FToolBar) then
|
||||
begin
|
||||
RefreshControl;
|
||||
Invalidate;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TToolButton.SetMarked(Value: Boolean);
|
||||
|
Loading…
Reference in New Issue
Block a user