Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2021, 22:57   #1
321-Даниил
Новичок
Джуниор
 
Регистрация: 08.11.2021
Сообщений: 1
По умолчанию Форматирование ячеек StringGrid

Добрый вечер! Прошу подсказать мне какой код нужно прописать, чтобы отформатировать ячейки в StringGrid'е.

1) Как мне выровнять:
1-ую строку по центру;
1-ый столбец (1-7) = по правому краю;
2-ой столбец (названия лекарств) = по левому краю;
3-ий столбец (код ИНН названия) = тоже по левому краю;
4-ый столбец (единицы измерения) = по центру;
5-ый столбец (количество) = тоже по центру.

2) Сделать формат текста полужирным для всех заголовков столбцов


Вот таблица:
Потребность в лекарстве — реальное — копия.jpg
Вот данные:
Засоби особистої гігієни.txt
Медичне обладнання.txt
Устаткування та приладдя для моргів і розтинів.txt
Фармацевтична продукція.txt

Вот какой я использовал:
Код:
void __fastcall TForm2::Button3Click(TObject *Sender) // нажимаю на кнопку "Показать" рядом с label'ом "Фармацевтическая продукция"
{
  std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("Фармацевтична продукція.txt");
   for(int i=0; i<L->Count; i++)
      StringGrid1->Rows[i]->CommaText=L->Strings[i];
      StringGrid1->ColCount = 5;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button4Click(TObject *Sender) // нажимаю на кнопку "Показать" рядом с label'ом "Медицинское оборудование"
{
   std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("Медичне обладнання.txt");
   for(int i=0; i<L->Count; i++)
      StringGrid1->Rows[i]->CommaText=L->Strings[i];
      StringGrid1->ColCount = 4;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button5Click(TObject *Sender) // нажимаю на кнопку "Показать" рядом с label'ом "Средства личной гигиены"
{
   std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("Засоби особистої гігієни.txt");
   for(int i=0; i<L->Count; i++)
      StringGrid1->Rows[i]->CommaText=L->Strings[i];
      StringGrid1->ColCount = 4;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button6Click(TObject *Sender) // нажимаю на кнопку "Показать" рядом с label'ом "Оборудование для морга и вскрытий"
{
   std::auto_ptr<TStringList> L (new TStringList);
   L->LoadFromFile("Устаткування та приладдя для моргів і розтинів.txt");
   for(int i=0; i<L->Count; i++)
      StringGrid1->Rows[i]->CommaText=L->Strings[i];
      StringGrid1->ColCount = 4;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    StringGrid1->Canvas->FillRect(Rect);
    DrawText(StringGrid1->Canvas->Handle,
        StringGrid1->Cells[ACol][ARow].c_str(),
        StringGrid1->Cells[ACol][ARow].Length(),
        &Rect,(ACol==4 && ARow>=1)?
          DT_SINGLELINE | DT_VCENTER | DT_RIGHT :
          DT_SINGLELINE | DT_VCENTER | DT_LEFT );
}
//---------------------------------------------------------------------------
321-Даниил вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
StringGrid Цвет фона пустых ячеек и ячеек с текстом Mapkus Компоненты Delphi 6 07.07.2016 11:34
Не сохраняется форматирование ячеек Андрей АВ Microsoft Office Excel 3 03.04.2013 16:16
Форматирование ячеек shmelvs Microsoft Office Excel 6 24.07.2008 09:24
Форматирование ячеек Andr Microsoft Office Excel 12 18.08.2007 19:15

Реклама для незарегистрированных, регистрация на форуме