Discussion :

[FOCUS77]

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é]

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]

Bonjour JP,

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

[Jipété]

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]

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é]

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]

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]

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/

[FOCUS77]

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]

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]

Pourquoi ne pas utiliser directement

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

[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 :

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]

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:


avez vous des explications?

[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

[FOCUS77]

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]

Bonjour à tous,

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:

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;