Скачать: CL | DM;

TWinControl   Найти похожие ветки 

← →
chs2r ©   (2003-07-29 18:27) [0]

Может надо было не в основном, а тут вопрос свой задать...
Как мне нарисовать курсор на WinControl"e?
я создаю
EditWindow:=TWinControl.Create(nil);
...
DC:=GetDC(EditWindow.Handle);
...
HP1:=CreatePen(PS_SOLID,1,clGreen);
...
SETTEXTCOLOR(DC,$0);
SETBKCOLOR(DC,clWhite);
текст в общем вывожу

drawText(DC,buff+VStextbegin,i-VSTextBegin,r,DT_LEFT);
по таймеру (SetTimer) нужно рисовать мигающий курсор
если я его рисую процедурами MoveToEx() LineTo()
то он затирает текст
как нарисовать через XOR, как наприм в том же делфи ?

---

← →
default ©   (2003-07-29 20:28) [1]

SetROP2 глянь или делай типа SelectObject(DC, TPen.Handle)
а в TPen.Mode установишь нуджный тебе режим

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.019 c