Главная страница
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.019 c
3-6348
yarnik
2003-03-13 22:05
2003.04.03
Как в таблицах Dbase перемещатся на нужную запись по номеру?


14-6668
VID
2003-03-17 15:27
2003.04.03
Работа с объектами в Excel


7-6819
User_OKA
2003-02-07 14:19
2003.04.03
MessageDlgPos


14-6695
NetBreaker666
2003-03-17 23:12
2003.04.03
2Создатель форума


14-6753
PrettyFly
2003-03-15 13:17
2003.04.03
Help в Delphi