PC Toledo

Código: Selecionar todos

#xcommand @ <x>,<y> DATESELECT [ <oDate> ] ;
            [ OF <oWnd> ]              ;
            [ ID <nId> ]               ;
            [ SIZE <width>, <height> ] ;
            [ COLOR <color> ]          ;
            [ BACKCOLOR <bcolor> ]     ;
            [ FONT <oFont> ]           ;
            [ INIT  <dValue> ]         ;
            [ ON LOSTFOCUS <bLfocus> ] ;
            [ ON SIZE <bSize> ]        ;
            [ ON PAINT <bDraw> ]       ;
            [ ON CHANGE <bChange> ]    ;
          => ;
    [<oDate> := ] HDateSelect():New( <oWnd>,<nId>,<x>,<y>,<width>,<height>,<color>,<bcolor>, ;
        <oFont>,<dValue>,,<bLfocus>,<bSize>,<bDraw>,<bChange> );
    [; hwg_SetCtrlName( <oDate>,<(oDate)> )]

Código: Selecionar todos

FUNCTION gui_DatePickerCreate( xDlg, xControl, ;
            nRow, nCol, nWidth, nHeight, dValue )

   LOCAL oFont := HFont():Add( "MS Sans Serif", 0, 10 )

   @ nCol, nRow DATESELECT xControl ;
      OF xDlg ;
      SIZE nWidth, nHeight FONT oFont ;
      INIT dValue

   RETURN Nil