Page 1 of 1
Refresh Object
Posted: Tue Sep 23, 2008 4:21 pm
by rasptty
Function Cloca_tx(texto)
@ 2, 10 SAY alltrim(texto) size 50,15
return nil
Só funciona a 1º Vez, a segunda não limpa o texto Anterior porqué?
o mesmo se passa se for uma imagem
Obrigado
Posted: Thu Sep 25, 2008 4:36 pm
by Antonio Linares
Do it this way:
Code: Select all
Function Cloca_tx(texto)
static oSay
if oSay == nil
@ 2, 10 SAY oSay PROMPT alltrim(texto) size 50,15
else
oSay:SetText( alltrim(texto) )
endif
return nil
or you will be creating a new control SAY again and again
Posted: Thu Sep 25, 2008 11:12 pm
by rasptty
Ok se for texto funciona e se for uma imagem ? tipo:
DO case
case que_cla="A"
@ 16, 25 BITMAP oBmp FILENAME CURDIR() + "\img\a.bmp" Noborder OF oWnd
case que_cla="B"
@ 16, 25 BITMAP oBmp FILENAME CURDIR() + "\img\b.bmp" Noborder OF oWnd
case que_cla="C"
@ 16, 25 BITMAP oBmp FILENAME CURDIR() + "\img\c.bmp" Noborder OF oWnd
case que_cla="G"
@ 16, 25 BITMAP oBmp FILENAME CURDIR() + "\img\g.bmp" Noborder OF oWnd
Endcase