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

**FOCUS77** · 04/12/2017, 11h40

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Jipété** · 04/12/2017, 12h25

Envoyé par FOCUS77

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**FOCUS77** · 04/12/2017, 12h37

Bonjour JP,

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

**Jipété** · 04/12/2017, 13h37

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**FOCUS77** · 04/12/2017, 14h04

Bonsoir JP,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bleupapillon RCDATA "bleupapi.CUR"

**Jipété** · 04/12/2017, 14h39

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

**Jon Shannow** · 04/12/2017, 16h13

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

bleupapillon RCDATA "bleupapi.CUR"

C'est pas plutôt

bleupapillon CURSOR "bleupapi.CUR"

**BeanzMaster** · 04/12/2017, 16h29

Salut essayes ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

Nom : 2017-12-04_163910.jpg
Affichages : 398
Taille : 65,0 Ko

Nom : 2017-12-04_163910.jpg
Affichages : 398
Taille : 65,0 Ko

**FOCUS77** · 04/12/2017, 18h23

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

.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**BeanzMaster** · 05/12/2017, 00h04

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part

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

Laisse tomber je viens d'écrire une bêtise, il faut que j'aille me coucher

**Jon Shannow** · 05/12/2017, 08h50

Pourquoi ne pas utiliser directement

Screen.Cursors[1].LoadFromFile('moncurseur.cur')

**ThWilliam** · 05/12/2017, 11h57

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Cur.LoadFromResourceName(HINSTANCE,'bleupapi')

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cur.LoadFromResourceName(HINSTANCE, 'BPAP')

Cordialement
Thierry

**FOCUS77** · 05/12/2017, 17h19

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'

et un message d'erreur:
Nom : cursors.png
Affichages : 258
Taille : 17,5 Ko

avez vous des explications?

**ThWilliam** · 05/12/2017, 18h15

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

**FOCUS77** · 05/12/2017, 20h05

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

.

merci Thierry.

voici une petite démo pour les membres intéressés.SpritesCursors.rar

**FOCUS77** · 28/03/2018, 12h21

Bonjour à tous,

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.

Fig:

Nom : ressources.png
Affichages : 269
Taille : 45,6 Ko

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

L'image du curseur n'est pas chargée [Lazarus]

Lazarus Pascal

Discussions similaires

Partager

Partager