Главная страница
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.013 c
4-55357
WindowSeeker
2002-04-13 08:01
2002.06.17
Чтение по адресам памяти с помощью WinApi


1-55127
olga k
2002-06-02 18:46
2002.06.17
Раьота с файлами и строками


14-55319
Саша
2002-05-14 08:33
2002.06.17
где взять иконки?


3-54983
HDD
2002-05-20 06:18
2002.06.17
Помогите далекой Камчатке


14-55278
[NIKEL]
2002-05-12 01:08
2002.06.17
А кто какие примеры функции хочет видеть в UBPFD???