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

IDE: fixed warnings caused by introduding TCustomEdit.GetReadOnly

Browse Source 
git-svn-id: trunk@15167 -
This commit is contained in:
vincents 2008-05-16 08:45:42 +00:00
parent bb0b2a693d
commit 78880a64f6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbctrls.pp
View File

@ -130,13 +130,13 @@ Type
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(Value: string);
procedure SetDataSource(Value: TDataSource);
function IsReadOnly: boolean;
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
function GetReadOnly: Boolean; override;
procedure SetReadOnly(Value: Boolean); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure KeyPress(var Key: char); override;
@ -573,12 +573,12 @@ Type
function GetDataField: string;
function GetDataSource: TDataSource;
function GetField: TField;
function GetReadOnly: Boolean;
procedure SetAutoDisplay(const AValue: Boolean);
procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
function GetReadOnly: Boolean; override;
procedure SetReadOnly(AValue: Boolean); override;
function WordWrapIsStored: boolean; override;
procedure DataChange(Sender: TObject); virtual;