Текущий архив: 2003.09.29;
Скачать: 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 вся ветка
Текущий архив: 2003.09.29;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.026 c
