[code lang=”delphi”]//Notice the 640 reference.
procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
//call it like so
AdjustResolution(Self);
[/code]
[tags]Delphi, Forms[/tags]
0 Kommentare zu “Resize”