Вертикальный текст с горизонтальной ориентацией букв

Материал из DRKB


Image 2021-02-12 020641.png


procedure TForm1.FormPaint(Sender: TObject);
var
  hFont: Thandle;
  LogFont: TLogFont;
  Count: Integer;
begin
  LogFont.lfHeight := 30;
  LogFont.lfWidth := 10;
  LogFont.lfWeight := 900;
  LogFont.lfEscapement := -200;
  LogFont.lfCharSet := 1;
  LogFont.lfOutPrecision := OUT_TT_PRECIS;
  LogFont.lfQuality := DRAFT_QUALITY;
  LogFont.lfPitchAndFamily := FF_Modern;
  hFont := CreateFontIndirect(LogFont);
  Selectobject(Form1.Canvas.Handle, hFont);
  SetTextColor(Form1.Canvas.Handle, rgb(0, 0, 200));
  SetBKmode(Form1.Canvas.Handle, TRANSPARENT);

  //TextOut(Form1.Canvas.Handle, 10, 10, 'Повернутый', 7);

  for Count := 1 to 100 do
  begin
    Canvas.TextOut(Random(Form1.Width), Random(Form1.Height), 'Повернутый');
    SetTextColor(Form1.Canvas.Handle, RGB(Random(255), Random(255), Random(255)));
  end;
  DeleteObject(hFont);
end;


Source: http://delphiworld.narod.ru/
ID: 03657