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

lcl: remove unnecessary virtual keyword for event handlers in DB Controls

Browse Source 
git-svn-id: trunk@32272 -
This commit is contained in:
blikblum 2011-09-11 01:12:53 +00:00
parent 1a948b8c22
commit 88794fa327
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/dbctrls.pp
View File

@ -576,9 +576,9 @@ Type
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
function GetFieldCheckState: TCheckBoxState; virtual;
procedure DataChange(Sender: TObject); virtual;
procedure DataChange(Sender: TObject);
procedure DoOnChange; override;
procedure UpdateData(Sender: TObject); virtual;
procedure UpdateData(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
public
@ -642,8 +642,8 @@ Type
procedure SetReadOnly(const AValue: Boolean);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure DataChange(Sender: TObject); virtual;
procedure EditingChange(Sender: TObject); virtual;
procedure DataChange(Sender: TObject);
procedure EditingChange(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Change; override;
@ -827,10 +827,10 @@ Type
protected
function GetReadOnly: Boolean; override;
procedure SetReadOnly(AValue: Boolean); override;
procedure DataChange(Sender: TObject); virtual;
procedure DataChange(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure UpdateData(Sender: TObject); virtual;
procedure UpdateData(Sender: TObject);
procedure Change; override;
procedure KeyPress(var Key:Char); override;
procedure WndProc(var AMessage : TLMessage); override;
@ -891,7 +891,7 @@ Type
procedure SetDataSource(const AValue: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure DataChange(Sender: TObject); virtual;
procedure DataChange(Sender: TObject);
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
public
@ -961,8 +961,8 @@ Type
protected
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure DataChange(Sender: TObject); virtual;
procedure UpdateData(Sender: TObject); virtual;
procedure DataChange(Sender: TObject);
procedure UpdateData(Sender: TObject);
procedure PictureChanged(Sender: TObject); override;
procedure LoadPicture; virtual;
class procedure WSRegisterClass; override;