| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Babay ©   (2003-07-22 06:11:00) 

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

---

ЮЮ   (2003-08-01 04:30:00) [1]

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

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

---

Babay   (2003-07-30 09:04:00) [2]

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

---

ЮЮ   (2003-07-30 07:52:00) [3]

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

---

Babay   (2003-07-30 06:53:00) [4]

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

---

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

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

G.LoadFromFile("MyCursor.Cur");

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

---

icWasya   (2003-07-24 10:17:00) [6]

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

var G:TGraphic;

G:=TIcon.Create;

G.LoadFromFile("MyCursor.Cur");

Image.Canvas.Draw(X,Y,G);

---

Babay   (2003-07-24 08:56:00) [7]

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

---

MBo   (2003-07-24 07:38:00) [8]

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 04:36:00) [9]

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

---

Наверх