Discussion :

[Clandestino]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...


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

[droggo]

Jeo,

Bien vu, et pratique, ce qui ne gâche rien.

merci.