Mega Code Archive

 

Categories / Delphi / Forms

 

Formda resize

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