Масштабирование Формы

[SERG1980]

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

interface

uses
Forms, WinTypes, WinProcs, SysUtils;

procedure ScaleForm(Sender: TObject);

implementation

procedure ScaleForm(Sender: TObject);

const

DesignScrY: LongInt = 768;
DesignScrX: LongInt = 1024;
DesignBorder: LongInt = 4;
var

SystemScrY: LongInt;
SystemScrX: LongInt;
SystemBorder: LongInt;
OldHeight: LongInt;
OldWidth: LongInt;

begin

SystemScrY := GetSystemMetrics(SM_CYSCREEN);
SystemScrX := GetSystemMetrics(SM_CXSCREEN);
SystemBorder := GetSystemMetrics(SM_CYFRAME);
with Sender as TForm do
begin
Scaled := True;
AutoScroll := False;
Top := Top * SystemScrX div DesignScrX;
Left := Left * SystemScrX div DesignScrX;
OldHeight := Height + (DesignBorder - SystemBorder) * 2;
OldWidth := Width + (DesignBorder - SystemBorder) * 2;
ScaleBy((OldWidth * SystemScrX div DesignScrX - SystemBorder * 2),
(OldWidth - DesignBorder * 2));

Height := OldHeight * SystemScrY div DesignScrY;
Width := OldWidth * SystemScrX div DesignScrX;
end;
end;
но это меня не совсем устраивает, т.к у Grida без изменения остаются длина и ширина колонок, что не совсем хорошо смотрится.
Может кто занимался этим, или есть готовый компонент. На мой взгляд тема довольно актуальна

[mihali4]

В умной литературе, заботливо выложенной на сайте форума, рассматриваются вопросы масштабирования формы. Почему бы не почитать?