Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 5 705

Раздел: Delphi » Работа с компонентами и библиотеками
/ вопрос решён /

Доброго времени суток, уважаемые эксперты!
Вопрос по пакету TMS Software
использую TAdvStringGrid

понадобилось изменить ориентацию текста на вертикальную (90 градусов) для первой строки (шапка таблицы)

Нашел на формуе код, который вроде как должен работать, но он не работает (в приложении к вопросу)

Подскажите решение проблемы, пожалуйста

Приложение:
  1.  
  2. <code language=delphi>
  3. DistanceGrid: TAdvStringGrid;
  4.  
  5. procedure TTPMGUIFormDistance.DistanceGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  6. Rect: TRect; State: TGridDrawState);
  7. var
  8. s: string;
  9. begin
  10. if (ARow = 0) then
  11. begin
  12. DistanceGrid.Canvas.FillRect(Rect);
  13. s:=DistanceGrid.Cells[ACol, ARow];
  14. DrawText(
  15. DistanceGrid.Canvas.Handle,
  16. PChar(s),
  17. Length(s),
  18. Rect,
  19. DT_WORDBREAK or DT_VCENTER or DT_SINGLELINE);
  20. end;
  21. end;
  22. </code>
  23.  


Aндрей Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: Aндрей (статус: 1-ый класс)
Вопрос отправлен: 31 октября 2011, 10:39
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 31 октября 2011, 14:50; участников в обсуждении: 2.
DNK

DNK (статус: Студент), 31 октября 2011, 12:57 [#1]:

А пробовал это?

Цитата:

procedure AddRotated(ACol, ARow: Integer; AAngle: Smallint; s: string);

Description

Adds rotated text to a cell with aAngle specified in degrees (0°-360°). The rotated text uses additionally the alignment specified through the VAlignment property and horizontal cell alignment specified through the OnGetAlignment event handler and font, color settings through the OnGetCellColor event handler.

Make sure a Truetype font is used.
"Digital Networked Knight"
Aндрей

Aндрей (статус: 1-ый класс), 31 октября 2011, 14:38 [#2]:

DNK: Спасибо, только еще 2 вопроса:
1. Где можно взять документацию по TAdvStringGrid
2. Данные развернулись, но в одной ячейке дублируются горизонтальное и вертикальное написание
Как его убрать?
Aндрей

Aндрей (статус: 1-ый класс), 31 октября 2011, 14:44 [#3]:

Все, нашел, спасибо
1. тут http://www.tmssoftware.com/site/manuals/TMS%20TAdvStringGrid%20v6.0%20Developers%20Guide.pdf можно взять документацию по TAdvStringGrid
2. там дублировался код от метода DistanceGridDrawCell, его убрал и все заработало как надо
DNK

DNK (статус: Студент), 31 октября 2011, 14:50 [#4]:

1. Скорей всего на сайте разработчика. У меня на работе по наследству досталась вместе с одним из пректов. Версия 2.01. Если нужен такой динозавр могу выдать.
2. Может два раза текст вставляется под разными углами?
"Digital Networked Knight"

31 октября 2011, 14:53: Статус вопроса изменён на решённый (изменил автор вопроса — Aндрей)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 31 октября 2025, 07:05
Выполнено за 0.02 сек.