[Lazarus][Source] Petit outil utile : XPM viewer

Vous avez certainement remarqué que lazarus utilise souvent des fichiers images au format XPM, format que windows ne sait pas visionner.

Voici comment fabriquer en quelques minutes un visualiseur de fichiers XPM...

1) Création de l'interface

Créez un nouveau projet / application.

Dans votre fiche ajoutez un TImage et modifiez le ainsi :

Align >> alClient
Autosize >> true
Center >> true

2) Un poil de code
Il faut gérer à la création de la fiche les paramètres passés (le nom de fichier à ouvrir notamment).
Pour ceci utiliser l'événement onCreate de votre fiche principale (onglet event page >> double click sur oncreate) et ajouter ce petit bout de code:
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.FormCreate(Sender: TObject); begin if paramcount>0 then try image1.Picture.LoadFromFile(paramstr(1)); Except on EInvalidGraphic do showmessage('Ce type d''images n''est pas supporté') end; end;
3) Integration dans windows
Compilez votre programme fraichement enregistré...
Allez chercher une image xpm avec votre explorateur windows (par exemple dans C:\lazarus\images) faites un click droit sur un des fichier xpm... pour choisir ouvrir...
Windows va vous proposer de trouver un programme adhoc sur le net, choisissez de selectionner vous meme le programme dans une liste.
dans la fenetre 'ouvrir avec' laissez coché l'option toujours utiliser ce programme....
Pointez sur votre xpmviewer.exe fraichement compilé à l'aide du bouton parcourir

Voilà, un double-click sur un xpm quelconque va vous permettre de le voir dans votre viewer maison...:mrgreen:

En PJ le code source d'un Viewer/convertisseur. J'ai juste ajouté un menu avec la possibilité d'ouvrir d'autres formats de fichiers, ou d'enregistrer vers d'autres format...
xpm vers (jpg, png ou bmp) et (jpg, png ou bmp)vers xpm

Dans l'espoir que ce micro programme pourra vous être utile

Clandestino