FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour DatePicker´s question
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
DatePicker´s question
Posted: Mon Feb 23, 2015 01:56 PM

Hello,

I would like to force the DatePicker appears already deployed, via ACTIVATE ON INIT oDlg oDatePicker: ShowExtended ().

Please, how can I achieve it ?.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: DatePicker´s question
Posted: Mon Feb 23, 2015 03:23 PM
I would like to be shown like this please:

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: DatePicker´s question
Posted: Tue Feb 24, 2015 05:29 PM
Hello,

I post a sample below, but ON INIT oDatePicker:Open() does not work.

Any clue please?.

Code (fw): Select all Collapse
// MBA 24.02.2015

#include "FiveWin.ch"
#include "constant.ch"

#define DTN_FIRST                     -760
#define DTN_DATETIMECHANGE  (DTN_FIRST + 1)
#define DTN_DROPDOWN        (DTN_FIRST + 6) // MonthCal has dropped down
#define DTN_CLOSEUP         (DTN_FIRST + 7) // MonthCal is popping up


REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN

static oDlg
static cResult  := nil


*********************************************************************************************
FUNCTION Main()
*********************************************************************************************

   LOCAL oWnd


   // Idioma español para Harbour
   HB_LangSelect("ESWIN") // Para mensajes, fechas, etc..
   HB_CDPSELECT("ESWIN") // Para ordenación, requiere CodePage.lib


   SET EPOCH TO 1950
   SET CENTURY ON
   SET DATE FORMAT TO "DD/MM/YYYY"





   DEFINE WINDOW oWnd  FROM 1, 1 TO 12, 32 TITLE "TEST Moisés"

   ACTIVATE WINDOW oWnd CENTERED;
            on init test()

RETURN( NIL )
*********************************************************************************************



*********************************************************************************************
FUNCTION Test( dFecha )
*********************************************************************************************


   LOCAL oWndMain := WndMain()
   LOCAL oDatePicker
   LOCAL oTimer

   DEFAULT dFecha := Date()


   // Reset valores
   cResult  := nil


   // Diálogo oculto
   DEFINE DIALOG oDlg

   @ 1, 10 BUTTON "Abrir" ACTION oDatePicker:Open()
   @ 2, 10 BUTTON "Salir" ACTION oDlg:End()



// METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;
//            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;
//            bWhen, bChange, nHelpId, cPic ) Class TDatePick

   oDatePicker := TDatePick():New( 0, 0, { || dFecha }, oDlg, 13, 13, nil, nil, nil, nil, .F., nil, nil, "cmeg", .t., NIL, {|Objeto| cResult := Objeto:cText }   )



   ACTIVATE DIALOG oDlg CENTERED ;
            ON INIT oDatePicker:Open()



  MsgInfo( cResult )
  oWndMain:End()
  QUIT

RETURN NIL
*********************************************************************************************
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: DatePicker´s question
Posted: Tue Feb 24, 2015 05:54 PM
Fácil:

Code (fw): Select all Collapse
// MBA 24.02.2015

#include "FiveWin.ch"
#include "constant.ch"
#include "dtpicker.ch"
#include "calendar.ch"

#define DTN_FIRST                     -760
#define DTN_DATETIMECHANGE  (DTN_FIRST + 1)
#define DTN_DROPDOWN        (DTN_FIRST + 6) // MonthCal has dropped down
#define DTN_CLOSEUP         (DTN_FIRST + 7) // MonthCal is popping up


REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN

static oDlg
static cResult  := nil
static oWnd


*********************************************************************************************
FUNCTION Main()
*********************************************************************************************

   // Idioma español para Harbour
   HB_LangSelect("ESWIN") // Para mensajes, fechas, etc..
   HB_CDPSELECT("ESWIN") // Para ordenación, requiere CodePage.lib

   SET EPOCH TO 1950
   SET CENTURY ON
   SET DATE FORMAT TO "DD/MM/YYYY"

   DEFINE WINDOW oWnd  FROM 1, 1 TO 12, 32 TITLE "TEST Moisés"

   /*
   ACTIVATE WINDOW oWnd CENTERED ;  // no tiene CENTERED en FWH13.06
            on init test()
   */

   ACTIVATE WINDOW oWnd          ;
            on init test()

RETURN( NIL )

*********************************************************************************************
FUNCTION Test( dFecha )
*********************************************************************************************

   LOCAL oWndMain := WndMain()
   LOCAL oDatePicker
   LOCAL oTimer

   DEFAULT dFecha := Date()

   // Reset valores
   cResult  := nil

   // Diálogo oculto
   DEFINE DIALOG oDlg

   @ 1, 10 BUTTON "Abrir" ACTION oDatePicker:Open()

   @ 2, 10 BUTTON "Salir" ACTION oDlg:End()

   oDatePicker := TDatePick():New( 0, 0, { || dFecha }, oDlg, 13, 13, nil, nil, nil, nil, .F., nil, nil, "cmeg", .t., NIL, {|Objeto| cResult := Objeto:cText }   )

   ACTIVATE DIALOG oDlg CENTERED ;
            ON PAINT oDatePicker:Open()

  MsgInfo( cResult )

  oWndMain:End()

  QUIT

RETURN NIL


Saludos
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: DatePicker´s question
Posted: Tue Feb 24, 2015 06:36 PM
Hello Joao,

Many thanks. Almost done, but I want to supress the Little mark from the Dialog:



Thank you.

Code (fw): Select all Collapse
// MBA 24.02.2015

#include "FiveWin.ch"
#include "constant.ch"

#define DTN_FIRST                     -760
#define DTN_DATETIMECHANGE  (DTN_FIRST + 1)
#define DTN_DROPDOWN        (DTN_FIRST + 6) // MonthCal has dropped down
#define DTN_CLOSEUP         (DTN_FIRST + 7) // MonthCal is popping up


REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN

static oDlg
static cResult  := nil
static nVeces   := 0


*********************************************************************************************
FUNCTION Main()
*********************************************************************************************

   LOCAL oWnd


   // Idioma español para Harbour
   HB_LangSelect("ESWIN") // Para mensajes, fechas, etc..
   HB_CDPSELECT("ESWIN") // Para ordenación, requiere CodePage.lib


   SET EPOCH TO 1950
   SET CENTURY ON
   SET DATE FORMAT TO "DD/MM/YYYY"





   DEFINE WINDOW oWnd  FROM 1, 1 TO 12, 32 TITLE "TEST Moisés"

   ACTIVATE WINDOW oWnd MAXIMIZED ; //CENTERED;
            on init test()

RETURN( NIL )
*********************************************************************************************



*********************************************************************************************
FUNCTION Test( dFecha )
*********************************************************************************************


   LOCAL oWndMain := WndMain()
   LOCAL oDatePicker
   LOCAL oTimer

   DEFAULT dFecha := Date()


   // Reset valores
   cResult  := nil
   nVeces   := 0


   // Diálogo oculto
   DEFINE DIALOG oDlg FROM -0,-0 to -0,-0 PIXEL ;
   STYLE nOr( WS_POPUP ) ;



// METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;
//            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;
//            bWhen, bChange, nHelpId, cPic ) Class TDatePick

   oDatePicker := TDatePick():New( 0, 0, { || dFecha }, oDlg, 3, 3, nil, nil, nil, nil, .F., nil, nil, "cmeg", .t., NIL, {|Objeto| cResult := Objeto:cText, CloseDlg_MsgDate() }   )


   ACTIVATE DIALOG oDlg CENTERED ;
            ON PAINT oDatePicker:Open() ;
            on init odlg:Hide()




  MsgInfo( cResult )
  oWndMain:End()
  QUIT

RETURN NIL
*********************************************************************************************



*********************************************************************************************
FUNCTION CloseDlg_MsgDate()
*********************************************************************************************

nVeces++
if nveces > 1
   nVeces := 0
   oDlg:End()
endif

return nil
*********************************************************************************************
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: DatePicker´s question
Posted: Tue Feb 24, 2015 07:19 PM

Yes!! Very good!! Mui bueno.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: DatePicker´s question
Posted: Tue Feb 24, 2015 08:25 PM
Code (fw): Select all Collapse
// MBA 24.02.2015

#include "FiveWin.ch"
#include "constant.ch"

#define DTN_FIRST                     -760
#define DTN_DATETIMECHANGE  (DTN_FIRST + 1)
#define DTN_DROPDOWN        (DTN_FIRST + 6) // MonthCal has dropped down
#define DTN_CLOSEUP         (DTN_FIRST + 7) // MonthCal is popping up


REQUEST HB_LANG_ESWIN
REQUEST HB_CODEPAGE_ESWIN

static oDlg
static cResult  := nil
static nVeces   := 0


*********************************************************************************************
FUNCTION Main()
*********************************************************************************************

   LOCAL oWnd


   // Idioma español para Harbour
   HB_LangSelect("ESWIN") // Para mensajes, fechas, etc..
   HB_CDPSELECT("ESWIN") // Para ordenación, requiere CodePage.lib


   SET EPOCH TO 1950
   SET CENTURY ON
   SET DATE FORMAT TO "DD/MM/YYYY"





   DEFINE WINDOW oWnd  FROM 1, 1 TO 12, 32 TITLE "TEST Moisés"

   ACTIVATE WINDOW oWnd MAXIMIZED ; //CENTERED;
            on init test()

RETURN( NIL )
*********************************************************************************************



*********************************************************************************************
FUNCTION Test( dFecha )
*********************************************************************************************


   LOCAL oWndMain := WndMain()
   LOCAL oDatePicker
   LOCAL oTimer

   DEFAULT dFecha := Date()


   // Reset valores
   cResult  := nil
   nVeces   := 0


   // Diálogo oculto
   DEFINE DIALOG oDlg FROM -1,-1 to -1,-1 PIXEL ;
          STYLE nOr( WS_POPUP )

   oDlg:lHelpIcon := .F.


// METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;
//            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;
//            bWhen, bChange, nHelpId, cPic ) Class TDatePick

   oDatePicker := TDatePick():New( 1, 1, { || dFecha }, oDlg, 3, 3, nil, nil, nil, nil, .F., nil, nil, "cmeg", .t., NIL, {|Objeto| cResult := Objeto:cText, CloseDlg_MsgDate() } )

   oDatePicker:Refresh()

   ACTIVATE DIALOG oDlg CENTERED   ;
            ON PAINT( oDatePicker:Open() ) ;
            ON INIT( oDlg:Hide() )

  MsgInfo( cResult )
  oWndMain:End()
  QUIT

RETURN NIL
*********************************************************************************************



*********************************************************************************************
FUNCTION CloseDlg_MsgDate()
*********************************************************************************************

nVeces++
if nveces > 1
   nVeces := 0
   oDlg:End()
endif

return nil
*********************************************************************************************


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion

Static archive · New replies & topics via GitHub Discussions