crZoomIn = 1;
crZoomOut = 2;
Screen. Cursors # 91; crZoomIn # 93; : = LoadCursor # 40; hInstance, 'CURSOR_ZOOMIN' # 41; ;
Screen. Cursors # 91; crZoomOut # 93; : = LoadCursor # 40; hInstance, 'CURSOR_ZOOMOUT' # 41; ;
З вашою програмою повинен бути слінкован файл ресурсів, що містить відповідні курсори або замінити зелене на конкретне ім'я файлу (він повинен також поставлятися з програмою).
У цій статті ви знайдете кілька способів використання власних курсорів, в тому числі і анімованих. [Це файли з розширенням .ani]
Наприклад, у вас є якийсь файл з розширенням .ani і ви хочете його задіяти. Все, що вам для цього буде потрібно зробити, це - помістити файл в той же каталог, де буде ваш exe, а потім написати наступний код, ну, скажімо, після натискання на кнопку:
Screen. Cursors # 91; 5 # 93; : = LoadCursorFromFile # 40; 'File.ani' # 41; ;
Screen. Cursor: = 5;
Тут використовується властивість Cursors глобального об'єкта Screen. У ньому міститься список курсорів, доступних з додатком. За індексом в потрібну позицію ми завантажуємо курсор з файлу. А потім за допомогою властивості Cursor задіємо його.
Якщо ж ви маєте файл ресурсів, тоді справи йтимуть інакше:
Ставите цей файл в той же каталог, що і exe. Потім в модулі оголошуємо глобальну константу, наприклад після
Виглядати це буде приблизно так:
За допомогою цієї константи ми зарезервуємо нову позицію в властивості Cursors глобального об'єкта Screen.
Після чого підключаємо файл ресурсів, тобто якщо він у нас називається Cursors.res, тоді після
// Потім, припустимо, після натискання на кнопку пишемо код:
Screen. Cursors # 91; MyConst # 93; : = LoadCursor # 40; hInstance, 'MYCURSOR' # 41; ;
Screen. Cursor: = MyConst;
Тут 'MYCURSOR' - це ім'я курсору, який нам необхідно завантажити. Зверніть увагу, якщо ви створюєте файл ресурсів самостійно, а зробити це можна за допомогою утиліти "ImageEditor", вам необхідно в іменах курсорів використовувати тільки великі літери.