Назначение цвета для каждой строки, вывод ячейки в несколько строк в StringGrid

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

procedure TFormHistory.ListHistoryDrawCell(Sender: TObject; Col, Row: Integer;
          Rect: TRect; State: TGridDrawState);
var
  S: string;
  DrawRect: TRect;
  CurrentColor: TColor;
begin
  // Определяем цвет строки в зависимости типа Imcoming
  if (Sender as TStrinGgrid).Cells[COLUMN_INCOMING , Row ] = '1' then
    CurrentColor:=clBlue
  else
    CurrentColor:=clMaroon;

  if (Sender as TStrinGgrid).Row = Row then
    CurrentColor := clHighlightText;

  (Sender as TStrinGgrid).Canvas.font.color := CurrentColor;
  S:= (Sender as TStrinGgrid).Cells[ Col, Row ];
  if (Col = COLUMN_MESSAGE ) and (Row <> ROW_HEADER) then
  begin
    if Length(S) > 0 then
    begin
      DrawRect:=Rect;
      DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S), Length(S),
      DrawRect, dt_calcrect or dt_wordbreak or dt_left );
      if (DrawRect.bottom - DrawRect.top) > (Sender as TStrinGgrid).RowHeights[Row] then
        (Sender as TStrinGgrid).RowHeights[row] :=(DrawRect.bottom - DrawRect.top)
      else
      begin
        DrawRect.Right:=Rect.Right;
        (Sender as TStrinGgrid).Canvas.FillRect( DrawRect );
        DrawText((Sender as TStrinGgrid).Canvas.Handle, Pchar(S),
                  Length(S), DrawRect, dt_wordbreak or dt_left);
      end;
    end;
  end
  else
    if Row <> ROW_HEADER then
      (Sender as TStrinGgrid).Canvas.Textout(rect.left+3, rect.top+3 , S );
end;

Перевод контента на русский язык:

Код является частью приложения VCL (Visual Component Library), написанного на Delphi/Pascal, и используется для настройки внешнего вида StringGrid-контрола. Процедура ListHistoryDrawCell отвечает за отрисовку каждой ячейки в таблице.

Вот что код делает:

1. Он определяет цвет каждой строки в зависимости от значения, хранящегося в столбце Incoming (представленном как COLUMN_INCOMING). Если значение равно '1', то он устанавливает цвет на синий, иначе - на бордовый.
2. Для текущей строки, которая рисуется (Row), код изменяет текстовый цвет на цвет выделения текста, если это не заголовок строки.
3. Затем код устанавливает текстовый цвет канваса в определенный цвет.
4. Код проверяет, является ли ячейка столбца MESSAGE (представленного как COLUMN_MESSAGE) и не является ли это заголовок строки. Если обе условия истинны, то код продолжает рисование текста:
   • Он рассчитывает прямоугольник для рисования текста с помощью функции DrawText.
   • Если высота нарисованного текста превышает высоту ячейки, он обновляет высоту ячейки для учета текста.
   • Иначе, он заливает фон цветом и рисует текст.

Альтернативное решение:

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

Пример:

if (Col = COLUMN_MESSAGE) and (Row <> ROW_HEADER) then
begin
  S := (Sender as TStringGrid).Cells[Col, Row];
  if Length(S) > 0 then
  begin
    DrawRect := Rect;
    DrawRect.Left := Rect.Left + 3; // корректируем координату x прямоугольника
    DrawRect.Top := Rect.Top + 3; // корректируем координату y прямоугольника

    TextWidth, TextHeight := (Sender as TStringGrid).Canvas.TextExtent(S);
    DrawRect.Right := Rect.Right;
    DrawRect.Bottom := Rect.Top + TextHeight;

    if DrawRect.Bottom - DrawRect.Top > (Sender as TStringGrid).RowHeights[Row] then
      (Sender as TStringGrid).RowHeights[Row] := DrawRect.Bottom - DrawRect.Top
    else
    begin
      (Sender as TStringGrid).Canvas.FillRect(DrawRect);
      (Sender as TStringGrid).Canvas.TextOut(DrawRect.Left, DrawRect.Top, S);
    end;
  end;
end;

Обратите внимание, что я также удалил неиспользуемую конвертацию PChar и заменял ее простым присваиванием строки. Кроме того, я корректировал координату x прямоугольника для учета отступа (3 пикселя) в вашем оригинальном коде.

Назначение цвета для каждой строки в StringGrid и вывод ячейки на несколько строк с помощью процедуры ListHistoryDrawCell.

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

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

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