VPF::Курсор в exe файле - Форум программистов

Гость_Kostya

Дата 5.8.2004, 16:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите мне, пожалуйста, вот с такой проблемой:
Я хочу включить анимированный курсор в 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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

Гость_Kostya

Дата 5.8.2004, 19:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

Код

LoadCursor

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

_hunter

Дата 5.8.2004, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

попробуй

Код

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

и hCur типа THandle

--------------------

Tempora mutantur, et nos mutamur in illis...

Гость_Kostya

Дата 5.8.2004, 21:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Burich-Caeser

Дата 6.8.2004, 01:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 28.7.2004

Репутация: нет
Всего: 1

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

--------------------

Ты брошен вниз силой судьбы,Ты унижен и раздавлен,Время забыть то, кем ты был,Но помнить, кем ты стал...

Guest

Дата 7.8.2004, 18:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

dvamaster

Дата 8.8.2004, 07:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

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

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

The MASTER

Дата 8.8.2004, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Old master)

Профиль
Группа: Участник
Сообщений: 862
Регистрация: 19.7.2004
Где: Санкт-Петербург

Репутация: 2
Всего: 5

Проще всего:

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

Код

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

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

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

Успехов!

Это сообщение отредактировал(а) The MASTER - 8.8.2004, 14:17

--------------------

http://linkinparkfans.ru
http://innovatedesign.ru
http://forum.linkinparkfans.ru

Гость_Kostya

Дата 9.8.2004, 16:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

Гость_Kostya

Дата 9.8.2004, 16:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

dvamaster

Дата 10.8.2004, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

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

Код


var
  VarCursor: HCURSOR;

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

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

--------------------

_hunter

Дата 10.8.2004, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

Гость_Kostya

Дата 10.8.2004, 21:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

Help please

p0s0l

Дата 10.8.2004, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Не знаю, в чём там у тебя прикол, но вот сделал рабочий пример через 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 кб) тут:

Присоединённый файл ( Кол-во скачиваний: 6 )

AniCursor.zip

--------------------

С уважением, г-н Посол.

Kostya-xp

Дата 11.8.2004, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.8.2004
Где: Россия

Репутация: нет
Всего: нет

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

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

Гость Kostya

Это сообщение отредактировал(а) Kostya-xp - 11.8.2004, 21:01

p0s0l

Дата 13.8.2004, 18:20 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата

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

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

--------------------

С уважением, г-н Посол.

Kostya-xp

Дата 13.8.2004, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 11.8.2004
Где: Россия

Репутация: нет
Всего: нет

Посмотрел тему Стиль XP Page 2
Там говориться про модуль UxTheme.pas, но как его использовать, не говориться. Я включил его в свою программу “uses UxTheme”, а дальше как с ним работать подскажи Please

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »