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

lcl: add missing private keyword to some TDB* controls

Browse Source 
git-svn-id: trunk@30339 -
This commit is contained in:
blikblum 2011-04-17 11:27:29 +00:00
parent 28c3707917
commit 6119e741df
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbctrls.pp
View File

@ -342,11 +342,10 @@ Type
property OptimalFill;
end;
{ TDBListBox }
{ TCustomDBListBox }
TCustomDBListBox = class(TCustomListBox)
private
procedure EditingChange(Sender: TObject);
procedure FocusRequest(Sender: TObject);
@ -385,6 +384,7 @@ Type
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
end;
{ TDBListBox }
TDBListBox = class(TCustomDBListBox)
protected
@ -909,6 +909,7 @@ Type
{ TDBGroupBox }
TDBGroupBox = class(TCustomGroupBox)
private
FDataLink: TFieldDataLink;
function GetDataField: string;
function GetDataSource: TDataSource;
@ -1032,6 +1033,7 @@ Type
{ TDBCalendar }
TDBCalendar = class(TCalendar)
private
FDataLink: TFieldDataLink;
procedure DataChange(Sender: TObject);