Discussion :

[Sky14b]

Bonjour,
Je voudrais savoir comment je peux faire pour que mon StringGrid composé de 6 colonnes prennent la totalité de la largeur d'écran?
http://prntscr.com/7678df
Comme vous pouvez le voir sur le lien de l'image, j'ai une 7ème colonne qui prend de la place pour rien et réduit donc la largeur des autres.
Merci,

[tourlourou]

Il faut fixer le nombre de colonnes à 6 (ColCount :=6) et pour que ces 6 colonnes utilisent la largeur, autant la fixer comme suit : ColWidth := Parent.ClientWidth div 6

[SergioMaster]

Bonjour,

déjà il faudrait savoir de quelle version de Delphi il s'agit et si XE s'il s'agit de VCL ou FMX.

Si je regarde l'image écran j'ai envie de dire que c'est une grille FMX ? et si oui sur quel device(s) est-ce sensé être affiché ?

Tourlourou propose une version simple VCL , je rajouterai qu'il faut ôter la largeur de la scrollbar verticale et des cadres de grille et largeur de séparation de colonnes, pas la peine d'avoir un scrollbar horizontal à cause du calcul
malheureusement la version FMX d'une grille n'a pas la propriété colwidth

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
// version FMX testé avec 2 colonnes
procedure TForm3.FormResize(Sender: TObject);
var
  i: Integer;
 colwidth : integer;
begin
//colwidth:=(clientwidth-21) div grd.Columncount;  // (21 environ = largeur scrollbar verticale (18) + 3 traits verticaux = columncount+1 )
colwidth:=(round(grd.width)-21) div grd.Columncount; // prend en compte les marges
for i := 0 to grd.ColumnCount-1 do
  begin
    grd.Columns[i].Width:=colwidth;
  end;
end;

reste que ce 21 est trop "constant", ici pour windows8, il faudrait en faire un calcul plus précis qui doit dépendre des plateformes pour ce qui est de la scrollbar verticale et de la propriété Options.ColLines pour les ligne verticales sans parler des marges (utilisation de grd.width à la place de clientwidth) et du style appliqué ( scrollbarstyle.vtrack.width ou miniscrollbarstyle.vtrack.width)

[anapurna]

salut

pour récupérer la taille du verticale scrollbar en pixel

Code :

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

GetSystemMetrics(SM_CXVSCROLL)

pour la largeur des bordures

Code :

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

GetSystemMetrics(SM_CXBORDER);

auquel il ne faut pas oublié de soustraire aussi la taille de la colonne "indicator" si
tu as positionné dgindicator dans les options de ton stringGrid

[SergioMaster]

Re,
Restons pointus, les quelques messages de Sky14b ont surtout été à propos d'application Androïd or GetSystemMetrics est une fonction Windows (sauf erreur de ma part)

[anapurna]

bonjour,

effectivement ma réponse est pour l'os Windows je suppose qu'il doit exister le pendant pour iPhone et/ou Android