Многострочный TStringGrid

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

...да, но вы должны перекрыть событие OnDraw. Ниже приведен пример, делающий заголовок многострочным, центрированным и с жирным шрифтом:

// if Dispatch.GetIDsOfNames(GUID_NULL, @NameRefs, NameCount,

procedure TForm1.grid1DrawCell(Sender: TObject; Col, Row: Longint;
  Rect: TRect; State: TGridDrawState);
var
  l_oldalign: word;
  l_YPos, l_XPos, i: integer;
  s, s1: string;
  l_col, l_row: longint;
begin
  l_col := col;
  l_row := row;
  with sender as tstringgrid do
  begin
    if (l_row = 0) then
      canvas.font.style := canvas.font.style + [fsbold];
    if l_row = 0 then
    begin
      l_oldalign := settextalign(canvas.handle, ta_center);
      l_XPos := rect.left + (rect.right - rect.left) div 2;
      s := cells[l_col, l_row];
      while s <> '' do
      begin
        if pos(#13, s) <> 0 then
        begin
          if pos(#13, s) = 1 then
            s1 := ''
          else
          begin
            s1 := trim(copy(s, 1, pred(pos(#13, s))));
            delete(s, 1, pred(pos(#13, s)));
          end;
          delete(s, 1, 2);
        end
        else
        begin
          s1 := trim(s);
          s := '';
        end;
        l_YPos := rect.top + 2;
        canvas.textrect(rect, l_Xpos, l_YPos, s1);
        inc(rect.top, rowheights[l_row] div 3);
      end;
      settextalign(canvas.handle, l_oldalign);
    end
    else
    begin
      canvas.textrect(rect, rect.left + 2, rect.top + 2, cells[l_col, l_row]);
    end;

    canvas.font.style := canvas.font.style - [fsbold];
  end;
end;

Приведенный код - это приложение на языке Delphi, которое настраивает внешний вид многострочного контрола TStringGrid. Метод OnDrawCell используется для центрирования текста и сделать текст первой строки жирным.

Вот шаг за шагом, что код делает:

1. Он проверяет, является ли текущая строка первой (т.е., l_row = 0). Если это так, он устанавливает стиль шрифта в жирный используя canvas.Font.Style := canvas.Font.Style + [fsBold].
2. Для первой строки код центрирует текст горизонтально, рассчитывая координату x (l_XPos) и устанавливающий ориентацию текста в центр используя SetTextAlign(canvas.Handle, taCenter).
3. Он получает значение текста из ячейки текущего столбца и строки (cells[l_col, l_row]).
4. Если текст содержит символ новой строки (#13), код извлекает первую строку текста, найдя позицию символа новой строки используя Pos(#13, s) и удалив символ новой строки и последующие символы из строки.
5. Затем он рисует извлеченный текст на рассчитанной координате x (l_XPos) и координате y (l_YPos) используя Canvas.TextRect(rect, l_Xpos, l_YPos, s1).
6. Если строка не является первой, код просто рисует текст ячейки в ее оригинальной позиции используя Canvas.TextRect(rect, rect.Left + 2, rect.Top + 2, cells[l_col, l_row]).
7. Наконец, он сбрасывает стиль шрифта в нормальный, удалив жирный стиль из стиля шрифта (canvas.Font.Style := canvas.Font.Style - [fsBold]).

Код также включает комментарий о том, как ответ русского фермера "До х#я" (что примерно переводится как "До x-ya") вызвал компьютерную задержку, и история рассказывается в виде анекдота.

В целом, этот код предоставляет способ настройки внешнего вида многострочного контрола TStringGrid в Delphi, конкретно центрируя текст и делая текст первой строки жирным.

В статье описывается способ создания многострочного TStringGrid с центрированным и жирным шрифтом заголовком, а также приводится пример программного кода на языке Delphi для реализации этой функциональности.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TStringGrid и TDrawGrid ::