From 62cc3bcd41cf852c89c7a24bee2350cd54b564f1 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Fri, 1 Dec 2000 18:12:40 +0000
Subject: [PATCH] Modified Gloabal so TDesignForm isn't included anymore. Shane

git-svn-id: trunk@56 -
---
 ide/global.pp  |  8 ++++++--
 lcl/buttons.pp | 12 ++++++++++--
 2 files changed, 16 insertions(+), 4 deletions(-)

diff --git a/ide/global.pp b/ide/global.pp
index cb8def4f64..814b426e7e 100644
--- a/ide/global.pp
+++ b/ide/global.pp
@@ -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
diff --git a/lcl/buttons.pp b/lcl/buttons.pp
index 72a862cd80..b3ca44a2f7 100644
--- a/lcl/buttons.pp
+++ b/lcl/buttons.pp
@@ -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