paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 17:50:19 +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; property OptimalFill;
end; end;
{ TCustomDBListBox }
{ TDBListBox }
TCustomDBListBox = class(TCustomListBox) TCustomDBListBox = class(TCustomListBox)
private
procedure EditingChange(Sender: TObject); procedure EditingChange(Sender: TObject);
procedure FocusRequest(Sender: TObject); procedure FocusRequest(Sender: TObject);
@ -385,6 +384,7 @@ Type
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False; property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
end; end;
{ TDBListBox }
TDBListBox = class(TCustomDBListBox) TDBListBox = class(TCustomDBListBox)
protected protected
@ -909,6 +909,7 @@ Type
{ TDBGroupBox } { TDBGroupBox }
TDBGroupBox = class(TCustomGroupBox) TDBGroupBox = class(TCustomGroupBox)
private
FDataLink: TFieldDataLink; FDataLink: TFieldDataLink;
function GetDataField: string; function GetDataField: string;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
@ -1032,6 +1033,7 @@ Type
{ TDBCalendar } { TDBCalendar }
TDBCalendar = class(TCalendar) TDBCalendar = class(TCalendar)
private
FDataLink: TFieldDataLink; FDataLink: TFieldDataLink;
procedure DataChange(Sender: TObject); procedure DataChange(Sender: TObject);