FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cargar parte de un BitMap?
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Cargar parte de un BitMap?
Posted: Sun Jun 07, 2015 03:43 AM

Saludos.

Es posible leer una parte de un archivo bitmap (BMP)?

tengo un BMP de 432x16 pxl que corresponden a 16x17 y 16, el cual cada 16 pxl tiene la imagen de una letra (ABCDEFC...)

se podra segun una letra X, tomar parte de este bitmap que corresponda a esta letra:

por ejempo: Si tengo la letra C (numero 3), tomaria del bitmap el segmento 16x3-16 pxl = 32, hasta el 32+16 y 16 de alto.

todo esto para no tener 27 bitmaps con la letra de cada vocal. Lo asignaria a oBmp:=TomaLetra('C') que regresaria el bitmap
de la letra C

Gracias.

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cargar parte de un BitMap?
Posted: Sun Jun 07, 2015 02:39 PM

Noé,

La función CropImage( hBitmap, nTop, nLeft, nBottom, nRight ) te devolverá un nuevo hBitmap correspondiente al área indicada

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cargar parte de un BitMap?
Posted: Sun Jun 07, 2015 02:49 PM

Basicamente lo que tendrías que hacer es:

local oLetra := TBitmap():Define( ,,, CropImage( oBitmapCompleto:hBitmap, nTop, nLeft, nBottom, nRight ) )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Re: Cargar parte de un BitMap?
Posted: Sun Jun 07, 2015 09:44 PM

Saludos Antonio Linares

Mi unica dura al respecto del ejemplo que me expones:

local oLetra := TBitmap():Define( ,,, CropImage( oBitmapCompleto:hBitmap, nTop, nLeft, nBottom, nRight ) )

¿Como doy lectura a mi archivo BMP para "oBitmapCompleto"

oBitmapCompleto:=FiLoadImg('AZ09.BMP')
o
oBitmapCompleto:=LoadBitmap(GetResources(),'AZ09.BMP')
o
oBitmapCompleto:=ReadBitmap(0,,'AZ09.BMP')
o
que funcion?

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cargar parte de un BitMap?
Posted: Sun Jun 07, 2015 10:19 PM

Noé,

Si lo guardas como un recurso en tu EXE:
oBitmapCompleto = TBitmap():Define( "AZ09" )

Si lo guardas como un archivo BMP:
oBitmapCompleto = TBitmap():Define( , "AZ09.bmp" )

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion