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

Вниз

Поворт текста в Image   Найти похожие ветки 

 
Stranger ©   (2002-05-30 18:28) [0]

Необходимо написать текст в Image по вертикали, как это сделать я не знаю.
Уважаемые МАСТЕРА помогите советом, может есть какой-то параметр в стандартных функциях отображения текста?


 
Sniffer   (2002-05-30 18:37) [1]

В стандартных вроде как нет,но я бы сначала вывел текст обычно
TextOut, а потом бы по пикселям перевернул бы его.


 
MBo ©   (2002-05-30 19:04) [2]

в FAQ есть пример вывод текста под углом.


 
mukha ©   (2002-05-30 19:24) [3]

Можно сделать так:

procedure TForm1.Button1Click(Sender: TObject);
Var
lf: TLogFont;
x, y: Integer;
begin
Image1.Transparent:=true;
With Image1 Do
With Canvas Do
Begin
FillRect( ClientRect );
Font.Name := "Arial";
Font.Size := 20;
Font.Style := [fsBold];
Font.Color:=clLime;
x:= 40;
y:= Height - 10;
GetObject( Font.Handle, Sizeof(lf), @lf );
lf.lfEscapement := 900;
Font.Handle := CreateFontIndirect( lf );
TextOut(x-TextHeight("A")-5, y,"Текст по вертикали" );
DeleteObject( Font.Handle );
Font.Handle := 0;
End;
end;


 
Stranger ©   (2002-06-04 16:58) [4]

Огромное спасибо всем откликнувшемся на мой вопрос.
( Низкий поклон и снятие шляпы :) )
СПАСИБО !!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
14-55261
IronHawk
2002-05-11 13:33
2002.06.17
Приветствую Мастеров! Обучение Delphi!


3-54995
VictorT
2002-05-21 14:42
2002.06.17
Проблемка с индексами.


1-55066
Tahion
2002-06-05 17:40
2002.06.17
Как зделать автоповтор содержимого QReport?


14-55298
Malder
2002-05-14 23:05
2002.06.17
Об UBPFD


4-55377
Tpv
2002-04-12 10:11
2002.06.17
Считывание данных из Wav файла