Sr Linares por anticipado Gracias por la atencion, el siguiente es la rutina que he tratado de usar par desplegar una imagen .bmp :
#include "FiveWin.ch"
function Main()
* local ruta := "e:\lapdell\jj\mdulce\verif\paris.bmp"
local ruta := "paris.bmp"
BmpPresenta( ruta, "VERIFICADOR DE PRECIOS" )
return nil
function BmpPresenta( cBmp, cTitulo )
local oWnd, oBmp
DEFAULT cTitulo := "Muestra imagen"
if file( cBmp )
DEFINE BITMAP oBmp FILE cBmp
DEFINE DIALOG oWnd TITLE cTitulo ;
SIZE oBmp:nWidth(), oBmp:nHeight PIXEL
ACTIVATE DIALOG oWnd CENTERED ;
ON PAINT PalBmpDraw( hDC, 300, 300, oBmp:hBitmap )
* ON PAINT PalBmpDraw( hDC, 0, 0, oBmp:hBitmap )
oBmp:End()
else
MsgAlert( "..Archivo Inexistente !" )
endif
return nil
cuando uso los parametros 0, 0 despliega la imagen completa abarcando toda la ventana; si uso 300, 300 mueve la imagen al extremo inferior derecho pero incompleta. mi necesidad es desplegar la imagen completa , llamandola desde la aplicacion en clipper ..
Gracias, por el apoyo
↧