Discussion :

[SmileSoft]

salut

dans mon application je fait appel à des fonctions qui reçoivent que des images carrées comme paramètres, je veux un moyen pour que je redimensionne en carrée l'image au chargement, si elle est de taille quelconque.

est ce que vous pouvez m'aider là-dessus?

merci d'avance

[jehrikhan]

Ca dépend de quelle façon tu stockes tes images.

En supposant que tu les enregistre dans un TBitmap il suffit d'accéder aux paramètres Width et Height du TBitmap.

Si ce n'est pas ça, il faudrait voir a être plus précis :p
Et avec un ptit bout de code ça serait bonheur

[SmileSoft]

merci jehrikhan,

c'est résolu, je voila ce que j'ai fait pour tester:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(OpenPictureDialog1->Execute())
 
Image1->Picture->Bitmap->LoadFromFile(OpenPictureDialog1->FileName);
Image1->Width=Image1->Picture->Width;
Image1->Height=Image1->Picture->Height;
Edit1->Text=IntToStr(Image1->Picture->Bitmap->Height);// juste pour voir la hauteur avant tronsformation
Edit2->Text=IntToStr(Image1->Picture->Bitmap->Width);  //juste pour voir la largeur avant tronsformation
ShowMessage("cliquer sur ok pour redimesionner l'image en carrée  ");
Image1->Picture->Bitmap->Width=Image1->Picture->Bitmap->Height;   // tronsformation
Image1->Picture->SaveToFile("C:\\car.bmp");      // enregistrement
Image2->Picture->Bitmap->LoadFromFile("C:\\car.bmp");
 // verifier que l'image a bien été redimensionnée
Edit1->Text=IntToStr(Image2->Picture->Bitmap->Height);
Edit2->Text=IntToStr(Image2->Picture->Bitmap->Width);