Cargar parte de un BitMap?

Cargar parte de un BitMap?

Postby noe aburto » Sun Jun 07, 2015 3: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
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Cargar parte de un BitMap?

Postby Antonio Linares » Sun Jun 07, 2015 2: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
User avatar
Antonio Linares
Site Admin
 
Posts: 41314
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cargar parte de un BitMap?

Postby Antonio Linares » Sun Jun 07, 2015 2: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
User avatar
Antonio Linares
Site Admin
 
Posts: 41314
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Cargar parte de un BitMap?

Postby noe aburto » Sun Jun 07, 2015 9: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
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Cargar parte de un BitMap?

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 41314
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 85 guests