Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
33 - UTILISATION DE CURSEUR PERSONNALISÉS

PRÉSENTATION : Utilisation dans une application de curseurs stockés sous forme de fichier ou de ressource.
ZIP : Téléchargez le zip APERÇUS :

NOTES : Cette méthode est décrite dans l'aide en ligne de Delphi sur la propriété TScreen.Cursors.
Ce programme n'est qu'une démonstration de la méthode.

Les curseurs ajoutés peuvent être créés à partir de l'éditeur d'image de Delphi. Ce programme propose deux méthode de stockage des curseurs :
- La méthode à partir d'un fichier de ressource est préférable si les curseurs utilisés n'ont pas besoin de changer après l'écriture de l'application. Car le .RES étant intégré dans le fichier .EXE, il n'est pas necéssaire de garder les fichiers de curseurs pour la diffusion de l'application.
- La méthode à partir d'un fichier .CUR est utilisée, si l'utilisateur du programme peut changer un curseur après l'écriture de l'application. Par contre il ne faut pas oublier de diffuser les fichiers .CUR avec le .EXE.


CODE :
Unit Unit1;
// Ajouter un curseur personnalisé
//
// Par Nono40 : http://nono40.developpez.com   http://nono40.fr.st
//              mailTo:nono40@fr.st
//
// Cet exemple est directement inspiré de l'aide en ligne de Delphi
//
// Le 25/01/2002
//

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

Type
  TForm1 = Class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Procedure FormCreate(Sender: TObject);
  Private
    { Déclarations privées }
  Public
    { Déclarations publiques }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

// Pour définir de nouveaux curseur, il faut créer de nouvelles
// constantes qui permettent des les identifier
// La valeur des ces constante importent peu, mais elles
// doivent être supérieures à zéro.
Const
  crCurseur1=1;
  crCurseur2=2;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
// Pour les curseur stockés dans les ressoucres il faut créer un fichier
// de ressource avec l'éditeur d'images de Delphi, puis le lié avec
// la ligne ci-dessous.
  {$R Curseur1.Res}
// Le curseur est alors lu dans les ressources et ajouté à la liste des
// curseurs utilisables par l'application
  Screen.Cursors[crCurseur1] := LoadCursor(HInstance, 'CURSEUR1');
// Le curseur est utilisable comme ceux prédéfinis :
  Label1.Cursor := crCurseur1;

// Pour les curseurs stockés dans des fichiers .CUR, il suffit de lire
// le fichier et de l'ajouter dans la liste des curseurs
  Screen.Cursors[crCurseur2] := LoadCursorFromFile(PChar(ExtractFilePath(ParamStr(0))+'CURSEUR2.CUR'));
// Le curseur est utilisable comme ceux prédéfinis :
  Label2.Cursor := crCurseur2;
End;

End.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -