VPF::как вращать текст в панели Tpanel

zvyagaaa

Дата 4.5.2009, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 13.1.2008

Репутация: нет
Всего: нет

Здравствуйте, уважаемые профессионалы - программисты. Я начинающий программист. Вот застрял на одной задаче - требуется повернуть текст на панели. Сейчас делаю вот так

Код


  panelka:=TPanel.Create(self); // создаем в рантайме панель
  panelka.parent:=Mainform; //прописываем родителя для панели
  panelka.ParentBackground:=  false; //чтобы менялся цвет
  panelka.Left:=10; //точки вставки панели на форме
  panelka.Top:=20;
  panelka.Width:=49; // размеры панели
  panelka.Height:=400;
  panelka.Font.Orientation:=900; //указываю угол поворота в градусах*10
  panelka.Font.Style:= panelka.Font.Style+[fsBold]; //делаю шрифт жирным
  panelka.Caption:='Кабель # '+inttostr(1); //просто для теста, в реальной программе
//будет генерироваться текст из базы данных

текст пропадает, я так понимаю, что он перемещается куда-то за область панели, вообще это вращение работает очень странно. Что можете посоветовать? Спасибо.

UPD
сам же и отвечу. Нашел на torry.net компонент TCaptionedPanel - поправил его под свои нужды - и вуаля - все отлично. Жаль, что никто ничего не ответил.

Это сообщение отредактировал(а) zvyagaaa - 6.5.2009, 10:57

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »