Discussion :

[JJJJJ]

Bonjour,

bien que pratiquant Delphi depuis longtemps, je n'ai que des connaissances superficielles.
J'utilise des curseurs personnels d'une première façon, avec LoadCursorFromFile (qui marche).
Mais je butte sur une seconde façon de faire avec LoadCursor(que je n'arrive pas à faire marcher, bien qu'ayant consulté plusieurs documentations).
Voici un exemple de mon code. Le premier curseur marche bien. Le second n'apparait pas. La resource stylo2.res a été crée avec l'éditeur de Delphi et est dans le même dossier que les autres resources (ainsi que stylo1.cur pour le premier curseur). Le compilateur ne signale pas d'erreur.
Merci beaucoup à qui pourrait me donner une piste pour trouver l'explication.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
const
  crCurseur1=1;
  crCurseur2=2;
implementation
{$R *.DFM}
{$R stylo2.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
     Screen.Cursors[crCurseur1] := LoadCursorFromFile(PChar(ExtractFilePath(ParamStr(0))+'stylo1.cur'));
     Shape1.cursor:=crCurseur1;     { Le curseur n°1 apparait bien }
     Screen.Cursors[crCurseur2] := LoadCursor(HInstance,'stylo2.res');
     Shape2.cursor:=crCurseur2;     { Le curseur n°2 n'apparait pas. A sa place, c'est le curseur par défaut qui apparait }
end;

[Laurent Dardenne]

Déjà si tu postais dans le forum Delphi Win32 (cf. PChar) ce serait plus mieux (pour toi)
Je déplace.

[Fabrice ROUXEL 1]

Bonjour


la ligne de code:

Code :

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

Screen.Cursors[crCurseur2] := LoadCursor(HInstance,'stylo2');

avec la chaine 'Stylo2' qui est le nom de ton curseur dans le fichier .Res.

Par contre, pour prendre en compte les changements, tu devras fermer puis réouvrir ton application.


Penses au Tag ou :delestage:
---

[JJJJJ]

Bonjour Fabrice ROUXEL 1

merci d'avoir pensé à mon problème et pour la réponse.
Malheureusement, cela ne marche pas. D'ailleurs, c'est la première syntaxe que j'avais essayée : LoadCursor(HInstance,'stylo2');
Ensuite, à tout hazard, j'avais essayé : LoadCursor(HInstance,'stylo2.res'); ce qui était resté lorsque j'ai copié le code pour le mettre sur le forum.
J'ai d'ailleurs fait beaucoup d'autres essais sans succès.
Je dois probablement faire une grossière erreur, peut-être à la création de la ressource, ou dans la liaison de telle sorte que le HInstance ne correspond pas ?

[Fabrice ROUXEL 1]

Bonjour

Au niveau du code tout est bon en remplaçant LoadCursor(HInstance,'stylo2.res'); par

Code :

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

LoadCursor(HInstance,'stylo2');

Sinon l'erreur se situe peut être au niveau de la localisation de la ressource
par exemple en admettant que la ressource est situé à la racine du disque c:\
Il faudra écrire :

Code :

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

{$R c:\stylo2.res}

Pour la création de la ressource, par exemple dans l'éditeur d'image du menu outil, on choisi Fichier->Nouvelle...->Ressources(.res)
Dans le treeview: clic droit nouveau... -> CURSEUR
tu renommes le curseur en STYLO2. Tu sauvegardes la ressource.Tu sauvegardes le projet, tu le fermes puis le réouvres.

Puis normalement ton curseur doit s'afficher.

Voila pour les explications détaillées.

Bon développement.

[JJJJJ]

Merci Fabrice ROUXEL 1

L'indication de fermer le projet, puis le rouvrir était essentielle pour commencer à comprendre où celà coinçait.