Soporte de DatePickers

[Antonio Linares]

Gracias a Dino!



TestDPick.prg

Code: Select all  Expand view

// Testing DatePickers

#include "FiveMac.ch"

function Main()

   local oDlg, oDPick
         
   DEFINE DIALOG oDlg TITLE "Test DatePicker" ;
      FROM 20, 300 TO 400, 200
       
   @ 20, 20 DATEPICKER oDPick OF oDlg SIZE 400, 300
     
   @ 20, 200 BUTTON "Value" OF oDlg ACTION MsgInfo( oDPick:GetText() )
   
   @ 20, 300 BUTTON "End" OF oDlg ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg
     
return nil