mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-10 17:18:18 +02:00
changed IDEWindowLayout forms to TCustomForm
git-svn-id: trunk@5018 -
This commit is contained in:
parent
d6f9a37a85
commit
032b0987de
@ -20,8 +20,8 @@ react.
|
|||||||
The LCL should send messages to the interface only in rare cases. In fact, only
|
The LCL should send messages to the interface only in rare cases. In fact, only
|
||||||
when it is common usage in VCL controls.
|
when it is common usage in VCL controls.
|
||||||
|
|
||||||
At the moment the interface send many messages to the LCL. This amount should be
|
At the moment the interfaces send many messages to the LCL. This amount should
|
||||||
reduced in future. Better create a procedure in the LCL, that will send the
|
be reduced in future. Better create a procedure in the LCL, that will send the
|
||||||
message. This way the parameters are well defined and all interfaces creates
|
message. This way the parameters are well defined and all interfaces creates
|
||||||
the messages the same way.
|
the messages the same way.
|
||||||
|
|
||||||
|
@ -129,7 +129,7 @@ type
|
|||||||
fHeight: integer;
|
fHeight: integer;
|
||||||
fWindowState: TIDEWindowState;
|
fWindowState: TIDEWindowState;
|
||||||
fWindowStatesAllowed: TIDEWindowStates;
|
fWindowStatesAllowed: TIDEWindowStates;
|
||||||
fForm: TForm;
|
fForm: TCustomForm;
|
||||||
fDockParent: string;
|
fDockParent: string;
|
||||||
fDockChilds: TStringList;
|
fDockChilds: TStringList;
|
||||||
fDockMode: TIDEWindowDockMode;
|
fDockMode: TIDEWindowDockMode;
|
||||||
@ -148,7 +148,7 @@ type
|
|||||||
procedure SetWindowStatesAllowed(const AValue: TIDEWindowStates);
|
procedure SetWindowStatesAllowed(const AValue: TIDEWindowStates);
|
||||||
procedure SetDockMode(const AValue: TIDEWindowDockMode);
|
procedure SetDockMode(const AValue: TIDEWindowDockMode);
|
||||||
procedure SetDockParent(const AValue: string);
|
procedure SetDockParent(const AValue: string);
|
||||||
procedure SetForm(const AValue: TForm);
|
procedure SetForm(const AValue: TCustomForm);
|
||||||
procedure SetWindowState(const AValue: TIDEWindowState);
|
procedure SetWindowState(const AValue: TIDEWindowState);
|
||||||
procedure SetLeft(const AValue: integer);
|
procedure SetLeft(const AValue: integer);
|
||||||
procedure SetTop(const AValue: integer);
|
procedure SetTop(const AValue: integer);
|
||||||
@ -184,7 +184,7 @@ type
|
|||||||
read fWindowState write SetWindowState;
|
read fWindowState write SetWindowState;
|
||||||
property WindowStatesAllowed: TIDEWindowStates
|
property WindowStatesAllowed: TIDEWindowStates
|
||||||
read fWindowStatesAllowed write SetWindowStatesAllowed;
|
read fWindowStatesAllowed write SetWindowStatesAllowed;
|
||||||
property Form: TForm read fForm write SetForm;
|
property Form: TCustomForm read fForm write SetForm;
|
||||||
property DockParent: string
|
property DockParent: string
|
||||||
read fDockParent write SetDockParent; // for format see GetFormId
|
read fDockParent write SetDockParent; // for format see GetFormId
|
||||||
property DockMode: TIDEWindowDockMode read fDockMode write SetDockMode;
|
property DockMode: TIDEWindowDockMode read fDockMode write SetDockMode;
|
||||||
@ -205,14 +205,14 @@ type
|
|||||||
procedure Clear; override;
|
procedure Clear; override;
|
||||||
procedure Delete(Index: Integer);
|
procedure Delete(Index: Integer);
|
||||||
procedure ApplyAll;
|
procedure ApplyAll;
|
||||||
procedure Apply(AForm: TForm; const ID: string);
|
procedure Apply(AForm: TCustomForm; const ID: string);
|
||||||
procedure StoreWindowPositions;
|
procedure StoreWindowPositions;
|
||||||
procedure Assign(SrcList: TIDEWindowLayoutList);
|
procedure Assign(SrcList: TIDEWindowLayoutList);
|
||||||
function IndexOf(const FormID: string): integer;
|
function IndexOf(const FormID: string): integer;
|
||||||
function ItemByForm(AForm: TForm): TIDEWindowLayout;
|
function ItemByForm(AForm: TCustomForm): TIDEWindowLayout;
|
||||||
function ItemByFormID(const FormID: string): TIDEWindowLayout;
|
function ItemByFormID(const FormID: string): TIDEWindowLayout;
|
||||||
function ItemByEnum(ID: TNonModalIDEWindow): TIDEWindowLayout;
|
function ItemByEnum(ID: TNonModalIDEWindow): TIDEWindowLayout;
|
||||||
procedure CloseForm(AForm: TForm);
|
procedure CloseForm(AForm: TCustomForm);
|
||||||
procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
||||||
procedure SaveToXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
procedure SaveToXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
||||||
public
|
public
|
||||||
@ -542,7 +542,7 @@ begin
|
|||||||
Form:=nil;
|
Form:=nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TIDEWindowLayout.SetForm(const AValue: TForm);
|
procedure TIDEWindowLayout.SetForm(const AValue: TCustomForm);
|
||||||
begin
|
begin
|
||||||
if fForm=AValue then exit;
|
if fForm=AValue then exit;
|
||||||
fForm:=AValue;
|
fForm:=AValue;
|
||||||
@ -737,7 +737,7 @@ begin
|
|||||||
Items[i].SaveToXMLConfig(XMLConfig,Path);
|
Items[i].SaveToXMLConfig(XMLConfig,Path);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TIDEWindowLayoutList.ItemByForm(AForm: TForm): TIDEWindowLayout;
|
function TIDEWindowLayoutList.ItemByForm(AForm: TCustomForm): TIDEWindowLayout;
|
||||||
var i: integer;
|
var i: integer;
|
||||||
begin
|
begin
|
||||||
i:=Count-1;
|
i:=Count-1;
|
||||||
@ -766,7 +766,7 @@ begin
|
|||||||
Result:=ItemByFormID(NonModalIDEWindowNames[ID]);
|
Result:=ItemByFormID(NonModalIDEWindowNames[ID]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TIDEWindowLayoutList.CloseForm(AForm: TForm);
|
procedure TIDEWindowLayoutList.CloseForm(AForm: TCustomForm);
|
||||||
var
|
var
|
||||||
ALayout: TIDEWindowLayout;
|
ALayout: TIDEWindowLayout;
|
||||||
begin
|
begin
|
||||||
@ -782,7 +782,7 @@ begin
|
|||||||
Items[i].Apply;
|
Items[i].Apply;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TIDEWindowLayoutList.Apply(AForm: TForm; const ID: string);
|
procedure TIDEWindowLayoutList.Apply(AForm: TCustomForm; const ID: string);
|
||||||
var ALayout: TIDEWindowLayout;
|
var ALayout: TIDEWindowLayout;
|
||||||
begin
|
begin
|
||||||
ALayout:=ItemByFormID(ID);
|
ALayout:=ItemByFormID(ID);
|
||||||
|
Loading…
Reference in New Issue
Block a user