paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 17:18:18 +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 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.

20
ide/ideoptiondefs.pas
View File

@ -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);