Вывод вертикального текста

← →
AngelSAI (2004-05-12 10:18) [0]

Подскажите пожалуйста, как можно вывести в ячейке таблицы строк StringGrid текс, но так чтобы он выводился вертикально?

← →
Курдль © (2004-05-12 10:47) [1]

В onDrawCell вручную создавать вертикальный шрифт и им писать по TextRect. (Справка по CreateFontIndirect).

← →
AngelSAI (2004-05-12 11:00) [2]

А, как создать этот вертикальный текст?

← →
Курдль © (2004-05-12 11:27) [3]

Меня сёдня распирает от собственной щедрости... :-/
function TGantt.CreateRotatedFont(AFont: TFont): HFont; var lf : TLogFont; begin {Создаем описание для нового шрифта.} with lf do begin AFont.Name := "Courier New Cyr"; AFont.Style := []; AFont.Color := clBtnText; {Устанавливаем текущие для объекта AFont параметры, кроме углов.} lfHeight := AFont.Height; lfWidth := 0; lfEscapement := 900; {Угол наклона строки в 0.1 градуса} lfOrientation := 900; {Угол наклона символов в строке в 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;

← →
AngelSAI (2004-05-12 12:01) [4]

Я только начитаю изучать Delphi, и поэму не совсем понимаю на счет этой функции. Нельзя ли поподробнее (как ее вызывать и т.п.). Заранее спасибо.

← →
Курдль © (2004-05-12 12:03) [5]

> Я только начитаю изучать Delphi

Тогда вертикальный текст пишите так:
В е р т и к а л ь н ы й т е к с т

← →
evvcom © (2004-05-12 12:11) [6]

> Я только начитаю изучать Delphi

Тогда надо открыть Demo-примеры и прошагать их по F7 и F8 до некоторого понимания.

← →
AngelSAI (2004-05-12 12:19) [7]

1. Нет мне нужно вывести текст повернутый на 90 градусов против часовой стрелке, относительно нормального вывода.
2. TGantt.CreateRotatedFont – это обработчик события или нет. Если обработчик, то что за тип «TGantt». А если это процэдура, то когда ее вызывать.
3.
> Тогда надо открыть Demo-примеры и прошагать их по F7 и F8
> до некоторого понимания.
- нет времени, очень срочно надо.

> TGantt.CreateRotatedFont – это обработчик события или нет.
> Если обработчик, то что за тип «TGantt». А если это процэдура,
> то когда ее вызывать.

Это функцыя из рабочего модуля класса TGantt.
Оформи ее у себя, как подобает функцыи - хоть рюшечками обвешай, хоть цветочками.
Однако, я бы на твоем месте на месяцок отключил комп (отдал друзьям и т.п.) и почитал книжонки о простом - как декларировать процедуры и функции, как их вызывать, где-какая область видимости и т.п.

Чтоб были бы еще эти книжонки.

А принтер есть? Тогда к Анатолию Подгорецкому на сайт и качай, качай, качай... А потом печатай, печатай, печатай...

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