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

Qt: fixed TQtWidgetSet.GetScrollInfo() for max value of scrollbar, it should append getPageStep do stay in measures with LCL.issue #17554

Browse Source 
git-svn-id: trunk@29104 -
This commit is contained in:
zeljko 2011-01-18 09:24:54 +00:00
parent bda600ef26
commit 08cadf3903
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt/qtwidgets.pas
View File

@ -352,6 +352,8 @@ type
{ TQtScrollBar }
TQtScrollBar = class(TQtAbstractSlider)
private
FTrackPos: Integer;
protected
function CreateWidget(const AParams: TCreateParams):QWidgetH; override;
public
@ -359,6 +361,7 @@ type
procedure setFocusPolicy(const APolicy: QtFocusPolicy); override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
procedure AttachEvents; override;
property TrackPos: Integer read FTrackPos write FTrackPos;
end;
{ TQtFrame }
@ -5900,10 +5903,13 @@ begin
LMScroll.Pos := p1;
LMScroll.ScrollCode := SIF_POS;
if not InUpdate then
DeliverMessage(LMScroll);
b := p1 = getMax;
if not InUpdate or (getVisible and ((p1=getMin) or b)) then
begin
DeliverMessage(LMScroll);
if b and (FChildOfComplexWidget = ccwAbstractScrollArea) then
begin
LCLObject.DoAdjustClientRectChange;
@ -6012,6 +6018,7 @@ begin
Parent := TQtWidget(AParams.WndParent).GetContainerWidget
else
Parent := nil;
FTrackPos := 0;
Result := QScrollBar_create(Parent);
QWidget_setFocusPolicy(Result, QtNoFocus);
if (QtVersionMajor = 4) and (QtVersionMinor < 6) then
@ -11479,6 +11486,12 @@ begin
begin
FHScrollBar := TQtScrollBar.CreateFrom(LCLObject,
QAbstractScrollArea_horizontalScrollBar(QAbstractScrollAreaH(Widget)));
if FHScrollBar.getTracking then
FHScrollBar.TrackPos := SB_POLICY_CONTINUOUS
else
FHScrollBar.TrackPos := SB_POLICY_DISCONTINUOUS;
FHScrollBar.ChildOfComplexWidget := ccwAbstractScrollArea;
FHScrollBar.FOwner := Self;
FHScrollBar.setFocusPolicy(QtNoFocus);
@ -11501,6 +11514,10 @@ begin
begin
FVScrollbar := TQtScrollBar.CreateFrom(LCLObject,
QAbstractScrollArea_verticalScrollBar(QAbstractScrollAreaH(Widget)));;
if FVScrollBar.getTracking then
FVScrollBar.TrackPos := SB_POLICY_CONTINUOUS
else
FVScrollBar.TrackPos := SB_POLICY_DISCONTINUOUS;
FVScrollBar.ChildOfComplexWidget := ccwAbstractScrollArea;
FVScrollBar.FOwner := Self;
FVScrollBar.setFocusPolicy(QtNoFocus);

3
lcl/interfaces/qt/qtwinapi.inc
View File

@ -2917,7 +2917,7 @@ begin
if (ScrollInfo.fMask and SIF_RANGE) <> 0
then begin
ScrollInfo.nMin:= QtScrollBar.getMin;
ScrollInfo.nMax:= QtScrollBar.getMax;
ScrollInfo.nMax:= QtScrollBar.getMax + QtScrollBar.getPageStep;
end;
// PAGE
if (ScrollInfo.fMask and SIF_PAGE) <> 0 then
@ -5355,6 +5355,7 @@ var
if (ScrollInfo.FMask and SIF_TRACKPOS) <> 0 then
begin
ScrollBar.TrackPos := ScrollInfo.nTrackPos;
// from MSDN: the SetScrollInfo function ignores this member
// ScrollBar.setSliderPosition(ScrollInfo.nTrackPos);
end;