Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6298
Последний выпуск: 19.06.2015

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

Автор: 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;

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог