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

DockedFormEditor: Cleanup: Remove not needed TResizeForm

Browse Source 
git-svn-id: trunk@64941 -
This commit is contained in:
michl 2021-04-07 17:49:07 +00:00
parent 7bfd45feed
commit 1764fd30fb
2 changed files with 1 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/dockedformeditor/source/dockedformaccesses.pas
View File

@ -55,22 +55,9 @@ type
property Update: Boolean read FUpdate;
end;
{ TResizeForm }
TResizeForm = class(TFormAccess)
protected
function GetHorzScrollPosition: Integer; virtual;
function GetVertScrollPosition: Integer; virtual;
procedure SetHorzScrollPosition({%H-}AValue: Integer); virtual;
procedure SetVertScrollPosition({%H-}AValue: Integer); virtual;
public
property HorzScrollPosition: Integer read GetHorzScrollPosition write SetHorzScrollPosition;
property VertScrollPosition: Integer read GetVertScrollPosition write SetVertScrollPosition;
end;
{ TDesignFormIDE }
TDesignFormIDE = class(TResizeForm)
TDesignFormIDE = class(TFormAccess)
private
FAnchorDesigner: TBasicAnchorDesigner;
FLastActiveSourceWindow: TSourceEditorWindowInterface;
@ -98,26 +85,6 @@ implementation
type
THackForm = class(TForm);
{ TResizeForm }
function TResizeForm.GetHorzScrollPosition: Integer;
begin
Result := -Left;
end;
function TResizeForm.GetVertScrollPosition: Integer;
begin
Result := -Top;
end;
procedure TResizeForm.SetHorzScrollPosition(AValue: Integer);
begin
end;
procedure TResizeForm.SetVertScrollPosition(AValue: Integer);
begin
end;
{ TDesignFormIDE }
function TFormAccess.GetPublishedBounds(AIndex: Integer): Integer;

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

@ -147,8 +147,6 @@ begin
end;
procedure TResizer.ScrollBarScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
var
LScrollPos: Integer;
begin
case ScrollCode of
scLineDown: ScrollPos := ScrollPos + 50;
@ -172,18 +170,12 @@ begin
ScrollPos := Min(ScrollPos, FRealMaxV);
ScrollPos := Max(ScrollPos, 0);
FScrollPos.y := ScrollPos;
// scroll for form
LScrollPos := Max(ScrollPos - ResizeControl.SizerGripSize, 0);
DesignForm.VertScrollPosition := LScrollPos;
end;
if Sender = FScrollBarHorz then
begin
ScrollPos := Min(ScrollPos, FRealMaxH);
ScrollPos := Max(ScrollPos, 0);
FScrollPos.x := ScrollPos;
// scroll for form
LScrollPos := Max(ScrollPos - ResizeControl.SizerGripSize, 0);
DesignForm.HorzScrollPosition := LScrollPos;
end;
DesignForm.EndUpdate;
if not FPostponedAdjustResizeControl then