Bonjour à tous,

J'ai fais quelques projets sur Delphi mais j'ai toujours des problème de conpréhension sur les classes.

Dans mon projet je veux faire tourner une image selon la valeur d'un angle...
J'ai trouvé un tutoriel qui m'a bien aidé.

L'image que je veux faire tourner se trouve sur la Form3. J'aimerais lancer la procédure Rotate depuis un thread.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure Rotate(angle: integer);
var
  RadAngle: extended;
  SinAngle, CosAngle: extended;
  CenterX, CenterY: extended;
  X, Y: extended;
  Xi, Yi: integer;
  i, j: integer;
  c: TColor;
begin
  RadAngle := angle * pi / 180;
  SinAngle := sin(RadAngle);
  CosAngle := cos(RadAngle);
  CenterX := Form3.Bitmap.Width div 2;
 
  CenterY := Form3.Bitmap.Height div 2;
 
  for i := 0 to Pred(Form3.RotatedBitmap.Width) do
    for j := 0 to Pred(Form3.RotatedBitmap.Height) do
      begin
        X := (j - CenterY) * SinAngle + (i - CenterX) * CosAngle + CenterX;
        Y := (j - CenterY) * CosAngle - (i - CenterX) * SinAngle + CenterY;
        Xi := Round(X);
        Yi := Round(Y);
        c := Form3.Bitmap.Canvas.Pixels[Xi, Yi];
        if (c = -1) then c := ClWhite	;
        Form3.RotatedBitmap.Canvas.Pixels[i, j] := c;
      end;
end;
Ce code fonctionne a merveille dans l' unité3(attaché a la from3). Je change de place ce code pour le mettre dans mon thread.

Et là c'est le drame!!
Il me dis que Bitmap, RotatedBitmap ne sont pas reconnu. Dans l'unité 3 il y a aussi ca comme code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  Bitmap := TBitmap.Create;
  RotatedBitmap := TBitmap.Create;
  Bitmap.LoadFromFile('ETface.bmp');
  RotatedBitmap.LoadFromFile('EtFace.bmp');
end;
Alors je suppose que cela défini Bitmap come un TBitmap...
Comment je peu remplacer ce code dans mon thread pour que Bitmap et rotatedBitmap soit défini?

Merci de votre aide