Largeur de colonnes StringGrid

Version imprimable

17/05/2015, 15h05
Sky14b

Largeur de colonnes StringGrid

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,
17/05/2015, 15h44
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

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:

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)

18/05/2015, 11h50
anapurna

salut

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

Code:

GetSystemMetrics(SM_CXVSCROLL)

pour la largeur des bordures

Code:

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
18/05/2015, 14h41
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)
18/05/2015, 17h41
anapurna

bonjour,

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

Bonjour,

il m'a fallu beaucoup de temps et patience pour obtenir la taille (largeur) de la barre de défilement verticale de manière indépendante. Après beaucoup de tâtonnements la réponse est si simple que j'en suis tout honteux

démarche
il m'a d'abord fallu aller dans les styles (édition du style par défaut) pour retrouver le nom à chercher
(pas facile quand on sait que j'avais voulu voir le rendu de différents OS, merci XE8, du coup j'avais 4 gridStyle dans mon stylecontainer !)
ensuite il m'a fallu comprendre comment chercher FindStyleResource , et quoi chercher vscrollbar (un élément de gridstyle.backgroud) et son type TTrack

voici (enfin) la réponse :
Code:

1 2 3 4 5 6 7 8 var T : TTrack; largeurVBar : Single; begin T:=TTrack(Grid.FindStyleResource('vscrollbar')); largeurVBar:=T.width; // ou encore plus simplement // largeurVBar:=TTrack(Grid.FindStyleResource('vscrollbar')).width; end;
ceci bien sur pour les rendus Desktop , je pense qu'il faut utiliser la ressource de style vsmallscrollbar autrement << A CONFIRMER
ce qui donnerait quelque chose de ce genre (je ne suis pas très à l'aise avec les directives si quelqu'un avait la bonté de faire mieux)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 function LargeurScrollBarVerticale(Grille : TGrid) : single; begin {$IFDEF MSWINDOWS} result:=TTrack(Grille.FindStyleResource('vscrollbar')).width; {$ELSEIF} {$IFDEF MACOS} result:=TTrack(Grille.FindStyleResource('vscrollbar')).width; {$ELSEIF} result:=TTrack(Grille.FindStyleResource('vsmallscrollbar')).width; {$ENDIF MACOS} {$ENDIF MSWINDOWS} end;
cette astuce (après optimisation des directives) pourrait peut être être l'objet d'une petite FAQ ?

salut

cela fonctionne uniquement pour les appli firemonkey je suppose ?

sinon ton code je le verrai plus comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
function LargeurScrollBarVerticale(Grille : TGrid) : single;
var 
  TrackObj : TFmxObject;
begin
  result:=-1;
  {$IFDEF MSWINDOWS}
     TrackObj:=Grille.FindStyleResource('vscrollbar');
  {$ELSEIF}
     {$IFDEF MACOS}
         TrackObj:=Grille.FindStyleResource('vscrollbar');
     {$ELSEIF}
        TrackObj:=Grille.FindStyleResource('vsmallscrollbar');
     {$ENDIF MACOS}
  {$ENDIF MSWINDOWS}
  if assigned(TrackObj) Then
    if TrackObj is TTrack then 
      result:= (TrackObj as TTrack).width
end;

Citation:

Envoyé par anapurna

cela fonctionne uniquement pour les appli firemonkey je suppose ?

oui

Citation:

sinon ton code je le verrai plus comme ceci ...

je ne suis pas sur qu'il y ait besoin de faire les tests
Code:

1 2 if assigned(TrackObj) Then if TrackObj is TTrack then
on peut aussi aborder différemment
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 function LargeurScrollBarVerticale(Grille : TGrid) : single; var nomScrollBar : String; begin result:=-1; {$IFDEF MSWINDOWS} nomScrollBar:='vscrollbar'; {$ELSEIF} {$IFDEF MACOS} nomScrollbar:='vscrollbar'; {$ELSEIF} nomScrollBar:='vsmallscrollbar'; {$ENDIF MACOS} {$ENDIF MSWINDOWS} result:= TTrack(Grille.FindStyleResource(nomScrollBar).width; end;
en fait c'est plutôt la structure des directives qui me gêne (pas très joli ;)) et la pertinence/utilisation de la mini scrollbar dont je ne suis pas sur à 100% :
- si pas de style chargé , donc utilisation du style par défaut plateforme, je pense que c'est ok
- si un style est chargé je n'en suis pas sûr

19/05/2015, 12h11
anapurna

salut

avec l’expérience on devient jamais trop prudent ;)

le trans-typage direct d'un objet est sympa mais cela ne te protège pas des erreur
et je préfère tout contrôler cela évite de me retrouver avec une grosse erreur du genre transtypage impossible dans un exécutable en production après c'est un choix
ou alors tu l'encadre dans un try ecxept