paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components: dbdatetimepicker: implement message CM_GETDATALINK, issue #30998, patch from Michal Gawrycki

Browse Source 
git-svn-id: trunk@53438 -
This commit is contained in:
ondrej 2016-11-24 17:51:27 +00:00
parent 27ad00c08f
commit adc3978ebd
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/datetimectrls/dbdatetimepicker.pas
View File

@ -29,7 +29,7 @@ unit DBDateTimePicker;
interface interface
uses uses
Classes, SysUtils, DateTimePicker, db, DBCtrls; Classes, SysUtils, DateTimePicker, db, DBCtrls, LMessages;
type type
@ -52,6 +52,7 @@ type
procedure ActiveChange(Sender: TObject); procedure ActiveChange(Sender: TObject);
function GetField: TField; function GetField: TField;
procedure CheckField; procedure CheckField;
procedure CMGetDataLink(var Message: TLMessage); message CM_GETDATALINK;
protected protected
{ Protected declarations } { Protected declarations }
procedure Change; override; procedure Change; override;
@ -228,6 +229,11 @@ begin
end; end;
end; end;
procedure TDBDateTimePicker.CMGetDataLink(var Message: TLMessage);
begin
Message.Result := PtrUInt(FDataLink);
end;
procedure TDBDateTimePicker.Change; procedure TDBDateTimePicker.Change;
begin begin
if (FDataChangeCount <= 0) and Assigned(FDataLink) then begin if (FDataChangeCount <= 0) and Assigned(FDataLink) then begin