Надстрочные символы в Label

[Almaas]

Здравствуйте

Как сделать, чтобы Delfi в Label выводил, например:
'Wx =' + FloatToStr(Wx) + 'cм3'
Но так, чтобы в 'Wx =' икс выводился подстрочным знаком, а в 'см3' тройка была надстрочным?

[Nemesisking]

на твоем месте я бы поставил условие if label1.caption:='cm' then label2visible:=true (который тройка и первоначально имеет значение visible:false, и мелкий шрифт, и расположен как степень) и при этом играть с расположением, то есть чтобы 2 лабел перемещался, в соотвецтвии первого расположение 1 лабела (left,right,up,down)

[Stilet]

А еще мона сделать свою процедурку отрисовки под и надстрочных символов типа такого:

procedure TForm1.Label1Click(Sender: TObject);
var x:integer;
begin
label1.Caption:=' ';
 x:=0;

Label1.Canvas.TextOut(0,0,'H');
 x:=x+Label1.Canvas.TextExtent('H').cx ;
Label1.Canvas.TextOut(x,10,'2');
 x:=x+Label1.Canvas.TextExtent('2').cx ;
Label1.Canvas.TextOut(x,0,'O');
end;

[Almaas]

для Nemesisking
Спасибо, я уже думал про такое решение...
Может есть что-то более универсальное, или какой-нибудь модуль...?

для Stilet
Хм... интересно, попробую. Спасибо.

[Nemesisking]

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

[B]Может есть что-то более универсальное, или какой-нибудь модуль...?

есть, но не сейчас, не на рабочем месте, дома помоему специальный компонет есть, типа майкрософтовского, но вот тока не помню для лабела или для текста в мемо и т.п.

[Almaas]

для Nemesisking
Выложи, если не сложно.

[mihali4]

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

А еще мона сделать свою процедурку отрисовки под и надстрочных символов типа такого:

procedure TForm1.Label1Click(Sender: TObject);
var x:integer;
begin
label1.Caption:=' ';
 x:=0;

Label1.Canvas.TextOut(0,0,'H');
 x:=x+Label1.Canvas.TextExtent('H').cx ;
Label1.Canvas.TextOut(x,10,'2');
 x:=x+Label1.Canvas.TextExtent('2').cx ;
Label1.Canvas.TextOut(x,0,'O');
end;

На мой взгляд, самое грамотное решение из предложенных.
Я бы только еще добавил уменьшение размера шрифта перед отрисовкой двоечки, с последующим восстановлением размера перед отрисовкой 'O'.
Тогда вообще шикарно получится.