Вертикальный текст в Label

[Little_Roo]

В Delphi использовал компоненты Raize - там можно было Label повернуть, изогнуть и т.п.
Можно ли нечто подобное измыслить в лазаре - и если да, то как (желательно с примером)
В принципе нужно пока только повернуть Label - сделать надписи к оси X TChart'a

[Maxizar]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Font.Orientation:=300; //Повернули на 30 градусов

  canvas.Font.Orientation:=900;  //Задали угол в 90 градусов
  Canvas.TextOut(100,100,'Ура получилось :)))'); //Ну и собственно вывод тектса
end; 

[VirtUX]

Label1.Font.Orientation:=300; //Повернули на 30 градусов

Повернули и потеряли текст. Чем больше угол, тем глубже (влево) прячется текст.
Например: При Label1.Font.Orientation:=-300; прячется начало текста. А при Label1.Font.Orientation:=-900; его уже совсем не видно.
Как побороть?
Например здесь (изменил направление не снизу-вверх, а сверху-вниз):

Код: Выделить всё

  canvas.Font.Orientation:=-900;  //Задали угол в 90 градусов
  Canvas.TextOut(100,100,'Ура получилось :)))'); //Ну и собственно вывод тектса

Можно побороть это так:

Код: Выделить всё

  canvas.Font.Orientation:=-900;  //Задали угол в 90 градусов
  Canvas.TextOut(100 - canvas.Font.height,100,'Ура получилось :)))'); //Ну и собственно вывод тектса

Хотя это и не очень красиво...

[скалогрыз]

в принципе, написать свой Label с правильной поддержкой Orientation не трудно.
Хотя лучше сделать дополнительное свойство в уже существующий

но в итоге, если от Label требуются поворот только на 90-кратные градусы, то есть более... правильные способы (через bitmap-ы)

[Maxizar]

Ну Label я не мучал, когда у меня возникла проблема как у вас (подпись осей графика), правда я писал класс с нуля в делфи было на GDI+ на FPC реализовал на OpenGL. Так вот я как и скалогрыз выводил на канву.


http://xmages.net/upload/3deed17f.png

[Little_Roo]

Добавлено спустя 9 часов 24 минуты 52 секунды:

Label1.Font.Orientation:=300; //Повернули на 30 градусов

Повернули и потеряли текст. Чем больше угол, тем глубже (влево) прячется текст.
Например: При Label1.Font.Orientation:=-300; прячется начало текста. А при Label1.Font.Orientation:=-900; его уже совсем не видно.
Как побороть?

Методом художественного тыка нашел костыль - перед текстом нужны пустые строчки в кол-ве N штук (видимо от длинны строки зависит)- тогда текст выезжает
Спать иду - копать буду завтра

Добавлено спустя 14 часов 20 минут 7 секунд:

Методом художественного тыка нашел костыль - перед текстом нужны пустые строчки в кол-ве N штук (видимо от длинны строки зависит)- тогда текст выезжает
Спать иду - копать буду завтра

Пока самый идиотский метод но пока прокатывает - Label1.Autosize := false, растягиваем рамку - как я понял, фиксируется верхний левый пиксель текста (что правильно), а вот при повороте текста против часовой стрелки- опа! мы уже ЗА полем вывода
Так что нужно как-то при повороте текста его еще и смещать вниз, причем на вполне определенное (по длине текста и от угла поворота) место
Может, при при изменении label.fomt.orientation от дефолтного autosize сразу переключать ?
Извините за сумбур, ламерство и троллизм

Lazarus 0.9.29 r25020 FPC 2.4.1 i386-win32-win32/win64

[Brainenjii]

http://wiki.lazarus.freepascal.org/OrphPort - вот ещё можно посмотреть как сделали

[Ask]

Если это ещё кому-инбудь интересно , начиная с r26772 TAChart (по идее) корректно поддерживает
произвольную ориентацию подписей к осям и значениям (Marks.LabelFont.Orientation).
См. demo/labels/labelsdemo.lpr