Colonnes de dbgrid qui occupe tout l' espace disponible (version ameliorée)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 460 fois - Téléchargée 34 fois

Contenu du snippet

Cette fonction permet d'avoir vos colonnes de DBGrid qui occupe tout l' espace disponible quand par exemple l' utilisateur redimensionne votre TForm et que la taille de la DBGrid change ... C' est tout con mais, j' espère que cela sera utile à plus d' un ...

Source / Exemple :


// Mettre ce code dans le OnResize votre Form:
DBGRID_AJUSTAR_COLUNAS(DBGrid1, 1, 10);

(C' est une fonction; donc facilement réutilisable)

// Declarer cette fonction :
   procedure DBGRID_AJUSTAR_COLUNAS(Grelha: TDBGrid; Coluna: Integer; MinWidth: Integer);
   var c, c_width, TamC: Integer;
   begin
      c_width := 2;  // Inicialisation

      for c := 0 To Grelha.Columns.Count - 1 do
        c_width := c_width + Grelha.Columns[c].Width + 1;  // On ajoute 1 pixel pour chaque colonne

      TamC := Grelha.Width
                - (Grelha.Width - Grelha.ClientWidth) // Bordures + scrollbars ...
                  - c_width + Grelha.Columns[Coluna].Width;

      If Grelha.Options + [dgIndicator] = Grelha.Options      // DBGrid avec Indicator ...
      Then TamC := TamC - DBGrids.IndicatorWidth;

      If TamC < MinWidth Then TamC := MinWidth;
      Grelha.Columns[Coluna].Width := TamC;
   end;

Conclusion :


Voilà, c' est ma première contribution au site.
Venez jeter un oeil sur mon programme du genre XCopy sur:
http://delphi-developer.planetaclix.pt

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2106
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
Merci Delphiprog, jete un oeil sur http://delphi-developer.planetacli.pt: le site est en portugais mais tu y trouveras un programme de backup en demo. Tu pourras toujours me dire ce que tu en penses ...
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
28
C'est une version allégée de celle déposée par Philippe RANDOUR sur le site Borland Developer's network à l'adresse : http://bdn.borland.com/article/0,1410,27548,00.html et intitulée "How to adjust TDBGrid column widths automatically " et qui prend le paramètrage de l'utilisateur en compte.
C'est utilisable dans d'autres circonstances que le redimensionnement de la fiche, ce qui confère un grand intérêt à ce morceau de code.
Pour une première contribution, c'est pas mal...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.