Вертикальный текст с горизонтальной ориентацией букв
Материал из DRKB
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