From b2323a742c8a70cea3acd850873481ace625ffda Mon Sep 17 00:00:00 2001 From: blikblum Date: Sun, 11 Sep 2011 00:50:35 +0000 Subject: [PATCH] lcl: remove Loaded procedure from DB Controls. Not needed anymore git-svn-id: trunk@32269 - --- lcl/dbctrls.pp | 10 ---------- lcl/include/customdbcombobox.inc | 7 ------- lcl/include/customdblistbox.inc | 8 -------- lcl/include/dbcalendar.inc | 9 --------- lcl/include/dbcheckbox.inc | 7 ------- lcl/include/dbedit.inc | 8 -------- lcl/include/dbgroupbox.inc | 8 -------- lcl/include/dbimage.inc | 7 ------- lcl/include/dbmemo.inc | 7 ------- lcl/include/dbradiogroup.inc | 7 ------- lcl/include/dbtext.inc | 9 --------- 11 files changed, 87 deletions(-) diff --git a/lcl/dbctrls.pp b/lcl/dbctrls.pp index 69c26aa8eb..b3a84babc4 100644 --- a/lcl/dbctrls.pp +++ b/lcl/dbctrls.pp @@ -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 diff --git a/lcl/include/customdbcombobox.inc b/lcl/include/customdbcombobox.inc index 3cc3b2687d..5067df2b24 100644 --- a/lcl/include/customdbcombobox.inc +++ b/lcl/include/customdbcombobox.inc @@ -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; diff --git a/lcl/include/customdblistbox.inc b/lcl/include/customdblistbox.inc index 07835348fe..19282e7358 100644 --- a/lcl/include/customdblistbox.inc +++ b/lcl/include/customdblistbox.inc @@ -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 diff --git a/lcl/include/dbcalendar.inc b/lcl/include/dbcalendar.inc index ea2fa72e9c..37cd744979 100644 --- a/lcl/include/dbcalendar.inc +++ b/lcl/include/dbcalendar.inc @@ -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 diff --git a/lcl/include/dbcheckbox.inc b/lcl/include/dbcheckbox.inc index 93ea4db2f9..4162cca369 100644 --- a/lcl/include/dbcheckbox.inc +++ b/lcl/include/dbcheckbox.inc @@ -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); diff --git a/lcl/include/dbedit.inc b/lcl/include/dbedit.inc index eb4f55d51e..ce5a73d023 100644 --- a/lcl/include/dbedit.inc +++ b/lcl/include/dbedit.inc @@ -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 diff --git a/lcl/include/dbgroupbox.inc b/lcl/include/dbgroupbox.inc index c616a16245..2e82bb3681 100644 --- a/lcl/include/dbgroupbox.inc +++ b/lcl/include/dbgroupbox.inc @@ -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); diff --git a/lcl/include/dbimage.inc b/lcl/include/dbimage.inc index b5624057da..414a579af6 100644 --- a/lcl/include/dbimage.inc +++ b/lcl/include/dbimage.inc @@ -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; diff --git a/lcl/include/dbmemo.inc b/lcl/include/dbmemo.inc index c58ed3b857..a8e2621135 100644 --- a/lcl/include/dbmemo.inc +++ b/lcl/include/dbmemo.inc @@ -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 diff --git a/lcl/include/dbradiogroup.inc b/lcl/include/dbradiogroup.inc index a312426a13..9120d0a344 100644 --- a/lcl/include/dbradiogroup.inc +++ b/lcl/include/dbradiogroup.inc @@ -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; diff --git a/lcl/include/dbtext.inc b/lcl/include/dbtext.inc index 87d2d02e9c..f80fe5df86 100644 --- a/lcl/include/dbtext.inc +++ b/lcl/include/dbtext.inc @@ -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