Enquanto isso, na WVG, DATEPICKER

[JoséQuintas]

Adicionei este fonte de 4 linhas na LIB

Código: Selecionar todos

   CREATE CLASS wvgTstDatePicker INHERIT wvgtstControl
      VAR ClassName  INIT  "SysDateTimePick32"
      VAR Style      INIT WS_CHILD + WS_TABSTOP
   ENDCLASS

Adicionei este fonte de 3 linhas na rotina de teste

Código: Selecionar todos

   WITH OBJECT aCtlList[ nCtlIndex++ ] := wvgTstDatePicker():New()
      :Create( , , { -25, -19 }, { -1, - 10 } )
   ENDWITH

Aí, ao executar, clico no botão e acontece isto

Legal né ?
Foi só teste da criação do controle.
Só vai ficar anotado.

[SOSSOFT]

Ficou muito bom