[DelphiX] DrawRotate

[Gentleman]

Hi!

Ich weiß, dieses Thema ist schon einige Male hier behandelt worden, allerdings habe ich nicht das gefunden, was ich Suche. ich hoffe ihr könnt mir bei mienem Problem weiterhelfen.

Ich drehe ein bild mit folgendem Code, in DelphiX:

Delphi-Quellcode:

DXImageList1.Items[0].DrawRotate(DXDraw1.Surface, 100, 100, 100, 50, 0, 0, 0, r);
DXDraw1.Flip;

Das Problem dabei ist, dass das Bild am Punkt (0/0) gedreht wird. Ich möchte es aber gerne genau in der Mitte drehen . Wie kann ich das anstellen?

thx im Voraus!

[Oxmyx]

Der erste Schritt wäre, sich mal die Parameterliste anzuschauen. Ich wette, dass zwei der drei Nuller da hinten das Drehzentrum angeben -- ohne die Funktion oder ihre Parameter zu kennen.

[Gentleman]

Ja da hast du recht, wenn ich dort aber andere Zahlen eintrage wird kein Bild mehr angezeigt.

[JasonDX]

Ich hatte auch mal das Problem
Die Funktion DrawRotate funktionierte bei mir auch nur, wenn ich das Bild um 0:0 gedreht habe
dann muss man selber die neue Koordinate für das Eck links oben berechnen (->sin & cos)

[jim_raynor]

Zitat von Chimaira:

Ich hatte auch mal das Problem
Die Funktion DrawRotate funktionierte bei mir auch nur, wenn ich das Bild um 0:0 gedreht habe
dann muss man selber die neue Koordinate für das Eck links oben berechnen (->sin & cos)

Diese Parameter sind double-Werte dementsprechend ist 0.5 die Mitte

[JasonDX]

Zitat von jim_raynor:

Zitat von Chimaira:

Ich hatte auch mal das Problem
Die Funktion DrawRotate funktionierte bei mir auch nur, wenn ich das Bild um 0:0 gedreht habe
dann muss man selber die neue Koordinate für das Eck links oben berechnen (->sin & cos)

Diese Parameter sind double-Werte dementsprechend ist 0.5 die Mitte

Ich hab damals wohl doch nich alles ausprobiert

[smc]

hallo,

ich will nun kein neues thema deswegen aufmachen, aber kann mir jemand die definitionen von drawrotate erklären?

DXImageList1.Items[0].DrawRotate(DXDraw1.Surface, 100, 100, 100, 50, 0, 0, 0, r);

was DXDraw1.Surface bewirkt ist mir klar, aber was danach folgt ist mir unklar (besonders dieses r)

edit: hat sich erledigt

habe folgendes per google gefunden

Zitat:

Found this cool site that explains many things:
http://www.cerebral-bicycle.co.uk/viewdoc.asp?doc=37

So, here is the function details:
DrawRotate( Surface, X , Y, Width, Height, PatternIndex, CenterX, CenterY, Angle);

Surface: TDirectDrawSurface that image is drawn to, usually DXDraw.Surface.
X,Y: Draw point. Image rotates around it.
Width,Height: New width and height can be set to scale image, or set original values.
PatternIndex: Set this to 0, unless you have image-grid that has patterns for animation.
CenterX,CenterY: Defines weight-point for rotation. Normally 0.5, or in range 0..1.