Главная страница
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.042 c
2-1152795828
Dbrg
2006-07-13 17:03
2006.08.06
Учетные записи пользователей


5-1137486493
scorp123
2006-01-17 11:28
2006.08.06
Проблема со свойством Text в ComboBox


2-1153297247
SergP.
2006-07-19 12:20
2006.08.06
Настройки дельфи и try except end...


15-1152708886
NailMan
2006-07-12 16:54
2006.08.06
Никому работа не нужна? А то предлагают у нас...


2-1153305625
Дева
2006-07-19 14:40
2006.08.06
Fireberd