jeanjeandada
Messages postés152Date d'inscriptionlundi 21 avril 2008StatutMembreDernière intervention20 novembre 2011
-
31 oct. 2008 à 12:27
Nanou89 -
26 nov. 2013 à 16:42
Bonjour,
Je suis débutant sur Delphi mais j'ai regardé pas mal de tutorial...
Voici mon probléme :
Je souhaite afficher une image dans une zone Timage selon qu'aura sélectionner l'utilisateur dans la zone TRadioGroup
radiogroup1.itemIndex:=2;
Les images se trouvent dans un dossier "Images" dans l'exécutable....
var
chemin : string;
fichier : string;
begin
Case RadioGroup1.ItemIndex of
0 :
begin
//récupération du chemin de l'executable
chemin := ExtractFilePath( Application.ExeName ) ;
fichier := chemin + 'Images\' + IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ;
//test de l'existance du fichier
if FileExists( fichier ) then
begin
Image1.Picture.LoadFromFile( fichier ) ;
end ;
end;
1: showmessage('a');
End;
end;
................ il affiche bien le "a" quand je clique sur le bp n°2 mais lorsque je clique sur le bp n°1 QUE DALLE ..........
Pourtant le chemin du fichier est CORRECT;;;;
merci!
procedure TForm1.ButtonChargerImageClick(Sender: TObject);
var
ImgExt : string;
Jpeg: TJpegImage;
begin
if OpenPicture.Execute then
begin
//le traitement se fera d'après l'extension du fichier
ImgExt := LowerCase(ExtractFileExt(OpenPicture.FileName));
//Bitmap
if ImgExt = '.bmp' then
Image1.Picture.Bitmap.LoadFromFile(OpenPicture.FileName);
//Jpeg
if (ImgExt = '.jpg') or (ImgExt = '.jpeg') then
begin
Jpeg := TJpegImage.Create;
try
Jpeg.LoadFromFile(OpenPicture.FileName);
//copie de l'image du jpeg dans un bitmap
Image1.Picture.Bitmap.Assign(Jpeg);
finally
Jpeg.Free;
end;
end; {if (ImgExt = '.JPG') or (ImgExt = '.JPEG')}
//icones
if ImgExt = '.ico' then
Image1.Picture.Icon.LoadFromFile(OpenPicture.FileName);
//wmf et emf
if Pos(ImgExt, GraphicFileMask(TMetaFile)) <> 0 then
Image1.Picture.Metafile.LoadFromFile(OpenPicture.FileName);
//afficher le nom du fichier dans un espace restreint
LabelNomImage.caption := MinimizeName(OpenPicture.FileName,
LabelNomImage.Canvas,
LabelNomImage.Width);
end; {if OpenPicture.Execute}
end;
Bonjour, Ci-dessus tu trouvears le code complet pour ce que tu souhaites faire.