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

lcl: remove Loaded procedure from DB Controls. Not needed anymore

Browse Source 
git-svn-id: trunk@32269 -
This commit is contained in:
blikblum 2011-09-11 00:50:35 +00:00
parent b3ee1f08d4
commit b2323a742c
11 changed files with 0 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/dbctrls.pp
View File

@ -203,7 +203,6 @@ Type
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
@ -285,7 +284,6 @@ Type
procedure SetDataSource(Value: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
class procedure WSRegisterClass; override;
@ -360,7 +358,6 @@ Type
procedure DataChange(Sender: TObject); virtual;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure UpdateData(Sender: TObject); virtual;
@ -535,7 +532,6 @@ 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;
@ -599,7 +595,6 @@ 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;
@ -668,7 +663,6 @@ Type
procedure Change; override;
procedure UpdateData(Sender: TObject); virtual;
procedure FocusRequest(Sender: TObject); virtual;
procedure Loaded; override;
procedure UpdateText; virtual;
public
constructor Create(TheOwner: TComponent); override;
@ -853,7 +847,6 @@ Type
Operation: TOperation); override;
procedure UpdateData(Sender: TObject); virtual;
procedure FocusRequest(Sender: TObject); virtual;
procedure Loaded; override;
procedure Change; override;
procedure KeyPress(var Key:Char); override;
procedure WndProc(var AMessage : TLMessage); override;
@ -915,7 +908,6 @@ Type
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure DataChange(Sender: TObject); virtual;
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
public
@ -989,7 +981,6 @@ Type
procedure UpdateData(Sender: TObject); virtual;
procedure PictureChanged(Sender: TObject); override;
procedure LoadPicture; virtual;
procedure Loaded; override;
class procedure WSRegisterClass; override;
public
constructor Create(TheOwner: TComponent); override;
@ -1049,7 +1040,6 @@ Type
procedure UpdateDate(const AValue: string);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure Loaded; override;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
public

7
lcl/include/customdbcombobox.inc
View File

@ -115,13 +115,6 @@ begin
SetFocus;
end;
procedure TCustomDBComboBox.Loaded;
begin
inherited Loaded;
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TCustomDBComboBox.EditingDone;
begin
FDataLink.UpdateRecord;

8
lcl/include/customdblistbox.inc
View File

@ -114,14 +114,6 @@ begin
end;
end;
procedure TCustomDBListBox.Loaded;
begin
inherited Loaded;
//need to make sure the state is updated on first load
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TCustomDBListBox.Notification(AComponent: TComponent;
Operation: TOperation);
begin

9
lcl/include/dbcalendar.inc
View File

@ -101,15 +101,6 @@ begin
Message.Result := PtrUInt(FDataLink);
end;
{ Protected Methods}
procedure TDBCalendar.Loaded;
begin
inherited Loaded;
//need to make sure the state is updated on first load
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBCalendar.Notification(AComponent: TComponent;
Operation: TOperation);
begin

7
lcl/include/dbcheckbox.inc
View File

@ -181,13 +181,6 @@ begin
end;
end;
procedure TDBCheckBox.Loaded;
begin
inherited Loaded;
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBCheckBox.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);

8
lcl/include/dbedit.inc
View File

@ -188,14 +188,6 @@ begin
end;
end;
procedure TDBEdit.Loaded;
begin
inherited Loaded;
//need to make sure the state is updated on first load
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBEdit.Notification(AComponent: TComponent;
Operation: TOperation);
begin

8
lcl/include/dbgroupbox.inc
View File

@ -54,14 +54,6 @@ begin
Caption:='';
end;
procedure TDBGroupBox.Loaded;
begin
inherited Loaded;
//need to make sure the state is updated on first load
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBGroupBox.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited Notification(AComponent, Operation);

7
lcl/include/dbimage.inc
View File

@ -176,13 +176,6 @@ begin
end;
end;
procedure TDBImage.Loaded;
begin
inherited Loaded;
if (csDesigning in ComponentState) then
DataChange(Self);
end;
class procedure TDBImage.WSRegisterClass;
const
Done: Boolean = False;

7
lcl/include/dbmemo.inc
View File

@ -128,13 +128,6 @@ begin
SetFocus;
end;
procedure TDBMemo.Loaded;
begin
inherited Loaded;
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBMemo.EditingDone;
begin
if FDataLink.CanModify and FDatalink.Editing then begin

7
lcl/include/dbradiogroup.inc
View File

@ -148,13 +148,6 @@ begin
end;
end;
procedure TDBRadioGroup.Loaded;
begin
inherited Loaded;
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBRadioGroup.EditingDone;
begin
FDataLink.UpdateRecord;

9
lcl/include/dbtext.inc
View File

@ -62,15 +62,6 @@ begin
Message.Result := PtrUInt(FDataLink);
end;
{ Protected Methods}
procedure TDBText.Loaded;
begin
inherited Loaded;
//need to make sure the state is updated on first load
if (csDesigning in ComponentState) then
DataChange(Self);
end;
procedure TDBText.Notification(AComponent: TComponent;
Operation: TOperation);
begin