Discussion :

[qi130]

Bonjour/bonsoir,

Je suis confronté à l'impossibilité de changer, dans le MouseEnter d'un dbimage, le curseur de la souris vers un curseur perso montrant 1 loupe...

Après consultation de la prose sur le sujet, je suis dans l'impasse

Le curseur apparait dans l'explorateur de projet:

(après usage de l'option Ressources et images du menu Projet)
Mais du coup, et contrairement à l'ancienne littérature, cette "resource" semble être obligatoirement dans le .RES du projet? Comment s'en assurer?

Le code n'a, a priori pas changé d'après ce que j'ai pu trouver:

Code :

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

1
2
3
4
5
6
7
8
9
10
{$R *.dfm}
const
  crMyCursor = 5;
 
 
procedure TfrmDive.FormCreate(Sender: TObject);
begin
     Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'IMGLOUPE');            // le nom est également en MAJ
     Cursor := crMyCursor;
end;

Pourtant, quand la souris est sur le DBimage, le curseur ne change pas:

Code :

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

1
2
3
4
procedure TfrmDive.DBImage1MouseEnter(Sender: TObject);
begin
     DBImage1.Cursor:=crMyCursor;
end;

Si je remplace crMyCursor par crNo, ça marche, laissant penser que le curseur n'est pas chargé...

Une idée?

[qi130]

Alors, après plusieurs dizaines de tentatives infructueuses, il semble que le format du .CUR soit en cause. Le PNG d'origine a été confié à un convertisseur en ligne, j'étais confiant

Pourtant, son chargement ne posait pas de problème...

Bref, direction ce site glané sur MS Community : Open Cursors Library (pas en HTTPS)

pardon du dérangement.

[XeGregory]

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Image1MouseEnter(Sender: TObject);
const
 ToolCur = 5;
begin
  Screen.Cursors[ToolCur] := LoadCursor(HInstance, 'Cursor_1'); {Res}
  Image1.Cursor := ToolCur;
end;