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

12
components/rx/trunk/rxdbdateedit.pas
View File

@ -53,6 +53,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);
@ -91,6 +92,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);
@ -159,6 +161,11 @@ begin
FDataLink.ReadOnly:=AValue;
end;
procedure TRxDBDateEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxDBDateEdit.CMExit(var Message: TLMessage);
begin
try
@ -344,6 +351,11 @@ begin
FDataLink.ReadOnly:=AValue;
end;
procedure TRxDBCalcEdit.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TRxDBCalcEdit.ActiveChange(Sender: TObject);
begin
DoCheckEnable;