L'image du curseur n'est pas chargée

Version imprimable

Bonjour à tous,

Dans le même fichier Images.rc j'ai chargé un ensembles d'alias vers des images sprites(PNG)
qui sont retrouvées et ajoutées et des images cursors(CUR) qui ne sont pas chargées.
Pourquoi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
BCImageButton1.LoadFromBitmapResource('SpGraphe',RT_RCDATA) ; //L'image est chargée.
 
 Cur:= TCursorImage.Create;  //Cur:TCursorImage
 
  Cur.LoadFromResourceName(HINSTANCE,'BleuPapillon')
 
   Screen.Cursors[1]:= Cur.ReleaseHandle;
 
  Cur.Free;
  Image1.Cursor:=1; //L'image n'est pas chargée, avec message: [TCustomIcon.LoadFromResource] The resource ''BleuPapillon''
                               //was not found.

Citation:

Envoyé par FOCUS77

Code:

1
2
3
4
5
6
7
8
9
10
BCImageButton1.LoadFromBitmapResource('SpGraphe',RT_RCDATA) ; //L'image est chargée.
 
 Cur:= TCursorImage.Create;  //Cur:TCursorImage
 
  Cur.LoadFromResourceName(HINSTANCE,'BleuPapillon')
 
   Screen.Cursors[1]:= Cur.ReleaseHandle;
 
  Cur.Free;
  Image1.Cursor:=1; //L'image n'est pas chargée, avec message: [TCustomIcon.LoadFromResource] The resource ''BleuPapillon'' was not found.

Inverse les deux dernières lignes, comme ça :

Code:

1
2
  Image1.Cursor:=1;
  Cur.Free;

04/12/2017, 12h37
FOCUS77

Bonjour JP,

Effectivement je les ai inversées mais j'ai toujours le message d'erreur.

Citation:

Envoyé par FOCUS77

Effectivement je les ai inversées mais j'ai toujours le message d'erreur.

Donc le machin ne trouve pas la ressource :koi:

Voilà ce que j'utilise dans un projet fonctionnel :
Code:

1 2 3 4 5 6 7 8 crPointeur := TCursorImage.Create; try crPointeur.LoadFromResourceName(HInstance, 'grayviseur'); Screen.Cursors[1] := crPointeur.ReleaseHandle; image.Cursor := 1; finally FreeAndNil(crPointeur); end;
La seule différence que je vois, c'est que mon nom est tout en minuscules, et j'ai dans un coin de la tête un soupçon de vague vieux souvenir d'avoir souffert avec ces histoires de maj/min...
Essaye de passer tout le nom en MAJ ou en min, dans le code et dans la ressource.

04/12/2017, 14h04
FOCUS77

Bonsoir JP,

J'ai tous refais en minuscule mais le message persiste.
moi je pense qu'il faut modifier cette ligne:

Code:

bleupapillon RCDATA "bleupapi.CUR"
04/12/2017, 14h39
Jipété

Citation:

Envoyé par FOCUS77

Bonsoir JP,

J'ai tous refais en minuscule mais le message persiste.
moi je pense qu'il faut modifier cette ligne:

Code:

bleupapillon RCDATA "bleupapi.CUR"

Je ne sais pas, je passe la main, moi j'utilise un fichier .res.

Essaye quand même tout en majuscules (c'est comme ça dans mon fichier .res).
04/12/2017, 16h13
Jon Shannow

Citation:

Envoyé par FOCUS77

Bonsoir JP,

J'ai tous refais en minuscule mais le message persiste.
moi je pense qu'il faut modifier cette ligne:

Code:

bleupapillon RCDATA "bleupapi.CUR"

C'est pas plutôt

Citation:

bleupapillon CURSOR "bleupapi.CUR"

:koi:

1 pièce(s) jointe(s)

Salut essayes ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
implementation
 
{$R *.lfm}
{$R CURSORS.RES}
 
function LoadCursorFromRes(CursorName:String):THandle;
var
   Cur: TCursorImage;
begin
   Cur := TCursorImage.Create;
   Cur.LoadFromResourceName(HInstance,CursorName);
   result := Cur.ReleaseHandle;
   Cur.Free;
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crRotate]  := LoadCursorFromRes('ROTATE');
  Screen.Cursors[crZoom]    := LoadCursorFromRes('ZOOM');
  ect....
 
  Screen.Cursor := crRotate;
end;

A+

EDIT : Pour créer le fichier res j'utilise XN Res Editor https://stefansundin.github.io/xn_resource_editor/

Pièce jointe 332456

Bonsoir à tous

Désolé Messieurs j'ai tout essayé mais il y a toujours un message d'erreur qui revient.
Ce que je ne comprends pas trop, c'est pourquoi avec la liaison dynamique des images, il n'y a pas d'erreur 8O.

Voilà le code d'origine qui contient 4 curseurs, 2 papillons et 2 coccinelles.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
procedure TAccueil.FormCreate(Sender: TObject);
 var Cur1,Cur2: TCursorImage; C,P:Boolean;
begin
 
  Cur1:= TCursorImage.Create;  Cur2:= TCursorImage.Create; C:=True; P:=True;
   if Trunc(Date) mod 2=0 then
  try
  Cur1.LoadFromFile('images\Curseurs\BleuPapi.CUR')
  except
  try
  Cur1.LoadFromFile('images\Curseurs\JaunePapi.CUR');
  except
  P:=False;
  end;
  end
 
  else
  try
  Cur1.LoadFromFile('images\Curseurs\JaunePapi.CUR')
  except
  try
  Cur1.LoadFromFile('images\Curseurs\BleuPapi.CUR');
  except
  P:=False;
 
  end;
  end;
  Screen.Cursors[1]:= Cur1.ReleaseHandle;
  Cur1.Free;
 if P=True then
  Image1.Cursor:=1;
 
  if Trunc(Date) mod 2=0 then
  try
  Cur2.LoadFromFile('images\Curseurs\JauneCocci.CUR')
  except
  try
  Cur2.LoadFromFile('images\Curseurs\RougeCocci.CUR');
  except
  C:=False;
  end;
  end
 
  else
  try
  Cur2.LoadFromFile('images\Curseurs\RougeCocci.CUR')
  except
  try
  Cur2.LoadFromFile('images\Curseurs\JauneCocci.CUR');
  except
  C:=False;
  end;
  end;
  Screen.Cursors[2] := Cur2.ReleaseHandle;
  Cur2.Free;
  if C=True then
  begin
   BCImageButton1.Cursor:=2; BCImageButton2.Cursor:=2; BCImageButton3.Cursor:=2;
   BCImageButton4.Cursor:=2; BCImageButton5.Cursor:=2; BCImageButton6.Cursor:=2;
  end;
  end;

05/12/2017, 00h04
BeanzMaster

Un truc bête mais Screen.Cursors[1] n'est t-il pas déjà utilisé ? . As-tu essayé comme dans mon exemple

Code:

Screen.Cursor[crPapillon] := Cur1.ReleaseHandle;

Laisse tomber je viens d'écrire une bêtise, il faut que j'aille me coucher :oops:
05/12/2017, 08h50
Jon Shannow

Pourquoi ne pas utiliser directement

Citation:

Screen.Cursors[1].LoadFromFile('moncurseur.cur')
05/12/2017, 11h57
ThWilliam

Bonjour.

Deux façons d'ajouter des curseurs personnalisés :
1) utiliser un fichier .LRS avec l'utilitaire LAZRES : consulte la FAQ
https://lazarus.developpez.com/faq/?...-personnalises

2) utiliser un fichier .RES (c'est la solution "moderne" depuis que Lazarus dédaigne les LRS).
Ce fichier peut être créé avec un logiciel spécialisé (comme mentionné ci-dessus) OU tout simplement par LAZRES :
Sous Windows, je crée un batch file (mycursors.bat) dans le répertoire des curseurs.
Syntaxe ultra simple :

c:\lazarus\tools\lazres mycursors.res bleupapi.cur jaunepapi.cur
ou en donnant un nom à la ressource :
c:\lazarus\tools\lazres mycursors.res bleupapi.cur=BPAP jaunepapi.cur=JPAP

L'exécution du fichier .bat donne le fichier mycursors.res que tu déplaces dans le répertoire de ton application.
Mycursors.res doit être mentionné au début de la section implémentation : {$R Mycursors.res }

Ta procédure avec un TCursorImage est bonne :

Code:

Cur.LoadFromResourceName(HINSTANCE,'bleupapi')

ou

Code:

Cur.LoadFromResourceName(HINSTANCE, 'BPAP')

Cordialement
Thierry
05/12/2017, 17h19
FOCUS77

1 pièce(s) jointe(s)

Bonsoir à tous

@ ThWilliam
merci pour votre réponse qui m'a presque résolu le problème.

a l'exécution de projet 'ProjCursors' il ya création d'un fichier 'ProjCursors.res' identique au fichier 'MyCursors.res' :calim2:
et un message d'erreur:
Pièce jointe 332739

avez vous des explications?
05/12/2017, 18h15
ThWilliam

Fais-tu encore référence à ton fichier RC ?
Si oui : as-tu supprimé dans ton fichier RC les lignes relatives aux curseurs ?
Sinon, il y a duplication de ressources à charger. (RC + mycursors.res)

Supprime aussi dans le sous-répertoire LIB de ton projet un éventuel fichier RES.
Recompile par Exécuter/Créer.
Cela devrait marcher.

Cordialement
Thierry
05/12/2017, 20h05
FOCUS77

1 pièce(s) jointe(s)

Bonsoir Thierry

Enfin j'ai refais l'exemple pas à pas et sans aucune difficulté j'ai réussi à l'exécuter.
le message d'erreur précédent apparaît quand l'exécutable ne trouve pas le fichier RES
car le fichier bat n'arrivait pas à le générer pour une erreur de frappe probablement 8O.

merci Thierry.

voici une petite démo pour les membres intéressés.Pièce jointe 333610

1 pièce(s) jointe(s)

Bonjour à tous,

Citation:

Envoyé par ThWilliam

Deux façons d'ajouter des curseurs personnalisés :
1) utiliser un fichier .LRS avec l'utilitaire LAZRES : consulte la FAQ
https://lazarus.developpez.com/faq/?...-personnalises

2) utiliser un fichier .RES (c'est la solution "moderne" depuis que Lazarus dédaigne les LRS).
Ce fichier peut être créé avec un logiciel spécialisé (comme mentionné ci-dessus) OU tout simplement par LAZRES :
Sous Windows, je crée un batch file (mycursors.bat) dans le répertoire des curseurs.
Syntaxe ultra simple :

c:\lazarus\tools\lazres mycursors.res bleupapi.cur jaunepapi.cur
ou en donnant un nom à la ressource :
c:\lazarus\tools\lazres mycursors.res bleupapi.cur=BPAP jaunepapi.cur=JPAP

L'exécution du fichier .bat donne le fichier mycursors.res que tu déplaces dans le répertoire de ton application.
Mycursors.res doit être mentionné au début de la section implémentation : {$R Mycursors.res }

Cordialement
Thierry

3) Depuis les "Options du projet/ressources", c'est encore plus simple.8-)
Fig:
Pièce jointe 365264
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.FormCreate(Sender: TObject); var cur:TCursorImage; begin BCImageButton1.LoadFromBitmapResource('SPRITEIMP') ; //sprite image BGRASpriteAnimation1.LoadFromResourceName(HINSTANCE,'GIFCAFE'); //gif image Cur:= TCursorImage.Create ; Cur.LoadFromResourceName(HINSTANCE,'CURPAPI'); //cursor image screen.Cursors[1]:=Cur.ReleaseHandle; panel1.Cursor:=1; end;