Schlagwort: Forms

Programmierung

Resize

[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…