paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-16 17:39:15 +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 GetDataSource: TDataSource;
function GetField: TField; function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(Value: string); procedure SetDataField(Value: string);
procedure SetDataSource(Value: TDataSource); procedure SetDataSource(Value: TDataSource);
function IsReadOnly: boolean; function IsReadOnly: boolean;
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK; procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
function GetReadOnly: Boolean; override;
procedure SetReadOnly(Value: Boolean); override; procedure SetReadOnly(Value: Boolean); override;
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;
@ -573,12 +573,12 @@ Type
function GetDataField: string; function GetDataField: string;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
function GetField: TField; function GetField: TField;
function GetReadOnly: Boolean;
procedure SetAutoDisplay(const AValue: Boolean); procedure SetAutoDisplay(const AValue: Boolean);
procedure SetDataField(const AValue: string); procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource); procedure SetDataSource(const AValue: TDataSource);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK; procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
function GetReadOnly: Boolean; override;
procedure SetReadOnly(AValue: Boolean); override; procedure SetReadOnly(AValue: Boolean); override;
function WordWrapIsStored: boolean; override; function WordWrapIsStored: boolean; override;
procedure DataChange(Sender: TObject); virtual; procedure DataChange(Sender: TObject); virtual;