Alexander,
There is a 'problem' with the property Style
of the control DatePicker. The value is not used
in the function CreateDatePicker.
To correct:
HDATEPIC.PRG
Line 41:
::style := Hwg_BitOr( Iif( nStyle==Nil,0,nStyle ), WS_CHILD+WS_VISIBLE )
change to
::style := Hwg_BitOr( Iif( nStyle==Nil,0,nStyle ),
WS_CHILD+WS_VISIBLE+WS_TABSTOP )
Line 71:
::handle := CreateDatePicker( ::oParent:handle, ::id, ;
::nLeft, ::nTop, ::nWidth, ::nHeight )
change to
::handle := CreateDatePicker( ::oParent:handle, ::id, ;
::nLeft, ::nTop, ::nWidth, ::nHeight, ::style )
CONTROL.C
In the function HB_FUNC ( CREATEDATEPICKER ),
change line
WS_CHILD | WS_VISIBLE | WS_TABSTOP,
to
hb_parnl(7), /* style */
With these changes the property will function correctly.
Regards,
Marcos Antonio Gambeta
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.622 / Virus Database: 400 - Release Date: 13/3/2004
|
