Discussion :

[spirale]

En l'état, le dessin avec une instance de TPen ayant un style autre que psSolid et avec une largeur supérieure à 1, n'est pas conforme à ce que l'on pourrait attendre.

En effet, le style psSolid se surimpose pour mon plus grand malheur.

N'y a t il pas un moyen simple pour que le style soit correctement pris en compte ?

J'ai pensé à utiliser la fonction ExtCreatePen de l'API mais même là je ne m'en sors pas.

Une piste ?

[TicTacToe]

Peut-être en utilisant des bibliothèques alternative comme G32
www.g32.org

Sans conviction, j'ai jamais testé ce genre de truc avec G32... mais à tester...

[Archimède]

peut-être te faire une petite procedure perso du style:

c'est pour l'idée... car j'ai sorti ça à toute vitesse.
tu te fais un truc pour un trait quelconque, un rectangle ,cercle....
c'est sûr,c'est pas simple, il faut réfléchir un peu.

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
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
pointillehorizontal(10,100,400,3,paintbox1.Canvas);
 
end;
 
procedure Tform1.pointillehorizontal(left,top,largeur,epaisseur:integer;canvas:Tcanvas);
var i: integer;
begin
with canvas do begin
Pen.Width:=epaisseur;
for i:=0 to round((largeur-5)/10)  do begin
moveto(10*i+left,top);
lineto( 10*i+left+5,top);
end;
end;
end;