IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Builder 6.0, StringGrid
сообщение
Сообщение #1


Fanat
***

Группа: Пользователи
Сообщений: 261
Пол: Мужской
Реальное имя: Сергей

Репутация: -  5  +


Как сделать чтобы текст введённый в ячейку выравнивался по центру ячейки?..
Как вставить картинку в ячейку?..Для этого StringGrid использовать или может DrowGrid?..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Цитата
чтобы текст введённый в ячейку выравнивался по центру ячейки?
Вот пример:
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);
}
}

 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 20:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name