توسيط الكلام في الخلية في StringGrid

[me_delphi]

PHP كود :

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s: string;
    drawrect :trect;
begin
  s:= (sender as tstringgrid).Cells[ acol, arow ];
  if length(s) > 0 then
  begin
    drawrect := rect;
    drawtext((sender as tstringgrid).canvas.handle,pchar(s), length(s), drawrect,dt_wordbreak or DT_CENTER or dt_noprefix );
    if (drawrect.bottom - drawrect.top) >(sender as tstringgrid).rowheights[arow] then
    begin
      (sender as tstringgrid).rowheights[arow] := (drawrect.bottom - drawrect.top)
    end
    else
    begin
      drawrect.Right := rect.Right;
      (sender as tstringgrid).canvas.fillrect( drawrect );
      drawtext((sender as tstringgrid).canvas.handle,pchar(s), length(s), drawrect,dt_wordbreak or DT_CENTER or dt_noprefix);
    end;
  end;
end; 


منقول للفائدة