Discussion :

[ero-sennin]

Bonsoir,

Je n'arrive pas à trouver l'information que je veux sur le forum, ni ailleurs. J'ai peut-être mal cherché

Ce que je voudrais faire, c'est forcer l'affichage de la ScrollBar Vertical du TListView afin que je puisse calculer correctement mes marges (c'est pour le design).
Je sais (si je ne me trompe pas) qu'il faut passer par un SendMessage mais comme je ne suis pas à l'aise avec ça, je ne sais pas par où ni comment chercher.

Si vous avez une solution, j'ai les yeux grands ouverts
Merci

[ShaiLeTroll]

Ben, comme c'est un composant Window, si ce n'est pas fourni en Delphi, il faut passer par une API Windows

Sinon, regarde si ListView.ClientWidth te donne une informations cohérentes, ou alors passe par GetSystemMetrics(SM_CXVSCROLL)

[ero-sennin]

Salut Shai

Ben, comme c'est un composant Window, si ce n'est pas fourni en Delphi, il faut passer par une API Windows

Sinon, regarde si ListView.ClientWidth te donne une informations cohérentes, ou alors passe par GetSystemMetrics(SM_CXVSCROLL)

Heu, ce que tu me donnes, c'est pour récupérer la taille de la ScrollBar(GetSystemMetrics(SM_CXVSCROLL)) Non ?
Quant au ListView.ClientWidth, c'est pour modifier sa taille

En fait, je vais expliquer un peu mieux mon soucis. J'ai un ListView qui accepte le Drag & Drop de l'explorateur Windows.
Je récupère mes fichiers et comme il y en a beaucoup, il me crée une ScrollBar Verticale pour que je puisse naviguer. Comme la ScrollBar vertical n'est pas visible dès le début, le ListView me crée également une ScrollBar horizontale...
Je sais pas si tu saisis un peu mieux la chose ... C'est pour ça que je veux "Forcer l'affichage de la ScrollBar Verticale du ListView".

Tiens d'ailleurs, tant que j'y suis, je n'arrive pas à faire pour que lorsque je fais un Drag & Drop, c'est mon ListView qui ne peut que recevoir les fichiers, et non la forme ... (Peut-être que ce n'est pas possible).

Voici le code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
//Gère les messages Windows de Drag and Drop ...
procedure TForm1.DroppedFiles(var msg: TWMDropFiles);
var
  i: integer;
  nombreDeFichiers: integer;
  nomDuFichier: string;
  tailleDuBuffer: integer;
  ListItem:TListItem;
begin
  { Ce gestionnaire de message est appelé lorsque l'utilisateur lâche un ou
    plusieurs fichiers sur la fenêtre. Nous devons commencer par récupérer
    le nombre de fichiers lâchés avant de les énumérer pour avoir leur nom.}
 
  // Récupération du nombre de fichiers déposés sur la fenêtre
  nombreDeFichiers:= DragQueryFile(msg.Drop, $FFFFFFFF, nil, 0);
 
  // Affichage des noms des fichiers dans un ListView
  tailleDuBuffer:= MAX_PATH;
  SetLength(nomDuFichier, tailleDuBuffer);
  for i:= 0 to nombreDeFichiers - 1 do
  begin
    DragQueryFile(msg.Drop, i, PChar(nomDuFichier), tailleDuBuffer);
    ListItem:=ListView1.Items.Add;
    ListItem.Caption:=ExtractFileName(nomDuFichier);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(self.Handle, True);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  DragAcceptFiles(self.Handle, false);
end;

Merci

[ShaiLeTroll]

Oh Drag & Drop venant de l'extérieur, je ne l'ai fait qu'avec une forme, une sorte de barre d'outil j'ai totalement oublié ... je n'ai même plus le code ...

En général, je laisse les barres libres, je prévois dans l'IDE la taille de la Barre, dans le 25 pixels au pire ...

Sinon, je fais une fonction qui recalcule la taille des colonnes en RunTime, et l'une d'entre-elle est sacrifié (souvent un libellé ou la dernière), et je la réduit pour que cela tienne sans barre horizontale, pour cela j'utilise la ClientWidth qui me donne la taille interne du composant donc SANS la Barre ... tu appeles cette fonction par exemple après une insertion ... ainsi cela ajuste automatiquement la taille des colonnes en RunTime ... maintenant, si il n'y aucune colonne a sacrifier, ben, tu choisis au pif l'une d'entre elle qui sera plus grande que nécessaire, et c'est celle-ci que tu réduiras à l'insertion

[ero-sennin]

Ah, j'avais pas du tout saisi ce raisonnement
En fait, j'ai résolu mon soucis.
Comme je n'ai qu'une colonne, dis redimensionne la colonne à la taille du ListView (ClientWidth). Merci de m'avoir sur la piste Shai

Pour le drag & drop, je pensais pas que ça serait difficile de trouver l'info
En fait, c'est dans le cas de plusieurs Drag & Drop ... Il me faudrait savoir qui prend les fichiers donc je suis obligé de faire en sorte que ça soit le composant qui accepte le truc et non la Form en entier

EDIT:
Pour le Drag & Drop, j'ai trouvé, il faut modifier qui accepte le Drag & Drop.
Ce n'est donc plus la Self (la Form) mais mon ListView, puis, il faut faire une procédure qui va traiter les messages de Drag & Drop ... qu'on affectera au OnMessage de l'Application ...

C'est top

[archonte]

Pour un TListView je n'ai pas d'idée , mais pour un TDBGrid j'ai trouvé cette réponse dans la FAQ

Code :

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

1
2
3
4
 
ShowScrollBar(DBGrid1.Handle, SB_BOTH, False);
ShowScrollBar(DBGrid1.Handle, SB_HORZ, False);
ShowScrollBar(DBGrid1.Handle, SB_VERT, False);

Je n'ai pas Delphi sous la main, mais peut-être que ça pourra t'aider ... ?