|
Вопрос # 497/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Как в программе использовать свои курсоры?
Если можно, дайте ссылки на статьи по этому вопросу
С уважением, Сосницкий С.М.
 |
Вопрос задал: Сосницкий С.М. (статус: Посетитель)
Вопрос отправлен: 18 апреля 2007, 11:43
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Роман
Здравствуйте, Сосницкий С.М.!Посмотрире delphiworld.narod.ru/base/own_cursors.html,delphiworld.narod.ru/base/cursor_persent.html,delphiworld.narod.ru/_os_.html
 |
Ответ отправил: Роман (статус: 5-ый класс)
Время отправки: 18 апреля 2007, 16:31
|
Ответ #2. Отвечает эксперт: min@y™
Было дело, правда давно, когда я писал для одной подруги курсач по программированию. Это был простенький графредактор. Для прикола я решил заюзать свои курсоры для инструментов рисования.
Для этого я нарисовал (а точнее Ctrl+C ---> Ctrl+V :) курсоры и запихал их в файл Cursors.res, который подключил к проекту:
{$R Cursors.res} // Это файл, где хранятся курсоры программы
// (типа креста или карандаша).
Далее, в общем модуле проги я прописал:
const // Константы модуля
// Курсоры
crPen = 1; // Карандаш
crLine = 2; // Отрезок
crRect = 3; // Прямоугольник
crEllipse = 4; // Эллипс
crFill = 5; // Заливка
crEraser = 6; // Стёрка
crSelect = 7; // Выделение
Ну, а потом элементарно:
// Устанавливаем курсор мыши над рисунком в зависимости от выбранного инструмента.
case DrawOperation of
doPen : Image.Cursor:=crPen; // карандашик
doLine : Image.Cursor:=crLine; // крест с линией
doRect : Image.Cursor:=crRect; // крест с прямоугольником
doEllipse : Image.Cursor:=crEllipse; // крест с эллипсом
doEraser : Image.Cursor:=crEraser; // квадрат 8х8
doFill : Image.Cursor:=crFill; // банка с краской
doSelect,doBrush : Image.Cursor:=crSelect; // крест
else
Image.Cursor:=crDefault; // курсор по умолчанию
end; //case
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 19 апреля 2007, 08:25
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
