Problème de PPoint

Version imprimable

05/05/2011, 14h06
Catastrophe

Problème de PPoint

Bonjour à tous,

Je cherche à utiliser la fonction :

Code:

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

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

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

Code:

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

(avec nbpts =5)

Je fais donc

Code:

CreatePolygonRgn(P, nbpts, WINDING)

Et en compilant, j'ai une erreur :

Citation:

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...

:cry:
05/05/2011, 17h52
DOLPat®
Bonjour

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

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;

Je suis sous Lazarus 0.9.30, voila ma procedure :

Code:

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:roll:

05/05/2011, 18h39
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.
05/05/2011, 19h15
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.

salut, correction, optimisation :

Code:

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;