| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как написать в поле Label нижний индекс [D7, WinXP]
Acme © (2006-10-30 16:17:00)Как написать в поле Label нижний индекс
Amoeba (2006-10-31 18:35:00) [1]http://www.tmssoftware.com
Здесь найдешь компоненты THTMLLabel и TRTFLabel. Без исходников они бесплатны. Они как раз умеют то, что тебе надо.
StriderMan (2006-10-31 09:49:00) [2]DrawText
Anatoly Podgoretsky (2006-10-30 16:44:00) [3]Антоныч © (30.10.06 16:36) [6]
Я просил без извращений!
Elen (2006-10-30 16:41:00) [4]
> Acme
Можно еще и так :
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;
Надеюсь смысл ты понял... (На всякий случай перед запуском этого помести в капшн какой нибудь символ)
Антоныч (2006-10-30 16:36:00) [5]Надо взять 2 Label, причём второй поместить чуть ниже первого и написать в нём нижний индекс. :)
Сергей М. (2006-10-30 16:35:00) [6]
> Anatoly Podgoretsky © (30.10.06 16:32) [4]
Если "жертве" сразу не объяснить, что элементарные знаки пунктуации существуют даже в письменности аборигенов умба-юмба, то попытки напрасны)
Anatoly Podgoretsky (2006-10-30 16:32:00) [7]Наоборот, пытаюсь спасти его от этой участи.
Сергей М. (2006-10-30 16:28:00) [8]
> Anatoly Podgoretsky © (30.10.06 16:26) [2]
Разврат малолетних)
Anatoly Podgoretsky (2006-10-30 16:26:00) [9]Без извращений ни как, лучше используй другой компонент, например RichEdit
Сергей М. (2006-10-30 16:22:00) [10]SomeLabel.Caption := 'нижний индекс';
| |
