Discussion :

[matever01]

Bonjours à tous !
Je souhaite modifier l'apparence du curseur de la souris dans la fenêtre de mon application.
Mais je voudrais pouvoir lire ce nouveau curseur en provenance de ma ressource compilée avec Lazres.
J'imagine que l'accès se fait par la fonction LazarusResource.Find mais je ne sais pas m'en servir ..
Merci de votre aide.

[Clandestino]

La gestion des curseurs personnalisée semble bugguée sous lazarus (ou bien est très différente de ce qui se fait sous Delphi). Je ne réussi pas à utiliser autre chose que les curseurs prédéfinis par Lazarus...
Quand je change le curseur en cours par un curseur perso, ce dernier n'apparait pas...
Désolé de ne pas pouvoir t'aider...

[matever01]

Merci pour ta réponse Clandestino !
Toutefois, même si cette opération semble buggée,
je suis quand même très intérressé par la méthode que tu utilises pour modifier le curseur..
Merci.

[Clandestino]

voici un extrait de la definition des cuseurs dans l'unité controls fournie avec Lazarus:

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
// Cursor constants
  crHigh        = TCursor(0);
 
  crDefault     = TCursor(0);
  crNone        = TCursor(-1);
  crArrow       = TCursor(-2);
  crCross       = TCursor(-3);
  crIBeam       = TCursor(-4);
  crSize        = TCursor(-22);
  crSizeNESW    = TCursor(-6); // diagonal north east - south west
  crSizeNS      = TCursor(-7);
  crSizeNWSE    = TCursor(-8);
  crSizeWE      = TCursor(-9);
  crSizeNW      = TCursor(-23);
  crSizeN       = TCursor(-24);
  crSizeNE      = TCursor(-25);
  crSizeW       = TCursor(-26);
  crSizeE       = TCursor(-27);
  crSizeSW      = TCursor(-28);
  crSizeS       = TCursor(-29);
  crSizeSE      = TCursor(-30);
  crUpArrow     = TCursor(-10);
  crHourGlass   = TCursor(-11);
  crDrag        = TCursor(-12);
  crNoDrop      = TCursor(-13);
  crHSplit      = TCursor(-14);
  crVSplit      = TCursor(-15);
  crMultiDrag   = TCursor(-16);
  crSQLWait     = TCursor(-17);
  crNo          = TCursor(-18);
  crAppStart    = TCursor(-19);
  crHelp        = TCursor(-20);
  crHandPoint   = TCursor(-21);
  crSizeAll     = TCursor(-22);
 
  crLow         = TCursor(-30);

Pour changer le curseur du button2 en sablier par exemple il te suffit d'ecrire :

Code :

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

button2.Cursor := crHourGlass;

Tu peux faire des essais avec tous les curseurs ci dessus

Bonne programmation

[matever01]

Merci clandestino..
Pour ceux qui sont intéressés par le code quand même ..

Code :

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

1
2
3
4
5
6
7
 
Self.Cursor:=LoadCursorFromFile('le_chemin_du_fichier.cur');
{ou encore:}
Self.Cursor:=LoadCursorFromFile('.\le_nom_du_fichier.cur');
// '.\' représentant le répertoire en cours de l'application
{ou autre méthode:}
Self.Cursor:=LoadCursor(HInstance,PChar(LazarusResources.Find('Le_nom_correspondant_au_fichier_compilé_par_lazres').Name)

et là on peut bien voir que l'on ne voit rien
Mais bon, c'est pour allé jusqu'au bout.

Sur ce,

[Clandestino]

La version 0.9.22 de lazarus corrige ce bug et propose un exemple avec un curseur personnalisé...

le code utilisé (ici pour changer le curseur du button5) :

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[1] := LoadCursorFromLazarusResource('car');
  Button5.Cursor := 1;
end;

Bonne programmation