Builder 6.0, StringGrid Опции

[Fanat]

Как сделать чтобы текст введённый в ячейку выравнивался по центру ячейки?..
Как вставить картинку в ячейку?..Для этого StringGrid использовать или может DrowGrid?..

[volvo]

чтобы текст введённый в ячейку выравнивался по центру ячейки?

Вот пример:

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
	  TRect &Rect, TGridDrawState State)
{
  AnsiString s = StringGrid1->Cells[ACol][ARow];

  StringGrid1->Canvas->Rectangle(Rect);
  int dx = Rect.Width() - StringGrid1->Canvas->TextWidth(s);
  int dy = Rect.Height() - StringGrid1->Canvas->TextHeight(s);
  StringGrid1->Canvas->TextOut(Rect.Left+dx/2, Rect.Top+dy/2, s);
}

Как вставить картинку в ячейку?

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
	  TRect &Rect, TGridDrawState State)
{
  StringGrid1->Canvas->StretchDraw(Rect, Image1->Picture->Graphic);
}

Можно и объединить эти действия, скажем, в ячейку [1, 1] вставить картинку, а остальные - выравнивать по центру:

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
	  TRect &Rect, TGridDrawState State)
{
  if(ACol == 1 && ARow == 1)
  {
	StringGrid1->Canvas->StretchDraw(Rect, Image1->Picture->Graphic);
  }
  else
  {
	  AnsiString s = StringGrid1->Cells[ACol][ARow];

	  StringGrid1->Canvas->Rectangle(Rect);
	  int dx = Rect.Width() - StringGrid1->Canvas->TextWidth(s);
	  int dy = Rect.Height() - StringGrid1->Canvas->TextHeight(s);
	  StringGrid1->Canvas->TextOut(Rect.Left+dx/2, Rect.Top+dy/2, s);
  }
}