Рисование любым цветом на DC [D3]
ZEE © (2002-12-29 22:33:00)
Подскажите, плиз, как на 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:00) [1]
перед DeleteObject(xpen) надо выбрать в DC старое перо (его
получают при таком вызове: OldPen:=SelectObject(DC1,xpen);),
поскольку выбранные в контексте объекты (большинство типов гр.
объектов) не уничтожаются, что, видимо, и приводит к переполнению
таблицы объектов GDI
Наверх 
ЧАТ |
Орешник |
|
