Создание адаптивных форм в Delphi 7: масштабирование компонентов без ручной настройки

Delphi , Компоненты и Классы , Компоненты

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

В Delphi 7 для создания адаптивных форм можно использовать свойство Anchor у компонентов, которое позволяет "привязывать" компоненты к сторонам формы, что обеспечит их пропорциональное изменение при изменении размера формы. Однако, для масштабирования шрифтов и более сложной настройки поведения компонентов, может потребоваться дополнительная логика.

Решение проблемы

Для решения этой задачи можно использовать компонент TARTPercentageWireGrid, который позволяет компонентам на форме изменять свои размеры пропорционально изменению размера формы. Пример использования этого компонента представлен ниже:

1. Подготовка формы:

2. Добавьте на форму TARTPercentageWireGrid и установите его свойство Align в значение alClient, чтобы он занимал всю клиентскую область формы.

3. Инициализация компонентов:

4. В событии FormCreate проинициализируйте массив FBounds для хранения исходных размеров компонентов. Например, для кнопки Button1 это будет выглядеть так: delphi SetLength(FBounds, 1); FBounds[0] := ARTPercentageWireGrid1.PixelRectToGrid(Button1.BoundsRect);

5. Масштабирование компонентов:

6. В событии FormResize обновите размеры компонентов, используя метод GridRectToPixel из TARTPercentageWireGrid. Для всех компонентов это будет выглядеть следующим образом: delphi procedure TForm1.FormResize(Sender: TObject); var I: Integer; begin For I := 0 to ComponentCount-1 do If Components[I] is TControl then begin With Components[I] as TControl do If Align <> alClient then BoundsRect := ARTPercentageWireGrid1.GridRectToPixel(FBounds[I]); end; end;

7. Не забудьте обновить FBounds в FormCreate, если компоненты добавляются или удаляются.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
var
   I: Integer;
begin
   SetLength(FBounds, ComponentCount);
   For I := 0 to ComponentCount-1 do
      If Components[I] is TControl then
      begin
         With Components[I] as TControl do
            If Align <> alClient then
               FBounds[I] := ARTPercentageWireGrid1.PixelRectToGrid(BoundsRect);
      end;
end;

procedure TForm1.FormResize(Sender: TObject);
var
   I: Integer;
begin
   For I := 0 to ComponentCount-1 do
      If Components[I] is TControl then
      begin
         With Components[I] as TControl do
            If Align <> alClient then
               BoundsRect := ARTPercentageWireGrid1.GridRectToPixel(FBounds[I]);
      end;
end;

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

Альтернативные решения

Также можно рассмотреть следующие альтернативные решения:

• Использование компонента ResizeKit, который позволяет масштабировать компоненты и шрифты. Есть бесплатная пробная версия.
• Создание собственных компонентов, в которые встроена необходимая логика масштабирования.

Заключение

Приведенный выше метод использования TARTPercentageWireGrid является одним из способов создания адаптивных форм в Delphi 7. Это решение позволяет избежать ручной настройки для каждого компонента и упрощает процесс разработки адаптивных интерфейсов.

Создано по материалам из источника по ссылке.

Создание адаптивных форм в Delphi 7 для автоматического масштабирования компонентов без необходимости ручной настройки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компоненты ::