Странное поведение отображения своего курсора

Форумы ПрочееСтранное поведение отображения своего курсора ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 817

Рейтинг: 52

#1: 2015-03-25 08:50:47 ЛС | профиль | цитата

Добрый день!
Вот маленький пример
http://forum.hiasm.com/forum_serv.php?q=56&id=3923

Дело в том, что при наведении курсора на Label, вид курсора меняется, но при этом он "убегает" в сторону
В чем может быть дело, что не так?

карма: 1

Ответов: 1058

Рейтинг: 76

#2: 2015-03-25 09:46:48 ЛС | профиль | цитата

-= DriveR =- В чем дело не знаю, но полагаю что...
Для курсора должна быть некая "отправная точка" - координата центровки курсора.
Предположительно для картинки такой точкой служит нижний левый угол. Попробуйте найти картинку с вашим изображением но расширением .cur

карма: 0

Голосовали:

-= DriveR =-

Ответов: 817

Рейтинг: 52

#3: 2015-03-25 09:58:38 ЛС | профиль | цитата

tom-it,
Вроде UseExtCursor не воспринимает файлы cur
Сейчас попробую.
------------ Дoбавленo в 09.52:
Ха, все воспринимает и все работает как надо
Спасибо
------------ Дoбавленo в 09.58:
Появляется второй вопрос
Как можно размножить один курсор на несколько компонентов (например Label)
Если во всех Label прописать одно имя, это не работает
http://forum.hiasm.com/forum_serv.php?q=56&id=3924

карма: 1

Ответов: 1058

Рейтинг: 76

#4: 2015-03-25 10:34:47 ЛС | профиль | цитата

-= DriveR =- писал(а):

Как можно размножить один курсор

Стандартные курсоры можно через точку doCursor подавая системный код курсора. Стандартные идентификаторы курсоров
А вот как свой добавить незнаю.

Мысли вслух...
Возможно можно предварительно добавить в систему, а потом (как найти ID незнаю) указать идентификатор добавленного курсора.

карма: 0

Разработчик

Ответов: 26155

Рейтинг: 2127

#5: 2015-03-25 11:06:55 ЛС | профиль | цитата

tom-it писал(а):

Стандартные курсоры можно через точку doCursor подавая системный код курсора

И в любом случае -- это будет один курсор на один контрол

карма: 22

Ответов: 1058

Рейтинг: 76

#6: 2015-03-25 12:06:33 ЛС | профиль | цитата

nesco писал(а):

И в любом случае -

Нет, ты не понял меня. Я имел ввиду чтото типа

code_35383.txt

А LoadCursorFromFile(), можно прикрутить к нашим контролам? К примеру по onMouseEnter смотреть верхнюю точку, если указан путь - грузить курсор, иначе по умолчанию.
------------ Дoбавленo в 12.06:
Имел ввиду прикрутить вот это

Add(MainForm,2953706,420,189)
{
}
Add(Label,527571,490,133)
{
 Left=150
 Top=100
 Width=111
 Height=17
 Caption="test"
 Point(PHandle)
 Point(onMouseEnter)
 link(onMouseEnter,14989892:doSetCursor,[(529,146)(529,174)(487,174)(487,195)])
}
Add(InlineCode,14989892,497,189)
{
 WorkPoints=#11:doSetCursor|
 DataPoints=#7:PHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|3:   |9:   public|21:   PHandle:THI_Event;|15:   pc:PControl;|54:   procedure doSetCursor(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doSetCursor;|5:begin|43:  pc:=PControl(ReadInteger(_Data,PHandle));|60:  pc.Cursor := LoadCursorFromFile('C:\HiAsm\Int\cur\5.cur');|4:end;|4:end.|0:|
 link(PHandle,527571:PHandle,[])
}

карма: 0

файлы: 1 code_35383.txt [777B] [419]

Ответов: 4630

Рейтинг: 749

#7: 2015-03-25 12:18:40 ЛС | профиль | цитата

Для этого вроде предназначенный UseExtCursor. Только как-то нелогично он сделан. Во-первых, св-во ControlManager сбивает с толку (нет у нас такого менеджера), должно называться Control. Во-вторых, мне кажется, можно было сделать наоборот: в визуальных компонентах добавить свойство CursorManager, и ссылаться в нем на этот компонент.

карма: 26

Разработчик

Ответов: 26155

Рейтинг: 2127

#8: 2015-03-25 12:46:56 ЛС | профиль | цитата

Netspirit писал(а):

Во-вторых, мне кажется, можно было сделать наоборот: в визуальных компонентах добавить свойство CursorManager, и ссылаться в нем на этот компонент

А ты попробуй, если получится, то можно будет сделать Ex компонент. Не забудь, видом курсора надо еще и управлять.
------------ Дoбавленo в 12.46:

Netspirit писал(а):

нет у нас такого менеджера

А их никаких нет. Это просто название интерфейса. Да и вообще, менеджеры -- это чисто условное обозначение, предполагающее безлинковую обработку событий

карма: 22

Ответов: 4630

Рейтинг: 749

#9: 2015-03-25 20:21:36 ЛС | профиль | цитата

nesco писал(а):

А ты попробуй

Времени сейчас нет.

карма: 26

Форумы ПрочееСтранное поведение отображения своего курсора ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)