/|\АРТЕМ.NET.RU /|\ - Портал для программистов и не только: Delphi Visual Basic BORLAND С++ PERL PHP HTML

Delphi 1

Масштабирование окна I

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;

Спасибо Andrey Kozlov за ценные замечания.

Дополнение

Файл DELSEQ07.FAQ содержит код примера отображения форм в различных разрешениях. К сожалению, он не учитывал ширину границы окна. Я публикую изменение, масштабирующее компоненты вне зависимости от разрешения экрана и ширины границ окон. Включите нижеследующий модуль в секцию uses каждого модуля и вызывайте ScaleForm в обработчике формы OnCreate, передавая в качестве параметра имя формы. Я надеюсь что помог тем, кто столкнулся с данной проблемой.

unit scale;

interface

uses

Forms, WinTypes, WinProcs, SysUtils;

procedure ScaleForm(Sender: TObject);

implementation

procedure ScaleForm(Sender: TObject);

const

{измените это так, чтобы это соответствовало режиму разрешения во время разработки}

DesignScrY: LongInt = 480;

DesignScrX: LongInt = 640;

DesignBorder: LongInt = 4; {значение в Панели Управления + 1}

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));

{
Для форм не имеющих границ измените предшествующие три строки следующим способом:

OldHeight := Height;

OldWidth := Width;

ScaleBy(SystemScrX, DesignScrX);

}

Height := OldHeight * SystemScrY div DesignScrY;

Width := OldWidth * SystemScrX div DesignScrX;

end;

end;

begin
end.

[000433]