Как вывести текст вертикально?

← →
smaller (2006-12-18 12:40) [0]

Есть ли какие-нибудь простые средства для вертикального вывода текста?

← →
Германн © (2006-12-18 12:49) [1]

CreateFontIndirect

← →
Zeqfreed © (2006-12-18 12:51) [2]

CreateFont. Обратить внимание на nEscapement.

← →
VitV © (2006-12-18 14:13) [3]

procedure CanvasSetAngle(C: TCanvas; A: Single);
var
LogRec: TLOGFONT; {Font informationen}
begin
GetObject(C.Font.Handle,SizeOf(LogRec),Addr(LogRec));
LogRec.lfEscapement := Trunc(A*10);
C.Font.Handle := CreateFontIndirect(LogRec);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var A: Integer;
begin
A := Random(3600);
Canvas.Font.Name:="Arial";
CanvasSetAngle(Canvas, A / 10);
Canvas.RectAngle(X-1,Y-1,X+1,Y+1);
Canvas.TextOut(x, Y, FormatFloat("##0.0", A/10)+"°");
end;

Попробуй это!

← →
smaller (2006-12-18 14:56) [4]

Благодарю за помощь, спасибо.

А если выводить в лабеле строку "a"#10#13"b"#10#13 и т.д.?

> vain (18.12.2006 15:10:05) [5]

У хакеров учился?

Как вывести текст вертикально? Найти похожие ветки