Delphipage

Présentation

Ce programme permet de visualiser des images JPEG.

Réalisation du programme

Tout d'abord, créez une nouvelle application.
Cliquez dans l'onglet Standard puis sur le composant RadioGroup et faites-le glisser dans la fiche.
Ensuite, cliquez deux fois rapidement dans la propriété Items de l'inspecteur d'objet.
Tapez dans la partie blanche ces lignes ci-dessous :

Normal
Moitié
Quart
Huitième

Validez l'opération en cliquant sur OK.
Placez la propriété ItemIndex de l'inspecteur d'objet à 3.
Faites glissez un composant DriveComboBox, DirectoryListBox, FileListBox et un composant Image.

On va rattacher les trois premiers composants ensemble.
Mettez la propriété FileList de l'inspecteur d'objet du composant DirectoryListBox à FileList Box1.
Mettez la propriété DirList de l'inspecteur d'objet du composant DriveComboBox à DirectoryListBox1.

On va maintenant commencer à écrire dans la source du projet.
Ajouter dans la source du projet, dans la partie Uses 'Jpeg'.
Ensuite, cliquez dans l'événement FileListBox1Change du composant FileList de l'inspecteur d'objet.
Puis, écrivez ces lignes :

if FileListbox1.ItemIndex>=0 then
begin
Image1.Picture.LoadFromFile(FileListBox1.FileName);
TJPEGImage(Image1.Picture.Graphic).Scale:=
TJPegScale(RadioGroup1.ItemIndex);
end;

Vous pouvez maintenant lancer le projet sous Delphi.

Source complète du programme

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Jpeg;

type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
FileListBox1: TFileListBox;
DriveComboBox1: TDriveComboBox;
Image1: TImage;
DirectoryListBox1: TDirectoryListBox;
procedure FileListBox1Change(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if FileListbox1.ItemIndex>=0 then //Si il y a un ou des fichiers
begin
Image1.Picture.LoadFromFile(FileListBox1.FileName); //Charge l'image
TJPEGImage(Image1.Picture.Graphic).Scale:=
TJPegScale(RadioGroup1.ItemIndex);//Redimensionne l'image
end;
end;

end.

Visionneuse Jpeg [ 12-12-2000 ]

Programme qui permet de lire et d'agrandir des images au format Jpeg.
Télécharger : [4 Ko] [ visionjpeg.zip]

Auteur : Yoann
Site internet : http://delphipage.free.fr/