Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];

Вниз

Поворт текста в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.012 c
14-55313
VID
2002-05-15 15:39
2002.06.17
Где можно достать код? :)))


1-55136
Sergey_K
2002-06-03 17:58
2002.06.17
TThread


1-55069
Karlusha
2002-06-05 18:11
2002.06.17
Mouse


1-55063
Fiend
2002-06-05 16:10
2002.06.17
Packages


14-55287
Alibaba
2002-05-14 18:30
2002.06.17
Word-Excel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский