paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Improved scrolling - awareness of ScrollCode scLine & scPage

Browse Source 
git-svn-id: trunk@64559 -
This commit is contained in:
michl 2021-02-12 22:23:22 +00:00
parent b9656b6bf5
commit c862011cd9
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/dockedformeditor/source/dockedresizer.pas
View File

@ -50,7 +50,7 @@ type
WheelDelta: Integer; {%H-}MousePos: TPoint; var {%H-}Handled: Boolean); WheelDelta: Integer; {%H-}MousePos: TPoint; var {%H-}Handled: Boolean);
procedure SetDesignForm(AValue: TDesignForm); procedure SetDesignForm(AValue: TDesignForm);
procedure SetDesignScroll(AIndex: Integer; AValue: Boolean); procedure SetDesignScroll(AIndex: Integer; AValue: Boolean);
procedure ScrollBarScroll(Sender: TObject; {%H-}ScrollCode: TScrollCode; var ScrollPos: Integer); procedure ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
public public
ResizeFrame: TResizeFrame; ResizeFrame: TResizeFrame;
ScrollBarVert: TScrollBar; ScrollBarVert: TScrollBar;
@ -143,6 +143,21 @@ procedure TResizer.ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var
var var
LScrollPos: Integer; LScrollPos: Integer;
begin begin
case ScrollCode of
scLineDown: ScrollPos := ScrollPos + 50;
scLineUp: ScrollPos := ScrollPos - 50;
scPageDown:
begin
if Sender = ScrollBarHorz then ScrollPos := ScrollPos + ResizeFrame.Width;
if Sender = ScrollBarVert then ScrollPos := ScrollPos + ResizeFrame.Height;
end;
scPageUp:
begin
if Sender = ScrollBarHorz then ScrollPos := ScrollPos - ResizeFrame.Width;
if Sender = ScrollBarVert then ScrollPos := ScrollPos - ResizeFrame.Height;
end;
end;
DesignForm.BeginUpdate; DesignForm.BeginUpdate;
if Sender = ScrollBarVert then if Sender = ScrollBarVert then
begin begin