При многострочной ячяе больно промежутки между букофф большие образуются, поэтому лучше текст рисовать посредством .canvas.textout или .canvas.textrect либо .drawtext
З.Ы. Вот пример через textout
Код:
var
t: LOGFONT;
hf: HFONT;
f: TFont;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
aRect: TRect; aState: TGridDrawState);
begin
// И используя его рисуем на каве ячеек.
with TStringGrid(sender).Canvas do
begin
Font:= f;
with aRect do
TextOut(Left+(Right-Left) div 2, Top, 'DelphiSources');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Создаем повернутый фонт
with t do
begin
lfHeight:= 20;
lfOrientation:= 90; // на 90 градусов
lfEscapement:= 900;
lfWeight:= FW_NORMAL;
end;
hf:= CreateFontIndirect(t);
F:= TFont.Create;
F.Handle:= hf;
end;
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
f.Free;
DeleteObject(hf);
end;