[JVCL-Checkins] dev/JVCL3/run JvDateTimePicker.pas,1.13,1.14 - Fixed for Kind=dtkTime when you don't want to use NullDate f

[Warren P. <wp...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14640/run

Modified Files:
	JvDateTimePicker.pas 
Log Message:
Fixed for Kind=dtkTime when you don't want to use NullDate feature, just don't set a string in NullString




Index: JvDateTimePicker.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvDateTimePicker.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** JvDateTimePicker.pas	17 Jan 2004 00:17:52 -0000	1.13
--- JvDateTimePicker.pas	27 Feb 2004 16:11:50 -0000	1.14
***************
*** 20,23 ****
--- 20,25 ----
  Peter Thörnqvist [pe...@pe...]:
  * Added NullDate, NullText and DropDownDate properties
+   * Bug: When TDateTImePicker is used for TIMES, it is impossible to turn
+      off the NullDate feature. It should be optional! -W.Postma.
  
  Last Modified: 2002-06-11
***************
*** 131,136 ****
  function TJvDateTimePicker.CheckNullValue: Boolean;
  begin
!   Result := ((Kind = dtkDate) and (Trunc(DateTime) = Trunc(NullDate)) or
      ((Kind = dtkTime) and WithinDelta(DateTime, NullDate)));
    if Result then
      SendMessage(Handle, DTM_SETFORMAT, 0, Integer(PChar(FNullText)))
--- 133,143 ----
  function TJvDateTimePicker.CheckNullValue: Boolean;
  begin
!  // Warren added NullText length check so that this feature can be disabled if not used!
!    if Length(NullText)=0 then begin
!         result := false;
!    end else
!        Result := ((Kind = dtkDate) and (Trunc(DateTime) = Trunc(NullDate)) or
      ((Kind = dtkTime) and WithinDelta(DateTime, NullDate)));
+    
    if Result then
      SendMessage(Handle, DTM_SETFORMAT, 0, Integer(PChar(FNullText)))