PHP Delphi CSS HTML JavaScript Perl API ASP MySQL XML С++ VBasic WEB разработка *NIX CouchDB Hack Python
Главная Статьи Delphi Выводим цветной текст на форме под любым углом
Главная
 Главная  Контакты
 
Программинг
Статьи Книги ЧаВО
 
xBOOKi
Fresh Books Операционки Сети
 
Поиск
-------
 
Counters
Яндекс цитирования
Rambler's Top100
-------
 
CryptDisk.4h
Программа которая позволяет создать виртуальный шифрованный логический диск.

cryptdisk.4hack.com

-------
 
 

Выводим цветной текст на форме под любым углом.

Автор: Lutfi Baran
www.исходники.ru

Пример демонстрирует вывод теста случайным образом на форме под определённым углом. Добавляем в форму компонент TButton и в событие OnClick следующий код:

procedure TForm1.Button1Click(Sender: TObject); 
var 
   logfont:TLogFont; 
   font: Thandle; 
   count: integer; 
begin 
       LogFont.lfheight:=20; 
       logfont.lfwidth:=20; 
       logfont.lfweight:=750; 
       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); 

       for count:=1 to 100 do 
       begin 
        canvas.textout(Random(form1.width),Random(form1.height),'Hello'); 
        SetTextColor(form1.canvas.handle,rgb(Random(255),Random(255),Random 
         (255))); 
       end; 
     Deleteobject(font); 
end;


Свежее
Резервное копирование rsync-ом
DNS Amplification (DNS усиление)
Алгоритм Шинглов — поиск нечетких дубликатов текста
Metasploit Framework. Обзор
Использование CouchDB
-------



 
Copyright © 2003-2009   Frikazoid.
Rambler's Top100