Servus Leute,
Hab eine Frage bezüglich eines Bildobjektes was ich in paint erstellt und als bmp in mein Programm lade und dies dann über einen Button lege.
Jetzt wollte ich aber die Buttons vergrößern und müsste somit auch die Größe der BMP-Datei ändern bzw. anpassen.
Hat jemand eine Ahnung wie ich die die Größe von BMP-Dateien ändern kann?
Danke schon mal im voraus;)
Viele Grüße ausm SchwabeLändle;)
Bildobjekt vergrößern
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12906
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 45 Mal
Re: Bildobjekt vergrößern
anbei die Function BMP2BMPSiggy hat geschrieben:Hat jemand eine Ahnung wie ich die die Größe von BMP-Dateien ändern kann?
Code: Alles auswählen
// vergrössern oder verkleinern eines Bitmap
oBMP := BMP2BMP(oBMP,{64,64})
FUNCTION BMP2BMP( oBMP, aXbpSize )
LOCAL oHuge
LOCAL oTiny
LOCAL oPS
LOCAL oRet
LOCAL nBits
LOCAL nPlanes
IF aXbpSize[ 2 ] > 0
oHuge := oBMP
nBits := oBMP:bits
nPlanes := oBMP:planes
oPS := XBPPRESSPACE() :new():Create()
//Create a empty bitmap
oTiny := XBPBITMAP() :New() :Create()
if nBits > 1 .or. nPlanes > 1
oTiny:Make( aXbpSize[ 1 ], aXbpSize[ 2 ], nPlanes, nBits )
ELSE
oTiny:Make( aXbpSize[ 1 ], aXbpSize[ 2 ] )
ENDIF
// assign to Presspace
oTiny:presSpace( oPS )
//Copie and resize the huge bitmap to the small bitmap
oHuge:Draw( oPS, { 0, 0, aXbpSize[1], aXbpSize[2] },,,GRA_BLT_BBO_IGNORE )
oRet := oTiny
ELSE
oRet := oBMP
ENDIF
RETURN oRet
2.) dann "malt" man das Original Bitmap mittels o:Draw in das leer Bitmap
3.) als Ergebniss bekommt man das vorher angelegte Bitmap in der gewünschten Grösse "ausgemalt"
gruss by OHR
Jimmy
Jimmy
Re: Bildobjekt vergrößern
Danke für die schnelle Antwort
Hat direkt auf Anhieb geklappt! (y) Danke dir!
Viele Grüße
Hat direkt auf Anhieb geklappt! (y) Danke dir!
Viele Grüße