Discussion :

[EntraX666]

Salut,

Le TCanvas de la VCL permet de faire plein de truc, ligne, ellipse,... Mais la fonction la plus simple DrawPoint(X, Y: Integer) est réservé à la version CLX.
Le but étant d'utiliser les proprietés du TPen je ne veux pas utiliser la proprieté Pixels. De plus, ça ne m'arrange pas d'utiliser LineTo(a,b) suivit de MoveTo(a,b) juste pour dessiner un simple point. Si quelqu'un à une idée pour faire une chose si simple...

Merci d'avance !!

Ps: Je suis chiant, je sais

[Fabrice ROUXEL 1]

Code :

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

Self.Canvas.Pixels[x,y] := clBlack;

[EntraX666]

Je sais mais si la propriété Width du TPen est a 10 alors il me fait quand meme un point de taille 1 pixel.

[Fabrice ROUXEL 1]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procedure DrawPoint(ACanvas: TCanvas; Pos: TPoint; AWidth: Cardinal; Color: TColor);
begin
  ACanvas.Brush.Color := Color;
  ACanvas.Pen.Color := ACanvas.Brush.Color;
  ACanvas.Pen.width := AWidth;
  ACanvas.FillRect(Rect(Pos.X, Pos.Y, Pos.X+ ACanvas.Pen.Width, Pos.Y + ACanvas.Pen.Width));
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  DrawPoint(Canvas, Point(100,100), 10, clBlack);
end;

[EntraX666]

Merci, je vais faire la même chose mais avec la fonction ellipse pour faire un point. Il aurait quand même pu l'implémenter de base parce que le point c'est la base de tout !

[CapJack]

Non, ce qui est la base de tout, c'est le pixel.

[TicTacToe]

Si le problème est résolu, merci de cliquer sur