Utiliser curseurs personnels [FAQ]

**ThWilliam** · 17/10/2014, 12h03

Bonjour à tous.

N'ayant pas trouvé sur ce site une méthode claire pour intégrer ses propres curseurs dans un programme Lazarus, voici la marche à suivre.

Supposons que vous souhaitiez utiliser un curseur "pipette" et un curseur "pinceau".

Etape 1
Créez vos deux fichiers grâce à un logiciel éditeur de curseur (j'ai testé RealWorld Cursor Editor), ou téléchargez-les.
Placez les deux fichiers dans le répertoire de votre application.

Etape 2
Création d'un fichier ressources au moyen de l'utilitaire LazRes à lancer en ligne de commande.
La syntaxe est : <LazRes> <Nom du fichier ressources> <Nom du fichier.cur> <Autre fichier.cur>

Personnellement, sous Windows, je crée un fichier batch dans le répertoire de mon application.
Voici ce que contient ce fichier :
C:\lazarus\tools\lazres mycursors.lrs pipette.cur pinceau.cur

Etape 3
Le plus dur est fait.
Il suffit maintenant de créer le code pour charger les curseurs.

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
unit MyCursors;
 
{$mode objfpc}{$H+}
 
interface
 
uses
     Forms, Graphics, LResources;
 
const
     // vos constantes cursors
     CUR_PIPETTE = 1;
     CUR_PINCEAU = 2;
 
implementation
 
initialization
    {$I mycursors.lrs}
 
   Screen.Cursors[CUR_PIPETTE]:= LoadCursorFromLazarusResource('pipette');
   Screen.Cursors[CUR_PINCEAU]:= LoadCursorFromLazarusResource('pinceau');
 
end.

Utilisation : Panel1.Cursor:= CUR_PINCEAU;

Désolé pour le ton un peu pédagogue...

Si un rédacteur passe par ici et si ceci lui semble digne d'intérêt, libre à lui d'en faire un tutoriel, mais sous son nom, pcq je ne désire pas (encore) avoir le statut de rédacteur.

Cordialement
Thierry