Статистика | Зарегистрировано на сайте: Всего: 51647
Онлайн всего: 41 Гостей: 41 Пользователей: 0
|
|
Каталог статей
Вертикальный текст с помощью Delphi7
Нам понадобится: Button(Standart)
Создаем обработчик событий OnClick для Button'a и пишем туда вот это:
var Hfont: Thandle; logfont: TLogFont; font: Thandle; count: integer; begin LogFont.lfheight := 30; logfont.lfwidth := 10; logfont.lfweight := 900; LogFont.lfEscapement := -200; logfont.lfcharset := 1; logfont.lfoutprecision := out_tt_precis; logfont.lfquality := draft_quality; logfont.lfpitchandfamily := FF_Modern; font := createfontindirect(logfont); Selectobject(Form1.canvas.handle, font); SetTextColor(Form1.canvas.handle, rgb(0, 0, 200)); SetBKmode(Form1.canvas.handle, transparent); {textout(form1.canvas.handle,10,10,'Повернутый',7);} for count := 1 to 100 do begin canvas.textout(Random(form1.width), Random(form1.height), 'вот и все !!!');{тут в ковычках пишем нужный нам текст} SetTextColor(form1.canvas.handle, rgb(Random(255), Random(255), Random(255))); end; deleteobject(font); end;
Вот и все.
|
|
Просмотров: 725
| Рейтинг: 1.0/
7
Оштрафовать
| Жаловаться на материал |
|
|