... 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 ...
Search found 56 matches: gdibmp
Searched query: gdibmp
- Sat Feb 08, 2025 10:07 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: QR en portapapeles
- Replies: 18
- Views: 20163
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
//-----------------------------------------------------------------------//
Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...
- 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 ...
//-----------------------------------------------------------------------//
Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp:GetGDIHbitmap()
oBmp:Set32Bits(.F.)
oBmp:Destroy ...
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
: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 ...
- 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 ...
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 ...
- 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
A ver si alguien nos da una manito ... por el momento recurri a otras funciones para salir del paso (funciones de GDIBmp...)
Gracias
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
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 ...
- 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 ...
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 ...