Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;



---

← →
clickmaker ©   (2004-03-23 17:02) [3]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.039 c