Forum: Multimedia
Delphi
by Keldorn,
16. Mär 2006
auf den efg seiten sind weitere codebeispiele (unterer bereich), da ist auch eine mit "without clipping", das dreht dir die Bilder voll und paßt die Größe an.
Forum: Multimedia
Delphi
by Keldorn,
16. Mär 2006
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 :=...
Forum: Multimedia
Delphi
by Keldorn,
16. Mär 2006
bei mir dreht sich das Bild. dann halt als letzter Versuch: häng mal dein Projekt ran
Forum: Multimedia
Delphi
by Keldorn,
16. Mär 2006
häng einfach mal dass bild ran
Forum: Multimedia
Delphi
by Keldorn,
16. Mär 2006
was hast du für ein Bild im Image, ein jpg? das geht nicht
Forum: Multimedia
Delphi
by Keldorn,
16. Mär 2006
Hallo du hast den code nicht richtig kopiert, bzw. falsch geändert.
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.
Forum: Multimedia
Delphi
by Keldorn,
15. Mär 2006
rotate ist eine function
Var bmp:Tbitmap;
begin
//bmp:=tbitmap.create; brauchst du nicht, da es bei rotate das Bitmap erstellt wird
bmp:=rotate(....)
image.picture.bitmap.assign(bmp);
bmp.free; //das free ist wichtig, sonst hast du ein speicherleck
Forum: Multimedia
Delphi
by Keldorn,
14. Mär 2006
welchen code hast du genau genommen?
http://www.efg2.com/Lab/ImageProcessing/RotateScanline.htm
dort gibt es alles, Erklärung, unten ein Download mit Exe, verbesserte und schnellere Funktionen
Forum: Multimedia
Delphi
by Keldorn,
14. Mär 2006
Hallo
gugg auf www.efg2.com und such nach rotateimage