| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TWinControl
chs2r © (2003-07-29 18:27:00)
Может надо было не в основном, а тут вопрос свой задать...
Как мне нарисовать курсор на 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:00) [1]
SetROP2 глянь или делай типа SelectObject(DC, TPen.Handle)
а в TPen.Mode установишь нуджный тебе режим
| |
