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

Вниз

Как правильно выбирать шрифты для рисования...   Найти похожие ветки 

 
max999   (2006-04-18 10:36) [0]

...на (или по) DC?

на WM_PAINT пишу:

 FontNormal := CreateFont(-8, 0, 0, 0, FW_DONTCARE, 0, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, FF_DONTCARE + DEFAULT_PITCH, DefFontName);
 FontBold := CreateFont(-8, 0, 0, 0, FW_BOLD, 0, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, FF_DONTCARE + DEFAULT_PITCH, DefFontName);
 FontItalic := CreateFont(-8, 0, 0, 0, FW_DONTCARE, 1, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, FF_DONTCARE + DEFAULT_PITCH, DefFontName);
 FontBoldItalic := CreateFont(-8, 0, 0, 0, FW_BOLD, 1, 0, 0, ANSI_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS, ANTIALIASED_QUALITY, FF_DONTCARE + DEFAULT_PITCH, DefFontName);

// само рисование -
 SelectObject(hdc, FontNormal);
 TextOut(hdc, 0, 0, "22", 2);
 DeleteObject(FontNormal);
 
 SelectObject(hdc, FontBold);
 TextOut(hdc, 0, 20, "22", 2);
 DeleteObject(FontBold);

 SelectObject(hdc, FontNormal);
 TextOut(hdc, 0, 40, "22", 2);
 DeleteObject(FontNormal);

По идее вначале должен рисоваться нормальный текст, потом полужирный, потом снова нормальный... Но последние "двойки" рисуються полужирным...


 
MBo ©   (2006-04-18 11:49) [1]

> DeleteObject(FontNormal);
Все, копец нормальному...


 
max999   (2006-04-18 11:54) [2]

Уже сам разобрался :) Но все равно спасибо...


 
Zz_   (2006-04-18 13:06) [3]

А зачем на WM_PAINT писать

CreateFont +  DeleteObject

Не лучше ли один раз CreateFont и один раз DeleteObject
в соответствующих местах, но никак не на WM_PAINT ?



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

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

Наверх




Память: 0.47 MB
Время: 0.034 c
2-1153375514
rosl
2006-07-20 10:05
2006.08.06
формат 1С


3-1148995910
Romul
2006-05-30 17:31
2006.08.06
Работа с полем BLOB, очень жду


2-1152877539
solenko
2006-07-14 15:45
2006.08.06
Помогоите с запросом


2-1152900356
sv133
2006-07-14 22:05
2006.08.06
Программирование LPT-порта


1-1151068147
oleggar
2006-06-23 17:09
2006.08.06
нужно в Делфи 5 из файла Excel2000 считать данные