Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > как вращать текст в панели Tpanel

Автор: zvyagaaa 4.5.2009, 12:35

Здравствуйте, уважаемые профессионалы - программисты. Я начинающий программист. Вот застрял на одной задаче - требуется повернуть текст на панели. Сейчас делаю вот так Код   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 - поправил его под свои нужды - и вуаля - все отлично. Жаль, что никто ничего не ответил.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)