Array
(
)

StringGrid - Centralizar Conteúdo na Vertical

Jose Almeida
   - 22 set 2004

Como centralizar o conteúdo de uma célula de um StringGrid na vertical?


Marcelo Saviski
   - 22 set 2004

Dê uma olhada aqui, http://delphiforum.icft.com.br/forum/viewtopic.php?t=50966&highlight=stringgrid

só no último parâmetro da função troque por DT_VCENTER


Jose Almeida
   - 25 set 2004

A questão e a seguinte.

Tenho este código que determina o topo e o afastamento

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.TextOut
(Rect.Left+10,Rect.Top+6,StringGrid1.Cells[ACol,ARow]);
end;

´Rect.Left+10´ determina o afastamento à esquerda.
´Rect.Top+6´ determina o topo.

Tenho este outro que centraliza o texto na célula mas não permite
determinar o topo.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
StringGrid1.Canvas.FillRect(Rect);
DrawText(StringGrid1.Canvas.Handle,PChar
(StringGrid1.Cells[ACol,ARow]),-1,Rect,DT_Center);
end;

Quero centralizar o texto na horizontal e determinar o topo ou centralizar na vertical simultaneamente.