Discussion :

[Catastrophe]

Bonjour à tous,

Je cherche à utiliser la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function CreatePolygonRgn( Points: PPoint;NumPts: Integer;FillMode: Integer):HRGN;

Mais j'ai quelques difficultés. Je ne comprends pas comment utiliser le "PointsPoint".

J'ai déjà un tableau de points défini :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

P:array[1..nbpts] of Tpoint;

(avec nbpts =5)

Je fais donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CreatePolygonRgn(P, nbpts, WINDING)

Et en compilant, j'ai une erreur :

uinterface.pas(82,25) Error: Incompatible type for arg no. 1: Got "Array[1..5] Of POINT", expected "PPoint"

Donc, il attend un "PPoint" qui doit être un pointeur vers un TPoint, mais après j'ai essayé diverses solutions, ça me redonne toujours le même message d'erreur...

[DOLPat®]

Bonjour

Bizarre bizarre... Je viens de tester la compilation du code ci-dessous et cela compile sans accroc... (Lazarus 0.9.31)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure Test;
 const
   nbpts = 5;
 var
   P:array[1..nbpts] of Tpoint;
begin
  CreatePolygonRgn(P, nbpts, WINDING);
end;

[Catastrophe]

Je suis sous Lazarus 0.9.30, voila ma procedure :

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
procedure TForm1.Timer1Timer(Sender: TObject);
const nbpts=5;
var 
R1,R2:HRGN;
P:array[1..nbpts] of Tpoint;
 
begin
 
     P[1].X:=(round(x+20*cos(alpha)));
     P[1].Y:=(round(y+20*sin(alpha)));
     P[2].X:=(round(x-30*sin(alpha)));
     P[2].Y:=(round(y+30*cos(alpha)));
     P[3].X:=(round(x-20*cos(alpha)));
     P[3].Y:=(round(y-20*sin(alpha))) ;
     P[4].X:=(round(x-20*cos(alpha)+50*sin(alpha)));
     P[4].Y:=(round(y-50*cos(alpha)-20*sin(alpha)));
     P[5].X:=(round(x+20*cos(alpha)+50*sin(alpha)));
     P[5].Y:=(round(y-50*cos(alpha)+20*sin(alpha)));
 
self.canvas.Brush.Color:=$9C0000;
R1:=CreateRectRgn(1, 1, TEdForcevent.Left-5, height);
self.canvas.FillRect(1,1,TEdForcevent.Left-5,height);
R2 :=CreatePolygonRgn(P,nbpts,WINDING);
 end;

J'ai toujours la même erreur de compilation, j'ai un peu de mal à comprendre

[DOLPat®]

Je viens de compiler ton code. Comme je n'en ai pas la totalité, j'ai supposé que:

TEdForcevent: TEdit;
x, y et Alpha: Integer;

Cela ne pose aucun problème de compilation...

À tout hasard, dans la déclaration Uses de ton unité, mets l'unité Windows avant les autres.

Si c'est sans résultat, je penche pour un bug Lazarus.

[Catastrophe]

Effectivement avec windows dans les uses, ça compile sous.. windows.

J'ai oublié de préciser que j''essaie de compiler mon programme sous Linux(Ubuntu), du coup, pas possibilité d'utiliser des librairies de windows.

[Dr.Who]

salut, correction, optimisation :

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
31
32
33
34
35
36
 
uses Math;
 
procedure TForm1.Timer1Timer(Sender: TObject);
const 
  PointsCount=5;
var 
  R1, R2:HRGN;
  P: array[0..PointsCount-1] of Tpoint;
  S, C, S20, C20, S50, C50: Extended;
begin
  // devrait être délocalisé à l'assignation d'Alpha 
  // 1 seul calcul SinCos donc plus de performance
  SinCos(Alpha, S, C);
  S20 := 20*S;
  C20 := 20*C;
  S50 := 50*S;
  C50 := 50*C;
  // ---------------
 
  P[0].X:=round(x+C20);
  P[0].Y:=round(y+S20);
  P[1].X:=round(x-30*S);
  P[1].Y:=round(y+30*C);
  P[2].X:=round(x-C20);
  P[2].Y:=round(y-S20) ;
  P[3].X:=round(x-C20+S50);
  P[3].Y:=round(y-C50-S20);
  P[4].X:=round(x+C20+S50);
  P[4].Y:=round(y-C50+S20);
 
  Canvas.Brush.Color:=$9C0000;
  R1 := CreateRectRgn(1, 1, TEdForcevent.Left-5, height);
  canvas.FillRect(1,1,TEdForcevent.Left-5,height);
  R2 := CreatePolygonRgn(PPoint(@P), PointsCount, WINDING);
 end;