Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Курсор в exe файле

Автор: Гость_Kostya 5.8.2004, 16:16

Помогите мне, пожалуйста, вот с такой проблемой:
Я хочу включить анимированный курсор в exe файл. Сделал файл “Cursor.rc” вот с такими строками:

Код

#define ANICURSOR 21
myCur ANICURSOR "C:\Cursors\Cur.ani"

Откомпилировал в Cursor.res
Вложил его в код программы:

…

Код

implementation

{$R *.dfm}
{$R Cursor.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  hCur: HCURSOR;
begin
    hCur := LoadCursor(HInstance, PChar('myCur'));
      Screen.Cursors[1] := hCur;
      Screen.Cursor := 1;
      Form1.Cursor :=1;
    end;

…

Но курсор не загружается и в программе остаются прежние указатели. Подскажите, пожалуйста, что во всем этом не так???

Автор: _hunter 5.8.2004, 17:58

что тебе LoadCursor возврщает?
и нжно не Form1.Cursor :=1; а Form1.Cursor :=hCur;

Автор: Гость_Kostya 5.8.2004, 19:14

_hunter: Дело в том, что анимированный курсор не загружается, а в место него грузятся обычные установленные для кнопок. Если можешь, напиши рабочий код, как загрузить анимированный курсор (*.ani) из самой программы (екзешника)

. Может проблема что

Код

LoadCursor

написана для обычного курсора, а я применяю его на анимированный

Автор: _hunter 5.8.2004, 19:27

попробуй

Код

LoadImage(
    HInstance,
    PChar('myCur'),
    IMAGE_CURSOR,
    0,
    0,
    LR_DEFAULTSIZE or LR_LOADFROMFILE
);

и hCur типа THandle

Автор: Гость_Kostya 5.8.2004, 21:03

Пробовал - бесполезно.

Автор: Burich-Caeser 6.8.2004, 01:52

Обязательно зайди
http://www.team-x.ru/filez/sources.php
Где-то посередине страницы будет написано курсоры и 3 файла для скачивания...
Там инфы достаточно.
Даже есть библиотека специально для этого.
Удачи.

Автор: Guest 7.8.2004, 18:30

Burich-Caeser: Попробую, спасибо

Автор: dvamaster 8.8.2004, 07:10

Загружай как ИКОНКУ LoadIcon и пользуй ее хендл.
У меня только так сработало.

Автор: The MASTER 8.8.2004, 14:15

Проще всего:

Создаёшь файл *.RES т.е. (Файл ресурсов) естевственно со своим курсором!
А в программе пишешь :

Код

{$R CURSORS.RES} 
const 
crZoomIn = 1;  
crZoomOut = 2;  
Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN'); 
Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT');

С вашей программой должен быть слинкован файл ресурсов, содержащий соответствующие курсоры или заменить зеленое на конкретное имя файла(он должен также поставляться с программой).

А если, что не так то я думаю там уже разберёшься сам, тут всё абсолютно просто!

Успехов!

Автор: Гость_Kostya 9.8.2004, 16:21

The MASTER: FAQ я тоже читал

- ничего не получается

Автор: Гость_Kostya 9.8.2004, 16:25

dvamaster: А можно поподробнее и в коде, пожалуйста

Автор: dvamaster 10.8.2004, 14:26

Код не сохранился, но примерно так:

Код


var
  VarCursor: HCURSOR;

VarCursor := LoadIcon(hInstance, 'CURSOR1');

т.е. хендл иконки (HICON) используешь как хендл курсора (HCURSOR).
Несмотри на типы. Все хенделы DWORD;

Автор: _hunter 10.8.2004, 15:52

и найди мне принципиальное различие между LoadImage() и LoadIcon()

Автор: Гость_Kostya 10.8.2004, 21:33

Видимо проблема, пока еще, остается неразрешимой. Толи те, кто делали Delphi что-то не доделали, то ли я чего-то не знаю. Наверное, второе…

Ну, может, есть хоть один человек, который знает, как именно это сделать а??? Специалисты помогите

Help please

Автор: p0s0l 10.8.2004, 23:06

Не знаю, в чём там у тебя прикол, но вот сделал рабочий пример через LoadCursor. Не веришь - запусти...
Код:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{$R Cursor.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  hCur : HCURSOR;
begin
  hCur := LoadCursor (hInstance, 'myCur');
  Screen.Cursors[1] := hcur;
  Form1.Cursor := 1;
end;

end.

Тут же лежит файлик cur.ani, если его сменить, то надо запусть makeres.bat, состоящий из одной строки:
brcc32 cursor.rc

cursor.rc - почти такой же, как и у тебя:
#define ANICURSOR 21
myCur ANICURSOR "Cur.ani"

Так что, наверное, ты чего-то ты недоговариваешь...

Исходник прикреплен (21 кб) тут:

Автор: Kostya-xp 11.8.2004, 17:25

p0s0l: Спасибо за рабочий пример

C помощью него я нашел суть проблемы. В примере нет файла ресурсов XP манифеста. Как только его ставишь в форму, так курсор делается обычным, исключаешь все нормально(у меня он присутствовал, поэтому ничего не получалось.). Но мне бы хотелось в своей программе видеть стиль XP. Подскажи, пожалуйста, как это можно осуществить. И вообще как сделать так чтобы стиль XP в программе присутствовал постоянно (независимо винда находиться в обычном виде или икспишном виде)(компонент к Delphi какой-нибудь). Может это и есть путь, как совместить анимированный курсор и стиль XP в программе.

Гость Kostya

Автор: p0s0l 13.8.2004, 18:20

Цитата

И вообще как сделать так чтобы стиль XP в программе присутствовал постоянно (независимо винда находиться в обычном виде или икспишном виде)(компонент к Delphi какой-нибудь). Может это и есть путь, как совместить анимированный курсор и стиль XP в программе.

Хм... И впрямь, с манифестом не включается...
Насчёт компонентов - такие компоненты есть, но вот название и где скачать - не знаю... Но на форуме когда-то кто-то спрашивал про то, как сделать, чтобы всегда прога выглядела в хр-стиле, и ему дали ссылку на компоненты - поищи поиском, может что и найдёшь...

Автор: Kostya-xp 13.8.2004, 20:34

Посмотрел тему http://forum.vingrad.ru/index.php?showtopic=14816&hl=Стиль%20xp&st=15
Там говориться про модуль UxTheme.pas, но как его использовать, не говориться. Я включил его в свою программу “uses UxTheme”, а дальше как с ним работать подскажи Please

Про компоненты ничего не нашел