Discussion :

[Darkcrusade64]

Bonjour,

J'utilise le logiciel Lazarus depuis peu mais je commence à m'y faire. Par contre, je rencontre un petit souci depuis peu ; je voudrais pouvoir tracer une courbe avec un TChart (ça ça fonctionne) et ensuite rendre le fond du TChart transparent afin que l'on puisse voir une image (ou fond de plan) qui serait derrière le graphe.

Je voulais donc savoir s'il y avait possibilité de réaliser ceci.

Cordialement,
Darkcrusade64

[Iwoks]

Bonsoir

Méthode simple :
Créer une objet image;
Il faut ajouter un événement dans TChart Chart1AfterDrawBackWall.
Ensuite se servir des canvas pour dessiner votre dans le TChar.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
procedure TForm1.Chart1AfterDrawBackWall(ASender: TChart; ACanvas: TCanvas;
  const ARect: TRect);
begin
 With (ASender as TChart), Canvas do
  begin
   Brush.Color := clred;  //BVR
   Font.Color  := $00000000;
   FillRect(aRect); //Remplis la zone
   Draw(0,0,img.Picture.Bitmap);
  // TextOut(aRect.Left + 2, aRect.Top, 'Hello Word'); //Ecrit la données
  end;
end;

Attention, dans ce cas il faut que votre image soit identique en dimension que votre TChart.

Cldt
Iwoks