FiveTech Support Forums

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

#define NOME_PROGRAMMA_TITLE  "test"
#define LIGHTCYAN        nRGB( 203, 225, 252 )

Function Test()
   Local oDlgLicenza
   Local  nBottom   := 27
   Local  nRight    := 60
   Local  nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
   Local  nHeight := nBottom * DLG_CHARPIX_H
   Local  aProf[13]
 DEFINE DIALOG oDlgLicenza          ;
         SIZE nWidth, nHeight   PIXEL  ;
          TITLE "Registrazione "+NOME_PROGRAMMA_TITLE

 oPages := TPages():New(00,0, oDlgLicenza:nHeight-50,oDlgLicenza:nWidth, oDlgLicenza)


// one page 
 DEFINE DIALOG oDlg1  OF oPages   STYLE WS_CHILD    SIZE 200, nHeight

   @ 0,00 TITLE  oTitle1  OF oDlg1 SIZE 500,40 NOBORDER SHADOW NOSHADOW     ;
                              GRADIENT { { 1, RGB(151,154,173), CLR_BLACK } }

   @ 10, 12 TITLETEXT OF oTitle1 TEXT "Inserire la chiave di attivazione del programma." FONT oFontBold COLOR CLR_WHITE
  

//two page
 DEFINE DIALOG oDlg2  OF oPages   STYLE WS_CHILD

    @ 0,0 TITLE  oTitle2  OF oDlg2 size 500, 30 NOBORDER SHADOW NOSHADOW   ;
                               GRADIENT { { 1, RGB(151,154,173), CLR_RED } }

     @ 10, 12 TITLETEXT OF oTitle2 TEXT "Inserire i tuoi dati." FONT oFontBold COLOR CLR_WHITE




oPages:AddPage( oDlg2 )
       oPages:SetOption( 1 )


@ 185,55 BUTTON obtnPre PROMPT "< Indietro"  SIZE 40, 12 ACTION oPages:GoPrev()  PIXEL  OF oDlgLicenza
      @ 185,98 BUTTON obtnNext PROMPT "Avanti >"   SIZE 40, 12 ACTION oPages:GoNext()  PIXEL  OF oDlgLicenza
      @ 185,140 BUTTON obtnExit PROMPT "Annulla"  SIZE 40, 12 ACTION ( oDlgLicenza:end( IDCANCEL ) )  PIXEL  OF oDlgLicenza



      ACTIVATE DIALOG oDlgLicenza ;
       ON INIT oPages:Move( 0, 0, oDlgLicenza:nWidth-20, oDlgLicenza:nHeight-80 )

retu nil