Agrandir une liste de type ListView

Question

Bonjour,
 je souhaite développer un petit outil que lorsque l'on passe le curseur sur un objet de type TLISTVIEW, que l'on puisse agrandir cette liste de sélection au maximum pour avoir une vue d'ensemble de la sélection.

Si au besoin, de plus amples informations sur mon dvpmt, pas de problémes.

Si vous aviez une solution, car  urgence, je vous remercie de votre collaboration.

Guillemouze · Answer

un TSlider?

ou alors (en mettant les anchors necessaires) :

MaTListView.OnMouseMove = lvmm(MaTListView);

var
    maximizedLv: TListView;

procedure lvmm(lv: TListView);
begin
    if not maximizedLv = lv then
    begin
        maximizedLv := lv;
        mesAutresListView.height := HEIGHT_MINI;
    end;
end;

FFYLH · Answer

Merci Guillemouze de rapidité,
mais par contre, qu'est-ce que tu entends "en mettant les anchors"??? et un TSlider ???
Je suis allé dans la conception, me positionner sur la ListView, modifier l'événement : OnMouseMove ==> valeur ajoutée: ListViewPoleMouseMove, 
ce qui m'a généré une procédure dans le code suivant: (en gras), j'y ai inclus tes modifications et là, à la saisie, (tout ce qui est souligné est encorrecte)

procedure TF_Statistique.ListViewPoleMouseMove(Sender: TObject;
    Shift: TShiftState; X, Y: Integer);
  begin
    ListViewPole.OnMouseMove = lvmm(ListViewPole);
    var
        maximizedlv : TListView;
      procedure lvmm(lv: TlistView);
      begin
        if not maximizedlv = lv then
        begin
          maximizedlv :=  lv;
         // A la place de : MesAutresListView, j'ai remplacé par une autre ListView
           ListViewDisc height : = HEIGHT_MINI;
        end;
      end;
  end; 

Merci de ton aide.
Cordialement.

Guillemouze · Answer

ok, ce que je t'ai mis etait totalement incomplet, c'etait juste pour te donner une idee.
en fait, je peux pas vraiment t'aider sans savoir a quoi ressemble ta fenetre, et comment tu souhaite "agrandir" ta listview.

si tu pouvai m'envoyer ton .dfm et ton .pas, je pourrai certainement + t'aider

FFYLH · Answer

Ok, je veux te rnvoyer les 2 fichiers(.dfm et.pas) mais par contre comment les joindre pas d'options?
Merci de ton aide.

Agrandir une liste de type ListView

4 réponses

Votre réponse

Discussions similaires