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

Автор: Lutfi Baran

Совместимость: Delphi все версии

Пример демонстрирует вывод теста случайным образом на форме под определённым углом. Добавляем в форму компонент 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;