if the say is 10 not show the line
a little test to try
- Code: Select all Expand view
- #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