Discussion :

[DURVILLE]

Je m'aperçois que ces lignes de code sont inopérantes avec :
formactivate ou
formcreate

alors que ma ligne se trace correctement si j'incorpore ces lignes dans un buttonclick...

Question : comment obtenir une ligne à la création d'une forme ??


Code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm7.FormCreate(Sender: TObject);
 
begin
 
  canvas.Pen.Width:=  5;
  canvas.Pen.Color:=  ClBlack;
  Self.Canvas.MoveTo(0,320);
  Self.Canvas.LineTo(900,320);
 
 
End;

MERCI.

[tourlourou]

si tu veux que ta ligne soit visible après un Repaint, il faut la tracer dans le OnPaint, sinon elle est effacée par le Repaint suivant (même si c'est le premier)

[DURVILLE]

Je ne pige pas ce que je dois faire ...

Disons que avec l'ONactivate de la Form j'affiche plusieurs LABELS et je veux simplement les séparer par une ligne à l'affichage de cette FORM.
(Form7.Show dans ce cas)

Et c'est cet affichage de ligne qui ne se produit pas.
Les LABELS, eux sont présents et leur contenu est OK ...



Un bout de code me serait agréable ... c'est Noël, non ?

Merci ...

[petitcoucou31]

Salut ,
comme le dit Tourlourou , tu doit mettre le code qui dessine tes lignes dans l'evenement OnPaint de ta form qui possede les lignes.

Autrement si c'est juste de lignes tu as aussi le composant Bevel de delphi.

[DURVILLE]

Merci pour les réponses ...

J'ai trouvé simplissime (mis sur la voie du REPAINT que je n'avais jamais utilisé)

Je ne touche à rien , je mets simplement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure Form1.onactivate ....
 
BEGIN
 
Repaint;
 
  canvas.Pen.Width:=  5; 
  canvas.Pen.Color:=  ClBlack; 
  Self.Canvas.MoveTo(0,320); 
  Self.Canvas.LineTo(900,320); 
END;

C'est tout ce qu'il me fallait ...
Maintenant ce n'est peut-^tre pas orthodoxe ...

[bjl]

Bonjour,

En effet ce n'est pas orthodoxe


c'est dans l'évènement OnPaint de ta form qu'il faut mettre les lignes de codes, pas dans le OnActivate (et ainsi tu n'as pas besoin d'appeler repaint)

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormPaint(Sender: TObject);
Begin
  canvas.Pen.Width:=  5; 
  canvas.Pen.Color:=  ClBlack; 
  Self.Canvas.MoveTo(0,320); 
  Self.Canvas.LineTo(900,320); 
End;