Discussion :

[atum25]

Bonjour,

Je réalise une application, permettant d'administrer ma Base de donnée.
J'éssai de regler la taille de mes colonnes de mon DbGrid.
Car pour l'instant, elles sont beaucoup trop grande .

Code :

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

1
2
3
4
5
6
7
    DBGrid1->Columns->Items[0]->Width = 10;
         DBGrid2->Columns->Items[0]->Width = 10;
        for (int i = 1; i < DBGrid1->Columns->Count; i++)
        {
                DBGrid1->Columns->Items[i]->Width = 50;
                DBGrid2->Columns->Items[i]->Width = 50;
        }

Mais cela ne fonctionne pas .
Si quelqu'un a une idée!!
Merci

[Guyt54]

t'aurais eu plus de chance d'avoir une réponse si tu avais posé la question sur le forum de builder c++, mais voilà une réponse qui sort directement des notes de cours que je donne à ms étudiants.

Lorsqu'on affiche le contenu d'une table ou d'une requête SQL dans un DBGrid, on désire souvent avoir un meilleur contrôle sur la façon dont un champ est affichée, comme par exemple, sa visibilité, son étiquette (par défaut, le nom du champ), sa largeur etc.

Pour y arriver, on pourra utiliser la méthode "FieldByName" du DataSet (un TTable ou un TQuery), qui renvoie un pointeur à un TField. Évidemment, le "DataSet" doit être actif.

exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
void TfrmProjectManager::GetProjectsTable(void)
{
  AnsiString cmd ;
 
  cmd = "SELECT Name,DateCreated,DateModified,DateRead,Description "
        " FROM projects" ;  
 
  TSQL::Execute(sqlQuery,cmd,TSQL::RESULTS) ;
 
  sqlQuery->FieldByName("Name")->DisplayWidth  = 16 ;
  sqlQuery->FieldByName("Name")->OnGetText  = NameOnGetText ;
  sqlQuery->FieldByName("Description")->DisplayWidth = 48 ;
  sqlQuery->FieldByName("DateCreated")->DisplayLabel = "Created" ;
  sqlQuery->FieldByName("DateModified")->DisplayLabel = "Modified" ;
  sqlQuery->FieldByName("DateRead")->Visible = false ;
}
 
void __fastcall TfrmAdmin::NameGetText(TField* Sender, 
                                       AnsiString& Text,
								  bool DisplayText)
// Modification du texte associé au champ "Nom"
 
 {
	if (Sender->AsString.Length() >= 16)
     {
       Text.Delete(14,255) ;
       Text = Text + "..." ;
     }
 }