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

Материал из 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