Поворот компонентов VCL в Delphi XE2

У вас нет реальных шансов выполнить эту работу, используя стандартные элементы управления VCL. Элементы управления VCL не имеют режима, позволяющего поворачивать их на 90 градусов. Я не вижу легкой перспективы сделать так, чтобы любой элемент управления, отображающий текст, был повернут. Это просто вывод текста. Что с вводом текста? Существует также проблема теней и 3D-эффектов, основанных на определенной ориентации. У этого списка нет конца.

На мой взгляд, если вы хотите, чтобы это работало хорошо, вам почти наверняка потребуется написать всю структуру графического интерфейса с нуля.

Хотя очевидно, что это возможно сделать, это не кажется реалистичным выбором, если оставить в стороне альтернативу, заключающуюся в том, чтобы ваше приложение работало как в портретной, так и в альбомной ориентации.

У вас нет шансов с искусственным ландшафтным подходом.

У вашей проблемы есть три решения:

1. Лучший — заставить ваше приложение работать с любой комбинацией размера экрана/ориентации. Это путь Windows.

2. Если ваше приложение «должно» работать в ландшафтном режиме, сообщите пользователям, когда вы обнаружите неправильную ориентацию, что приложение работает только в ландшафтном режиме. Покажите либо окно сообщения, либо специальную форму с сообщением, которое нельзя пропустить, пока вы прячете другие свои формы, или что-то в этом роде.

3. Заблокируйте устройство в ландшафтном режиме, как описано в Как чтобы предотвратить автоматический поворот экрана на планшете? Но вы должны знать, что это не тот способ, которым Windows предназначена для использования в режиме рабочего стола.

VCL не был создан для этого, поэтому я действительно не вижу, чтобы это произошло без серьезной работы над уровнем представления RTL.

Были созданы скины, которые были способны на это, но они, по сути, исправили RTL и взяли на себя рендеринг. Данные о повороте хранились в таблице поиска для каждого элемента управления, который нужно было устанавливать отдельно от фактического класса.

Если бы Delphi поддерживала частичные классы, как это делает Smart Pascal, то, возможно (если бы архитектура позволяла это) это можно было бы добавить в постфикс. Но на момент написания VCL просто не был создан для этого. Я пишу библиотеку анимации, пока печатаю это, поэтому я изучил это.

Один из способов, который может сработать для вас, — это использовать метод PaintTo для различных элементов управления. Попросите их нарисовать свое полностью нарисованное изображение на растровом изображении, а затем повернуть растровое изображение на 90 градусов, чтобы получить эффект портрета и пейзажа. Затем нарисуйте это изображение на холсте вашей формы в его методе OnPaint (вы хотели бы сделать фактические элементы управления невидимыми в портретном режиме, показывая только ваши нарисованные и повернутые растровые изображения).

Однако есть некоторые элементы управления (например, TRichEdit), метод PaintTo которых работает неправильно. Так что это может иметь ограниченную пользу для вас. Другой способ — сделать снимок экрана всей клиентской области формы на рабочем столе, а затем повернуть и отобразить его. это работает даже с TRichEdit...