Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Форматирование ячеек TStringGrid

Hажмите ! Ещё! Format complete...

...то, что вы хотите, звучит очень мудрено, в моем примере вследствие плавающей точки я сделал правое выравнивание, и сетка у меня редактируемая, работающая прямо сейчас (хоть это и 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). Но и это все решается простой посылкой другого сообщения (позже я расскажу вам как это можно сделать).

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.