Ressource *.lsr et fichier *.cur

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.

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...

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..8O
Merci. :bug: :mrgreen:

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

Code:

---

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:

---

button2.Cursor := crHourGlass;

---

Tu peux faire des essais avec tous les curseurs ci dessus

Bonne programmation

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

Code:

---

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 :bravo:
Mais bon, c'est pour allé jusqu'au bout. :mur:

Sur ce, :zzz:

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:

---

1 2 3 4 5

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

---

Bonne programmation

Super ! :king:
Je vais de ce pas télécharger cette dernière mouture !!
Dès que j'aurai fini une autre application, je déposerai un exemple sur la gestion des ressources Wav, Cur et BMP.
Ainsi, je pourrais peut-être obtenir des critiques sur ma programmation. :mrgreen:
Cordialement,
Mat.

Citation:

---

Envoyé par 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) :procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1] := LoadCursorFromLazarusResource('car');
Button5.Cursor := 1;
end;

---

Je barre car ces 2 malheureuses lignes toutes seules ne fonctionnent plus (sous Linux Debian 32 bits -- sous Windows peut-être, pas testé).

Pour fonctionner, il en faut un peu plus :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.FormCreate(Sender: TObject); var crPointeur: TCursorImage; begin crPointeur := TCursorImage.Create; crPointeur.LoadFromResourceName(HInstance, 'CAR'); crPointeur.SetCenterHotSpot; Screen.Cursors[1] := crPointeur.ReleaseHandle; crPointeur.Free; Image1.Cursor := 1; end;

---