Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как поместить курсоры в файл ресурсов??? [D7, XP]

Страницы: 1 2 >
Zhekson © (2008-11-05 10:40:00)
Всем доброго дня. С нарисованными мной курсорами проблем нет, вставляю ImageEditor_ом, а вот уже имеющися курсоры ImageEditor не грузит, видать из-за разрешения, поэтому этот метод не проходит. Как быть?

Zhekson (2008-11-05 19:42:00) [1]
)))))

как по мне, то все остались довольны, кто-то получил ответ, кто-то самоутвердился, надеюсь помогло ;), а кто-то с чувством выполненого долга может закрыть тему.

Ещё раз, всем спасибо.

Leonid Troyanovsky (2008-11-05 18:52:00) [2]

> Сергей М. © (05.11.08 18:49) [34]

> И тем не менее это так.

Sic!

--
Regards, LVT.

Сергей М. (2008-11-05 18:51:00) [3]

> как она должна изменяться в зависимости от количества файлов

Никак.
Думай головой, а не ушанкой)

Сергей М. (2008-11-05 18:49:00) [4]

> Zhekson (05.11.08 17:26) [32]

И тем не менее это так.

Leonid Troyanovsky (2008-11-05 18:30:00) [5]

> Zhekson (05.11.08 17:26) [32]

> P.S. "Экий ты закомплексованный, однако. Так и хочется монетку
> в шапку-ушанку бросить"

Ну, а к чему к "спасибо" паровоз?
Я, наконец, понял мотивы АП.

--
Regards, LVT.

Zhekson (2008-11-05 17:26:00) [6]
Сергей М. © (05.11.08 16:58) [31]
спасибо.

P.S. "Экий ты закомплексованный, однако. Так и хочется монетку в шапку-ушанку бросить"

что до закрытия темы, что после, эти слова не являются правдой т.к. суть всегда важнее ;)

Сергей М. (2008-11-05 16:58:00) [7]

> в чём фокус?

Конкретно в D7 это, видимо, ляп в brcc32

Zhekson (2008-11-05 16:46:00) [8]
Сергей М. © (05.11.08 16:40) [28]

))) в чём фокус??? что за волшебная цифра и как она должна изменяться в зависимости от количества файлов???

Zhekson (2008-11-05 16:41:00) [9]
Anatoly Podgoretsky © (05.11.08 16:24) [25]
У меня нет проблем с загрузкой анимированых курсоров... они все, анимированые и неанимированые, безпроблемно грузятся командой:
Screen.Cursors[crMyCursor] := LoadCursorFromFile(PChar(pathcur));

Я хотел все картинки, курсоры запихнуть в RES файл, чтобы не "таскать" с программой файлы курсоров и прочего...

Сергей М. (2008-11-05 16:40:00) [10]

> Zhekson (05.11.08 16:36) [27]

Смотри внимательно, на чем сделан акцент !

Zhekson (2008-11-05 16:36:00) [11]
Сергей М. © (05.11.08 16:26) [26]

если сделан акцент на то, что в rc я прописал CURSOR1, а в программе вызываю CURSOR_1, то я исправился в следующем сообщении.

Сергей М. (2008-11-05 16:26:00) [12]

> Zhekson

MYCUR 21 C:\WINDOWS\CURSORS\METRONOM.ANI

procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors[1] := LoadCursor(HInstance, 'MYCUR');
Screen.Cursor := 1;
end;

Anatoly Podgoretsky (2008-11-05 16:24:00) [13]
Из FAQ Ищкдфтв

The following is an example of a Delphi form that uses an animated cursor:

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;

Zhekson (2008-11-05 16:19:00) [14]
Leonid Troyanovsky © (05.11.08 16:10) [23]

rc файл в студии [19]:
Cursors.rs
CURSOR1 ANICURSOR E:\Soft\Borland\Delphi7\Projects\interfer\cross_i.cur
CURSOR2 ANICURSOR E:\Soft\Borland\Delphi7\Projects\interfer\cross_il.cur

сейчас создал RES файл с однм, самым неанимированным курсором, объявил его как CURSOR и "картинка ожила". Сейчас проверю все курсоры на анимированность и пообъявляю соответственно.

Leonid Troyanovsky (2008-11-05 16:10:00) [15]

> Zhekson (05.11.08 16:06) [22]

> брррррррррррррр...

Ты не брыкай, а объясняй толком.
Вот за это, IMHO, тебя и критикуют.

rc файл - в студию, файл курсора - на файлообменник.

--
Regards, LVT.

Zhekson (2008-11-05 16:06:00) [16]
Leonid Troyanovsky © (05.11.08 16:00) [21]

брррррррррррррр...

т.к. загрузка этого курсора спокойно производится из файла:
Screen.Cursors[crMyCursor] := LoadCursorFromFile(PChar(cur));

Тогда встаёт другой вопрос, а анимированные ли у меня курсоры??? По идее да, т.к. некоторые имеют свойство переливаться, плюс они запаковываются в RES файлы только как ANICURSOR.

Leonid Troyanovsky (2008-11-05 16:00:00) [17]

> Zhekson (05.11.08 15:54) [19]

> неанимированные сурсоры, используемые по такой же технологии,
> подключаются без проблем. В чём можт быть причина???

А чего, Screen.Cursors обязан понимать анимированные курсоры?

--
Regards, LVT.

Zhekson (2008-11-05 15:56:00) [18]
сорри

CURSOR _1ANICURSOR E:\Soft\Borland\Delphi7\Projects\interfer\cross_i.cur
CURSOR _2ANICURSOR E:\Soft\Borland\Delphi7\Projects\interfer\cross_il.cur

Zhekson (2008-11-05 15:54:00) [19]
Анатолий, видать и к 10_тому не объяснил, т.к. сейчас нарисовалась новая проблема. Ресурсный файл создаётся, подключается, но курсор, почему-то, не меняется в программе.

делаю так:

Cursors.rs
CURSOR1 ANICURSOR E:\Soft\Borland\Delphi7\Projects\interfer\cross_i.cur
CURSOR2 ANICURSOR E:\Soft\Borland\Delphi7\Projects\interfer\cross_il.cur

brcc32.exe Cursors.rs => Cursors.res

{$R Cursors.res}

procedure TForm1.FormCreate(Sender: TObject);
begin

Screen.Cursors[1] := LoadCursor(HInstance,'CURSOR_1');
Screen.Cursors[2] := LoadCursor(HInstance,'CURSOR_2');

end;

проверка:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if X < 400 then Cursor := 1 else Cursor := 2;
end;

неанимированные сурсоры, используемые по такой же технологии, подключаются без проблем. В чём можт быть причина???

Zhekson (2008-11-05 14:03:00) [20]
Сергей М. © (05.11.08 13:09) [16]
спасибо.

Anatoly Podgoretsky © (05.11.08 13:16) [17]

> Суть сумел объяснить только к 10 сообщению.

Непредвзятые люди думаю разберутся, к какому сообщению была понятна суть.

А вообще, уже становится совсем непонятно, что вы мне пытаетесь доказать???)))

Страницы: 1 2 >

Наверх

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