Bildobjekt vergrößern

Konzeptionelles, Technisches, Termine, Fragen zum Hersteller usw.

Moderator: Moderatoren

Antworten
Siggy
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 20
Registriert: Mo, 18. Jan 2016 14:05

Bildobjekt vergrößern

Beitrag von Siggy »

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;)
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Bildobjekt vergrößern

Beitrag von AUGE_OHR »

Siggy hat geschrieben:Hat jemand eine Ahnung wie ich die die Größe von BMP-Dateien ändern kann?
anbei die Function BMP2BMP

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
1.) man erstellt (o:Make) ein leeres Bitmap (oTiny) mit der gewünschten Grösse an.
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
Siggy
Cut&Paste-Entwickler
Cut&Paste-Entwickler
Beiträge: 20
Registriert: Mo, 18. Jan 2016 14:05

Re: Bildobjekt vergrößern

Beitrag von Siggy »

Danke für die schnelle Antwort :blob8:

Hat direkt auf Anhieb geklappt! (y) Danke dir!

Viele Grüße
Antworten