pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix compile with latest FPC (2.7.1) and LCL (0.9.31)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1800 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2011-08-15 20:03:27 +00:00
parent 9894bb7662
commit 8c5783c3d5
2 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/rxdbspinedit.pas
View File

@ -52,10 +52,8 @@ type
function GetDataField: string; function GetDataField: string;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
function GetField: TField; function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(const AValue: string); procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource); procedure SetDataSource(const AValue: TDataSource);
procedure SetReadOnly(const AValue: Boolean);
procedure UpdateData(Sender: TObject); procedure UpdateData(Sender: TObject);
procedure FocusRequest(Sender: TObject); procedure FocusRequest(Sender: TObject);
procedure ActiveChange(Sender: TObject); procedure ActiveChange(Sender: TObject);
@ -63,9 +61,11 @@ type
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK; procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
function IsReadOnly: boolean; function IsReadOnly: boolean;
protected protected
function GetReadOnly: Boolean;override;
procedure SetReadOnly(AValue: Boolean);override;
property DataField: string read GetDataField write SetDataField; property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource; property DataSource: TDataSource read GetDataSource write SetDataSource;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False; //property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Change; override; procedure Change; override;
@ -185,7 +185,7 @@ begin
ChangeDataSource(Self,FDataLink,AValue); ChangeDataSource(Self,FDataLink,AValue);
end; end;
procedure TCustomRxDBSpinEdit.SetReadOnly(const AValue: Boolean); procedure TCustomRxDBSpinEdit.SetReadOnly(AValue: Boolean);
begin begin
inherited; inherited;
FDataLink.ReadOnly := AValue; FDataLink.ReadOnly := AValue;

10
components/rx/rxdbtimeedit.pas
View File

@ -51,10 +51,8 @@ type
function GetDataField: string; function GetDataField: string;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
function GetField: TField; function GetField: TField;
function GetReadOnly: Boolean;
procedure SetDataField(const AValue: string); procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource); procedure SetDataSource(const AValue: TDataSource);
procedure SetReadOnly(const AValue: Boolean);
procedure UpdateData(Sender: TObject); procedure UpdateData(Sender: TObject);
procedure FocusRequest(Sender: TObject); procedure FocusRequest(Sender: TObject);
@ -65,9 +63,11 @@ type
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS; procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS; procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
protected protected
function GetReadOnly: Boolean;override;
procedure SetReadOnly(AValue: Boolean);override;
property DataField: string read GetDataField write SetDataField; property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource; property DataSource: TDataSource read GetDataSource write SetDataSource;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False; //property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure Change; override; procedure Change; override;
@ -182,9 +182,9 @@ begin
ChangeDataSource(Self,FDataLink,AValue); ChangeDataSource(Self,FDataLink,AValue);
end; end;
procedure TCustomRxDBTimeEdit.SetReadOnly(const AValue: Boolean); procedure TCustomRxDBTimeEdit.SetReadOnly(AValue: Boolean);
begin begin
inherited; inherited SetReadOnly(AValue);
FDataLink.ReadOnly := AValue; FDataLink.ReadOnly := AValue;
end; end;