Tester dans un tpicture si l'image est au format gif

Commenter

Contenu du snippet

Pour ceux qui veulent créer un composant graphique et qui voudraient tester le type d'image Comme par exemple TICON,TMETAFILE et qui utilise les GIF

Source / Exemple : 


Var Fpicture : Tpicture;
Begin
// Synthase reconnu par DELPHI
if (FPicture.Graphic is TICON) or (Fpicture.graphic is TMETAFILE) Then
// Synthaxe non reconnu à la compilation
If FPicture.graphic is TGIFIMAGE then

//Pour que cela fonctionne et faut déclarer dans votre prog

Type TGIFIMAGE = Class(TGRAPHIC);

//Le fait de declarer ce type empeche d'avoir le message d'erreur à la compilation
//Undeclared identifier TGIFIMAGE

//Mais le test 
if Fpicture.graphic Is TGIFIMAGE then showmessage('C'est une image GIF');
//ne fonctionne pas donc ce test pour l'intant ne sert à rien

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_VERTY)