[AlexandrV]

Как рисовать b и выделять текст через канву чтото типа этого

[Alegun]

"Нарисовать"

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode: integer;
begin
 with Form1.Canvas do
  begin
   Font.Name:= 'Segoe Script';
   Font.Size:= 12;
   Font.Style:= [fsBold,fsItalic];
   OldBkMode := SetBkMode(Handle, TRANSPARENT);
   Font.Color:= clWindowText;
   TextOut(11, 51, 'Remake');
   Font.Color:= clRed;
   TextOut(10, 50, 'Remake');
   SetBkMode(Handle, OldBkMode);
  end;
end;

рамку формирует функция Rectangle, но можно упростить: берутся два одинаковых, в смысле наполнения лейбла, у "верхнего" Label1 задаётся красный цвет шрифта и смещается вниз и в право по одному пикселю относительно положения "нижнего" Label2. А дальше так

Код:

Label1.Canvas.Pen.Color:= clRed;
Label1.Canvas.Rectangle(0, 0, Label1.Width, Label1.Height);

[AlexandrV]

Спасибо огромное. А для лейбла можно шрифт созщдать который как на скрине. Код писать буду на XE3

[AlexandrV]

Дайте формулу вычисление X1, Y1, X2, Y2 текста у кнопок панелей и т.п где текст находиться по середине или не косаецца краев

[Alegun]

Сообщение от AlexandrV

...для лейбла можно шрифт созщдать который как на скрине...

Segoe Script очень на него похож, особенно в наклонном варианте, но в системе есть и другие.

Дайте формулу вычисление X1, Y1, X2, Y2...

Да какая здесь формула-то: лево - верх относительно нулевых координат формы и ширина - высота относительно начальных области.

[AlexandrV]

Ну незнаю как отсчитать с каких координат начинается и какими заканчивается