Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

Font.Style   Найти похожие ветки 

 
JS   (2008-06-16 15:54) [0]

Как установть для каждого из 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) [1]

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



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

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
9-1162897013
Тёма
2006-11-07 13:56
2008.07.13
Эффект тени у GUI-объектов GLScene


15-1211832869
Nic
2008-05-27 00:14
2008.07.13
adobe acrobat reader 64 bit


2-1213086566
Alexei
2008-06-10 12:29
2008.07.13
Перевод фокуса на узел TreeView правой кнопкой мыши


3-1202049109
Бэтман
2008-02-03 17:31
2008.07.13
Проблема с Acces


15-1211808659
kaif
2008-05-26 17:30
2008.07.13
Поздравляю с наступающим запуском суперколлайдера LHC в Церне.