StringGrid

[_ZixeL_]

Всем привет.
Не хотел создавать новую тему, но уже замучился гуглить.
В общем. Есть 15 столбцов, надо выровнять в первых трёх колонках текст по левому углу, а остальные по центру. Это при том, что б текст в заголовках был по центру везде. Выручайте.
Спасибо большое.

[Stilet]

Когда-то отвечал уже кому-то но ссылку потерял.
Центрирование в ячейках:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var cr:TRect;
begin
with StringGrid1.Canvas do begin
 cr:=StringGrid1.CellRect(acol,arow);
 FillRect(cr);
 TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth(StringGrid1.Cells[acol,arow]) div 2),
  cr.Top,StringGrid1.Cells[acol,arow]);
end;
end;

end.

[_ZixeL_]

Спасибо. Но как центрирование во всех ячейках сделать я знаю. А вот как в определённых колонках - без понятия.

[Аватар]

ACol и ARow есть в StringGrid1DrawCell. Вот по ним и ориентируйтесь какие центрировать или выравнивать влево-вправо

[_ZixeL_]

Сообщение от Аватар

ACol и ARow есть в StringGrid1DrawCell. Вот по ним и ориентируйтесь какие центрировать или выравнивать влево-вправо

Да, это понятно. Не могли бы Вы пример показать?

[Stilet]

Дык в моем примере в начале скажем допиши

if acol in [3..5] then exit;

Это значит что колонки с 3 по 5-ю не будут участвовать в центрировании.

[_ZixeL_]

Сообщение от Stilet

Дык в моем примере в начале скажем допиши

if acol in [3..5] then exit;

Это значит что колонки с 3 по 5-ю не будут участвовать в центрировании.

не работает((

ПыСы: Я использую TMSGrids. Может знаете как там это организовать?

[Stilet]

не работает((

Бывает ))

[_ZixeL_]

Сообщение от Stilet

Бывает ))

Ну блин)
Добавил как сказали

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var cr:TRect;
begin
if acol in [3..5] then exit;
with StringGrid1.Canvas do begin
 cr:=StringGrid1.CellRect(acol,arow);
 FillRect(cr);
 TextOut(cr.left+((cr.Right-cr.Left) div 2)-(TextWidth(StringGrid1.Cells[acol,arow]) div 2),
  cr.Top,StringGrid1.Cells[acol,arow]);
end;
end;

Сорри, не соображаю ничего что-то сегодня.

[Stilet]

Одно дело добавить - другое назначить.
В Инспекторе Объектов нужно создать сбытие отрисовки, а потом уже наполнять его кодом из примера

Ну блин)

Оладик. Фраза "не работает" на сколько информативная по шкале Рыхтыра?
Если к тебе позвонят в дверь с криком - "Там, на холме!!!!" Ты открывать пойдешь без вопросов или милицию вызовешь?