rotation de rectangle en FMX

bonjour
j'ai un bitmap dans un trectangle qui me sert a placer sur un fond écran
pour ensuite copier le contenu a la position du rectangle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dx :=form1.Rectangle2.Position.x; dy :=form1.Rectangle2.Position.y ; lar :=rectangle2.Width; hau := rectangle2.Height ;       rectsource.Create(dx, dy, dx + lar, dy + hau);   temp.Canvas.BeginScene(); temp.Canvas.DrawBitmap(fond, rectsource, rectdest, 1); temp.Canvas.EndScene;

---

Jai bien la saisie de image
mais si je fais une rotation du rectangle2 et que je refais pareil ma saisie et décalé
d'où ma question est ce que rotation modifier largeur et hauteur du rectangle
j'ai mis au rectangle2 centre de rotation a 0.5
merci

Les propriétés Width et Height d’un TRectangle ne changent pas quand tu appliques une rotation.
La rotation agit uniquement sur la matrice de transformation utilisée pour dessiner le rectangle, pas sur ses dimensions brutes.

Donc, quand tu fais :

Code:

---

1 2	lar := Rectangle2.Width; hau := Rectangle2.Height;

---

tu obtiens toujours les valeurs originales, même si ton rectangle est tourné de 45° ou 90°.

bonjour
ok
donc si je veux utiliser width et height si je fais rotate 90 j'inverse les valeurs
c'est sa
merci

Citation:

---

Envoyé par tintin62

bonjour
ok
donc si je veux utiliser width et height si je fais rotate 90 j'inverse les valeurs
c'est sa
merci

---

Si tu veux calculer l’espace occupé après une rotation de 90°, tu dois échanger Width et Height manuellement, car visuellement la largeur devient la hauteur et inversement.

En résumé :

Rotation 0° : largeur = Width, hauteur = Height
Rotation 90° : largeur ~ Height, hauteur ~ Width
Rotation 180° : largeur = Width, hauteur = Height (comme à 0°)
Rotation 270° : largeur ~ Height, hauteur ~ Width

Attention : ça ne change pas les propriétés elles-mêmes, c’est juste une logique que tu appliques pour tes calculs ou ton positionnement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

uses Math;   procedure RotatedBoundingBox(Width, Height, AngleDeg: Integer; out BoxWidth, BoxHeight: Integer); var AngleRad: Double; begin // Conversion en radians AngleRad := DegToRad(AngleDeg);   // Calcul des dimensions du bounding box en pixels entiers BoxWidth := Round(Abs(Width * Cos(AngleRad)) + Abs(Height * Sin(AngleRad))); BoxHeight := Round(Abs(Width * Sin(AngleRad)) + Abs(Height * Cos(AngleRad))); end;

---

Code:

---

1 2 3 4 5 6 7

var W, H: Integer; begin RotatedBoundingBox(100, 50, 90, W, H); ShowMessage(Format('Largeur = %d, Hauteur = %d', [W, H])); // Résultat : Largeur = 50, Hauteur = 100 end;

---

bonjour
encore un grand merci ta fonction marche a merveille
et ensuite je rempli mon rectangle en modifiant aussi la rotation du bitmap a intérieur

Code:

---

1 2 3 4 5 6

RotatedBoundingBox(bitm.Width, bitm.Height, 90, W, H); rectangle2.Width:=w; rectangle2.Height:=h; bitm.rotate(90); rectangle2.Fill.Bitmap.Bitmap:=bitm;

---

Citation:

---

Envoyé par tintin62

bonjour
encore un grand merci ta fonction marche a merveille
et ensuite je rempli mon rectangle en modifiant aussi la rotation du bitmap a intérieur

Code:

---

1 2 3 4 5 6

RotatedBoundingBox(bitm.Width, bitm.Height, 90, W, H); rectangle2.Width:=w; rectangle2.Height:=h; bitm.rotate(90); rectangle2.Fill.Bitmap.Bitmap:=bitm;

---

---

:resolu:

bonjour
la fonction marche bien sauf que j'avais pas vu le rectangle augmente en dimension
je l'ai vu en mettant solid

Code:

---

1 2 3

{mettre TBrushKind.None pour rendre invisible le contour rectangle} rectangle2.Stroke.Kind := TBrushKind.solid;

---

mettre tous les fichiers debug.zip dans le répertoire debug
donnez moi des conseils merci avance



Pièce jointe 672035
Pièce jointe 672040

Citation:

---

Envoyé par tintin62

bonjour
la fonction marche bien sauf que j'avais pas vu le rectangle augmente en dimension
je l'ai vu en mettant solid

Code:

---

1 2 3

{mettre TBrushKind.None pour rendre invisible le contour rectangle} rectangle2.Stroke.Kind := TBrushKind.solid;

---

mettre tous les fichiers debug.zip dans le répertoire debug
donnez moi des conseils merci avance

---

Prends le temps d'expliquer de façon précise ton problème !

De quoi parle-t-on ? Quel est le problème ? (Image du problème, Code, ...) :cristal:

Sinon, pour info : La boîte englobante (Bounding Box) doit s'adapter pour contenir les coins inclinés, donc le comportement est normal.