Redimensionner un composant du haut vers le bas

Pour un programme, j'ai besoin de redimensionner une image. Mais si j'utilise height (ou width) l'image se reduit du bas vers le haut. Je voudrais faire le contraire qu'elle se réduise du haut vers le bas comme si on redimensionnais le composant à la souris.
C'est pour faire un vu-mètre qui affiche le niveau de la musique du bas vers le haut. Ce sera peut être plus explicite dit comme cela.
J'ai réussi en utilisant un shape qui cache l'image. Mais, le résultat est moyen.

houla ... au vus de ce que tu dis, je me permet de te dire que toute ta technique de vus metre n'est pas au point.

regarde du coté de PaintBox, CopyRect, Draw ect... d'ailleur y'a pas mal de source ici qui montre l'exemple de comment dessiner en delphi.

ensuite je peu te dire, TImage c'est le contenant, en aucuns cas il ne devrait bouger, etre redimensionner pour cette utilisation.

si j'ai le temps je posterais mon mini-player base FMod, tu veras comment les vu-metres sont géré.
par contre comme c'etait un test le code doit etre degeu.

ah non pas tant que ça :

voici la fonction qui anim les vum :

var
  BMPVULEVEL : TBitmap;

procedure AnimVULevel(const LvL,LvR : integer);
var YL,YR : integer;
const
  VUL : TRect = (left:  6; top: 3; Right:12; bottom: 75);
  VUR : TRect = (left: 12; top: 3; Right:18; bottom: 75);
  VNO : TRect = (left:  0; top: 0; Right: 6; bottom: 72);
  VLG : TRect = (left:  6; top: 0; Right:12; bottom: 72);
  VPR = 72/100;
begin
  with form1.image1.Picture.Bitmap.Canvas do begin
       CopyRect(VUL, BMPVULEVEL.Canvas, VNO);
       CopyRect(VUR, BMPVULEVEL.Canvas, VNO);
       YL := max(72-round( VPR * LvL ),3);
       YR := max(72-round( VPR * LvR ),3);
       CopyRect(Rect(VUL.Left,YL,VUL.Right,VUL.Bottom),
                BMPVULEVEL.Canvas,
                Rect(VLG.Left,YL,VLG.Right,VLG.Bottom));
       CopyRect(Rect(VUR.Left,YR,VUR.Right,VUR.Bottom),
                BMPVULEVEL.Canvas,
                Rect(VLG.Left,YR,VLG.Right,VLG.Bottom));
  end;
end;

et a la creation de la fiche faut appeler AnimVuLevel(0,0);

bon par contre il te faudrat adapter le truc avec tes images.
   vulevel.bmp (a gauche vum eteint, a droite vum allumé)
  vuground.bmp (permet de placer deux vum L&R)
 
on charge vuground.bmp dans image1 et ensuite on crée dynamiquement BMPVULEVEL et on charge vulevel.bmp dedans.
rapide, simple, efficace.
voila les miennes.

---

Croc (click me)

Tu pourrais faire :

Image.Align := alBottom

J'ai encore un post de retard, mdr

decidement japee ... t'es fatigué non ?

---

Croc (click me)

Salut F0xi,

Quoi, fatigué, moi ?

En fait, j'ai souvent deux navigateurs ouverts, Firefox et Mozilla. Explication : je n'arrive pas à poster avec Firefox, Codes-Sources fait visiblement une allergie à ce navigateur.
Moi je continue à l'utiliser, par principe, car je suis un peu têtu...

Alors parfois, le temps que j'ouvre Mozilla... le débat a quelque peu avancé !

Salut,

@japee :
moi j'utilise FireFox et tout fonctionne (la notation, les postes, les MP ...)

le seul truc c'est quand je clique dans la zone de texte le curseur clignotant n'apparait pas de suite
seulement après le premier caractère tappé !

 
@+
Cirec

---

exact, Cirec... merci du tuyau* !

Néanmoins, les versions précédentes du site étaient plus compatibles avec Firefox.
Certains effets (comme l'ombrage sous les avatars) n'apparaissant que sous IE...
Mais moi, si on me prive de mes onglets, je suis perdu.
Et puis je suis contre toute hégémonie, qui débouche fatalement à terme sur le "choix imposé".
Il y a de la place pour tout le monde, que diable !

* posté avec Firefox, celui là, donc

@f0xi
Qu'est ce que la fonction max (enfin je crois que c'est une fonction). Je ne peut tester ton code si je ne sais pas à quoi cela correspond.

Max compare 2 valeurs numériques et retourne la plus élevée des 2.
Pour pouvoir l'utiliser, il faut ajouter Math dans les uses.
Sinon, quand tu connais pas un truc, par exemple "Max", tu mets en surbrillance dans l'éditeur d'objets, et tu appuies sur F1, en général, le résultat vaut vraiment le déplacement, lol...