paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

added DataChange after Loaded

Browse Source 
git-svn-id: trunk@4648 -
This commit is contained in:
mattias 2003-09-18 21:17:13 +00:00
parent 62eb6ced1e
commit 10e86b989c
6 changed files with 49 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/dbctrls.pp
View File

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

7
lcl/include/dbcheckbox.inc
View File

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

9
lcl/include/dbcombobox.inc
View File

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

7
lcl/include/dbimage.inc
View File

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

7
lcl/include/dbmemo.inc
View File

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

7
lcl/include/dbradiogroup.inc
View File

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