Выводим цветной текст на форме под любым углом

Пример демонстрирует вывод теста случайным образом на форме под определённым углом. Добавляем в форму компонент TButton и в событие OnClick следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var
  logfont: TLogFont;
  font: Thandle;
  count: integer;
begin
  LogFont.lfheight := 20;
  logfont.lfwidth := 20;
  logfont.lfweight := 750;
  LogFont.lfEscapement := -200;
  logfont.lfcharset := 1;
  logfont.lfoutprecision := out_tt_precis;
  logfont.lfquality := draft_quality;
  logfont.lfpitchandfamily := FF_Modern;

  font := createfontindirect(logfont);

  SelectObject(Form1.canvas.handle, font);

  SetTextColor(Form1.canvas.handle, rgb(0, 0, 200));
  SetBKmode(Form1.canvas.handle, transparent);

  for count := 1 to 10 do
  begin
    Canvas.TextOut(Random(form1.width), Random(form1.height), 'Delphi World');
    SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255), Random(255)));
  end;

  DeleteObject(font);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 583 • TDictionary Custom Sort 6 599 • Fast Watermark Sources 6 369 • 3D Designer 9 319 • Sik Screen Capture 6 703 • Patch Maker 7 084 • Айболит (remote control) 7 088 • ListBox Drag & Drop 5 955 • Доска для игры Реверси 97 496 • Графические эффекты 7 290 • Рисование по маске 6 584 • Перетаскивание изображений 5 457 • Canvas Drawing 5 826 • Рисование Луны 5 537 • Поворот изображения 5 058 • Рисование стержней 3 623 • Paint on Shape 2 864 • Генератор кроссвордов 3 750 • Головоломка Paletto 3 019 • Теорема Монжа об окружностях 3 828 • Пазл Numbrix 2 519 • Заборы и коммивояжеры 3 219 • Игра HIP 2 186 • Игра Go (Го) 2 117 • Симулятор лифта 2 499 • Программа укладки плитки 2 149 • Генератор лабиринта 2 633 • Проверка числового ввода 2 303 • HEX View 2 635 • Физический маятник 2 255