1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,shellapi, ExtCtrls, Buttons, Menus, FileCtrl, ShlObj,
FonctionsChaine, ExtDlgs, jpeg;
type
TForm1 = class(TForm)
Panel1: TPanel;
Image1: TImage;
lbl_et3_specifiez: TLabel;
OpenDialog1: TOpenDialog;
cmd_et3_parcourir: TButton;
lblet1_parcourir: TLabel;
txt_et1_parcourir: TEdit;
cmd_et1_parcourir: TButton;
MainMenu1: TMainMenu;
Fichier1: TMenuItem;
Ouvriruneimage1: TMenuItem;
Enregistrerlimageredimensionne1: TMenuItem;
Fermerlimage1: TMenuItem;
Quitter1: TMenuItem;
Aide1: TMenuItem;
lbl_et2_dim: TLabel;
lbl_et2_logo: TLabel;
radio_logo1: TRadioButton;
radio_logo2: TRadioButton;
list_et2_dim: TComboBox;
Image2: TImage;
Image3: TImage;
Image5: TImage;
SavePictureDialog1: TSavePictureDialog;
Image4: TImage;
procedure FormCreate(Sender: TObject);
procedure TraiteMessage(var Msg: TMsg; var Handled: Boolean);
procedure DessineIcone(NomDuFichier:string);
procedure cmd_et3_parcourirClick(Sender: TObject);
procedure cmd_et1_parcourirClick(Sender: TObject);
procedure ResizeJpeg(srcJpeg, destJpeg: TJpegImage; const MaxSize: integer);
function type_img_OK(NomDuFichierStr:string): boolean; |
Partager