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

Qt,Qt5: implemented ScrollBy for TWSCustomFrame

Browse Source 
git-svn-id: trunk@55790 -
This commit is contained in:
zeljko 2017-09-06 14:12:09 +00:00
parent 65a51ad938
commit e6cc12dc01
2 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/interfaces/qt/qtwsforms.pp
View File

@ -50,6 +50,7 @@ type
TQtWSCustomFrame = class(TWSCustomFrame)
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure ScrollBy(const AWinControl: TWinControl; DeltaX, DeltaY: integer); override;
end;
{ TQtWSFrame }
@ -156,6 +157,22 @@ begin
Result := TLCLIntfHandle(QtFrame);
end;
class procedure TQtWSCustomFrame.ScrollBy(const AWinControl: TWinControl;
DeltaX, DeltaY: integer);
{$IFDEF QTSCROLLABLEFORMS}
var
Widget: TQtMainWindow;
{$ENDIF}
begin
{$IFDEF QTSCROLLABLEFORMS}
if not WSCheckHandleAllocated(AWinControl, 'ScrollBy') then
Exit;
Widget := TQtMainWindow(AWinControl.Handle);
if Assigned(Widget.ScrollArea) then
Widget.ScrollArea.scroll(DeltaX, DeltaY);
{$ENDIF}
end;
{------------------------------------------------------------------------------
Method: TQtWSCustomForm.CreateHandle
Params: None

17
lcl/interfaces/qt5/qtwsforms.pp
View File

@ -49,6 +49,7 @@ type
TQtWSCustomFrame = class(TWSCustomFrame)
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure ScrollBy(const AWinControl: TWinControl; DeltaX, DeltaY: integer); override;
end;
{ TQtWSFrame }
@ -155,6 +156,22 @@ begin
Result := TLCLIntfHandle(QtFrame);
end;
class procedure TQtWSCustomFrame.ScrollBy(const AWinControl: TWinControl;
DeltaX, DeltaY: integer);
{$IFDEF QTSCROLLABLEFORMS}
var
Widget: TQtMainWindow;
{$ENDIF}
begin
{$IFDEF QTSCROLLABLEFORMS}
if not WSCheckHandleAllocated(AWinControl, 'ScrollBy') then
Exit;
Widget := TQtMainWindow(AWinControl.Handle);
if Assigned(Widget.ScrollArea) then
Widget.ScrollArea.scroll(DeltaX, DeltaY);
{$ENDIF}
end;
{------------------------------------------------------------------------------
Method: TQtWSCustomForm.CreateHandle
Params: None