sintaxis de BitMap
sintaxis de BitMap
Hola buen dia, tengo una opcion Verificador de Precios; en clipper 5.03, necesito desplegar la imagen del producto, he tratado de hacerlo en fivewin, pero no he podido controlar la posicion y tamaño de la imagen, esto para ejecutarlo desde clipper.. de antemano Muchas Gracias.
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: sintaxis de BitMap
Puedes mostrar un ejemplo PRG de cómo lo estás haciendo ?
Una imagen también ayudaría mucho
Una imagen también ayudaría mucho
Re: sintaxis de BitMap
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
#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
Re: sintaxis de BitMap
Sr. Linares, entiendo lo valioso de su tiempo, aun no tengo respuesta o sugerencia respecto a mi peticion sobre el desplegar imagen .bmp sobre una consulta desde clipper 5.3... para un verificador de precios..
Gracias Anticipadas
Gracias Anticipadas
Re: sintaxis de BitMap
para imprimir un codigo de barras bidimensinal cbb utilizo:
Oprinter:SayBitMap(pos1, pos2, "salida.bmp", tam1, tam2)
de que depende que algunas imagenes si se imprimen y otras no...
habra que configura algunos parametros
Gracias
Oprinter:SayBitMap(pos1, pos2, "salida.bmp", tam1, tam2)
de que depende que algunas imagenes si se imprimen y otras no...
habra que configura algunos parametros
Gracias