FiveTech Software tech support forums

... bmp2Alpha( FW_BarCodeBmp( "Hola", "QRCODE", 400.0, 400.0 ) ) )

return nil

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...

... bmp2Alpha( FW_BarCodeBmp( "Hola", "QRCODE", 400.0, 400.0 ) ) )

return nil

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...

... donde está ? :)


Sigue apareciendo el marco negro alrededor. QR no identificable.

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...

... return nil
//-----------------------------------------------------------------------//

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...

... return nil
//-----------------------------------------------------------------------//

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...

... FUNCTION cargaBmp( cCode, oImage )

LOCAL cResp, hDib
LOCAL nZeroZeroClr
LOCAL ogbmp := GdiBmp():new()
LOCAL nHeight := 248
LOCAL nWidth := 248
LOCAL cUrl := "http://api.qrserver.com/v1/create-qr-code/?data="
LOCAL nQuality := 1

cUrl ...

... 217 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3680 )
Called from: => MSGINFO( 0 )
Called from: .\source\classes\TGDIPLUS.PRG => GDIBMP:NEW( 639 )
Called from: c:\fwteam\samples\crist.prg => TCWND:SETBUTTONS( 72 )
Called from: c:\fwteam\samples\crist.prg => TCWND:NCPAINT( 115 ...

... I display using
:aCols[ I ]:bPaintText := { | .....
and GDI-functions
that was the reason thinking about
::hBrush = GdiPlusNewTextureBrush( oGdiBmp:hbmp )

like using for the background-images :

oImage := GDIBmp():new( c_path + cData )
oGraphics:DrawImage( oImage, nTop + nAdjust, nLeft ...

Dear Otto,

You could supply the factor as a parameter:

function resizeImage( cSrc, cDst, nValue )

local nQuality := 0
local oImage := GdiBmp():New( cSrc )
local nFactor := oImage:GetWidth() / If( Empty( nValue ), 400, nValue )
local newHeight := oImage:GetHeight( nFactor )

FErase( cDst )
oImage ...

... que mi PC entro en la actualizacion de Windows... despues ya no muestra las imagenes (solo un recuadro negro) de ahi tengo el reporte de 2 clientes con ese problema

A ver si alguien nos da una manito ... por el momento recurri a otras funciones para salir del paso (funciones de GDIBmp...)

Gracias

... FUNCTION DRAWIMAGE( oWnd )
LOCAL oGraphics1 := Graphics():New( oWnd:hDC )
LOCAL oGraphics2 := Graphics():New( oWnd:hDC )
LOCAL oImage1 := GDIBmp():new( c_path1 + "Logo.png" )
LOCAL oImage2 := GDIBmp():new( c_path1 + "Olga.jpg" )

//nTop := aRect[ 1 ]
//nLeft := aRect[ 2 ]
//nBottom := aRect ...

... 10,072 BITMAP oBmp File "" size 50, 100 pixel // NOBORDER

oPen := Pen():New( 255, 0, 0, 255 ) // nTransparency, nRed, nGreen, nBlue
oImage1:= GDIBmp():new("sample.png" )
hDC[1]:= oBmp:GetDc()
oGraphics[1] := Graphics():New( hDC[1] )
n9:= -73
oGraphics[1]:DrawImage( oImage1 , 1, n9 )

if I use a ...

... needed.

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22737&p=121478&hilit=image+to+gray#p121478

I will have a look at gdiplus :

CLASS GDIBmp
DATA hBmp
...
...
METHOD ConverToGray() INLINE ::hBmp := GdiPlusImageMatrixToGray( ::hBmp )
METHOD SetColorGrayPix( nX, nY ) INLINE ...

... GDI1.jpg

The Bmp-brush is shown as a resized image not tiled
Image-test ( I noticed a little problem with top / left )

LOCAL oImage1 := GDIBmp():new( c_path1 + "Blustone.bmp" )
LOCAL oGraphics1 := Graphics():New( oWnd:hDC )
LOCAL oImage2 := GDIBmp():new( c_path1 + "Marble.bmp" )
LOCAL ...

... Function cargaBmp( cCode, oImage )
local cResp
local nZeroZeroClr
local ogbmp := GdiBmp():new()
local nHeight := 248
local nWidth := 248
local cUrl := "http://api.qrserver.com/v1/create-qr-code/?data="
local nQuality:=1

cUrl ...