added DataChange after Loaded

git-svn-id: trunk@4648 -

lcl/dbctrls.pp

@@ -2,7 +2,7 @@
 {
  /***************************************************************************
                                DbCtrls.pp
-                             -------------------
+                               ----------
                      An interface to DB aware Controls
                      Initial Revision : Sun Sep 14 2003
 
@@ -218,20 +218,19 @@ Type
     destructor Destroy; override;
     property Field: TField read GetField;
   published
-    property DataField: string read GetDataField write SetDataField;
-    property DataSource: TDataSource read GetDataSource write SetDataSource;
-
     property Align;
     property Alignment;
-    property AutoSize;
     property Anchors;
+    property AutoSize;
     property Caption;
     property Color;
+    property DataField: string read GetDataField write SetDataField;
+    property DataSource: TDataSource read GetDataSource write SetDataSource;
     property FocusControl;
     property Font;
-    property Visible;
     property Layout;
     property ShowAccelChar;
+    property Visible;
     property WordWrap;
   end;
 
@@ -341,6 +340,7 @@ Type
     property DataLink: TFieldDataLink read FDataLink;
     function GetButtonValue(Index: Integer): string;
     procedure UpdateRadioButtonStates; override;
+    procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -393,6 +393,7 @@ Type
     procedure FocusRequest(Sender: TObject); virtual;
     procedure Notification(AComponent: TComponent;
                            Operation: TOperation); override;
+    procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -456,6 +457,7 @@ Type
                            Operation: TOperation); override;
     procedure UpdateData(Sender: TObject); virtual;
     procedure FocusRequest(Sender: TObject); virtual;
+    procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -523,6 +525,7 @@ Type
                            Operation: TOperation); override;
     procedure UpdateData(Sender: TObject); virtual;
     procedure FocusRequest(Sender: TObject); virtual;
+    procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -629,6 +632,7 @@ Type
     procedure DataChange(Sender: TObject); virtual;
     procedure UpdateData(Sender: TObject); virtual;
     procedure LoadPicture; virtual;
+    procedure Loaded; override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -1066,6 +1070,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.12  2003/09/18 21:17:13  mattias
+  added DataChange after Loaded
+
   Revision 1.11  2003/09/18 21:01:18  mattias
   started TDBImage
 

lcl/include/dbcheckbox.inc

@@ -136,6 +136,13 @@ begin
   end;
 end;
 
+procedure TDBCheckBox.Loaded;
+begin
+  inherited Loaded;
+  if (csDesigning in ComponentState) then
+    DataChange(Self);
+end;
+
 function TDBCheckBox.ValueEqualsField(const AValue, AFieldText: string
   ): boolean;
 begin

lcl/include/dbcombobox.inc

@@ -120,11 +120,18 @@ end;
 procedure TDBComboBox.FocusRequest(Sender: TObject);
 begin
   //the FieldLink has requested the control
-  //recieve focus for some reason..
+  //receive focus for some reason..
   //perhaps an error occured?
   SetFocus;
 end;
 
+procedure TDBComboBox.Loaded;
+begin
+  inherited Loaded;
+  if (csDesigning in ComponentState) then
+    DataChange(Self);
+end;
+
 constructor TDBComboBox.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);

lcl/include/dbimage.inc

@@ -92,6 +92,13 @@ begin
     Picture.Assign(FDataLink.Field);
 end;
 
+procedure TDBImage.Loaded;
+begin
+  inherited Loaded;
+  if (csDesigning in ComponentState) then
+    DataChange(Self);
+end;
+
 constructor TDBImage.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);

lcl/include/dbmemo.inc

@@ -133,6 +133,13 @@ begin
   SetFocus;
 end;
 
+procedure TDBMemo.Loaded;
+begin
+  inherited Loaded;
+  if (csDesigning in ComponentState) then
+    DataChange(Self);
+end;
+
 destructor TDBMemo.Destroy;
 begin
   FDataLink.Free;

lcl/include/dbradiogroup.inc

@@ -142,6 +142,13 @@ begin
   end;
 end;
 
+procedure TDBRadioGroup.Loaded;
+begin
+  inherited Loaded;
+  if (csDesigning in ComponentState) then
+    DataChange(Self);
+end;
+
 constructor TDBRadioGroup.Create(TheOwner: TComponent);
 begin
   inherited Create(TheOwner);