Файлы *.ani, *.Cur

← →
Babay (2003-07-22 06:11) [0]

Уважаемые подскажите или дайте ссылочку как отобразить на форме содержимое файлов *.ani, *.Cur.

← →
Babay (2003-07-24 04:36) [1]

Уважаемые....
Неужто никто не знает ?

← →
MBo (2003-07-24 07:38) [2]

c
две выдержки из советов Озерова (kuliba)

Как я могу использовать анимированный курсор?

Из советов Nomadic"a:
Сперва Вы должны взять хэндл курсора Windows и присвоить его одному из элементов массива Cursors обьекта Screen.

Предопределенные курсоры имеют отрицательный индекс, а определенные пользователем (Вами) курсоры получают положительные индексы.

Ниже пример формы, использующей анимированный курсор:

--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var

h: THandle;
begin

h := LoadImage(0,
"C:\TheWall\Magic.ani",
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE
);
if h = 0 then ShowMessage("Cursor not loaded")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;

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

Вот пример:

(mycursor.ani - файл, содержащий анимированный курсор. Вы можете создать его с помощью программы Microsoft aniedit.exe)

--------------------------------------------------------------------------------
( Sender: TObject) c
две выдержки из советов Озерова (kuliba)

Как я могу использовать анимированный курсор?

Из советов Nomadic"a:
Сперва Вы должны взять хэндл курсора Windows и присвоить его одному из элементов массива Cursors обьекта Screen.

Предопределенные курсоры имеют отрицательный индекс, а определенные пользователем (Вами) курсоры получают положительные индексы.

Ниже пример формы, использующей анимированный курсор:

--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var

h: THandle;
begin

h := LoadImage(0,
"C:\TheWall\Magic.ani",
IMAGE_CURSOR,
0,
0,
LR_DEFAULTSIZE or
LR_LOADFROMFILE
);
if h = 0 then ShowMessage("Cursor not loaded")
else
begin
Screen.Cursors[1] := h;
Form1.Cursor := 1;
end;
end;

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

Вот пример:

(mycursor.ani - файл, содержащий анимированный курсор. Вы можете создать его с помощью программы Microsoft aniedit.exe)

--------------------------------------------------------------------------------
const crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin

// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile("c:\mystuff\mycursor.ani");

// Используем курсор на форме
Cursor := crMyCursor;
end;

Я надеюсь, что помог вам этой информацией.

← →
Babay (2003-07-24 08:56) [3]

Спасибо за ответ, но это не то, это я знаю.
Мне нужно отрисовать содержимое файла (в Image например или на каком нибудь Canvas) а не заменить курсор мыши.
Так как например отрисоввывает Д в инспекторе объектов. Если анимированный то по возможности показать анимацию или хотябы первую картинку.

← →
icWasya (2003-07-24 10:17) [4]

ну тогда *.Cur можно обработать так же как и *.ico - по структуре они одинаковы

var G:TGraphic; G:=TIcon.Create; G.LoadFromFile("MyCursor.Cur"); Image.Canvas.Draw(X,Y,G);

← →
Babay (2003-07-25 04:39) [5]

Не... не работает

G.LoadFromFile("MyCursor.Cur");

вот здеся ругается Icon image is not Valid

← →
Babay (2003-07-30 06:53) [6]

И всетаки хотелось бы еще раз спросить...
Помгите, кто знает ?

← →
ЮЮ (2003-07-30 07:52) [7]

В биб-ке JEDI есть модуль JvAni, подключаешь и с анимированными курсорами проблема решена

← →
Babay (2003-07-30 09:04) [8]

А что бы без посторонних компонентов?
Ну или в крайнем случае компонент с исходником желательно не входящий в библиотеки, чтоб самому разобраться как чаво.

← →
ЮЮ (2003-08-01 04:30) [9]

>Ну или в крайнем случае компонент с исходником желательно не входящий в библиотеки, чтоб самому

JvAni.pas (11K). Выслал бы, да твоего мыла нет, аська (у меня) никак не выходит в online, а завтра - отпуск начинается :-(

Файлы *.ani, *.Cur Найти похожие ветки

Файлы .ani, .Cur Найти похожие ветки