Меняем курсор

[БудДен]

Цель ветки "курсор-покажет-раскладку" - чтобы форма курсора показывала, включена ли кириллица или латиница.

Код: Выделить всё

WMTextView.Mod: 

	Cursor = OBJECT(PositionMarker)
	
WMEditor.Mod

        CursorWitdh := 2 (WTF?)

Второй вариант относится к "простому текстовому полю", например, Текст/Стили.
Там курсор всегда является просто квадратиком.
А где обычный курсор настраивается?

[БудДен]

WMTextViews.TextView.cursor,
инициализируется пр-рой CreateCursor(), к-рая не загружает никакой картинки.
Картинку может загружать PositionMarker.Load()

[БудДен]

Кое-как сделал, для частных случаев. При включённой латинице загогулина внизу, а при не-латинице - вверху.

Самое страшное - при переключении раскладки нужно найти и перерисовать курсор. Часть курсоров мигает - они сами перерисуются.
А другие - не мигают. Что с ними делать? Я не знаю.

[БудДен]

Что-то наколдовал, вроде работает. Но при запуске иногда курсор не просыпается
и не начинает мигать до первого переключения в другое окно. В таком случае и перерисовка
по смене раскладки клавиатуры не происходит.