Поворт текста в 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]

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

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