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

IdeIntf: Fix a typo in the type name TLayoutMoveToVisbleMode

Browse Source
This commit is contained in:
n7800 2024-09-14 17:04:49 +05:00 committed by Martin
parent 0ac8701194
commit 3f4266f91a
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/ideintf/idewindowintf.pas
View File

@ -243,7 +243,7 @@ type
end;
{ TSimpleWindowLayoutList }
TLayoutMoveToVisbleMode = (
TLayoutMoveToVisibleMode = (
vmAlwaysMoveToVisible,
vmNeverMoveToVisible,
vmOnlyMoveOffScreenToVisible // Only make visible, if offscreen (with a threshold)
@ -262,7 +262,7 @@ type
procedure Delete(Index: Integer);
procedure ApplyAndShow(Sender: TObject; AForm: TCustomForm;
BringToFront: boolean;
AMoveToVisbleMode: TLayoutMoveToVisbleMode = vmOnlyMoveOffScreenToVisible);
AMoveToVisibleMode: TLayoutMoveToVisibleMode = vmOnlyMoveOffScreenToVisible);
procedure StoreWindowPositions;
procedure SetDefaultPosition(const AForm: TCustomForm);
procedure MoveToTop(const AFormID: string);
@ -413,7 +413,7 @@ type
function GetForm(aFormName: string; AutoCreate: boolean;
DisableAutoSizing: boolean = false): TCustomForm;
procedure ShowForm(AForm: TCustomForm; BringToFront: boolean;
AMoveToVisbleMode: TLayoutMoveToVisbleMode = vmOnlyMoveOffScreenToVisible); overload;
AMoveToVisibleMode: TLayoutMoveToVisibleMode = vmOnlyMoveOffScreenToVisible); overload;
function ShowForm(AFormName: string; BringToFront: boolean): TCustomForm; overload;
procedure CreateForm(var AForm; AFormClass: TCustomFormClass;
DoDisableAutoSizing: boolean; TheOwner: TComponent); // utility function to create a form with delayed autosizing
@ -1694,12 +1694,12 @@ begin
end;
procedure TSimpleWindowLayoutList.ApplyAndShow(Sender: TObject; AForm: TCustomForm;
BringToFront: boolean; AMoveToVisbleMode: TLayoutMoveToVisbleMode);
BringToFront: boolean; AMoveToVisibleMode: TLayoutMoveToVisibleMode);
procedure AdjustShowing;
begin
if (AMoveToVisbleMode = vmAlwaysMoveToVisible)
or ((AMoveToVisbleMode = vmOnlyMoveOffScreenToVisible) and IsFormStatic(AForm))
if (AMoveToVisibleMode = vmAlwaysMoveToVisible)
or ((AMoveToVisibleMode = vmOnlyMoveOffScreenToVisible) and IsFormStatic(AForm))
then
AForm.MakeFullyVisible(nil, True);
AForm.ShowOnTop;
@ -1797,7 +1797,7 @@ begin
NewBounds.Right:=Max(NewBounds.Left+100,NewBounds.Right);
NewBounds.Bottom:=Max(NewBounds.Top+100,NewBounds.Bottom);
AForm.BoundsRect:=NewBounds;
AMoveToVisbleMode := vmOnlyMoveOffScreenToVisible;
AMoveToVisibleMode := vmOnlyMoveOffScreenToVisible;
end;
finally
// do not change Visible property while designing form. issue #20602
@ -2238,7 +2238,7 @@ begin
end;
procedure TIDEWindowCreatorList.ShowForm(AForm: TCustomForm; BringToFront: boolean;
AMoveToVisbleMode: TLayoutMoveToVisbleMode);
AMoveToVisibleMode: TLayoutMoveToVisibleMode);
var
Layout: TSimpleWindowLayout;
begin
@ -2262,7 +2262,7 @@ begin
if (IDETabMaster <> nil) and IsFormDesign(AForm) then
IDETabMaster.ShowForm(AForm)
else
SimpleLayoutStorage.ApplyAndShow(Self,AForm,BringToFront,AMoveToVisbleMode);
SimpleLayoutStorage.ApplyAndShow(Self,AForm,BringToFront,AMoveToVisibleMode);
end;
function TIDEWindowCreatorList.ShowForm(AFormName: string; BringToFront: boolean): TCustomForm;