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

carbon: TCarbonScrollBar.GetScrollInfo implementation

Browse Source 
git-svn-id: trunk@21138 -
This commit is contained in:
dmitry 2009-08-08 11:24:09 +00:00
parent f2aa35fb07
commit ddf84c3a6e
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/carbon/carbonbars.pp
View File

@ -101,6 +101,7 @@ type
procedure SetParams; virtual;
procedure BoundsChanged; override;
function SetScrollInfo(SBStyle: Integer; const ScrollInfo: TScrollInfo): Integer; override;
procedure GetScrollInfo(SBStyle: Integer; var ScrollInfo: TScrollInfo); override;
end;
implementation
@ -474,5 +475,17 @@ begin
Result := GetValue;
end;
procedure TCarbonScrollBar.GetScrollInfo(SBStyle: Integer; var ScrollInfo: TScrollInfo);
begin
ScrollInfo.fMask := SIF_RANGE or SIF_POS or SIF_PAGE;
with ScrollInfo do
begin
nMin := GetControl32BitMinimum(ControlRef(Widget));
nMax := GetControl32BitMaximum(ControlRef(Widget));
nPos := GetControl32BitValue(ControlRef(Widget));
nPage := GetControlViewSize(ControlRef(Widget));
end;
end;
end.