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

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


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;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования