Revision: 13016
http://jvcl.svn.sourceforge.net/jvcl/?rev=13016&view=rev
Author: ahuser
Date: 2011-04-11 08:10:22 +0000 (Mon, 11 Apr 2011)
Log Message:
-----------
Added public Field: TField property
Modified Paths:
--------------
trunk/jvcl/run/JvDBDatePickerEdit.pas
Modified: trunk/jvcl/run/JvDBDatePickerEdit.pas
===================================================================
--- trunk/jvcl/run/JvDBDatePickerEdit.pas 2011-04-10 17:19:12 UTC (rev 13015)
+++ trunk/jvcl/run/JvDBDatePickerEdit.pas 2011-04-11 08:10:22 UTC (rev 13016)
@@ -65,6 +65,7 @@
procedure CMGetDataLink(var Msg: TMessage); message CM_GETDATALINK;
function GetInternalDate: TDateTime;
procedure SetInternalDate(const Value: TDateTime);
+ function GetField: TField;
protected
procedure WMCut(var Msg: TMessage); message WM_CUT;
procedure WMPaste(var Msg: TMessage); message WM_PASTE;
@@ -93,6 +94,7 @@
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function IsEmpty: Boolean; override;
+ property Field: TField read GetField;
end;
TJvDBDatePickerEdit = class(TJvCustomDBDatePickerEdit)
@@ -331,6 +333,11 @@
Result := Result and IsLinked and FDataLink.Editing;
end;
+function TJvCustomDBDatePickerEdit.GetField: TField;
+begin
+ Result := FDataLink.Field;
+end;
+
function TJvCustomDBDatePickerEdit.IsEmpty: Boolean;
begin
if IsLinked then
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
