bmp drehen

[Keldorn]

Hallo du hast den code nicht richtig kopiert, bzw. falsch geändert.

Delphi-Quellcode:

  RESULT := BitmapOriginal; 
  RESULT.Width  := BitmapOriginal.Width; 
  RESULT.Height := BitmapOriginal.Height; 
  RESULT.PixelFormat := pf24bit; 

  cosTheta := COS(AngleOfRotation); //<<<<------ diese Zeile kommt im Originalen so code nicht vor, bzw das sintheta fehlt.

richtig ist

Delphi-Quellcode:

  // Get SIN and COS in single call from math library
  sincos(AngleOfRotation, sinTheta, cosTheta);

sincos ist in math enthalten, du mußt math mit in die uses zeile aufnhemen.

Mfg Frank

[arukas]

hab ich geändert,
aber es tut sich trotzdem noch nichts .

[Keldorn]

was hast du für ein Bild im Image, ein jpg? das geht nicht

[arukas]

jo, es war ursprüunglich ein jpg-Bild, aber ich hab es in bmp umgewandelt, also einfach speichern unter name.bmp.

Das hat jedenfalls sonst immer funktioniert.

[Keldorn]

häng einfach mal dass bild ran

[arukas]

ich hab grad noch ein bild selbst erstellt, mit dem funktioniert es auch nicht. Es muss irgendwie am programmcode liegen...´

hier ist das testbild mit dem ich das die ganze Zeit mache. Ich glaub aber nicht, dass es am Bild liegt.

[Keldorn]

bei mir dreht sich das Bild. dann halt als letzter Versuch: häng mal dein Projekt ran

[arukas]

ok, hier ist es

[Keldorn]

ok

1. Da kann sich nichts drehen, weil du zwar im Code die Buttonklick routine stehen hast, diese aber nicht dem Button im Objektinspektor bei onclick zugewiesen hast. Daher du reagierst nicht auf das Drücken des Buttons.

2. Dein Drehcode ist immer noch falsch, habe ich durch das ganze geänder nicht gesehen.
RESULT := Tbitmap.create; so ist es richtig durch dein RESULT := BitmapOriginal; ereichst du folgendes: result zeigt auf Bitmaporiginal, du arbeitest nicht mit 2 Bitmaps, sondern nur mit einer Bitmaporiginal. := ist bei Objekten kein Kopieren! Der drehcode kann so nicht funktionieren. Außerdem zeigt dann auch bmp auf Bitmaporiginal, also die Image.picture.bitmap, durch Freigeben der Bitmap gibst du dann die Imagae-bitmap frei und wirst in einer AV landen.

Mfg frank

[arukas]

super, danke das funktioniert jetzt. Das mit dem Butten hätte mir selbst auffallen müssen

jetzt hab ich aber ein neues problem .

Delphi-Quellcode:

        RowRotated[i].rgbtBlue := 0;
        RowRotated[i].rgbtGreen := 0;
        RowRotated[i].rgbtRed := 0;

Wenn ich auf den Butten klicke werden nur die Farben geändert (hier in Schwarz), bei 255,255,255 natürlich in Weiß usw... Das Bild ist somit weg. Ausserdem ist mir aufgefallen, dass sich die Maße nicht verändert haben. image1.height ist gleich geblieben. Woran liegt das?