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

@ -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