Discussion :

[Djedjeridoo]

Mon but est de dessiner un rectangle avec bords et texte à l'intérieur, voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
X := 64;
Y := 90;
Canvas.Pen.Color := 4;
Canvas.Pen.Style := psSolid;
Canvas.Brush.Color := 44444;
Canvas.Brush.Style := bsSolid;
Canvas.Rectangle(X, Y, X + 40, Y + 20);
TheRect := Rect(X, Y, X + 40, Y + 20);
Dessin.Canvas.TextRect(TheRect,X,Y,'Bonjour!');

Le probleme est que des que j'insère un texte dans mon rectangle, les bords s'effacent .......

Quelqu'un pourrait-il me dire comment faire pour que les bords restent visible même lorsque j'insère un texte dans mon rectangle ??

Merci d'avance,

Djedjeridoo

[Denis69]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
X := 64;
Y := 90;
Canvas.Pen.Color := 4;
Canvas.Pen.Style := psSolid;
Canvas.Brush.Color := 44444;
Canvas.Brush.Style := bsSolid;
Canvas.Rectangle(X, Y, X + 40, Y + 20);
TheRect := Rect(X, Y, X + 40, Y + 20);
Canvas.brush.Style:=bsClear;
Dessin.Canvas.TextRect(TheRect,X,Y,'Bonjour!');

Essaie comme ça !!!!

[Djedjeridoo]

Merci beaucoup denis69 !! Ca marche nickel chrome !!

Elle fait quoi comme action exactement la ligne que tu as rajouté ??

Djedjeridoo

[Mercilius]

Mets un pti [Resolu] dans le titre de ton premier post
merci