FiveTech Support Forums

#include "FiveWin.ch"
#include "calendar.ch"

FUNCTION Main()

   LOCAL oDlg, oFld
   LOCAL oCal1, oCal2
   LOCAL dArrivo   := Ctod( "10/06/2026" )
   LOCAL dPartenza := Ctod( "11/06/2026" )

   DEFINE DIALOG oDlg TITLE "Date" ;
      FROM 0, 0 TO 360, 560 PIXEL

   @ 10, 10 FOLDER oFld ;
      PROMPTS "Prenotazione", "Altro" ;
      SIZE 520, 300 ;
      OF oDlg PIXEL

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT CreaCalendari( oFld, @oCal1, @oCal2, @dArrivo, @dPartenza )

RETURN NIL


STATIC FUNCTION CreaCalendari( oFld, oCal1, oCal2, dArrivo, dPartenza )

   LOCAL oPage := oFld:aDialogs[ 1 ]

   @ 15, 15 SAY "ARRIVO" ;
      OF oPage SIZE 220, 18 PIXEL CENTER

   @ 15, 255 SAY "PARTENZA" ;
      OF oPage SIZE 220, 18 PIXEL CENTER

   @ 40, 15 CALENDAR oCal1 ;
      VAR dArrivo ;
      OF oPage ;
      SIZE 250, 140 PIXEL

   @ 40, 305 CALENDAR oCal2 ;
      VAR dPartenza ;
      OF oPage ;
      SIZE 250, 140 PIXEL

   @ 190, 15 SAY DToC( dArrivo ) ;
      OF oPage SIZE 220, 20 PIXEL CENTER UPDATE

   @ 190, 255 SAY DToC( dPartenza ) ;
      OF oPage SIZE 220, 20 PIXEL CENTER UPDATE

  MsgInfo( ;
   "Page hWnd: " + cValToChar( oPage:hWnd ) + CRLF + ;
   "Cal1 hWnd: " + cValToChar( oCal1:hWnd ) + CRLF + ;
   "Cal2 hWnd: " + cValToChar( oCal2:hWnd ) )
RETURN NI

// C:\FWH2603\SAMPLES\SILVIOCA.PRG -> NO FUNCIONA. CON FWH1905, FUNCIONA MUY BIEN.

#include "FiveWin.ch"
#include "calendar.ch"

FUNCTION Main()

   LOCAL oDlg, oFld, dDate1, dDate2, oFont, oCal1, oCal2

   SET DATE TO BRITISH
   SET EPOCH TO 1980

   dDate1 = Date()
   dDate2 = Date()

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -12 BOLD

   DEFINE DIALOG oDlg TITLE "Date" FROM 0, 0 TO  370, 750 PIXEL ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT FONT oFont

   oDlg:lHelpIcon := .F.

   @ 10, 10 FOLDEREX oFld PROMPTS "Prenotazione", "Altro" SIZE 355, 136 OF oDlg ;
      PIXEL TAB HEIGHT 30 ROUND 5 FONT oFont COLOR CLR_WHITE TOP

   WITH OBJECT oFld

  :lStretch := .F.

  :lTransparent := .F.

  :aGradSel   := { { 1.0, 3926784, 16777215 }, { 0.1, 3926784, 16777215 } } // Green
  :aGradUnSel := { { 1.0, 16744448, 16777215 }, { 0.1, 16744448, 16777215 } } // Blue
  :aGradOver  := { { 1.0, 255, 16777215 }, { 0.1, 255, 16777215 } } // Red
  :aGradOverUnSel := { { 1.0, 12824535, 16777215 }, { 0.1, 12824535, 16777215 } } // Purple
  :aGradDis := { { 1.0, 15790320, 16777215 }, { 0.1, 15790320, 167772 } }

  :SetOption( 1 )
  :aEnable = { .T., .T., .F., .F. }
  :aVisible := { .T., .T., .F. } // MUDEI EM: 09/03/2026 - Joao
  :Show()

  :Refresh()

   END

   @ 15, 00 SAY "ARRIVO" OF oFld:aDialogs[ 1 ] SIZE 220, 18 PIXEL CENTER      ;
      UPDATE COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   @ 040, 0000 CALENDAR oCal1 VAR dDate1 OF oFld:aDialogs[ 1 ] PIXEL         ;
      SIZE 200, 170 WEEKNUMBER

   @ 15, 155 SAY "PARTENZA" OF oFld:aDialogs[ 1 ] SIZE 220, 18 PIXEL CENTER  ;
     UPDATE COLORS CLR_BLACK, CLR_WHITE TRANSPARENT

   @ 040, 0155 CALENDAR oCal2 VAR dDate2 OF oFld:aDialogs[ 1 ] PIXEL         ;
      SIZE 200, 170 WEEKNUMBER

   @ 160, 170 SAY "FWH2603, DEFECTIVE. FOLDER NOT WORKING." OF oDlg          ;
      SIZE 220, 18 PIXEL CENTER UPDATE COLORS CLR_HRED, CLR_WHITE TRANSPARENT

   @ 170, 175 SAY "FWH2603, DEFECTIVE. FOLDEREX NOT WORKING." OF oDlg        ;
      SIZE 220, 18 PIXEL CENTER UPDATE COLORS CLR_HRED, CLR_WHITE TRANSPARENT

   @ 155, 150 BUTTON "&Salida" OF oDlg SIZE 50, 18 PIXEL                     ;
      ACTION( oDlg:End() ) CANCEL

   ACTIVATE DIALOG oDlg CENTERED

   oFont:End()

RETURN NIL

// FIN / END  - kapiabafwh@gmail.com

#include "FiveWin.ch"
#include "calendar.ch"

FUNCTION Main()

   LOCAL oDlg, oFld
   LOCAL oCal1, oCal2
   LOCAL dArrivo
   LOCAL dPartenza 

SET DATE ITALIAN
SET DATE FORMAT TO "DD/MM/YYYY"
SET CENTURY ON

REQUEST HB_LANG_IT
HB_LANGSELECT( "IT" )

dArrivo   := Ctod( "10/06/2026" )
   dPartenza := Ctod( "11/07/2026" )

   DEFINE DIALOG oDlg TITLE "Date" ;
      FROM 0, 0 TO 360, 560 PIXEL

   @ 10, 10 FOLDER oFld ;
      PROMPTS "Prenotazione", "Altro" ;
      SIZE 520, 300 ;
      OF oDlg PIXEL

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT CreaCalendari( oFld, @oCal1, @oCal2, @dArrivo, @dPartenza )

RETURN NIL


STATIC FUNCTION CreaCalendari( oFld, oCal1, oCal2, dArrivo, dPartenza )

   LOCAL oPage := oFld:aDialogs[ 1 ]
   LOCAL oCal, oSay1, oSay2


@ 250, 15 SAY oSay1 PROMPT "Arrivo: " + DToC( dArrivo ) ;
   OF oPage SIZE 220, 20 PIXEL

@ 250, 255 SAY oSay2 PROMPT "Partenza: " + DToC( dPartenza ) ;
   OF oPage SIZE 220, 20 PIXEL

@ 40, 15 CALENDAR oCal ;
   VAR dArrivo, dPartenza ;
   OF oPage ;
   SIZE 500, 140 PIXEL ;
   MULTISELECT ;
   ON CHANGE ( ;
      oSay1:SetText( "Arrivo: " + DToC( dArrivo ) ), ;
      oSay2:SetText( "Partenza: " + DToC( dPartenza ) ) )

oCal:SetMaxSelCount( 365 )  // selection

RETURN NIL