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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_MAURICIO)