Soporte de DatePickers

[Antonio Linares]

Gracias a Dino!



TestDPick.prg

Code: Select all | Expand

// 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