TLabel with border.

[dicas3d]

Code: [Select]

Label1.Canvas.Rectangle(0,0,Label1.Width, Label1.Height);
No rectangle.

[User137]

Each component has its own canvas that starts from 0, 0. If you have a TPaintBox for example you draw to it starting from 0, 0. If you move its Left and Right elsewhere the graphics move along with it.

However, if i start new project and create new label with default properties on form, and put this in FormPaint event

Code: [Select]

 with Label1 do begin
    canvas.Pen.Color:=clBlack;
    canvas.Pen.Width:=1;
    canvas.Brush.Style:=bsClear;
    Canvas.Rectangle(0, 0, Width, Height);
  end;     I do not see a rectangle. I tried with setting its Transparent property false and Color property to clBtnFace, but still not seeing it.

Lazarus 0.9.31 SVN 29541, fpc 2.4.3. Windows 7 32-bit.

edit:
if i add Label1.Repaint; after Rectangle it shows, and is flashing. But it seems like endless loop that hangs up application. I had to stop the app from Lazarus as it refused to close.

[garlar27]

Maybe I'm late here, and I haven't read all post but, you can use TStaticText. Or you have problems with it?

[eny]

If you create your own label component you can do whatever you need/want.

[Blaazen]

I reported bug:
http://bugs.freepascal.org/view.php?id=19516
because it seems that Windows and Linux+Qt has different behaviour.

[User137]

What is Qt? I'm just using the default components and packages unless its same thing.

[dicas3d]

You need put the line Repaint on the place that you need that the rectangle appear. Example:onClick

[dicas3d]

I no work well.

[dicas3d]

I solve the problem and put the solution on My blog at http://pprograming.blogspot.com/2011/06/text-with-borders-no-problem.html .