IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Tab Content
Pas d'activité récente

1 Messages visiteurs

  1. ALYSSON
    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.
Visualiser les messages visiteur de 1 à 1 sur 1
Informations de ALYSSON

Informations de base

Informations de ALYSSON
Pays:
France

Statistiques


Messages au total
Messages au total
1
Messages par jour
0,00
Messages visiteurs
Messages au total
1
Plus récent message
28/12/2008 20h50
Informations générales
Dernière activité
18/04/2017 19h34
Date d'inscription
28/03/2008
Aucune certification n'a été indiquée. Déclarez vos certifications