Главная страница
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.014 c
3-6405
Pk
2003-03-14 22:18
2003.04.03
Подсчитать число записей в группе(QReport)


4-6852
}{enon
2003-02-01 19:05
2003.04.03
Хук на перерисовку окна


1-6507
Женя
2003-03-24 17:23
2003.04.03
функция


14-6732
SuperMagic
2003-03-16 13:40
2003.04.03
Кривые второго порядка


9-6285
kronic
2002-10-23 08:50
2003.04.03
как создать карту для RPG