Как вращать текст

procedure TextOutAngle(x,y,aAngle,aSize: integer; txt: string);
var
  hFont, Fontold: integer;
  DC: hdc;
  Fontname: string;
begin
  if length(txt) = 0 then
    Exit;
  DC:= Screen.ActiveForm.Canvas.handle;
  SetBkMode(DC, transparent);
  Fontname:= Screen.ActiveForm.Canvas.Font.name;
  hFont:= CreateFont(-aSize,0, aAngle*10,0, fw_normal,0, 0,
  0,1,4,$10,2,4,PChar(Fontname));
  Fontold:= SelectObject(DC, hFont);
  TextOut(DC,x,y,PChar(txt), length(txt));
  SelectObject(DC, Fontold);
  DeleteObject(hFont);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 630 • TDictionary Custom Sort 6 634 • Fast Watermark Sources 6 413 • 3D Designer 9 354 • Sik Screen Capture 6 743 • Patch Maker 7 130 • Айболит (remote control) 7 136 • ListBox Drag & Drop 5 996 • Доска для игры Реверси 97 579 • Графические эффекты 7 328 • Рисование по маске 6 615 • Перетаскивание изображений 5 486 • Canvas Drawing 5 864 • Рисование Луны 5 588 • Поворот изображения 5 096 • Рисование стержней 3 663 • Paint on Shape 2 895 • Генератор кроссвордов 3 794 • Головоломка Paletto 3 046 • Теорема Монжа об окружностях 3 857 • Пазл Numbrix 2 537 • Заборы и коммивояжеры 3 250 • Игра HIP 2 220 • Игра Go (Го) 2 153 • Симулятор лифта 2 531 • Программа укладки плитки 2 173 • Генератор лабиринта 2 670 • Проверка числового ввода 2 322 • HEX View 2 655 • Физический маятник 2 287