FAQ C++ BuilderConsultez toutes les FAQ

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
TColor CLTitre = clBtnFace, CLFond = clYellow, CLSelection = clRed; // Vos couleurs personnalisées. 
AnsiString s = StringGrid1->Cells[ACol][ARow]; // Texte de la cellule. 
if (ACol < StringGrid1->FixedCols || ARow < StringGrid1->FixedRows) { // Concerne les titres des lignes et des colonnes. 
StringGrid1->Canvas->Brush->Color = CLTitre; 
StringGrid1->Canvas->FillRect(Rect); // On dessine le fond de la cellule. 
StringGrid1->Canvas->Font->Style = StringGrid1->Canvas->Font->Style << fsBold; // On met les titres en gras. 
// On réaffiche le texte par dessus, car le FillRect l'a effacé. 
StringGrid1->Canvas->TextRect( 
      Rect, 
      (Rect.Right + Rect.Left - StringGrid1->Canvas->TextWidth(s)) / 2, 
      (Rect.Top + Rect.Bottom - StringGrid1->Canvas->TextHeight(s)) / 2, 
      s); 
// Le premier argument est le rectangle de rognage, les deux suivants permettent de centrer le texte dans la cellule. 
} 
else if (State.Contains(gdSelected)) { // Concerne la(les) cellule(s) sélectionnée(s). 
StringGrid1->Canvas->Brush->Color = CLSelection; 
StringGrid1->Canvas->FillRect(Rect); 
StringGrid1->Canvas->Font->Color = clWhite; // Le texte est écrit en blanc. 
StringGrid1->Canvas->TextRect(Rect, Rect.Left +1, Rect.Top + 1, s); // Ici texte justifié à gauche. 
} 
else { 
StringGrid1->Canvas->Brush->Color = CLFond; 
StringGrid1->Canvas->FillRect(Rect); 
StringGrid1->Canvas->TextRect(Rect, Rect.Left +1, Rect.Top + 1, s); 
}

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
#include <math.hpp> 
// A placer dans l'évènement OnDrawCell de votre TStringGrid. 
TMemo *Memo = new TMemo(this); 
Memo->Visible = false; 
Memo->Parent = this; 
Memo->Lines->Text = StringGrid1->Cells[ACol][ARow]; 
Memo->Width = StringGrid1->ColWidths[ACol]; 
int Cell_Height = Rect.Bottom - Rect.Top, Ligne_Nbr = Memo->Lines->Count; 
  
// Cette ligne  permet d'éviter le chevauchement des lignes si le texte est vraiment trop long pour la case. 
Ligne_Nbr = Min(Ligne_Nbr, (Rect.Bottom - Rect.Top) / StringGrid1->Canvas->TextHeight(" ") + 1); 
  
for (int i = 0 ; i < Ligne_Nbr ; i++)  
{ 
   TRect R = Rect; 
   AnsiString Text_i = Memo->Lines->Strings[i]; 
   R.Top = Rect.Top + i * Cell_Height / Ligne_Nbr; 
   R.Bottom = Rect.Top + (i + 1) * Cell_Height / Ligne_Nbr; 
   // Texte justifié "centré" 
   StringGrid1->Canvas->TextRect( 
         R, 
         (R.Right + R.Left - StringGrid1->Canvas->TextWidth(Text_i)) / 2, 
 (R.Top + R.Bottom - StringGrid1->Canvas->TextHeight(Text_i)) / 2, 
 Text_i); 
} 
delete Memo;

1
2
3
private:   // Déclarations de l'utilisateur 
   TWndMethod OldWindowProc; 
   void __fastcall DBGridNewWindowProc(TMessage &Msg);

1
2
OldWindowProc = DBGrid1->WindowProc; 
DBGrid1->WindowProc = DBGridNewWindowProc;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::DBGridNewWindowProc(TMessage &Msg) 
{ 
   if (Msg.Msg == WM_MOUSEWHEEL) 
   { 
      if (DBGrid1->DataSource->DataSet->Active) 
      { 
         if (short(Msg.WParamHi) < 0) 
         { 
            DBGrid1->DataSource->DataSet->Next(); 
         } 
         else 
         { 
            DBGrid1->DataSource->DataSet->Prior(); 
         } 
      } 
      return; 
   } 
   OldWindowProc(Msg); 
}

1
2
3
4
5
6
7
8
9
10
class TPublicStringGrid: public TCustomGrid 
{ 
    public: 
        using TCustomGrid::DeleteRow; 
        using TCustomGrid::DeleteColumn; 
}; 
// supprime la ligne n°2 (donc la troisième ligne, la première étant la ligne n°0) : 
((TPublicStringGrid*)StringGrid1)->DeleteRow(2); 
// supprime la deuxième colonne colonne n°1), la première étant la colonne n°0) : 
((TPublicStringGrid*)StringGrid1)->DeleteColumn(1);

1
2
3
4
Private:      
TStringGrid *pGrille; 
TStringList *pListeIndex; 
bool MultiSelect;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::FormCreate(TObject *Sender) 
{ 
    MultiSelect = false; 
    // On met la valeur de cette variable à 'faux' afin que le comportement  
    // par défaut de la grille soit 'normal' et qu'il faille appuyer sur la touche  
    // 'ctrl' pour simuler la sélection multiple 
} 
//----------------------------------------------------------------------- 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) 
{ 
    // On libère la mémoire allouée à l'objet TStringList si il a été crée 
    if(pListeIndex != NULL) 
        delete pListeIndex; 
}

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
31
32
33
34
void __fastcall TForm1::StringGridKeyDown(TObject *Sender, WORD &Key, 
      TShiftState Shift) 
{ 
    //Si la touche ctrl est enfoncée, on crée la liste pour stocker les index des lignes sélectionnées 
    if (Key == VK_CONTROL) 
    { 
        MultiSelect = true; 
        // on teste l'existance ou non d'un objet 'StringList', ainsi on ne redéclare  
        // pas inutilement des objets de ce type à chaque fois que la touche est pressée 
        if (pListeIndex == NULL) 
        { 
            pListeIndex = new TStringList(); 
            // ainsi la liste est créée et elle sera persistante tant que le 
            // bouton 'ctrl' est enfoncé. Cette liste va stocker les index des  
            // lignes sélectionnées en cliquant dans la stringgrid 
        } 
    } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::StringGridKeyUp(TObject *Sender, WORD &Key, 
      TShiftState Shift) 
{ 
    // Si la touche ctrl est relachée, on vide la liste supposée contenir les index des lignes selectionnées 
    if (Key == VK_CONTROL) 
    { 
        MultiSelect = false; 
        if (!pListeIndex == NULL) 
        { 
            pListeIndex->Clear(); 
            // la liste est vidée mais non détruite : l'objet de type 'TStringList'  
            // sera libérée au moment du OnClose de la form 
        } 
    } 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
void __fastcall TForm1::StringGridDrawCell(TObject *Sender, int ACol, 
      int ARow, TRect &Rect, TGridDrawState State) 
{ 
    pGrille = (TStringGrid* )Sender; 
    if (!pListeIndex == NULL) 
    { 
        // Si l'index de la ligne dessinée correspond à une ligne sélectionnée, on  
        // retrouve la valeur de son index dans la TStringList 
        if (pListeIndex->IndexOf(ARow)!= - 1)  
        {  
            //elle est déssinée avec une couleur de fond et une fonte spécifique 
            pGrille->Canvas->Brush->Color = clHighlight; 
            pGrille->Canvas->Font->Color = clWhite; 
            pGrille->Canvas->FillRect(Rect); 
            pGrille->Canvas->TextRect(Rect, Rect.Left+2, Rect.Top+2, pGrille->Cells[ACol][ARow]); 
        } 
    } 
    else 
    { 
        pGrille->Canvas->Brush->Color = clWindow; 
        pGrille->Canvas->Font->Color = clBlack; 
    } 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::StringGridClick(TObject *Sender) 
{ 
    pGrille = (TStringGrid* )Sender; 
    // on teste la valeur de 'MultiSelect' pour savoir si la touche 'ctrl' a été 
    // pressée 
    if (MultiSelect == true) 
    { 
        // on enregistre dans la TstringList l'index de la ligne selectionnée 
        pListeIndex->Add(pGrille->Row); 
    } 
    // on force la grille a se 'redessiner', afin de mettre a jour l'affichage 
    // en tenant compte des nouvelles valeurs ou des valeurs non stockées dans la TStringList 
    pGrille->Repaint(); 
}

1
2
3
4
5
6
void __fastcall TForm1::StringGridMouseMove(TObject *Sender, 
      TShiftState Shift, int X, int Y) 
{ 
    pGrille = (TStringGrid* )Sender; 
    pGrille->SetFocus(); 
}

1
2
3
4
5
if((ACol == 1) && (ARow == 1)){ 
  StringGrid1->Options >> goEditing; // ne pas rendre éditable 
}else{ 
  StringGrid1->Options << goEditing; // rendre éditable 
}

1
2
3
4
5
6
7
8
int vectCoordonnee[5][2] = {{1,1},{2,5},{3,1},{1,4},{1,2}} ; 
int i ; 
StringGrid1->Options << goEditing; // rendre éditable 
for(i=0;i<5;i++){ 
  if((ACol == vectCoordonnee[i][0]) && (ARow == vectCoordonnee[i][1])){ 
    StringGrid1->Options >> goEditing; // ne pas rendre éditable 
  } 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
class TPublicStringGrid: public TCustomGrid 
{ 
    public: 
        using TCustomGrid::MoveRow; 
        using TCustomGrid::MoveColumn; 
}; 
// Déplace la première ligne (Row=0) vers la seconde (Row=1) 
((TPublicStringGrid*)StringGrid1)->MoveRow(0,1); 
//Déplace la première colonne (Col=0) vers la seconde (Col=1) 
((TPublicStringGrid*)StringGrid1)->MoveColumn(0,1); 
}

1
2
3
4
5
6
7
8
void __fastcall TForm1::StringGrid1KeyDown(TObject *Sender, WORD &Key, 
      TShiftState Shift) 
{ 
    if(Key == VK_RETURN) 
    { 
        StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] = StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row] + sLineBreak; 
    } 
}

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 __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, 
      int ARow, TRect &Rect, TGridDrawState State) 
{ 
// Sélection de la couleur de fond 
    if(State.Contains(gdFixed)) 
    { 
        StringGrid1->Canvas->Brush->Color = clBtnFace; 
    } 
    else if(State.Contains(gdSelected)) 
    { 
        StringGrid1->Canvas->Brush->Color = clNavy; 
    } 
    else 
    { 
        StringGrid1->Canvas->Brush->Color = clWhite; 
    } 
// Dessin du fond 
    StringGrid1->Canvas->FillRect(Rect); 
// Sélection de la couleur de texte 
    if(State.Contains(gdSelected)) 
    { 
        SetTextColor(Canvas->Handle, clWhite); 
    } 
    else 
    { 
        SetTextColor(Canvas->Handle, clBlack); 
    } 
// Dessin du texte en utilisant la fonction API 
    DrawText(StringGrid1->Canvas->Handle, (StringGrid1->Cells[ACol][ARow]).c_str(), -1, &Rect, DT_NOPREFIX | DT_WORDBREAK ); 
}

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, 
      int ARow, TRect &Rect, TGridDrawState State) 
{ 
    int i, j, X, Y; 
    TRect R; 
    if(State.Contains(gdFixed)) 
	{ 
		// Les cellules fixes sont toujours dessinées en gris 
		StringGrid1->Canvas->Brush->Color = clBtnFace; 
		StringGrid1->Canvas->Brush->Style = bsSolid; 
		StringGrid1->Canvas->FillRect(Rect); 
	} 
	else if(State.Contains(gdSelected)) 
	{ 
		// Les cellules sélectionnées sont en bleu 
		StringGrid1->Canvas->Brush->Color = clNavy; 
		StringGrid1->Canvas->Brush->Style = bsSolid; 
		StringGrid1->Canvas->FillRect(Rect); 
	} 
	else 
	{ 
		// Recherche de la zone image à copier pour tenir compte des décalages 
		// de la grille en fonction des barres de défilement. 
		X = 0; 
		for(i = StringGrid1->FixedCols + 1; i <= ACol; i++) (X++, StringGrid1->ColWidths [i]); 
		{ 
			Y = 0; 
			for(i = StringGrid1->FixedRows + 1; i <= ARow; i++) (Y++, StringGrid1->RowHeights[i]); 
			{ 
				R.Left = X; 
				R.Right = X + Rect.Right - Rect.Left; 
				R.Top = Y; 
				R.Bottom = Y + Rect.Bottom - Rect.Top; 
				// Dessin d'une partie de l'image 
				Image1->Visible = false; 
				Image1->Picture->Bitmap->LoadFromFile("C:\\Documents and Settings\\toto\\Mes documents\\Mes images\\Massiv10\\Massiv10\\Bitmaps\\Arrow\\arcarrow1.bmp"); 
				// "C:\\Documents and Settings\\toto\\Mes documents\\Mes images\\Massiv10\\Massiv10\\Bitmaps\\Arrow\\arcarrow1.bmp" 
				StringGrid1->Canvas->CopyRect(Rect, Image1->Picture->Bitmap->Canvas, R); 
				StringGrid1->Canvas->Brush->Style = bsClear; 
			} 
		} 
	} 
	// Sélection de la couleur de texte 
	if(State.Contains(gdSelected)) 
	{ 
		SetTextColor(StringGrid1->Canvas->Handle, clWhite); 
	} 
	else 
	{ 
		SetTextColor(StringGrid1->Canvas->Handle, clBlack); 
	} 
	// Dessin du texte en utilisant la fonction API 
	DrawText(StringGrid1->Canvas->Handle, (StringGrid1->Cells[ACol][ARow]).c_str(), -1, &Rect, DT_NOPREFIX ); 
}

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 __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, 
      int ARow, TRect &Rect, TGridDrawState State) 
{ 
	// sélection de la couleur de fond 
	if(State.Contains(gdFixed)) 
	{ 
		StringGrid1->Canvas->Brush->Color = clBtnFace; 
	} 
	else if(State.Contains(gdSelected)) 
	{ 
		StringGrid1->Canvas->Brush->Color = clNavy; 
	} 
	else 
	{ 
		StringGrid1->Canvas->Brush->Color = clWhite; 
	} 
	// Dessin du fond 
	StringGrid1->Canvas->FillRect(Rect); 
	// Sélection de la couleur de texte 
    if(State.Contains(gdSelected)) 
    { 
    	StringGrid1->Font->Color = clWhite; 
    } 
    else 
    { 
    	StringGrid1->Font->Color = clBlack; 
    } 
	// Dessin du texte en utilisant la fonction API 
	DrawText(StringGrid1->Canvas->Handle, (StringGrid1->Cells[ACol][ARow]).c_str(), -1, &Rect, DT_CENTER | DT_NOPREFIX | DT_VCENTER | DT_SINGLELINE  ); 
}

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 __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, 
      int ARow, TRect &Rect, TGridDrawState State) 
{ 
	// sélection de la couleur de fond 
	if(State.Contains(gdFixed)) 
	{ 
		StringGrid1->Canvas->Brush->Color = clBtnFace; 
	} 
	else if(State.Contains(gdSelected)) 
	{ 
		StringGrid1->Canvas->Brush->Color = clNavy; 
	} 
	else 
	{ 
		StringGrid1->Canvas->Brush->Color = clWhite; 
	} 
	// Dessin du fond 
	StringGrid1->Canvas->FillRect(Rect); 
	// Sélection de la couleur de texte 
    if(State.Contains(gdSelected)) 
    { 
    	SetTextColor(StringGrid1->Canvas->Handle, clWhite); 
    } 
    else 
    { 
    	SetTextColor(StringGrid1->Canvas->Handle, clBlack); 
    } 
	// Dessin du texte en utilisant la fonction API 
	DrawText(StringGrid1->Canvas->Handle, (StringGrid1->Cells[ACol][ARow]).c_str(), -1, &Rect, DT_CENTER | DT_NOPREFIX | DT_WORDBREAK); 
}