From: Marcos A. G. <mar...@uo...> - 2004-03-16 21:41:19
|
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 |