Autosize для Radiobutton

← →
oleg_teacher (2011-02-04 13:17) [0]

Как сделать Autosize для Radiobutton по типу Autosize для Label.
То есть как узнать какие размеры нужны (height) для полного отображения Caption в Radiobutton, при разных width.

← →
12 © (2011-02-04 13:39) [1]

http://delphimaster.net/view/2-1290427938/

← →
Dimka Maslov © (2011-02-04 15:15) [2]

Canvas.TextExtent

← →
12 © (2011-02-04 16:09) [3]

нет канвы у него

← →
P (2011-02-05 00:07) [4]

> oleg_teacher (04.02.11 13:17)

procedure TForm1.Button1Click(Sender: TObject); begin Font:= RadioButton1.Font; RadioButton1.Height:= Canvas.TextHeight("Wq") + 2; RadioButton1.Width:= Canvas.TextHeight(RadioButton1.Caption) + 6; end;

← →
P (2011-02-05 00:08) [5]

RadioButton1.Width:= Canvas.TextWidth(RadioButton1.Caption) + 6;

Autosize для Radiobutton Найти похожие ветки