Discussion :

[Jlmat]

Bonjour,

J'utilise la bibliothèque de BRGABitmapPack.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormPaint(Sender: TObject);
  var ImgPos   : TPoint;
        bmp       : TBGRABitmap;
begin
  ImgPos := Point( (ClientWidth - 100) div 2 ,(ClientHeight - 100) div 2); 
  Dessine_Point(ImgPos.X,ImgPos.Y,50,2,Form1.Canvas,ClRed,ClSkyBlue);
  //affiche la BGRABitmap sur la fenêtre
  bmp.Draw(Canvas, 0, 0, True);
  //libère la mémoire
  bmp.Free;
end;

Le point Obtenu est le suivant:

Le dessin du point qui est un cercle coloré est le suivant:

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
{-Dessine_Point ----------------------------------------------------------------
  Dessine Un point aux coordonnées spécifiées (Ox,Oy), de rayon R
-------------------------------------------------------------------------------}
procedure TForm1.Dessine_Point(Ox,Oy,R,e : integer; aCanvas : TCanvas;aColorExt,aColorInt: Tcolor);
  var  CircRect : TRect; // coordonnées figure circonscrite
begin
  CircRect := Rect(Ox - R , OY - R, OX + R, OY + R);
  With aCanvas do
  begin
    // Couleur de fond
    Brush.Color := aColorInt;
    Brush.Style := bsSolid;
    Pen.Color   := aColorExt;
    Pen.Style   := psSolid;
    Pen.Width   := e;
    Ellipse(CircRect);
  end;
end;

Je n'arrive pas à supprimer le crénelage du cercle et utiliser la propriété Antialias du canvas de BGRABitmap.
Pouvez-vous m'éclairer?