Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.25;
Скачать: CL | DM;

Вниз

Как на Canvas е писать текст под углом ?   Найти похожие ветки 

 
Велосипед   (2005-07-05 01:19) [0]

И какие вообще есть хорошие библиотеки для работы с Canvas"ом ?


 
Юрий Зотов ©   (2005-07-05 01:29) [1]

См. TLogFont. Еще - CreateFont, CreateFontIndirect(Ex), SelectObject, DeleteObject. Примеры использования есть в VCL.


 
Просто Джо ©   (2005-07-05 03:01) [2]

Простой пример:

procedure TextOutExt (ACanvas: TCanvas; const X, Y, AAngle: Integer;
 const AText: string);
var
 LogFont : TLogFont;
 SavedDC: Integer;
begin
 with ACanvas do
 begin
   SavedDC := SaveDC (ACanvas.Handle);
   try
     GetObject(Font.Handle, SizeOf(TLogFont), @LogFont);
     LogFont.lfEscapement := AAngle*10;
     Font.Handle := CreateFontIndirect(LogFont);
     TextOut(X,Y,AText);
   finally
     RestoreDC(ACanvas.Handle,SavedDC)
   end;
 end;
end;


Использование (на форме TImage и кнопка):

procedure TForm1.Button1Click(Sender: TObject);
begin
 // обязательно используем TrueType или OpenType шрифт
 Image1.Canvas.Font.Name := "Arial";

 Image1.Canvas.TextOut(0,0,"Без наклона");

 TextOutExt(Image1.Canvas,100,100,45,"Разворот на 45 градусов");

 Image1.Canvas.TextOut(20,20,"Опять без наклона");
end;



Страницы: 1 вся ветка

Текущий архив: 2005.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
1-1120677892
Keyns
2005-07-06 23:24
2005.07.25
Построение графика по имеющимся данным(?)


1-1120663517
Vasya.ru
2005-07-06 19:25
2005.07.25
Вопрос мой закрыли, ответа не получил


1-1120879265
Face
2005-07-09 07:21
2005.07.25
Перевод из числа в стоки! Помогите???


4-1117431878
kblc
2005-05-30 09:44
2005.07.25
Не был произведён вызов CoInitialize


14-1120115366
AlexG
2005-06-30 11:09
2005.07.25
Ваши отзывы о сайте...