|
Вопрос # 6 159/ вопрос закрыт / |
|
Приветствую, уважаемые эксперты!
В своей программе я установил курсор в виде карандаша размером 32 на 32 пикселя (см. прикреплённый файл - Cursors.png), при наведении курсора на компонент TImage, точка соприкосновения курсора y=0; x=0;
Но мне нужна точка соприкосновения курсора с компонентом TImage y=32; x=0; то есть мне нужен нижний левый угол курсора.
Проблему, связанную с рисованием линии, так чтобы линия выходила именно из под «карандаша» я решил вот таким способом: y+32.
Но вот как сделать, что бы сам курсор ни выходил за компонент TImage в нижней части и не пропадал, не дойдя 32 пикселя в верхней части TImage ???
Смотрите (прикреплённый файл) - Cursors.png
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим-
- Screen.Cursors[1]:= LoadCursor(h, PChar('Pen'));
- Image2.Cursor := 1;
-
-
- Image2.Canvas.MoveTo(x,y+32);
- Image2.Canvas.LineTo(x,y+32);
-
 |
Вопрос задал: Kyran29 (статус: Посетитель)
Вопрос отправлен: 26 мая 2012, 22:38
Состояние вопроса: закрыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 16; последнее сообщение — 27 мая 2012, 18:48; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 26 мая 2012, 22:43 [#1]:
А почему PNG? Формат файла CUR включает в себя и координаты точки соприкосновения (hot spot).
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 26 мая 2012, 22:50 [#2]:
min@y™: Приветствую тебя!
Это прикреплённый файл картинки так назывался
min@y™: Можно немного подробней про точки соприкосновения (hot spot)
|
|
|
min@y™ (статус: Доктор наук), 26 мая 2012, 22:57 [#3]:
Я спать пошёл. Все вопросы - завтра.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 26 мая 2012, 23:02 [#4]:
min@y™: Ладно. Спокойной ночи.
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 00:06 [#5]:
min@y™: Спасибо за подсказку.
Проблему решил примитивным способом с помощью Microsoft Visual C++
Создав файл Cursor File, указав остриё курсора (Hot spot: 0,31)
Но все же хочется узнать, можно ли все это сделать во время выполнения программы?
|
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 10:25 [#6]:
Цитата (Kyran29):
Но все же хочется узнать, можно ли все это сделать во время выполнения программы?
Нельзя. Да и зачем?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 12:16 [#7]:
min@y™:Спасибо.
Но все же, не уж-то все так плохо.
Программа же берет это значение(Hot spot) откуда-то.
Ни уж-то нельзя его изменить, прихватив какою ни будь, функцию и поменяв в ней значение (Hot spot). Только вот какую?
|
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 12:34 [#8]:
Цитата (Kyran29):
Программа же берет это значение(Hot spot) откуда-то.
Из файла CUR.
Цитата (Kyran29):
Ни уж-то нельзя его изменить, прихватив какою ни будь, функцию и поменяв в ней значение (Hot spot). Только вот какую?
Зачем это тебе надо-то? Я не понимаю!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 12:37 [#9]:
min@y™: Интересно просто.
|
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 12:53 [#10]:
Цитата (Kyran29):
Интересно просто.
Это какой-то нездоровый интерес. Напоминает какое-то сексуальное извращение. 
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 12:56 [#11]:
min@y™: Сексуальные извращения ищут на других сайтах! 
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 13:07 [#13]:
Вопрос свой считаю закрытым.min@y™: Спасибо.
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 13:08 [#14]:
min@y™: Я тебя не оскорблял!!!
|
|
|
Kyran29 (статус: Посетитель), 27 мая 2012, 13:13 [#15]:
min@y™: А рекламировать ты их сам начал.
|
|
|
min@y™ (статус: Доктор наук), 27 мая 2012, 18:48 [#16]:
Цитата (Kyran29):
А рекламировать ты их сам начал.
Да неужели?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
27 мая 2012, 18:49: Вопрос закрыт (решение принял min@y™): По желанию автора.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
