Utiliser curseurs personnels
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:
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
