FiveTech Support Forums

#include "fivewin.ch"
#include "constant.ch"


Function Test()
       local oDlg,oBar,oFont,oBold
       local nBottom   := 24
       local nRight    := 102
       local nWidth :=  Max( nRight * DLG_CHARPIX_W, 180 )
       local nHeight := nBottom * DLG_CHARPIX_H
       local aGet[17]

       local nTipoElemento:= 1
       local nTipoData:= 2
       local aElemento :={"Testo","Immagine","Barcode"}
       local cDescrizione:=space(40)
       local aTipoData :={"Campo","Valore"}


   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14

   DEFINE DIALOG oDlg        ;
   TITLE "Riga modulo"     ;
   SIZE nWidth, nHeight   PIXEL  FONT oFont    ;
   STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION,  4 ) ;
   COLOR CLR_BLACK,  nRgb( 245,244,234)

       @ 8, 5 Say "Tipo Elemento "  SIZE 80,14 PIXEL OF oDlg  TRANSPARENT
       @ 8, 75 COMBOBOX aGet[1] VAR nTipoElemento  ITEMS aElemento  SIZE 50,90 PIXEL OF oDlg    STYLE CBS_DROPDOWN


       @ 24, 5 Say "Dato da Stampare"  SIZE 90,20 PIXEL OF oDlg TRANSPARENT
       @ 22, 75  COMBOBOX aGet[2] VAR nTipoData  ITEMS aTipoData SIZE 50,90 PIXEL OF oDlg   STYLE CBS_DROPDOWN
     
 ACTIVATE DIALOG oDlg CENTERED ;
       ON INIT ( nTipoData:=2