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

Modified Gloabal so TDesignForm isn't included anymore.

Browse Source 
Shane

git-svn-id: trunk@56 -
This commit is contained in:
lazarus 2000-12-01 18:12:40 +00:00
parent 3952fe23db
commit 62cc3bcd41
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/global.pp
View File

@ -36,7 +36,7 @@ type
FFlags : TProjFlags;
FSource : TStringList;
FPage : Integer;
// FForm : TDesignerForm;
// FForm : TDesignerForm;
Procedure SetFormName(Value : String);
Function GetFormName : String;
Procedure SetPage(Value : Integer);
@ -53,7 +53,7 @@ type
Property Page : Integer read GetPage write SetPage;
Property FileName : String read FFileName write FFilename;
Property Flags : TProjFlags read FFlags write FFLags;
// property Form : TDesignerForm read fform write fform;
// property Form : TDesignerForm read fform write fform;
end;
@ -73,6 +73,10 @@ end.
{ =============================================================================
$Log$
Revision 1.3 2000/12/01 18:12:40 lazarus
Modified Gloabal so TDesignForm isn't included anymore.
Shane
Revision 1.2 2000/12/01 15:50:39 lazarus
changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all.
Shane

12
lcl/buttons.pp
View File

@ -63,12 +63,16 @@ type
constructor Create(AOwner: TComponent); override;
published
property Default : Boolean read FDefault write SetDefault default false;
property ModalResult : TModalResult read FModalResult write FModalResult default 0;
property Enabled;
property ModalResult : TModalResult read FModalResult write FModalResult default mrNone;
property Cancel : Boolean read FCancel write FCancel default False;
property Caption;
property Font;
property TabStop default true;
property PopupMenu;
property ShowHint;
property Visible;
property OnClick;
property OnEnter;
property OnExit;
property OnKeyDown;
@ -213,6 +217,10 @@ end.
{ =============================================================================
$Log$
Revision 1.5 2000/12/01 18:12:40 lazarus
Modified Gloabal so TDesignForm isn't included anymore.
Shane
Revision 1.4 2000/12/01 15:50:39 lazarus
changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all.
Shane