Масштабирование формы при изменение разрешения экрана
Здравствуйте ! Писал программу на мониторе с расширением 1280 x 1024 а на другом мониторе с меньшим расширением программа вылазит за рамки экрана.
Подскажите,пожалуйста,как сделать,чтоб при изменении разрешения масштабировал ась моя форма со всем содержимым?
Подскажите,пожалуйста,как сделать,чтоб при изменении разрешения масштабировал ась моя форма со всем содержимым?
Здравствуйте Gudzik11. Как то спрашивал подобный вопрос на других форумах. Вам нужно побаловаться с функцией scaleby. Так же в Delphi установка свойств Anchors позволит изменять размеры компонентов в зависимости от размеров формы.
Такой вариант не подходит ! Вот нашёл пример
по горизонтале всё вписывается нормально а по вертикале немножко уезжает в низу . Не знаете в чём может быть причина?
Код:
implementation
const
ScreenWidth: Integer = 800; {Я разрабатывал свою форму в режиме 800x600.}
ScreenHeight: Integer = 600;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
x, y: LongInt; {Тип Integer не достаточно большой для наших значений.}
begin
form1.scaled := true;
x := getSystemMetrics(SM_CXSCREEN);
y := getSystemMetrics(SM_CYSCREEN);
if (x <> ScreenHeight) or (y <> ScreenWidth) then
begin
form1.height := form1.height * x div ScreenWidth;
form1.width := form1.width * y div ScreenHeight;
end;
if x <> ScreenWidth then
scaleBy(x, ScreenWidth);
end;
const
ScreenWidth: Integer = 800; {Я разрабатывал свою форму в режиме 800x600.}
ScreenHeight: Integer = 600;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
x, y: LongInt; {Тип Integer не достаточно большой для наших значений.}
begin
form1.scaled := true;
x := getSystemMetrics(SM_CXSCREEN);
y := getSystemMetrics(SM_CYSCREEN);
if (x <> ScreenHeight) or (y <> ScreenWidth) then
begin
form1.height := form1.height * x div ScreenWidth;
form1.width := form1.width * y div ScreenHeight;
end;
if x <> ScreenWidth then
scaleBy(x, ScreenWidth);
end;
по горизонтале всё вписывается нормально а по вертикале немножко уезжает в низу . Не знаете в чём может быть причина?
У Вас Х сначала на высоту ориентируется а У на ширину а потом наоборот))) ну первым взглядом если посмотреть
if (x <> ScreenHeight) высота
or (y <> ScreenWidth) ширина
а потом
if x <> ScreenWidth ширина
Быть может в этом причина?
if (x <> ScreenHeight) высота
or (y <> ScreenWidth) ширина
а потом
if x <> ScreenWidth ширина
Быть может в этом причина?