Форматирование ячеек TStringGrid

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

...то, что вы хотите, звучит очень мудрено, в моем примере вследствие плавающей точки я сделал правое выравнивание, и сетка у меня редактируемая, работающая прямо сейчас (хоть это и DrawGrid, но технология одна и та же).

Вам нужно сделать пару вещей:

• Обработчик OnDrawCell, отображающий отформатированные данные, выровненные по правому краю.
• В ячейки вашей сетки загружать неформатированные строки, представляющие собой ваши данные.

В вашем обработчике OnDrawCell создайте код типа того, что приведен ниже. Этот код отображает разделенную запятой величину, выровненную по правому краю:

begin
  if (Row > 0) and (Col > 0) and (grdDivBudget.Cells[Col, Row] <> '') then
  begin
    {Формат строки с числом с плавающей точкой}
    strText := FloatToStrF(StrToFloat(grdDivBudget.Cells[Col, Row]),
      ffNumber, 13, 2);

    {Устанавливаем шрифт}
    grdDivBudget.Canvas.Font.Name := 'Courier';
    if StrToFloat(grdDivBudget.Cells[Col, Row]) < 0 then
      grdDivBudget.Canvas.Font.Color := clRed;
    grdDivBudget.Canvas.Font.Style := grdDivBudget.Canvas.Font.Style -
      [fsBold];

    {Центрируем текст в ячейке по вертикали, по правому полю,
    и отодвигаем его от правого поля на два пикселя.}
    X := Rect.Right - grdDivBudget.Canvas.TextWidth(strText);
    Y := Rect.Top + ((Rect.Bottom - Rect.Top -
      grdDivBudget.Canvas.TextHeight(strText)) div 2);
    Dec(Rect.Right, 2);

    grdDivBudget.Canvas.TextRect(Rect, X, Y, strText);
  end;
end;

Убедитесь в том, что вы имеете DefaultDrawing := True, так, чтобы вы могли в ячейках выводить только текст, остальную отрисовку за вас сделает VCL.

Теперь все должно работать. При попытке пользователя отредактировать число в ячейке, оно будет отображаться в неформатированном виде (если у вас нет необходимости в обработчике события OnGetEditText).

Но при этом вы можете обнаружить, что проверка данных для данного способа может быть проблематична (например, что будет, если пользователь введет 'TX' в числовой колонке). Эта ситуация усугубляется тем фактом, что сетка (во всяком случае DrawGrid) не позволяет реализовать "последовательное поведение" для различных путей навигации по сетке (например, инициализировать различные события, если вы пользуетесь курсорными стрелками, мышью, или просто нажимаете Enter). Но и это все решается простой посылкой другого сообщения (позже я расскажу вам как это можно сделать).

Статья Форматирование ячеек TStringGrid раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.

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

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