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