Выводим цветной текст на форме под любым углом
Материал из DRKB
Выводим цветной текст на форме под любым углом[править | править код]
Пример демонстрирует вывод теста случайным образом на форме под определённым углом. Добавляем в форму компонент 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;
Source: Взято из http://forum.sources.ru
ID: 00419