Wvg_Image() ou Wvg_DrawImage() não carrega imagens WVGCRT()
Enviado: 09 Mar 2019 18:46
Alguém já passou por isso?
se usar o seguinte fora do wvgcrt() funciona:
Já dentro de uma função que cria o WvgCrt() não funciona.
A minha WVG_CRT é basicamente a mesma coisa da pasta TESTS, só com algumas modificações:
Talvez esteja faltando alguma outra peça pra funcionar, que eu não vi no demowvg.prg.
se usar o seguinte fora do wvgcrt() funciona:
Código: Selecionar todos
Wvg_Image ( 01 , 01 , 08 , 29 , , GOBJ_IMAGESOURCE_FILE, TLogin , , .f. )A minha WVG_CRT é basicamente a mesma coisa da pasta TESTS, só com algumas modificações:
Código: Selecionar todos
WITH OBJECT oCrt := WvgCrt():New( , , { nTop , nLef }, { nBot , nRig }, , .t. )
:lModal := .t.
:title := cTit
:icon := "AppIcon"
:resizable := .F.
:closable := .F.
:minMax := .F.
:lbDblClick( )
:create()
:setColorFG(cCor)
ENDWITH
Wvg_Image ( 01 , 01 , 08 , 29 , , GOBJ_IMAGESOURCE_FILE, TLogin , , .t. )
Wvg_DrawImage ( 1, 1, 10, 10, TLogin, , .f. )