Скачать: CL | DM;

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

← →
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 и ручками все рисуешь

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c