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 установишь нуджный тебе режим

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