Mega Code Archive

 

Categories / Delphi / Forms

 

Form üzerindeki bileşenleri resolution oranında büyütme

Form üzerindeki bileşenleri resolution oranında büyütme. //Referans olarak 640*480 alinmıiştır. procedure AdjustResolution(oForm:TFrm); var iPercentage:integer; begin if Screen.Width > 640 then begin iPercentage:=Round(((Screen.Width-640)/640)*100)+100; oForm.ScaleBy(iPercentage,100); end; end; AdjustResolution(Self);