StringGrid. Вертикальный текст

[Антон Лысенко]

Нужно сделать так что бы текст печатался в определённых ячейках не горизонтально а вертикально.
В интерне находил вот такой код на всех сайтах http://www.desksoft.ru/index.php?s_i...=0%7C372%7C387
Пробовал вставить себе в программу ничего не происходило.
Понимаю что там куча проверок для выравнивания высоты и ширины ячейки. Но я в коде разобраться не могу.
Подскажите, может у кого есть код попроще.
Зависит работоспособность этого кода от того что текст находиться в объеденённых ячейках?

[Stilet]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses     windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

  { TForm1 }

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
      aRect: TRect; aState: TGridDrawState);
  private
    { private declarations }
  public
    { public declarations }
  end;

var  t:LOGFONT;   hf:HFONT;   f:TFont;
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
// Создаем повернутый фонт
 with t do begin
Begin
 lfHeight := 20;
 lfOrientation := -900;   // на 90 градусов
 lfEscapement := 9000;
 lfWeight := FW_REGULAR;
End;
end;
hf:=CreateFontIndirect(t);
F := TFont.Create;
F.Handle := hf;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
// И используя его рисуем на каве ячеек.
  with TStringGrid(sender).Canvas do begin
   Font:= f;
   TextOut(aRect.Left+(aRect.Right-aRect.Left) div 2, aRect.Top, 'делфи');
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  f.Free;
  DeleteObject(hf);
end;

end.

Так проще?

[Антон Лысенко]

Спасибо огромезное!))