Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 3 386 • TDictionary Custom Sort 5 607 • Fast Watermark Sources 5 362 • 3D Designer 7 796 • Sik Screen Capture 5 659 • Patch Maker 6 150 • Айболит (remote control) 6 164 • ListBox Drag & Drop 5 045 • Доска для игры Реверси 93 953 • Графические эффекты 6 329 • Рисование по маске 5 380 • Перетаскивание изображений 4 557 • Canvas Drawing 4 927 • Рисование Луны 4 670 • Поворот изображения 4 210 • Рисование стержней 2 964 • Paint on Shape 2 198 • Генератор кроссвордов 3 045 • Головоломка Paletto 2 391 • Теорема Монжа об окружностях 3 172 • Пазл Numbrix 2 080 • Заборы и коммивояжеры 2 720 • Игра HIP 1 701 • Игра Go (Го) 1 621 • Симулятор лифта 1 938 • Программа укладки плитки 1 673 • Генератор лабиринта 2 104 • Проверка числового ввода 1 797 • HEX View 2 055 • Физический маятник 1 795

Главная

Исходники (более 1 300 примеров)

Компоненты

HabLance - биржа фриланса

Печать повернутого текста 3

Некоторое время я делал так: я создавал шрифт, выбирал его в DC ...

function CreateMyFont(degree: Integer): HFONT;
begin
  CreateMyFont := CreateFont(
  -30, 0, degree, 0, 0,
  0, 0, 0, 1, OUT_TT_PRECIS,
  0, 0, 0, szFontName);
end;

.... и затем использовал любую функцию рисования для вывода текста.

Печать повернутого текста 3

Похожие по теме исходники