Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Вертикальный текст


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS