paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 18:38:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Optimize ImageList drawing by removing RefreshControl in TToolButton.SetImageIndex, issue #21766, patch from David Jenkins

Browse Source 
git-svn-id: trunk@36785 -
This commit is contained in:
juha 2012-04-15 07:46:22 +00:00
parent f7fbc97d3f
commit 5323209a79
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/toolbutton.inc
View File

@ -580,10 +580,7 @@ begin
if FImageIndex = Value then exit; if FImageIndex = Value then exit;
FImageIndex := Value; FImageIndex := Value;
if IsControlVisible and Assigned(FToolBar) then if IsControlVisible and Assigned(FToolBar) then
begin
RefreshControl;
Invalidate; Invalidate;
end;
end; end;
procedure TToolButton.SetMarked(Value: Boolean); procedure TToolButton.SetMarked(Value: Boolean);