FiveTech Support Forums

Ciao.

Vorrei compilare questa funzione senza usare il file .Rc, come posso
riscrivere queste due righe?

REDEFINE SAY oSay ID 100 OF oDlg
oProgress = TProgress():Redefine( 120, oDlg )

function Main()

local oDlg, oTabs, oSay, oProgress, oAnimate, oSay1, oSay2, nAVI := 1

DEFINE DIALOG oDlg RESOURCE "Main"

REDEFINE SAY oSay ID 100 OF oDlg
oProgress = TProgress():Redefine( 120, oDlg )

oDlg:bStart := { || SysRefresh(), Ut_CrearNTX(oSay, oProgress),;
oDlg:End() }

ACTIVATE DIALOG oDlg CENTERED

return nil

.Rc
CONTROL "", 120, "msctls_progress32", 0x00000000, 12, 20, 240, 20
CONTROL "Text", 100, "Static", WS_GROUP, 12, 48, 240, 8

@ riga, colonna, SAY oSay PROMPT "Test"

e

@ riga colonna PROGRESS oProgress SIZE larghezza, altezza

EMG

Ciao.

Compilando con il file Rc funziona benissimo,
togliendo Rc e mettendo

@ 2,1 Progress oProgress SIZE 120, 10

mi da, compilando a questa riga: errore " parse error at '@'"
credo che non mi accetti PROGRESS

o cambiato così:

function Main()

local oDlg, oTabs, oSay, oProgress, oAnimate, oSay1, oSay2, nAVI := 1

DEFINE DIALOG oDlg FROM 0,0 TO 6, 45 TITLE "Indici"

@ 0,1 SAY oSay PROMPT "Test"

@ 2, 1 PROGRESS oProgress SIZE 120, 10

oDlg:bStart := { || SysRefresh(), Ut_CrearNTX(oSay, oProgress),;
oDlg:End() }

ACTIVATE DIALOG oDlg CENTERED

return nil

Probabilmente hai una versione vecchia. Allora prova con TProgress():New(). Ti conviene imparare a dare un'occhiata ai .CH e ai .PRG delle FWH. Lì trovi tutto quello che ti interessa e le corrette sintassi per la tua versione.

EMG