How to add a border to a Label

[seany]

Hi all

I posted a lot about menu renders using Linux/QT5

I got sidetracked, and decided to make my own Menu Class. I posted my first steps here: https://forum.lazarus.freepascal.org/index.php/topic,62257.0.html

I wonder, how can I add a border to labels programatically? If I create a tlabel on form designer, and look with object inspector, I can't find an item that seems to relate to a border. So, some advice will be appreciated. Tahnks.

[KodeZwerg]

Use TStaticText and choose a BorderStyle.
Use a TPanel, put a TLabel in, remove TPanel caption, set TPanel AutoSize = True.

Does one of above fit your needs?

[KodeZwerg]

And if it really just needs to be one single TLabel and your desire is that big to just draw a border around, you can override the Forms OnPaint with something like this:

Code: Pascal  [Select][+][-]

1. Label2.Canvas.Rectangle(0, 0, Label2.Width, Label2.Height);

In attachment you see all three variations on Windows with native widgetset.

Label1 is the Panel version
Label2 is the OnPaint version
and static is static

[KodeZwerg]

TShape would also be a possibility.
Place one on form and set for it this OnPaint handler:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Shape1Paint(Sender: TObject);
2. var
3.   lbl: string;
4. begin
5.   lbl := 'TShape';
6.   Shape1.Canvas.Font.Color := clBlack;
7.   Shape1.Canvas.Pen.Color := clDefault;
8.   Shape1.Canvas.TextOut(3, 1, lbl);
9.   Shape1.Width := Shape1.Canvas.TextWidth(lbl) + 6;
10.   Shape1.Height := Shape1.Canvas.TextHeight(lbl) + 3;
11. end;

[lainz]

Hi, you can use BGRAControls TBCLabel.

It supports border, and also gradient background.

[seany]

Hi
That's a great option... I would like to find a tutorial on BGRA controls please, and can it support border radius? thank you

[jamie]

just drop a TPanel on there and use that as the label, it has caption and boarder control.