From 6f72dd9582ee6aa48cdd5bc54a8b304b83bc3b51 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 25 Nov 2016 05:29:00 +0000
Subject: [PATCH] RxFPC: implement message CM_GETDATALINK for some database
 controls. tnx Michal Gawrycki

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5382 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdbcomb.pas     |  6 ++++++
 components/rx/trunk/rxdbcurredit.pas |  6 ++++++
 components/rx/trunk/rxdbdateedit.pas | 12 ++++++++++++
 components/rx/trunk/rxlookup.pas     |  6 ++++++
 4 files changed, 30 insertions(+)

diff --git a/components/rx/trunk/rxdbcomb.pas b/components/rx/trunk/rxdbcomb.pas
index 99fdc7a79..4d2dfc5a8 100644
--- a/components/rx/trunk/rxdbcomb.pas
+++ b/components/rx/trunk/rxdbcomb.pas
@@ -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;
diff --git a/components/rx/trunk/rxdbcurredit.pas b/components/rx/trunk/rxdbcurredit.pas
index a0bcd4a17..e75e9bb60 100644
--- a/components/rx/trunk/rxdbcurredit.pas
+++ b/components/rx/trunk/rxdbcurredit.pas
@@ -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;
diff --git a/components/rx/trunk/rxdbdateedit.pas b/components/rx/trunk/rxdbdateedit.pas
index a8fee0607..d54fa00ba 100644
--- a/components/rx/trunk/rxdbdateedit.pas
+++ b/components/rx/trunk/rxdbdateedit.pas
@@ -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;
diff --git a/components/rx/trunk/rxlookup.pas b/components/rx/trunk/rxlookup.pas
index 530cda7ae..5ab27d719 100644
--- a/components/rx/trunk/rxlookup.pas
+++ b/components/rx/trunk/rxlookup.pas
@@ -229,6 +229,7 @@ type
     procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
     procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
     procedure CMExit(var Message:TLMessage); message CM_EXIT;
+    procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
     procedure PaintDisplayValues(ACanvas: TCanvas; R: TRect; ALeft: Integer);
     procedure CheckNotCircular;
     procedure DisplayValueChanged;
@@ -896,6 +897,11 @@ begin
   inherited;
 end;
 
+procedure TRxCustomDBLookupCombo.CMGetDataLink(var Message: TLMessage);
+begin
+  Message.Result := PtrUInt(FDataLink);
+end;
+
 procedure TRxCustomDBLookupCombo.PaintDisplayValues(ACanvas: TCanvas; R: TRect;
   ALeft: Integer);
 var