Search found 56 matches: gdibmp

Searched query: gdibmp

by FiveWiDi
Sat Feb 08, 2025 10:07 pm
Forum: FiveWin para Harbour/xHarbour
Topic: QR en portapapeles
Replies: 18
Views: 20163

Re: QR en portapapeles

... 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 ...
by Antonio Linares
Sat Feb 08, 2025 9:35 pm
Forum: FiveWin para Harbour/xHarbour
Topic: QR en portapapeles
Replies: 18
Views: 20163

Re: QR en portapapeles

... 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 ...
by FiveWiDi
Sat Feb 08, 2025 9:13 pm
Forum: FiveWin para Harbour/xHarbour
Topic: QR en portapapeles
Replies: 18
Views: 20163

Re: QR en portapapeles

... 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 ...
by Cgallegoa
Sat Feb 08, 2025 7:38 pm
Forum: FiveWin para Harbour/xHarbour
Topic: QR en portapapeles
Replies: 18
Views: 20163

Re: QR en portapapeles

... 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 ...
by Cgallegoa
Sat Feb 08, 2025 5:28 pm
Forum: FiveWin para Harbour/xHarbour
Topic: QR en portapapeles
Replies: 18
Views: 20163

Re: QR en portapapeles

... 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 ...
by karinha
Tue Jan 07, 2025 2:15 pm
Forum: FiveWin para Harbour/xHarbour
Topic: CODIGO QR EN DOCUMENTO CON TPRINTER
Replies: 10
Views: 1499

Re: CODIGO QR EN DOCUMENTO CON TPRINTER

... 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 ...
by Antonio Linares
Fri Oct 07, 2022 11:05 am
Forum: FiveWin para Harbour/xHarbour
Topic: Frase se ajuste a un ancho
Replies: 22
Views: 3677

Re: Frase se ajuste a un ancho

... 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 ...
by ukoenig
Thu Jul 15, 2021 1:53 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to fill a xBrowse-cell with a real image-BRUSH ?
Replies: 4
Views: 815

Re: How to fill a xBrowse-cell with a real image-BRUSH ?

... 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 ...
by Antonio Linares
Fri Apr 16, 2021 10:39 am
Forum: mod_harbour
Topic: time schedule system
Replies: 5
Views: 1174

Re: time schedule system

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 ...
by evallejo
Mon Mar 15, 2021 9:15 pm
Forum: FiveWin para Harbour/xHarbour
Topic: problema con DrawBitmap() usando tCodeBars
Replies: 10
Views: 1720

Re: problema con DrawBitmap() usando tCodeBars

... 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
by ukoenig
Thu Oct 17, 2019 2:32 pm
Forum: FiveWin for Harbour/xHarbour
Topic: Show an gdi trasparency
Replies: 5
Views: 787

Re: Show an gdi trasparency

... 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 ...
by Silvio.Falconi
Thu Oct 17, 2019 11:02 am
Forum: FiveWin for Harbour/xHarbour
Topic: Show an gdi trasparency
Replies: 5
Views: 787

Show an gdi trasparency

... 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 ...
by ukoenig
Fri Jul 12, 2019 10:31 am
Forum: FiveWin for Harbour/xHarbour
Topic: disable/enable button
Replies: 5
Views: 942

Re: disable/enable button

... 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 ...
by ukoenig
Sun Apr 07, 2019 1:02 pm
Forum: FiveWin for Harbour/xHarbour
Topic: How to use GDIPLUS -> NewGradientBrush ?
Replies: 11
Views: 2853

Re: How to use GDIPLUS -> NewGradientBrush ?

... 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 ...
by jnavas
Tue Dec 11, 2018 8:39 am
Forum: FiveWin para Harbour/xHarbour
Topic: QRCODE
Replies: 12
Views: 4613

Re: QRCODE

... 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 ...