| Статистика | 
|
|
Каталог статей
Вращение текста
procedure MyRotateText(CV : TCanvas;
sText:String;
X, Y, Angle:Integer); {угол в
градусах}
VAR LogFont : TLogFont;
BEGIN
GetObject(CV.Font.Handle, SizeOf(TLogFont), @LogFont);
LogFont.lfEscapement:= Angle*10;
CV.Font.Handle := CreateFontIndirect(LogFont);
CV.TextOut(X,Y,sText);
END;
|
Категория: API | Добавил: Lerka (22 Ноя 2012)
|
Просмотров: 439
6
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
