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

Cocoa: reduce unnecessary calls to updateLayout in TCocoaManualScrollView.setHasVerticalScroller()

Browse Source 
in TCocoaManualScrollView.setHasHorizontalScroller() and TCocoaManualScrollView.setHasVerticalScroller
This commit is contained in:
rich2014 2024-06-29 22:33:26 +08:00
parent a31d972306
commit daf3b79a08
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/cocoa/cocoascrollers.pas
View File

@ -702,19 +702,27 @@ begin
end;
procedure TCocoaManualScrollView.setHasVerticalScroller(doshow: Boolean);
var
available: Boolean;
begin
available:= _manager.isAvailableScrollBar(fvscroll);
if NOT Assigned(fvscroll) and doshow then
fvscroll:= self.allocVerticalScroller( True );
_manager.availScrollBar( fvscroll, doshow );
_manager.updateLayout;
if available <> _manager.isAvailableScrollBar(fvscroll) then
_manager.updateLayout;
end;
procedure TCocoaManualScrollView.setHasHorizontalScroller(doshow: Boolean);
var
available: Boolean;
begin
available:= _manager.isAvailableScrollBar(fhscroll);
if NOT Assigned(fhscroll) and doshow then
fhscroll:= self.allocHorizontalScroller( True );
_manager.availScrollBar( fhscroll, doshow );
_manager.updateLayout;
if available <> _manager.isAvailableScrollBar(fhscroll) then
_manager.updateLayout;
end;
function TCocoaManualScrollView.hasVerticalScroller: Boolean;