mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 22:00:50 +02:00
lcl: remove Loaded procedure from DB Controls. Not needed anymore
git-svn-id: trunk@32269 -
This commit is contained in:
parent
b3ee1f08d4
commit
b2323a742c
@ -203,7 +203,6 @@ Type
|
|||||||
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
|
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
|
||||||
procedure KeyPress(var Key: char); override;
|
procedure KeyPress(var Key: char); override;
|
||||||
|
|
||||||
procedure Loaded; override;
|
|
||||||
procedure Notification(AComponent: TComponent;
|
procedure Notification(AComponent: TComponent;
|
||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
|
|
||||||
@ -285,7 +284,6 @@ Type
|
|||||||
procedure SetDataSource(Value: TDataSource);
|
procedure SetDataSource(Value: TDataSource);
|
||||||
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
|
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
|
||||||
protected
|
protected
|
||||||
procedure Loaded; override;
|
|
||||||
procedure Notification(AComponent: TComponent;
|
procedure Notification(AComponent: TComponent;
|
||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
class procedure WSRegisterClass; override;
|
class procedure WSRegisterClass; override;
|
||||||
@ -360,7 +358,6 @@ Type
|
|||||||
procedure DataChange(Sender: TObject); virtual;
|
procedure DataChange(Sender: TObject); virtual;
|
||||||
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
|
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
|
||||||
|
|
||||||
procedure Loaded; override;
|
|
||||||
procedure Notification(AComponent: TComponent;
|
procedure Notification(AComponent: TComponent;
|
||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
procedure UpdateData(Sender: TObject); virtual;
|
procedure UpdateData(Sender: TObject); virtual;
|
||||||
@ -535,7 +532,6 @@ Type
|
|||||||
property DataLink: TFieldDataLink read FDataLink;
|
property DataLink: TFieldDataLink read FDataLink;
|
||||||
function GetButtonValue(Index: Integer): string;
|
function GetButtonValue(Index: Integer): string;
|
||||||
procedure UpdateRadioButtonStates; override;
|
procedure UpdateRadioButtonStates; override;
|
||||||
procedure Loaded; override;
|
|
||||||
public
|
public
|
||||||
constructor Create(TheOwner: TComponent); override;
|
constructor Create(TheOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
@ -599,7 +595,6 @@ Type
|
|||||||
procedure FocusRequest(Sender: TObject); virtual;
|
procedure FocusRequest(Sender: TObject); virtual;
|
||||||
procedure Notification(AComponent: TComponent;
|
procedure Notification(AComponent: TComponent;
|
||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
procedure Loaded; override;
|
|
||||||
public
|
public
|
||||||
constructor Create(TheOwner: TComponent); override;
|
constructor Create(TheOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
@ -668,7 +663,6 @@ Type
|
|||||||
procedure Change; override;
|
procedure Change; override;
|
||||||
procedure UpdateData(Sender: TObject); virtual;
|
procedure UpdateData(Sender: TObject); virtual;
|
||||||
procedure FocusRequest(Sender: TObject); virtual;
|
procedure FocusRequest(Sender: TObject); virtual;
|
||||||
procedure Loaded; override;
|
|
||||||
procedure UpdateText; virtual;
|
procedure UpdateText; virtual;
|
||||||
public
|
public
|
||||||
constructor Create(TheOwner: TComponent); override;
|
constructor Create(TheOwner: TComponent); override;
|
||||||
@ -853,7 +847,6 @@ Type
|
|||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
procedure UpdateData(Sender: TObject); virtual;
|
procedure UpdateData(Sender: TObject); virtual;
|
||||||
procedure FocusRequest(Sender: TObject); virtual;
|
procedure FocusRequest(Sender: TObject); virtual;
|
||||||
procedure Loaded; override;
|
|
||||||
procedure Change; override;
|
procedure Change; override;
|
||||||
procedure KeyPress(var Key:Char); override;
|
procedure KeyPress(var Key:Char); override;
|
||||||
procedure WndProc(var AMessage : TLMessage); override;
|
procedure WndProc(var AMessage : TLMessage); override;
|
||||||
@ -915,7 +908,6 @@ Type
|
|||||||
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
|
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
|
||||||
protected
|
protected
|
||||||
procedure DataChange(Sender: TObject); virtual;
|
procedure DataChange(Sender: TObject); virtual;
|
||||||
procedure Loaded; override;
|
|
||||||
procedure Notification(AComponent: TComponent;
|
procedure Notification(AComponent: TComponent;
|
||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
public
|
public
|
||||||
@ -989,7 +981,6 @@ Type
|
|||||||
procedure UpdateData(Sender: TObject); virtual;
|
procedure UpdateData(Sender: TObject); virtual;
|
||||||
procedure PictureChanged(Sender: TObject); override;
|
procedure PictureChanged(Sender: TObject); override;
|
||||||
procedure LoadPicture; virtual;
|
procedure LoadPicture; virtual;
|
||||||
procedure Loaded; override;
|
|
||||||
class procedure WSRegisterClass; override;
|
class procedure WSRegisterClass; override;
|
||||||
public
|
public
|
||||||
constructor Create(TheOwner: TComponent); override;
|
constructor Create(TheOwner: TComponent); override;
|
||||||
@ -1049,7 +1040,6 @@ Type
|
|||||||
procedure UpdateDate(const AValue: string);
|
procedure UpdateDate(const AValue: string);
|
||||||
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
|
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
|
||||||
protected
|
protected
|
||||||
procedure Loaded; override;
|
|
||||||
procedure Notification(AComponent: TComponent;
|
procedure Notification(AComponent: TComponent;
|
||||||
Operation: TOperation); override;
|
Operation: TOperation); override;
|
||||||
public
|
public
|
||||||
|
@ -115,13 +115,6 @@ begin
|
|||||||
SetFocus;
|
SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TCustomDBComboBox.Loaded;
|
|
||||||
begin
|
|
||||||
inherited Loaded;
|
|
||||||
if (csDesigning in ComponentState) then
|
|
||||||
DataChange(Self);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TCustomDBComboBox.EditingDone;
|
procedure TCustomDBComboBox.EditingDone;
|
||||||
begin
|
begin
|
||||||
FDataLink.UpdateRecord;
|
FDataLink.UpdateRecord;
|
||||||
|
@ -114,14 +114,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
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;
|
procedure TCustomDBListBox.Notification(AComponent: TComponent;
|
||||||
Operation: TOperation);
|
Operation: TOperation);
|
||||||
begin
|
begin
|
||||||
|
@ -101,15 +101,6 @@ begin
|
|||||||
Message.Result := PtrUInt(FDataLink);
|
Message.Result := PtrUInt(FDataLink);
|
||||||
end;
|
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;
|
procedure TDBCalendar.Notification(AComponent: TComponent;
|
||||||
Operation: TOperation);
|
Operation: TOperation);
|
||||||
begin
|
begin
|
||||||
|
@ -181,13 +181,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDBCheckBox.Loaded;
|
|
||||||
begin
|
|
||||||
inherited Loaded;
|
|
||||||
if (csDesigning in ComponentState) then
|
|
||||||
DataChange(Self);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TDBCheckBox.CMGetDataLink(var Message: TLMessage);
|
procedure TDBCheckBox.CMGetDataLink(var Message: TLMessage);
|
||||||
begin
|
begin
|
||||||
Message.Result := PtrUInt(FDataLink);
|
Message.Result := PtrUInt(FDataLink);
|
||||||
|
@ -188,14 +188,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
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;
|
procedure TDBEdit.Notification(AComponent: TComponent;
|
||||||
Operation: TOperation);
|
Operation: TOperation);
|
||||||
begin
|
begin
|
||||||
|
@ -54,14 +54,6 @@ begin
|
|||||||
Caption:='';
|
Caption:='';
|
||||||
end;
|
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);
|
procedure TDBGroupBox.Notification(AComponent: TComponent; Operation: TOperation);
|
||||||
begin
|
begin
|
||||||
inherited Notification(AComponent, Operation);
|
inherited Notification(AComponent, Operation);
|
||||||
|
@ -176,13 +176,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDBImage.Loaded;
|
|
||||||
begin
|
|
||||||
inherited Loaded;
|
|
||||||
if (csDesigning in ComponentState) then
|
|
||||||
DataChange(Self);
|
|
||||||
end;
|
|
||||||
|
|
||||||
class procedure TDBImage.WSRegisterClass;
|
class procedure TDBImage.WSRegisterClass;
|
||||||
const
|
const
|
||||||
Done: Boolean = False;
|
Done: Boolean = False;
|
||||||
|
@ -128,13 +128,6 @@ begin
|
|||||||
SetFocus;
|
SetFocus;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDBMemo.Loaded;
|
|
||||||
begin
|
|
||||||
inherited Loaded;
|
|
||||||
if (csDesigning in ComponentState) then
|
|
||||||
DataChange(Self);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TDBMemo.EditingDone;
|
procedure TDBMemo.EditingDone;
|
||||||
begin
|
begin
|
||||||
if FDataLink.CanModify and FDatalink.Editing then begin
|
if FDataLink.CanModify and FDatalink.Editing then begin
|
||||||
|
@ -148,13 +148,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TDBRadioGroup.Loaded;
|
|
||||||
begin
|
|
||||||
inherited Loaded;
|
|
||||||
if (csDesigning in ComponentState) then
|
|
||||||
DataChange(Self);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TDBRadioGroup.EditingDone;
|
procedure TDBRadioGroup.EditingDone;
|
||||||
begin
|
begin
|
||||||
FDataLink.UpdateRecord;
|
FDataLink.UpdateRecord;
|
||||||
|
@ -62,15 +62,6 @@ begin
|
|||||||
Message.Result := PtrUInt(FDataLink);
|
Message.Result := PtrUInt(FDataLink);
|
||||||
end;
|
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;
|
procedure TDBText.Notification(AComponent: TComponent;
|
||||||
Operation: TOperation);
|
Operation: TOperation);
|
||||||
begin
|
begin
|
||||||
|
Loading…
Reference in New Issue
Block a user