Помощь - Поиск - Пользователи - Календарь
Полная версия: Builder 6.0
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ада и другие языки
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);
}
}

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

Добавлено через 9 мин.
Цитата(Fanat @ 4.01.2008 0:11) *

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

Понял..Спасибо большое...=)
volvo
Не надо ничего вызывать, это OnDrawCell, вызывается каждый раз, когда ячейка должна быть перерисована...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.