FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para CA-Clipper sintaxis de BitMap
Posts: 4
Joined: Mon May 08, 2017 10:41 AM
sintaxis de BitMap
Posted: Mon May 08, 2017 01:00 PM

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.

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: sintaxis de BitMap
Posted: Mon May 08, 2017 04:42 PM

Puedes mostrar un ejemplo PRG de cómo lo estás haciendo ?

Una imagen también ayudaría mucho

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 4
Joined: Mon May 08, 2017 10:41 AM
Re: sintaxis de BitMap
Posted: Tue May 16, 2017 11:02 PM

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

Posts: 4
Joined: Mon May 08, 2017 10:41 AM
Re: sintaxis de BitMap
Posted: Sun Jun 11, 2017 09:18 PM

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

Posts: 4
Joined: Mon May 08, 2017 10:41 AM
Re: sintaxis de BitMap
Posted: Thu Jun 22, 2017 12:08 PM

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

Continue the discussion