вертикальная надпись

← →
infom © (2004-03-23 16:32) [0]

как и с помощью каких компонентов можно написать надпись по-вертикали. Пример
м а с т е р а

← →
infom © (2004-03-23 16:36) [1]

Ау
Помогите !!!

← →
Курдль © (2004-03-23 16:40) [2]

TMemo

А если надо сам шрифт повернуть, то

function TGantt2D.CreateRotatedFont(AFont: TFont; Angle: Integer): HFont; var lf : TLogFont; begin {Создаем описание для нового шрифта.} with lf do begin {Устанавливаем текущие для объекта AFont параметры, кроме углов.} lfHeight := AFont.Height; lfWidth := 0; lfEscapement := Angle * 10; {Угол наклона строки в 0.1 градуса} lfOrientation := Angle * 10; {Угол наклона символов в строке в 0.1 градуса} if fsBold in AFont.Style then lfWeight := FW_BOLD else lfWeight := FW_NORMAL; lfItalic := Byte(fsItalic in AFont.Style); lfUnderline := Byte(fsUnderline in AFont.Style); lfStrikeOut := Byte(fsStrikeOut in AFont.Style); lfCharSet := DEFAULT_CHARSET; StrPCopy(lfFaceName, AFont.Name); lfQuality := DEFAULT_QUALITY; lfOutPrecision := OUT_DEFAULT_PRECIS; lfClipPrecision := CLIP_DEFAULT_PRECIS; lfPitchAndFamily := DEFAULT_PITCH; end; {Создаем новый шрифт} Result := CreateFontIndirect(lf); end;

можно и TLabel c WordWrap = true и шириной в 1 символ

вертикальная надпись Найти похожие ветки