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"