Как совместить несовместимое?

← →
kmi (2005-03-15 00:05) [0]

Друзья, дайте дельный совет: нужно с минимальными затратами сделать компонент типа TLabel, но использующий в одной строке символы либо нескольких шрифтов, либо один шрифт с символами Unicode. Проще говоря, нужно в строку текста включить спецсимволы типа стрелок вверх или вниз, индекса и т.п.

← →
Ruslan Solovyev (2005-03-15 01:25) [1]

RichEdit тебе поможет :-)

← →
kmi (2005-03-15 02:56) [2]

Я же сказал с минимальными... ;)

← →
Ruslan Solovyev (2005-03-15 03:07) [3]

пример:

re: TRichEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
re.Text := "Privet from Ruslan";
re.SelStart := Length("Privet from ");
re.SelLength:= Length("Ruslan");
re.SelAttributes.Size := 20;
re.SelAttributes.Name := "Arial";
re.SelLength := 0;
end;

← →
Ruslan Solovyev (2005-03-15 03:12) [4]

либо перекрываешь OnPaint от TPaintBox и ручками все рисуешь

Как совместить несовместимое? Найти похожие ветки