| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Font.Style

JS ©   (2008-06-16 15:54:00) 

Как установть для каждого из DrawText различные стили шрифта.

procedure TForm1.FormPaint(Sender: TObject);
var
 R1, R2: TRect;
begin
 R1 := Rect(0, 0, 50, 13);
 R2 := Rect(45, 0, 100, 13);
{ Font.Style :=[fsBold]; }
 DrawText(Canvas.Handle, 'Text1', Length('Text1'), R1, DT_WORDBREAK);
{ Font.Style :=[]; }
 DrawText(Canvas.Handle, 'Text2', Length('Text2'), R2, DT_WORDBREAK);
end;


---

JS   (2008-06-16 15:56:00) [1]

Все разобрался. Ступил

---

Наверх