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

SpartaDockedFormEditor: Remove not needed funny button

Browse Source 
git-svn-id: trunk@64282 -
This commit is contained in:
michl 2020-12-26 16:37:51 +00:00
parent 8a009c1c3a
commit b2881f7b9b
1 changed files with 5 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/sparta/mdi/source/sparta_abstractresizer.pas
View File

@ -14,8 +14,6 @@ type
{ TAbstractResizer }
TAbstractResizer = class(TComponent, IResizer)
private
procedure FunnyButtonClick(Sender: TObject);
protected { IResizer }
function GetActiveResizeFrame: IResizeFrame; virtual; abstract;
function GetActiveDesignedForm: IDesignedForm; virtual; abstract;
@ -56,7 +54,6 @@ type
pDesignTimeUtils: TPanel;
sbV: TScrollBar;
sbH: TScrollBar;
bR: TButton;
constructor Create(AParent: TWinControl; AResizerFrameClass: TResizerFrameClass); virtual; reintroduce;
property DesignScrollRight: Boolean index SB_Vert read FDesignScroll[SB_Vert] write SetDesignScroll;
@ -70,18 +67,6 @@ implementation
{ TAbstractResizer }
procedure TAbstractResizer.FunnyButtonClick(Sender: TObject);
begin
ShowMessage('Funny button with no functionality!'
+ sLineBreak
+ sLineBreak +
'Regards'
+ sLineBreak +
'Maciej Izak'
+ sLineBreak
+ sLineBreak + 'DaThoX team FreeSparta.com project');
end;
procedure TAbstractResizer.TryBoundSizerToDesignedForm(Sender: TObject);
var
LWidth, LHeight: Integer;
@ -348,22 +333,6 @@ begin
pAddons.BevelOuter := bvNone;
pAddons.Width:=0;
// Funny button
bR := TButton.Create(Self);
with bR do
begin
Parent := AParent;
Height := 17;
Width := 17;
AnchorSideRight.Control := pAddons;
AnchorSideBottom.Control := AParent;
AnchorSideBottom.Side := asrBottom;
Anchors := [akRight, akBottom];
Caption := 'R';
Visible := True;
OnClick := FunnyButtonClick;
end;
sbV := TScrollBar.Create(Self);
with sbV do
begin
@ -372,7 +341,7 @@ begin
AnchorSideTop.Control := pMainDTU;
AnchorSideTop.Side := asrBottom;
AnchorSideRight.Control := pAddons;
AnchorSideBottom.Control := bR;
AnchorSideBottom.Side := asrBottom;
Width := 17;
Anchors := [akTop, akRight, akBottom];
Visible := False;
@ -384,7 +353,7 @@ begin
begin
Parent := AParent;
AnchorSideLeft.Control := AParent;
AnchorSideRight.Control := bR;
AnchorSideRight.Side := asrRight;
AnchorSideBottom.Control := AParent;
AnchorSideBottom.Side := asrBottom;
Anchors := [akLeft, akRight, akBottom];
@ -405,6 +374,9 @@ begin
BevelOuter := bvNone;
end;
sbV.AnchorSideBottom.Control := pMain;
sbH.AnchorSideRight.Control := pMain;
pMain.OnChangeBounds:=TryBoundSizerToDesignedForm;
end;