FiveTech Support Forums

#include "fivewin.ch"
#include "SSay.ch"


Function test()
local oDlg,oFolder,oBarDialog,oFontDialog
local oSay[2]
local aGet[2]
local cDenominazione:= space(50)
local cIndirizzo := space(50)
DEFINE FONT oFontDialog NAME 'Tahoma' SIZE 0, -16
DEFINE DIALOG oDlg        ;
   TITLE "Configurazione"    ;
   SIZE 900,400 PIXEL TRUEPIXEL               ; //  RESIZABLE
   COLOR CLR_BLACK,  nRgb( 245,244,234) 

    DEFINE BUTTONBAR oBarDialog OF oDlg SIZE 80, 80  2015   BOTTOM NOBORDER

   @3,0 FOLDEREX oFolder PROMPTS "Azienda" ;
       SIZE oDlg:nWidth,oDlg:nHeight-oBarDialog:nheight  PIXEL   ;
       FONT oFontDialog  ;
       COLOR  nRgb( 245,244,234)

   @ 22, 10 SENSITIVE SAY oSay[1] PROMPT  "Denominazione" SIZE 60,20  PIXEL OF oFolder:aDialogs[1]  TRANSPARENT
   @ 20, 70 GET aGet[1] VAR cDenominazione SIZE 363,12 PIXEL OF oFolder:aDialogs[1]
   @ 36,10 SENSITIVE SAY oSay[2] PROMPT  "Indirizzo" SIZE 60,20  PIXEL OF oFolder:aDialogs[1]  TRANSPARENT
   @ 34, 70 GET aGet[2] VAR cIndirizzo SIZE 363,12 PIXEL OF oFolder:aDialogs[1]

   oSay[1]:lActive:=.f.
   oSay[1]:lLine:=.t.
   oSay[2]:lActive:=.f.
   oSay[2]:lLine:=.t.
 ACTIVATE DIALOG oDlg CENTERED
return nil

// C:\SILVIO2\SILVSSAY.PRG - 20/11/2021 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e -->

#Include "FiveWin.ch"
#Include "SSay.ch"

#Define CLR_LGREEN     nRGB( 190, 215, 190 )
#Define CLR_SOFTYELLOW nRGB( 255, 251, 225 )
#Define CLR_PINK       nRGB( 255, 128, 128 )
#Define CLR_NBLUE      nRGB( 128, 128, 192 )
#Define CLR_MSPURPLE   nRGB( 0,   120, 215 )
#Define CLR_MSRED      nRGB( 232,  17,  35 )
#Define CLR_MSGRAY     nRGB( 229, 229, 229 )

FUNCTION Configura()

   LOCAL oDlg, oFld, oBarDialog, oFont, cTitle, aGrad, oOk, oExit
   LOCAL cDenominazione := "I LOVE FIVEWIN THE BEST OF THE WORLD!            "
   LOCAL cIndirizzo     := "AVENUE ATLANTICA, 1200 - LEBLON - RIO DE JANEIRO."
   LOCAL oSay      := ARRAY(4)
   LOCAL aGet      := ARRAY(4)
   LOCA  cCompl    := REPLICATE( ".",  9 )
   LOCAL SilDrawLi := REPLICATE( "_", 13 )

   cTitle := "Italia Informatica Corporation: Configurazione di Sistema"

   SET _3DLOOK ON

   SetGetColorFocus( CLR_LGREEN ) // COR EM TODOS OS GETS DOS DIALOGOS.

   tGet():lDisColors  := .F.   // WHEN( .F. ) COR.
   tGet():nClrTextDis := CLR_HBLUE
   tGet():nClrPaneDis := CLR_SOFTYELLOW

   SetBalloon( .T. ) // Balloon shape required for tooltips

   SkinButtons()

   aGrad := { { 1, CLR_WHITE, CLR_HCYAN  } }

   DEFINE FONT oFont NAME 'Tahoma' SIZE 0, - 16

   DEFINE DIALOG oDlg TITLE cTitle SIZE 900, 400 PIXEL TRUEPIXEL            ;
      GRADIENT aGrad

   oDlg:lHelpIcon := .F.

   DEFINE BUTTONBAR oBarDialog OF oDlg SIZE 80, 80 2007 BOTTOM NOBORDER

   @3, 0 FOLDEREX oFld SIZE oDlg:nWidth, oDlg:nHeight - oBarDialog:nheight ;
      PROMPTS "&Azienda", "&Setup"                                         ;
      BITMAPS "C:\FWH1905\bitmaps\16x16\floppy.bmp",                       ;
              "C:\FWH1905\bitmaps\16x16\HelpInd.bmp"                       ;
      FONT oFont PIXEL COLOR CLR_MSGRAY TAB HEIGHT 25 ROUND 5

   oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .F., .F. }
   oFld:Show()

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   @ 22, 10 SENSITIVE SAY oSay[1] PROMPT "Denominazione:" SIZE 60, 20        ;
      UPDATE PIXEL OF oFld:aDialogs[1] FONT oFont COLORS CLR_PINK, CLR_WHITE ;
      TRANSPARENT

   @ 24.00, 10 SAY oSilDrawLi VAR SilDrawLi SIZE 150, 15 OF oFld:aDialogs[1] ;
      UPDATE PIXEL FONT oFont COLORS CLR_PINK, CLR_WHITE TRANSPARENT

   @ 22, 70 GET aGet[ 1 ] VAR cDenominazione SIZE 363, 12 UPDATE PIXEL       ;
      OF oFld:aDialogs[1]                                                    ;
      FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE

   @ 36.50, 10 SENSITIVE SAY oSay[2] PROMPT "Indirizzo"+cCompl+".:"          ;
       SIZE 60, 20 PIXEL OF oFld:aDialogs[1] FONT oFont                      ;
       COLORS CLR_MSPURPLE, CLR_WHITE UPDATE TRANSPARENT

   @ 39.50, 10 SAY oSilDrawLi VAR SilDrawLi SIZE 150, 15 OF oFld:aDialogs[1] ;
      UPDATE PIXEL FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE TRANSPARENT

   @ 36.50, 70 GET aGet[2] VAR cIndirizzo SIZE 363, 12 PIXEL OF oFld:aDialogs[1] ;
      UPDATE FONT oFont COLORS CLR_MSPURPLE, CLR_WHITE

   @ 370, 350 BUTTON oOk PROMPT "&Ok"       SIZE 80, 20 OF oDlg PIXEL ;
      ACTION( oDlg:End() )

   @ 370, 450 BUTTON oExit PROMPT "&Salida" SIZE 80, 20 OF oDlg PIXEL ;
      ACTION( oDlg:End() ) DEFAULT CANCEL

   SET FONT OF oOk   TO oFont
   SET FONT OF oExit TO oFont

   ACTIVATE DIALOG oDlg CENTERED

   IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
      Set( _SET_INSERT, ! Set( _SET_INSERT ) )
   ENDIF

   oFont:End()

RETURN NIL

// FIN / END