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

RxFPC: implement message CM_GETDATALINK for some database controls. tnx Michal Gawrycki

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2016-11-25 05:29:00 +00:00
parent dc6a39b53b
commit 6f72dd9582
4 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/trunk/rxdbcurredit.pas
View File

@ -55,6 +55,7 @@ type
procedure SetDataField(const AValue: string);
procedure SetDataSource(const AValue: TDataSource);
procedure SetReadOnly(const AValue: Boolean);
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure ActiveChange(Sender:TObject);
procedure DataChange(Sender:TObject);
@ -122,6 +123,11 @@ begin
FDataLink.ReadOnly:=AValue;
end;
procedure TRxDBCurrEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxDBCurrEdit.ActiveChange(Sender: TObject);
begin
DoCheckEnable;