paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 05:19:10 +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; FFlags : TProjFlags;
FSource : TStringList; FSource : TStringList;
FPage : Integer; FPage : Integer;
// FForm : TDesignerForm; // FForm : TDesignerForm;
Procedure SetFormName(Value : String); Procedure SetFormName(Value : String);
Function GetFormName : String; Function GetFormName : String;
Procedure SetPage(Value : Integer); Procedure SetPage(Value : Integer);
@ -53,7 +53,7 @@ type
Property Page : Integer read GetPage write SetPage; Property Page : Integer read GetPage write SetPage;
Property FileName : String read FFileName write FFilename; Property FileName : String read FFileName write FFilename;
Property Flags : TProjFlags read FFlags write FFLags; Property Flags : TProjFlags read FFlags write FFLags;
// property Form : TDesignerForm read fform write fform; // property Form : TDesignerForm read fform write fform;
end; end;
@ -73,6 +73,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.2 2000/12/01 15:50:39 lazarus
changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all. changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all.
Shane Shane

12
lcl/buttons.pp
View File

@ -63,12 +63,16 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
published published
property Default : Boolean read FDefault write SetDefault default false; 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 Cancel : Boolean read FCancel write FCancel default False;
property Caption; property Caption;
property Font; property Font;
property TabStop default true;
property PopupMenu;
property ShowHint;
property Visible; property Visible;
property OnClick;
property OnEnter; property OnEnter;
property OnExit; property OnExit;
property OnKeyDown; property OnKeyDown;
@ -213,6 +217,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.4 2000/12/01 15:50:39 lazarus
changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all. changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all.
Shane Shane