Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 524 fois - Téléchargée 34 fois
// 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;
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.