PONER VARIAS IMAGENES EN UN DIALOGO
Posted: Sat Jul 28, 2007 7:49 pm
SALUDOS
ALGUIEN ME PODRIA INDICAR COMO COLOCAR VARIAS IMAGENES
EN UN DIALOGO
HAGO LO SIGUIENTE:
Procedure Main()
LOCAL oBmp,oDlg
DEFINE DIALOG oDlg FROM 0,0 TO 35,100 TITLE "Test FreeImage"
DEFINE IMAGE oBmp FILE "001.jpg" OF oDlg
DEFINE IMAGE oBmp2 FILE "002.jpg" OF oDlg
oDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0,450, oBmp:hBitmap,,350,300,.T.)}
oDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0, 0,oBmp2:hBitmap,,350,300,.T.)}
ACTIVATE DIALOG oDlg CENTER
PERO SOLO APARECE LA SEGUNDA IMAGEN
ALGUIEN ME PODRIA INDICAR COMO COLOCAR VARIAS IMAGENES
EN UN DIALOGO
HAGO LO SIGUIENTE:
Procedure Main()
LOCAL oBmp,oDlg
DEFINE DIALOG oDlg FROM 0,0 TO 35,100 TITLE "Test FreeImage"
DEFINE IMAGE oBmp FILE "001.jpg" OF oDlg
DEFINE IMAGE oBmp2 FILE "002.jpg" OF oDlg
oDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0,450, oBmp:hBitmap,,350,300,.T.)}
oDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0, 0,oBmp2:hBitmap,,350,300,.T.)}
ACTIVATE DIALOG oDlg CENTER
PERO SOLO APARECE LA SEGUNDA IMAGEN