Скачать: CL | DM;

свой курсор   Найти похожие ветки 

← →
Гость2   (2005-12-09 17:18) [0]

Вот такой вопрос, все кажись элементарно, но у меня не работает :(
Я создал курсор в файле ресурса Project1.res назвал его myCursor1
и подключаю его, а он не  подключается, в чем может быть проблема?

implementation

{$R *.dfm}

const
curMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[curMyCursor] := LoadCursor(HInstance, "myCursor1");
imgSkrol.Cursor := 1;
.
.
.

---

← →
Чапаев ©   (2005-12-09 17:25) [1]

> Я создал курсор в файле ресурса Project1.res

Никогда не лезь в ресурсный файл проекта. Создай свой rc/res с курсором и уж его подключай.

---

← →
Гость2   (2005-12-09 17:51) [2]

ок, попробую так

---

← →
Гость2   (2005-12-09 22:12) [3]

создал файл MyRes.res с курсором Cursor1

implementation

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

const
curMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[curMyCursor] := LoadCursor(HInstance, "Cursor1");
imgSkrol.Cursor := curMyCursor;
.
.
.

Все равно не работает :(
Что не так?

---

← →
Джо ©   (2005-12-10 03:43) [4]

Посмотри, что возвращает функция LoadCursor.

---

← →
Джо ©   (2005-12-10 03:46) [5]

Т.е, в таких случаях делают что-то вроде
var
 Cursor: THandle;
...
 Cursor := LoadCursor(HInstance,"Cursor1");
 if Cursor = 0 then
   RaiseLastOSError;
 Screen.Cursors[crCursor1] := Cursor;

И ВСЕГДА смотри в раздел Return Value в описании ЛЮБОЙ функции.

---

← →
Гость2   (2005-12-11 00:34) [6]

выдает ошибку :(

Указаный тип ресурса в файле образа отсутствцет

Это что означает и как с этим бороться?

---

← →
Джо ©   (2005-12-11 01:46) [7]

Как что значит? Именно то и значит, что ресурса с таким именем и таким типом в ресурсах не найдено.
Перепроверь имя ресурса, может где-то опечатался. Убедись, что в файле ресурсов он именно CURSOR. И т.п. Ну что еще можно посоветовать дистанционно? тут только сам.

---

← →
Гость2   (2005-12-11 11:17) [8]

Да в том то и дело, что все четко, все совпадает, все имена и все названия

:(

может в этом какая-то  проблема

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

---

← →
Гость2   (2005-12-11 12:04) [9]

Ура, все работает. :)
Это оказался просто баг в Delphi.
Я установил только что Update и все заработало
Всем спасибо.
Тема закрыта

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.031 c