Discussion :

[Anthony17]

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

[Pedro]

Salut
Est-ce que tu as bien ajouté l'unité dans laquelle se trouve Form3 dans les uses de l'unité de ton thread?
PS: fais attention à la synchronisation!

[Anthony17]

oui l'unité3 est défini dans les uses de mon thread

En fait mon problème c'est ce 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;

qui se trouve dans l'unité3 (pas le thread) je doit le laisser dans l'unité3? car je fais appelle à bitmap dans mon thread.

[tourlourou]

sont-ils bien définis en public ou published dans TForm3 ?
sinon, ils ne sont pas accessibles en dehors de l'unité

[Bejaia-In]

Tu dois déclarer "Bitmap" et "RotatedBitmap" comme des variable globales, juste avant la section "implementation" de l'unité d'où tu appelle le thread.
Puis tu feras appelle à ces variables directement (sans le Form3.)

[Anthony17]

merci pour les réponses. En effet je n'avais pas mis Bitmap et RotatedBitmap en public
Merci beaucoup