Версия для печати темы

Автор: Fanat 4.01.2008 3:24

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

Автор: volvo 4.01.2008 4:01

Вот пример:

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);
  }
}

Автор: Fanat 4.01.2008 4:11

А когда вызываеться эта функция?..или как её вызвать?..

Добавлено через 9 мин.

Понял..Спасибо большое...=)

Автор: volvo 4.01.2008 4:21

Не надо ничего вызывать, это OnDrawCell, вызывается каждый раз, когда ячейка должна быть перерисована...