paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 22:41:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cocoa/Scroller: Fix missing updates in setHasVerticalScroller() / setHasHorizontalScroller()

Browse Source
This commit is contained in:
rich2014 2023-12-17 17:38:30 +08:00
parent 74ea280dc4
commit 9a71c99c2c
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -480,17 +480,11 @@ begin
end;
procedure TCocoaManualScrollView.setHasVerticalScroller(doshow: Boolean);
var
ch : Boolean;
begin
ch := false;
if doshow then
begin
if not Assigned(fvscroll) then
begin
fvscroll := allocVerticalScroller(true);
ch := true;
end;
if fvscroll.isHidden then
begin
@ -499,7 +493,6 @@ begin
{$else}
fvscroll.setHidden(false);
{$endif}
ch := true;
end;
end
else if Assigned(fvscroll) and not fvscroll.isHidden then
@ -509,27 +502,18 @@ begin
{$else}
fvscroll.setHidden(true);
{$endif}
ch := true;
end;
if ch then
updateDocSize(self, fdocumentView, fhscroll, fvscroll);
updateDocSize(self, fdocumentView, fhscroll, fvscroll);
end;
procedure TCocoaManualScrollView.setHasHorizontalScroller(doshow: Boolean);
var
r : NSRect;
f : NSRect;
ch : Boolean;
begin
f:=frame;
ch:=false;
if doshow then
begin
if not Assigned(fhscroll) then
begin
fhscroll := allocHorizontalScroller(true);
ch := true;
end;
if fhscroll.isHidden then
begin
{$ifdef BOOLFIX}
@ -537,7 +521,6 @@ begin
{$else}
fhscroll.setHidden(false);
{$endif}
ch := true;
end;
end
else if Assigned(fhscroll) and (not fhscroll.isHidden) then
@ -547,11 +530,9 @@ begin
{$else}
fhscroll.setHidden(true);
{$endif}
ch := true;
end;
if ch then
updateDocSize(self, fdocumentView, fhscroll, fvscroll);
updateDocSize(self, fdocumentView, fhscroll, fvscroll);
end;
function TCocoaManualScrollView.hasVerticalScroller: Boolean;