FiveTech Software tech support forums

Antonio, neste código (PRG) preciso colocar imagens com texto dentro da imagem.
Da maneira abaixo mostrada até consigo, mais ao rolar a barra de rolagem da window
o texto some.


DEFINE WINDOW oWndChild2 OF oWnd MDICHILD vscroll TITLE "PRODUTOS" icon oico FROM 0,54 TO 37, 128


ACTIVATE WINDOW oWndChild2 on init(TScrWnd():New( oWndChild2, 1, 500, 1, 70),carregaimag())



**********************************
function carregaimag(numero)
**********************************
if len(ToBtc)>0
ReleaseDC(ToBtc)
ReleaseDC(TxBtc)
for i:=1 to len(ToBtc)
if Tobtc#nil
Tobtc:hide()
Tobtc:end()
if Txbtc#nil
Txbtc:end()
endif
endif
next
endif
ToBtc :=array(numero)
TxBtc :=array(numero)
for i := 1 to numero
for j := 1 to Tnucol
conta++
if conta<=numero
if file(aprodsubs[j][3])
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta];
file aprodsubs[j][3] SIZE 95,80 OF oWndChild2:oclient ADJUST PIXEL
else
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] RESOURCE "REDPLAN" ;
SIZE 95,80 OF oWndChild2:oclient ADJUST PIXEL
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) SAY TxBtc[conta] prompt "TEXTO";
SIZE 95,80 PIXEL OF oWndChild2:oclient CENTER
endif
else
exit
endif
next
if conta>numero
exit
endif
next
return(.t.)