| Статистика | 
|
|
Каталог статей
Вертикальный текст с помощью 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;
Вот и все.
|
|
|
Просмотров: 722
7
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
