paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 20:22:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

changed IDEWindowLayout forms to TCustomForm

Browse Source 
git-svn-id: trunk@5018 -
This commit is contained in:
mattias 2004-01-05 22:02:56 +00:00
parent d6f9a37a85
commit 032b0987de
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docs/LCLMessages.txt
View File

@ -20,8 +20,8 @@ react.
The LCL should send messages to the interface only in rare cases. In fact, only
when it is common usage in VCL controls.
At the moment the interface send many messages to the LCL. This amount should be
reduced in future. Better create a procedure in the LCL, that will send the
At the moment the interfaces send many messages to the LCL. This amount should
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
the messages the same way.

20
ide/ideoptiondefs.pas
View File

@ -129,7 +129,7 @@ type
fHeight: integer;
fWindowState: TIDEWindowState;
fWindowStatesAllowed: TIDEWindowStates;
fForm: TForm;
fForm: TCustomForm;
fDockParent: string;
fDockChilds: TStringList;
fDockMode: TIDEWindowDockMode;
@ -148,7 +148,7 @@ type
procedure SetWindowStatesAllowed(const AValue: TIDEWindowStates);
procedure SetDockMode(const AValue: TIDEWindowDockMode);
procedure SetDockParent(const AValue: string);
procedure SetForm(const AValue: TForm);
procedure SetForm(const AValue: TCustomForm);
procedure SetWindowState(const AValue: TIDEWindowState);
procedure SetLeft(const AValue: integer);
procedure SetTop(const AValue: integer);
@ -184,7 +184,7 @@ type
read fWindowState write SetWindowState;
property WindowStatesAllowed: TIDEWindowStates
read fWindowStatesAllowed write SetWindowStatesAllowed;
property Form: TForm read fForm write SetForm;
property Form: TCustomForm read fForm write SetForm;
property DockParent: string
read fDockParent write SetDockParent; // for format see GetFormId
property DockMode: TIDEWindowDockMode read fDockMode write SetDockMode;
@ -205,14 +205,14 @@ type
procedure Clear; override;
procedure Delete(Index: Integer);
procedure ApplyAll;
procedure Apply(AForm: TForm; const ID: string);
procedure Apply(AForm: TCustomForm; const ID: string);
procedure StoreWindowPositions;
procedure Assign(SrcList: TIDEWindowLayoutList);
function IndexOf(const FormID: string): integer;
function ItemByForm(AForm: TForm): TIDEWindowLayout;
function ItemByForm(AForm: TCustomForm): TIDEWindowLayout;
function ItemByFormID(const FormID: string): TIDEWindowLayout;
function ItemByEnum(ID: TNonModalIDEWindow): TIDEWindowLayout;
procedure CloseForm(AForm: TForm);
procedure CloseForm(AForm: TCustomForm);
procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
procedure SaveToXMLConfig(XMLConfig: TXMLConfig; const Path: string);
public
@ -542,7 +542,7 @@ begin
Form:=nil;
end;
procedure TIDEWindowLayout.SetForm(const AValue: TForm);
procedure TIDEWindowLayout.SetForm(const AValue: TCustomForm);
begin
if fForm=AValue then exit;
fForm:=AValue;
@ -737,7 +737,7 @@ begin
Items[i].SaveToXMLConfig(XMLConfig,Path);
end;
function TIDEWindowLayoutList.ItemByForm(AForm: TForm): TIDEWindowLayout;
function TIDEWindowLayoutList.ItemByForm(AForm: TCustomForm): TIDEWindowLayout;
var i: integer;
begin
i:=Count-1;
@ -766,7 +766,7 @@ begin
Result:=ItemByFormID(NonModalIDEWindowNames[ID]);
end;
procedure TIDEWindowLayoutList.CloseForm(AForm: TForm);
procedure TIDEWindowLayoutList.CloseForm(AForm: TCustomForm);
var
ALayout: TIDEWindowLayout;
begin
@ -782,7 +782,7 @@ begin
Items[i].Apply;
end;
procedure TIDEWindowLayoutList.Apply(AForm: TForm; const ID: string);
procedure TIDEWindowLayoutList.Apply(AForm: TCustomForm; const ID: string);
var ALayout: TIDEWindowLayout;
begin
ALayout:=ItemByFormID(ID);