ALYSSON
Candidat au Club

Bonjour à tous,

Je souhaiterai dessiner une ligne horizontale (seulement une) qui descend ou monte dans un Timage grace à un Tscrollbox.

Voici le code:

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
//image1.Picture:=nil;NON VALABLE, IL NE FAUT PAS EFFACER LE TIMAGE
image1.canvas.pen.color:=clred;
image1.Canvas.MoveTo(0,ScrollBar1.position);
image1.Canvas.LineTo(image1.Width-1,ScrollBar1.position);

label1.Caption:=intTOstr(ScrollBar1.position);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.DoubleBuffered:=true;
Image1.canvas.pen.mode:=pmNotXor;
Image1.canvas.pen.style:=pssolid;
Image1.canvas.brush.style:=bsclear;
end;


J'ai changé la valeur pen.mode avec l'aide de delphi mais rien à faire, j'obtiens toujours un nombre considérable de lignes.

Un membre pourrait-il m'aider afin d'obtenir une seule ligne rouge qui monte ou descend?

Merci de prendre un petit moment pour me répondre.
A.A.