Discussion :

[matika]

Bonjour je débute avec Builder. j'ai une Image dans mon appli et je voudrais pouvoir la faire agrandir lors d'un clic ou d'un passage de la souris.

Quel est le moyen le plus simple pour y parvenir? Merci pour vos réponses (un peu de code serait bienvenu).

[OliverSleep]

Salut,

Positionne la propriété "stretch" de ton composant Image à "true".
Utilise l'évènement "OnMouseMove" de ton composant image.
Dans cet évènement, modifie les valeurs de "Width" et "Height" de ton Image, en les agrandissant, ainsi ton image se verra agrandie.
Par contre, oublie pas de remodifier ces valeurs quand tu n'est plus au dessus de ton composant.

[kmaniche]

salut,
en complément à OliverSleep
si tu utilise la propriété Stretch = true, alors met AutoSize = false ;


voilà,

@+

[henderson]

Salut !

Tout dépend sans doute de l'effet à obtenir et il faudrait savoir ici si le cadre
de l'image est fixe ou non.

S'agit-il par exemple de représenter sous le curseur une zone agrandie comme
le ferait une loupe, par exemple dans un rayon autour de la position de la souris ?

Pour ces opérations graphiques, il vaut mieux, je pense, développer une class
dédiée en dérivant peut-être de TImage si on peut surcharger sa méthode Paint.
Sinon dériver de TCustomControl et travailler avec un Graphics::TBitmap pour
accélérer le dessin (et éviter les scintillements au cas où...) ou encore se servir de la form
selon que...

A plus !

[matika]

Merci pour vos réponses, par rapport à la loupe non je ne cherche pas à aller jusque la, j'ai bien compris pour la modification de la taille, c'est ça mon truc.

Je vais tester tout ça et je cloturerai des que je n'aurai plus de souci. Je suis optimiste ça m'as pas l'air trop compliqué, même pour moi !!!

Merci encore

[kmaniche]

Salut,
tu as les deux propriétés AutoSize et Stretech :

Pour Zoom +/-

Code :

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

1
2
3
4
5
 
Image1 -> AutoSize = false ;
Image1 -> Width = ZoomWidth ;
Image1 -> Height = ZoomHeight ;
Image1 -> Stretech = true ;

Pour la taille réelle

Code :

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

1
2
3
 
Image1 -> AutoSize = true ;
Image1 -> Stretech = false ;

Voilà,

@+

[fumidu]

Voici un bout de code qui résoud peut être ton pb :

Avec ce code, l'image est agrandie au premier clic, puis rappetissée au deuxième :

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
18
void __fastcall TForm1::Image1Click(TObject *Sender)
{
    int Width1 = 80;
    int Width2 = 160;
    int Height1 = 60;
    int Height2 = 120;
 
    if(Image1->Width == Width1)
    {
        Image1->Width = Width2;
        Image1->Height = Height2;
    }
    else
    {
        Image1->Width = Width1;
        Image1->Height = Height1;
    }
}

Avec ce bout de code, l'image est agrandie quand la souris passe dessus, puis rappetissée dès que la souris sort de l'image et revient sur la fiche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Image1->Width = 160;
    Image1->Height = 120;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    Image1->Width = 80;
    Image1->Height = 60;
}

J'ai mis des tailles fixes au hasard dans ces exemples, mais comme dit précédemment, tu peux aussi jouer avec les propriétés Stretch et AutoSize

[matika]

merci fumidu ça marche impeccable c'est tout ce qu'il me fallait