Как выровнять текст в ячейках StringGridа по центру

[monrus]

Как выровнять текст в ячейках StringGridа по центру. ДАйте пожалуйста пример

[monrus]

И как можно текст в нулевой строке сделать жирным

[zubr]

Можно сделать так:

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  i, j, x, y:Integer;
  sz:tagSize;
begin
 StringGrid1.Canvas.Font:=StringGrid1.Font;
 For i:=0 to StringGrid1.RowCount-1 do
 begin
  If i=0 then
  StringGrid1.Canvas.Font.Style:=[fsBold]
  else
  StringGrid1.Canvas.Font.Style:=[];
  For j:=0 to StringGrid1.ColCount-1 do
  begin
   sz:=StringGrid1.Canvas.TextExtent(StringGrid1.Cells[j, i]);
   StringGrid1.Canvas.Brush.Color:=clWhite;
   StringGrid1.Canvas.FillRect(StringGrid1.CellRect(j, i));
   x:=StringGrid1.CellRect(j, i).Left+
    (StringGrid1.CellRect(j, i).Right-StringGrid1.CellRect(j, i).Left-sz.cx) div 2;
   y:=StringGrid1.CellRect(j, i).Top+
    (StringGrid1.CellRect(j, i).Bottom-StringGrid1.CellRect(j, i).Top-sz.cy) div 2;
   StringGrid1.Canvas.TextOut(x, y, StringGrid1.Cells[j, i]);
  end;
 end;
end;

[x77]

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

ты сам этот изумительный код запускал?

[zubr]

Звиняюсь, код с одного места в другое вставил, а i, j на ACol, ARow поменять забыл . Вот правильный код:

Код:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  x, y:Integer;
  sz:tagSize;
begin
 StringGrid1.Canvas.Font:=StringGrid1.Font;
 If ARow=0 then
 StringGrid1.Canvas.Font.Style:=[fsBold]
 else
 StringGrid1.Canvas.Font.Style:=[];
 sz:=StringGrid1.Canvas.TextExtent(StringGrid1.Cells[ACol, ARow]);
 StringGrid1.Canvas.Brush.Color:=clWhite;
 StringGrid1.Canvas.FillRect(StringGrid1.CellRect(ACol, ARow));
 x:=StringGrid1.CellRect(ACol, ARow).Left+
  (StringGrid1.CellRect(ACol, ARow).Right-StringGrid1.CellRect(ACol, ARow).Left-sz.cx) div 2;
 y:=StringGrid1.CellRect(ACol, ARow).Top+
  (StringGrid1.CellRect(ACol, ARow).Bottom-StringGrid1.CellRect(ACol, ARow).Top-sz.cy) div 2;
 StringGrid1.Canvas.TextOut(x, y, StringGrid1.Cells[ACol, ARow]);
end;

ты сам этот изумительный код запускал?

Запустил, работает, естественно для большой таблицы будет тормозить.