Главная страница
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.016 c
4-55366
Esa
2002-04-09 11:54
2002.06.17
Ресурсы


14-55301
Alexandr
2002-05-15 11:31
2002.06.17
Decompress UPX


3-55029
aleksei
2002-05-24 09:19
2002.06.17
По Grid,Text,Edit и т.п.


8-55230
Al_va
2002-02-01 12:59
2002.06.17
Свойства ShockwaveFlash


3-54997
PSZ
2002-05-22 17:20
2002.06.17
Проверка на null в таблице.