Использование анимированных курсоров 3

Delphi , ОС и Железо , Мышка и Курсор

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{1.}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Screen.Cursors[crMyCursor] := LoadCursorFromFile('c:\mystuff\mycursor.ani');
   Cursor := crMyCursor;
 end;


 {*****************************************************************}
 {2.}
 { by Blodgett}

 Const
   CURSOR_HOURGLASS = 1;
 {...}

 procedure TForm1.LoadCursors;
 var
   h : THandle;
 begin
   if FileExists('..\Images\YourAnimagedCursor.ani') then
   begin
     h := LoadImage(0,
            '..\Images\YourAnimatedCursor.ani',
            IMAGE_CURSOR,
            0,
            0,
            LR_DEFAULTSIZE or
            LR_LOADFROMFILE);

     if h <> 0 then
       Screen.Cursors[1] := h;
   end;
 end;

 procedure TForm1.BitBtn1Click(Sender: TObject);
 var
  FCurrentCursor: Integer;
 begin
   //1st - Load Cursors Information 
  LoadCursors;
   //2nd - Set FCurrentCursor variable 
  //      to current screen cursor. 
  FCurrentCursor := Screen.Cursor;
   //3rd - Set Screen.Cursor to your CONST Value. 
  //      this is your animated cursor. 
  Screen.Cursor := CURSOR_HOURGLASS;
   //4th - Do something ... 
  sleep(2000);
   //5th - Set Screen.Cursor to original cursor. 
  Screen.Cursor := FCurrentCursor;
 end;

Код написан на языке Delphi для создания оконных приложений под Windows. Он демонстрирует использование анимированных курсоров в программе Delphi.

Первая часть кода определяет процедуру FormCreate, которая вызывается при создании формы. Эта процедура загружает анимированный курсор из файла "mycursor.ani" и устанавливает его как текущий курсор для экрана.

Вторая часть кода, написанная Blodgett, определяет константу CURSOR_ HOURGLASS и две процедуры: LoadCursors и BitBtn1Click.

Процедура LoadCursors проверяет, существует ли файл анимированного курсора "YourAnimatedCursor.ani" в директории "..\Images\". Если он существует, то загружает курсор с помощью функции LoadImage и устанавливает его как текущий курсор для экрана.

Процедура BitBtn1Click вызывается при клике кнопки с надписью "BitBtn1". Она:

1. Вызывает процедуру LoadCursors, чтобы загрузить анимированные курсоры.
2. Устанавливает переменную FCurrentCursor в значение текущего курсора экрана.
3. Устанавливает курсор экрана в CURSOR_ HOURGLASS, который является анимированным часами.
4. Ожидает 2000 миллисекунд (2 секунды) с помощью функции Sleep.
5. Устанавливает курсор экрана обратно в его оригинальное значение, хранящееся в FCurrentCursor.

Цель этого кода, вероятно, заключается в демонстрации использования анимированных курсоров в программе Delphi и способности изменять курсоры программно.

Некоторые предложения по альтернативным решениям:

• Вместо использования файлового анимированного курсора можно создавать анимированный курсор динамически с помощью библиотек графики.
• Можно использовать более эффективный способ загрузки анимированного курсора, например, используя формат потоковой загрузки курсора или загружая его в фоновом потоке.
• Можно добавить больше функций к процедуре BitBtn1Click, например, изменять курсор в зависимости от ввода пользователя или состояния приложения.

В целом, этот код предоставляет основное пример использования анимированных курсоров в Delphi и может быть использован как стартовая точка для более сложных приложений.

В статье описывается использование анимированных курсоров в программировании на языке Delphi, с помощью процедур LoadCursorFromFile и LoadImage, а также примеры их применения в коде.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Мышка и Курсор ::