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

qt: improved scrollbars (no more doubling of scrollbars after control reparenting)

Browse Source 
git-svn-id: trunk@13890 -
This commit is contained in:
paul 2008-01-27 09:42:22 +00:00
parent 4c2fed68d4
commit 6f0fd6986d
3 changed files with 79 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4231,53 +4231,43 @@ end;
procedure TQtAbstractSlider.SlotSliderMoved(p1: Integer); cdecl;
var
Msg: PLMessage;
LMScroll: TLMScroll;
LMScroll: TLMScroll;
begin
{$ifdef VerboseQt}
writeln('TQtAbstractSlider.sliderMoved() to pos=',p1);
{$endif}
FillChar(Msg, SizeOf(Msg), #0);
FillChar(LMScroll, SizeOf(LMScroll), #0);
LMScroll.ScrollBar := LCLObject.Handle;
LMScroll.ScrollBar := PtrUInt(Self);
if QAbstractSlider_orientation(QAbstractSliderH(Widget)) = QtHorizontal then
LMScroll.Msg := LM_HSCROLL
LMScroll.Msg := LM_HSCROLL
else
LMScroll.Msg := LM_VSCROLL;
LMScroll.Msg := LM_VSCROLL;
LMScroll.Pos := p1;
LMScroll.ScrollCode := SIF_POS; { SIF_TRACKPOS }
Msg := @LMScroll;
try
if (TScrollBar(LCLObject).Position <> p1)
and (Assigned(LCLObject.Parent)) then
LCLObject.Parent.WindowProc(Msg^);
except
Application.HandleException(nil);
end;
DeliverMessage(LMScroll);
end;
procedure TQtAbstractSlider.SlotSliderPressed; cdecl;
begin
{$ifdef VerboseQt}
writeln('TQtAbstractSlider.sliderPressed()');
{$endif}
FSliderPressed := True;
FSliderReleased := False;
{$ifdef VerboseQt}
writeln('TQtAbstractSlider.sliderPressed()');
{$endif}
FSliderPressed := True;
FSliderReleased := False;
end;
procedure TQtAbstractSlider.SlotSliderReleased; cdecl;
begin
{$ifdef VerboseQt}
writeln('TQtAbstractSlider.sliderReleased()');
{$endif}
FSliderPressed := False;
FSliderReleased := True;
{$ifdef VerboseQt}
writeln('TQtAbstractSlider.sliderReleased()');
{$endif}
FSliderPressed := False;
FSliderReleased := True;
end;
function TQtAbstractSlider.getOrientation: QtOrientation;
@ -4287,36 +4277,26 @@ end;
procedure TQtAbstractSlider.SlotValueChanged(p1: Integer); cdecl;
var
Msg: PLMessage;
LMScroll: TLMScroll;
begin
{$ifdef VerboseQt}
writeln('TQtAbstractSlider.SlotValueChanged()');
{$endif}
FillChar(Msg, SizeOf(Msg), #0);
FillChar(LMScroll, SizeOf(LMScroll), #0);
LMScroll.ScrollBar := LCLObject.Handle;
LMScroll.ScrollBar := PtrUInt(Self);
if QAbstractSlider_orientation(QAbstractSliderH(Widget)) = QtHorizontal then
LMScroll.Msg := LM_HSCROLL
LMScroll.Msg := LM_HSCROLL
else
LMScroll.Msg := LM_VSCROLL;
LMScroll.Msg := LM_VSCROLL;
LMScroll.Pos := p1;
LMScroll.ScrollCode := SIF_POS;
Msg := @LMScroll;
try
if not SliderPressed and Assigned(LCLObject.Parent)
and (p1 <> TScrollBar(LCLObject).Position) then
begin
LCLObject.Parent.WindowProc(Msg^);
end;
except
Application.HandleException(nil);
end;
if not SliderPressed then
DeliverMessage(LMScroll);
end;
@ -4339,7 +4319,8 @@ begin
QEventKeyPress,
QEventKeyRelease: Result := False;
else
Result := inherited EventFilter(Sender, Event);
if FOwnWidget then
Result := inherited EventFilter(Sender, Event);
end;
end;
@ -6866,6 +6847,8 @@ begin
WriteLn('TQAbstractScrollArea.Destroy');
{$endif}
viewportDelete;
FreeAndNil(FHScrollBar);
FreeAndNil(FVScrollBar);
inherited Destroy;
end;
@ -7043,6 +7026,11 @@ begin
{$ifdef VerboseQt}
WriteLn('TQAbstractScrollArea.horizontalScrollBar');
{$endif}
if FHScrollBar = nil then
begin
FHScrollBar := TQtScrollBar.CreateFrom(LCLObject, QAbstractScrollArea_horizontalScrollBar(QAbstractScrollAreaH(Widget)));
FHScrollBar.AttachEvents;
end;
Result := FHScrollBar;
end;
@ -7056,6 +7044,11 @@ begin
{$ifdef VerboseQt}
WriteLn('TQAbstractScrollArea.verticalScrollBar');
{$endif}
if FVScrollBar = nil then
begin
FVScrollbar := TQtScrollBar.CreateFrom(LCLObject, QAbstractScrollArea_verticalScrollBar(QAbstractScrollAreaH(Widget)));;
FVScrollbar.AttachEvents;
end;
Result := FVScrollBar;
end;

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

@ -2371,13 +2371,13 @@ begin
ScrollBar := TQtAbstractScrollArea(w).horizontalScrollBar;
end else
if w is TQtScrollBar then
ScrollBar := TQtScrollBar(w)
ScrollBar := TQtScrollBar(w)
else
ScrollBar := nil;
if ScrollBar <> nil then
begin
if BarKind = SM_CYVSCROLL then
Result := ScrollBar.getWidth
if BarKind = SM_CYVSCROLL then
Result := ScrollBar.getWidth
else
Result := ScrollBar.getHeight;
end;
@ -2405,7 +2405,7 @@ begin
ScrollBar := TQtAbstractScrollArea(w).horizontalScrollBar;
end else
if w is TQtScrollBar then
ScrollBar := TQtScrollBar(w)
ScrollBar := TQtScrollBar(w)
else
ScrollBar := nil;
@ -2430,7 +2430,6 @@ end;
------------------------------------------------------------------------------}
function TQtWidgetSet.GetScrollInfo(Handle: HWND; BarFlag: Integer; Var ScrollInfo: TScrollInfo): Boolean;
var
FScrollBar: TScrollBar;
QtScrollBar: TQtScrollBar;
begin
Result := False;
@ -2441,7 +2440,6 @@ begin
(csFreeNotification in TQtWidget(Handle).LCLObject.ComponentState) then
exit;
FScrollBar := nil;
QtScrollBar := nil;
if not TQtWidget(Handle).LCLObject.InheritsFrom(TCustomScrollBar) then
@ -2452,38 +2450,31 @@ begin
SB_HORZ: QtScrollBar := TQtAbstractScrollArea(Handle).horizontalScrollBar;
SB_VERT: QtScrollBar := TQtAbstractScrollArea(Handle).verticalScrollBar;
end;
if QtScrollBar = nil then exit
else FScrollBar := TScrollBar(QtScrollBar.LCLObject);
end else
Result := False;
end
else
FScrollBar := TScrollBar(TQtWidget(Handle).LCLObject);
QtScrollBar := TQtScrollBar(TScrollBar(TQtWidget(Handle).LCLObject).Handle);
if Assigned(FScrollBar) then
if Assigned(QtScrollBar) then
begin
if (csDestroying in FScrollBar.ComponentState) then exit;
// POS
if (ScrollInfo.fMask and SIF_POS) <> 0 then
ScrollInfo.nPos := FScrollBar.Position;
ScrollInfo.nPos := QtScrollBar.getValue;
// RANGE
if (ScrollInfo.fMask and SIF_RANGE) <> 0
then begin
ScrollInfo.nMin:= FScrollBar.Min;
ScrollInfo.nMax:= FScrollBar.Max;
ScrollInfo.nMin:= QtScrollBar.getMin;
ScrollInfo.nMax:= QtScrollBar.getMax;
end;
// PAGE
if (ScrollInfo.fMask and SIF_PAGE) <> 0 then
ScrollInfo.nPage := FScrollBar.PageSize;
ScrollInfo.nPage := QtScrollBar.getPageStep;
// TRACKPOS TrackPos is setted up as in gtk implementation
if (ScrollInfo.fMask and SIF_TRACKPOS) <> 0 then
ScrollInfo.nTrackPos := FScrollBar.Position;
ScrollInfo.nTrackPos := QtScrollBar.getValue;
Result := True;
end;
@ -4235,7 +4226,8 @@ end;
function TQtWidgetSet.SetScrollInfo(Handle : HWND; SBStyle : Integer;
ScrollInfo: TScrollInfo; bRedraw : Boolean): Integer;
var
ScrollBar: TScrollBar;
Control: TWinControl;
ScrollBar: TQtScrollBar;
FScrollInfo: TScrollInfo;
function PrepareScrollInfo: Integer;
@ -4261,14 +4253,14 @@ begin
begin
FScrollInfo.nMin := ScrollInfo.nMin;
FScrollInfo.nMax := ScrollInfo.nMax;
ScrollBar.Min := ScrollInfo.nMin;
ScrollBar.setMinimum(ScrollInfo.nMin);
{we must recount ScrollBar.Max since invalid value raises AV}
iRecountMax := FScrollInfo.nMax - ScrollInfo.nPage;
if iRecountMax < FScrollInfo.nMin then
iRecountMax := FScrollInfo.nMin;
iRecountMax := FScrollInfo.nMin;
ScrollBar.Max := iRecountMax;
ScrollBar.setMaximum(iRecountMax);
{ - (ScrollInfo.nMax div 4 PageStep property)); }
end;
@ -4276,8 +4268,8 @@ begin
begin
FScrollInfo.nPage := ScrollInfo.nPage;
{segfaults if we don't check Enabled property !}
if ScrollBar.Enabled then
ScrollBar.PageSize := ScrollInfo.nPage;
if ScrollBar.getEnabled then
ScrollBar.setPageStep(ScrollInfo.nPage);
end;
if (ScrollInfo.FMask and SIF_POS) <> 0 then
@ -4285,14 +4277,13 @@ begin
FScrollInfo.nPos := ScrollInfo.nPos;
FScrollInfo.nTrackPos := ScrollInfo.nPos;
if (FScrollInfo.nPos < ScrollBar.Min) then
FScrollInfo.nPos := ScrollBar.Min
if (FScrollInfo.nPos < ScrollBar.getMin) then
FScrollInfo.nPos := ScrollBar.getMin
else
if (FScrollInfo.nPos > ScrollBar.Max) then
FScrollInfo.nPos := ScrollBar.Max;
if (FScrollInfo.nPos > ScrollBar.getMax) then
FScrollInfo.nPos := ScrollBar.getMax;
if (ScrollBar.Position <> FScrollInfo.nPos) then
ScrollBar.Position := FScrollInfo.nPos;
ScrollBar.setValue(FScrollInfo.nPos);
end;
if (ScrollInfo.FMask and SIF_TRACKPOS) <> 0 then
@ -4311,9 +4302,8 @@ begin
if (Handle = 0) then exit;
ScrollBar := NiL;
ScrollBar := nil;
case SBStyle of
SB_BOTH:
begin
{TODO: SB_BOTH fixme }
@ -4326,17 +4316,10 @@ begin
if (csReading in TQtWidget(Handle).LCLObject.ComponentState) or
(csDestroying in TQtWidget(Handle).LCLObject.ComponentState) then exit;
ScrollBar := TScrollBar(TQtWidget(Handle).LCLObject);
ScrollBar := TQtScrollBar(Handle);
if not Assigned(ScrollBar) then exit;
if not Assigned(ScrollBar.Parent) then
begin
ScrollBar := NiL;
exit; {still creating ... set it to Nil because of PrepareScrollInfo() }
end;
ScrollBar.Visible := bRedraw;
ScrollBar.setVisible(bRedraw);
end; {SB_CTL}
SB_HORZ:
@ -4348,15 +4331,17 @@ begin
if TQtWidget(Handle) is TQtAbstractScrollArea then
begin
if TQtAbstractScrollArea(Handle).horizontalScrollBar <> nil then
ScrollBar := TScrollBar(TQtAbstractScrollArea(Handle).horizontalScrollBar.LCLObject);
ScrollBar := TQtAbstractScrollArea(Handle).horizontalScrollBar;
end else
begin
{do not localize !}
ScrollBar := TScrollBar(TQtWidget(Handle).LCLObject.FindChildControl(TQtWidget(Handle).LCLObject.Name+'_HSCROLLBAR'));
Control := TWinControl(TQtWidget(Handle).LCLObject.FindChildControl(TQtWidget(Handle).LCLObject.Name+'_HSCROLLBAR'));
if (Control <> nil) and (Control.HandleAllocated) then
ScrollBar := TQtScrollBar(Control.Handle)
end;
if Assigned(ScrollBar) then
ScrollBar.Visible := bRedraw;
ScrollBar.setVisible(bRedraw);
end; {SB_HORZ}
SB_VERT:
@ -4368,14 +4353,17 @@ begin
if TQtWidget(Handle) is TQtAbstractScrollArea then
begin
if TQtAbstractScrollArea(Handle).verticalScrollBar <> nil then
ScrollBar := TScrollBar(TQtAbstractScrollArea(Handle).verticalScrollBar.LCLObject);
ScrollBar := TQtAbstractScrollArea(Handle).verticalScrollBar;
end else
begin
{do not localize !}
ScrollBar := TScrollBar(TQtWidget(Handle).LCLObject.FindChildControl(TQtWidget(Handle).LCLObject.Name+'_VSCROLLBAR'));
Control := TWinControl(TQtWidget(Handle).LCLObject.FindChildControl(TQtWidget(Handle).LCLObject.Name+'_VSCROLLBAR'));
if (Control <> nil) and (Control.HandleAllocated) then
ScrollBar := TQtScrollBar(Control.Handle)
end;
if Assigned(ScrollBar) then
ScrollBar.Visible := bRedraw;
ScrollBar.setVisible(bRedraw);
end; {SB_VERT}
@ -4416,34 +4404,6 @@ function TQtWidgetSet.ShowScrollBar(Handle: HWND; wBar: Integer; bShow: Boolean)
var
w: TQtWidget;
ScrollArea: TQtAbstractScrollArea;
ScrollBar: TScrollBar;
procedure PrepareHorizontalScrollBar;
begin
if ScrollArea.horizontalScrollBar = nil then
begin
ScrollBar := TScrollBar.Create(w.LCLObject);
ScrollBar.Parent := w.LCLObject;
ScrollBar.Kind := sbHorizontal;
ScrollArea.sethorizontalScrollBar(TQtScrollBar(ScrollBar.Handle));
ScrollArea.setScrollStyle(ssAutoHorizontal);
ScrollArea.horizontalScrollBar.Show;
end;
end;
procedure PrepareVerticalScrollBar;
begin
if ScrollArea.verticalScrollBar = nil then
begin
ScrollBar := TScrollBar.Create(w.LCLObject);
ScrollBar.Parent := w.LCLObject;
ScrollBar.Kind := sbVertical;
ScrollArea.setverticalScrollBar(TQtScrollBar(ScrollBar.Handle));
ScrollArea.setScrollStyle(ssAutoVertical);
ScrollArea.verticalScrollBar.Show;
end;
end;
begin
{$ifdef VerboseQtWinAPI}
WriteLn('[WinAPI ShowScrollBar] Handle: ', dbghex(Handle),' wBar: ',wBar);
@ -4461,8 +4421,6 @@ begin
case wBar of
SB_BOTH:
begin
PrepareHorizontalScrollBar;
PrepareVerticalScrollBar;
if bShow then
ScrollArea.setScrollStyle(ssBoth)
else
@ -4471,7 +4429,6 @@ begin
SB_HORZ:
begin
PrepareHorizontalScrollBar;
if bShow then
ScrollArea.setScrollStyle(ssHorizontal)
else
@ -4480,7 +4437,6 @@ begin
SB_VERT:
begin
PrepareVerticalScrollBar;
if bShow then
ScrollArea.setScrollStyle(ssVertical)
else

5
lcl/interfaces/qt/qtwsstdctrls.pp
View File

@ -337,6 +337,11 @@ begin
QtScrollBar.AttachEvents;
case TScrollBar(AWinControl).Kind of
sbHorizontal: QtScrollBar.SetOrientation(QtHorizontal);
sbVertical: QtScrollBar.SetOrientation(QtVertical);
end;
Result := TLCLIntfHandle(QtScrollbar);
end;