Вверх ↑
Этот топик читают: Гость
Ответов: 817
Рейтинг: 52
#1: 2015-03-25 08:50:47 ЛС | профиль | цитата
Добрый день!
Вот маленький пример
http://forum.hiasm.com/forum_serv.php?q=56&id=3923

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

карма: 1

0
Ответов: 1058
Рейтинг: 76
#2: 2015-03-25 09:46:48 ЛС | профиль | цитата
-= DriveR =- В чем дело не знаю, но полагаю что...
Для курсора должна быть некая "отправная точка" - координата центровки курсора.
Предположительно для картинки такой точкой служит нижний левый угол. Попробуйте найти картинку с вашим изображением но расширением .cur
карма: 0

1
Голосовали:-= 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

0
Ответов: 1058
Рейтинг: 76
#4: 2015-03-25 10:34:47 ЛС | профиль | цитата
-= DriveR =- писал(а):
Как можно размножить один курсор

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

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

карма: 0

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#5: 2015-03-25 11:06:55 ЛС | профиль | цитата
tom-it писал(а):
Стандартные курсоры можно через точку doCursor подавая системный код курсора

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

0
Ответов: 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

0
файлы: 1code_35383.txt [777B] [419]
Ответов: 4630
Рейтинг: 749
#7: 2015-03-25 12:18:40 ЛС | профиль | цитата
Для этого вроде предназначенный UseExtCursor. Только как-то нелогично он сделан. Во-первых, св-во ControlManager сбивает с толку (нет у нас такого менеджера), должно называться Control. Во-вторых, мне кажется, можно было сделать наоборот: в визуальных компонентах добавить свойство CursorManager, и ссылаться в нем на этот компонент.
карма: 26

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#8: 2015-03-25 12:46:56 ЛС | профиль | цитата
Netspirit писал(а):
Во-вторых, мне кажется, можно было сделать наоборот: в визуальных компонентах добавить свойство CursorManager, и ссылаться в нем на этот компонент

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

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

0
Ответов: 4630
Рейтинг: 749
#9: 2015-03-25 20:21:36 ЛС | профиль | цитата
nesco писал(а):
А ты попробуй
Времени сейчас нет.
карма: 26

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