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

Cocoa: remove unnecessary Legacy Style-only code in Scroll

Browse Source
This commit is contained in:
rich2014 2024-07-05 21:12:29 +08:00
parent ca2bb30540
commit 7f97b8379d
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -555,13 +555,6 @@ begin
scrollBar:= TCocoaScrollBar(TCocoaScrollBar.alloc).initWithFrame(dst); scrollBar:= TCocoaScrollBar(TCocoaScrollBar.alloc).initWithFrame(dst);
scrollBar.setManager( parent._manager ); scrollBar.setManager( parent._manager );
parent.addSubview(scrollBar); parent.addSubview(scrollBar);
{$ifdef BOOLFIX}
scrollBar.setEnabled_(Ord(true));
scrollBar.setHidden_(Ord(not AVisible));
{$else}
scrollBar.setEnabled(true);
scrollBar.setHidden(not AVisible);
{$endif}
scrollBar.preventBlock := true; scrollBar.preventBlock := true;
//Suppress scrollers notifications. //Suppress scrollers notifications.
scrollBar.callback := parent.callback; scrollBar.callback := parent.callback;