TLabel with border.

[dicas3d]

Hi.
Hi research lots of times in google how to put borders on a Label.
I need to know how to do it.
How I put borders on a Label?

[Blaazen]

I don't know if it is possible with TLabel.
But you can use TPanel. It has Caption and Borders. See screenshot.

[Arbee]

Or use a TLabel within a TShape.

[typo]

Code: [Select]

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

You could put it on an OnPaint event of the form.

[Blaazen]

@typo
Strange, it works bad on Qt widgetset.
I have to use:

Code: [Select]

  with Label2 do
    Canvas.Rectangle(Left, Top, Left+Width, Top+Height); to set correct position.
And when I close form it gives SIGSEGV in function

Code: [Select]

function TQtWidgetSet.IsValidGDIObject(const GDIObject: HGDIOBJ): Boolean;Maybe I will do bugreport.

There are also Canvas.Frame3D functions.

[typo]

Maybe I will do bugreport.

Yes.

[dicas3d]

And I when I try create the event OnPaint by design he says Unable to create the new method. Please fix the error shown in the message window, whick is normally bellow the source editor.
The bug is in the unit Controls and is Error: [TFindDeclarationTool.FindCodeToolForUsedUnit] internal error: invalid UnitNameAtom .
Will I do bugreport?

[typo]

I think it is not a bug, this means that the compiler has found an error in your code. Try to fix it.

[dicas3d]

Until with an empty project it do error.

[Arbee]

Don't think this is right anyway ...

Code: [Select]

with Label2 do
    Canvas.Rectangle(Left, Top, Left+Width, Top+Height);

You'ld be using the "left" and "top" position of the label on the form, not the canvas of the label, I assume.

[dicas3d]

Canvas is a graphical class for Lazarus. Losts of components like forms have it.

[Arbee]

I know, but if you use the "left" and "top" like that you won't see any rectangle around your label because the coordinates are all off:

Code: [Select]

  with Label2 do
    Canvas.Rectangle(Left, Top, Left+Width, Top+Height);

does not show a rectangle, but this one does (at least on my XP machine)

Code: [Select]

  with Label2 do
    Canvas.Rectangle(0, 0, Width, Height);


[dicas3d]

Width and heigth are the properties of Label that indicate the size of the Label.
Left and Top indicate where the label is started draw.
So by sum Left more width you obtain the coordinate x of the left corner. By sum top with heigth you obtain the coordinate y of the left corner of the Label.

[Arbee]

Which is precisely why

Code: [Select]

with Label2 do
    Canvas.Rectangle(Left, Top, Left+Width, Top+Height);
does not work
and why

Code: [Select]

with Label2 do
    Canvas.Rectangle(0,0, Width, Height);
does.

See two screen shots:

[dicas3d]

This can work on your case:

Code: [Select]

with Label1 do [code]Canvas.Rectangle(left,top, Width, Height);.
But with me I can't see any Rectangle around My Label.

Code: [Select]

with Label1 do Canvas.Rectangle(0,0, Width, Height);[/code]