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/rxdbcomb.pas
View File

@ -59,6 +59,7 @@ type
procedure UpdateData(Sender: TObject);
function GetComboText: string; virtual;
procedure SetComboText(const Value: string); virtual;
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected
procedure EditingDone; override;
procedure Change; override;
@ -257,6 +258,11 @@ begin
end;
end;
procedure TCustomDBComboBox.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
function TCustomDBComboBox.GetComboText: string;
var
I: Integer;