Вопрос по StringGrid

[kta87]

Подскажите как выровнять текст в ячейках StringGrid по центру ячеек? Возможно ли это?

[Stilet]

Только если напишешь свою процедуру отрисовки.
Кстати примеры на форуме были, я в том числе свой выкладывал - заряди поиск.

[IvaD]

http://superadm.net/index.php?name=pages&op=view&id=172

или на форуме

http://programmersforum.ru/showthread.php?t=6231

[kta87]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;
Rect: TRect; State: TGridDrawState);
var
Txt: array[0..255] of Char;
begin
StrPCopy(Txt, StringGrid1.Cells[Col, Row]);
SetTextAlign(StringGrid1.Canvas.Han dle,
GetTextAlign(StringGrid1.Canvas.Han dle)
and not (TA_LEFT or TA_CENTER) or TA_RIGHT);
ExtTextOut(StringGrid1.Canvas.Handl e, Rect.Right - 2, Rect.Top + 2,
ETO_CLIPPED or ETO_OPAQUE, @Rect, Txt, StrLen(Txt), nil);
end;

Проблема при компиляции на строке

SetTextAlign(StringGrid1.Canvas.Han dle,GetTextAlign(StringGrid1.Canvas.Han dle)
and not (TA_LEFT or TA_CENTER) or TA_RIGHT);

" Undeclared identifier: 'Han' " Как решить?

А по способу предложенному Stilet

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;

не могу объявить процедуру!

[phomm]

За копипасту без разбору надо отлучать от церкви!

За незнание правил синтаксиса языка тоже можно ! Одна из самых первых тем - именование идентификаторов, перечитайте на всякий случай, а для данного конкретного случаю скажу что пробел нельзя использовать в имени идентификатора, а у вас он скопипастился с форума, без пробела должно быть Handle

не могу объявить процедуру!

это уж совсем... как так Вы первую смогли объявить, а вторую нет ??? они идентичный, если незаметно (не сам код, а заголовок, ессно, ну собственно, заголовок и понимается под словами объявить)
Её так-то не надо объявлять, достаточно щёлкнуть дважды по событию OnDrawCell в закладке Events для нужного компонента Stringgrid и заготовка процедуры сама сгенерится..

Вобщем, Вам бы подучиться, дружеский совет мой. Рекомендую http://delphikingdom.com/lyceum/seminar.asp?ID=6

[kta87]

phomm, да понятное дело - идентичны )) просто у меня почему то иногда во вкладке редактирования кода получается такая чтука, что при редактировании предыдущие символы съедаются.. я в очередной раз этого не заметил вот от туда и ошибка. а понять почему такое происходит не могу, не подскажете?
Собрал процедуру, как предложил Stilet

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;