Выравнивание колонок StringGrid 3

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

Вот некоторый код, который делает то, что вы хотите:

procedure WriteText(ACanvas: TCanvas; const ARect: TRect; DX, DY: Integer;
  const Text: string; Format: Word);
var
  S: array[0..255] of Char;
  B, R: TRect;
begin
  with ACanvas, ARect do
  begin
    case Format of
      DT_LEFT: ExtTextOut(Handle, Left + DX, Top + DY, ETO_OPAQUE or
        ETO_CLIPPED,
          @ARect, StrPCopy(S, Text), Length(Text), nil);

      DT_RIGHT: ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
          ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
          Length(Text), nil);

      DT_CENTER: ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div
        2,
          Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect,
          StrPCopy(S, Text), Length(Text), nil);
    end;
  end;
end;

procedure TBEFStringGrid.DrawCell(Col, Row: Longint; Rect: TRect; State:
  TGridDrawState);
var
  procedure Display(const S: string; Alignment: TAlignment);
  const
    Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
  begin
    WriteText(Canvas, Rect, 2, 2, S, Formats[Alignment]);
  end;
begin
  { здесь задаем аргументы Col и Row, и форматируем как угодно ячейки }
  case Row of
    0: { Центрирование заголовков колонок }
      if (Col < ColCount) then
        Display(Cells[Col, Row], taCenter)
      else
        { Все другие данные имеют правое центрирование }
        Display(Cells[Col, Row], taRight);
  end;
end;

Here's the translation of the provided text into Russian:

Код, представленный ниже, используется для рисования ячеек в контроле StringGrid. Он определяет два процедура: WriteText, которая рисует текст на канвасе с различными выравниваниями, и DrawCell, которая отвечает за рисование каждой ячейки в сетке.

В процедуре DrawCell код проверяет, является ли строка 0 (что означает, что это заголовочная строка). Если это так, то он центрирует текст ячейки. Для других строк он правее выравнивает текст.

Вот некоторые улучшения, которые можно сделать:

1. Вместо использования магических чисел в процедуре Display должны использоваться константы выравнивания taCenter и taRight из типа TAlignment Delphi.
2. Вместо того, чтобы иметь фиксированное количество форматов (3) для различных выравнивания, можно создать массив вызовов процедуры WriteText, основанный на выравнивании.

Вот улучшенный код:

procedure TBEFStringGrid.DrawCell(ACol, ARow: Longint; Rect: TRect; AState: TGridDrawState);
var
  procedure Display(const S: string; Alignment: TAlignment);
  const
    Formats: array[TAlignment] of procedure (const S: string) = (
      procedure (const S: string)
      begin
        WriteText(Canvas, Rect, 2, 2, S, DT_LEFT);
      end,
      procedure (const S: string)
      begin
        WriteText(Canvas, Rect, Rect.Right - TextWidth(S) - 3, 2, S, DT_RIGHT);
      end,
      procedure (const S: string)
      begin
        WriteText(Canvas, Rect, Rect.Left + (Rect.Right - Rect.Left - TextWidth(S)) div 2, 2, S, DT_CENTER);
      end
    );
begin
  case ARow of
    0:
      if (ACol < ColCount) then
        Display(Cells[ACol, ARow], taCenter)
      else
        Display(Cells[ACol, ARow], taRight);
  end;
end;

В этом коде создается массив Formats, где каждый элемент - это процедура, которая вызывает WriteText с соответствующим выравниванием. Затем в процедуре DrawCell используется этот массив для рисования ячейки на основе ее строки и столбца.

Выравнивание колонок StringGrid 3: код на Delphi для форматирования ячеек с использованием процедуры WriteText и параметра Format.

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

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

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