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

Вниз

Рисование любым цветом на DC   Найти похожие ветки 

 
ZEE ©   (2002-12-29 22:33) [0]

Подскажите, плиз, как на DC рисовать линии любым цветом?
Я делаю так:
DC1:hDC;
TmpBmp1,Bmp1:hBitmap;
R:TRect;
...
GetWindowRect(WndHandle,R);
DC1:=CreateCompatibleDC(GetDC(WndHandle)); TmpBmp1:=CreateCompatibleBitmap(GetDC(WndHandle), R.Right-R.Left, R.Bottom-R.Top);
Bmp1:=SelectObject(DC1,TmpBmp1);
FillRect(DC1,R,GetStockObject(BLACK_BRUSH));
SelectObject(DC1,GetStockObject(WHITE_PEN));

и дальше рисую - все ОК, но! только одним цветом белым (WHITE_PEN), а надо рисовать любым цветом, например rgb(128,134,75)
пробовал так:
xpen:HPen;
...
//вместо последней строки в предыдущем фрагменте
xpen:=CreatePen(PS_SOLID,1,rgb(128,134,75));
SelectObject(DC1,xpen);
...
DeleteObject(xpen);

начинаю рисовать - все ОК, куча цветов, но если пройти этот кусок кода несколько раз - "рисование" прекращается.
Подскажите, где тут за грабли...


 
MBo ©   (2002-12-30 07:16) [1]

перед DeleteObject(xpen) надо выбрать в DC старое перо (его получают при таком вызове: OldPen:=SelectObject(DC1,xpen);), поскольку выбранные в контексте объекты (большинство типов гр. объектов) не уничтожаются, что, видимо, и приводит к переполнению таблицы объектов GDI



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

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

Наверх




Память: 0.46 MB
Время: 0.021 c
14-6705
Softik
2003-03-15 16:35
2003.04.03
Подскажите аналог QReport, который быстрее и по функциональнее!


3-6291
Alderman
2003-03-13 13:32
2003.04.03
Как натравить TQuery сразу на два TDataSource?


3-6356
Smashich
2003-03-13 10:29
2003.04.03
Полнотекстовый поиск


1-6498
ЮРИЙ_К
2003-03-21 14:32
2003.04.03
Как вставить одну форму в другую ?


14-6667
Alibaba
2003-03-14 17:01
2003.04.03
Телепорт