Mega Code Archive

 

Categories / Delphi / Forms

 

Otomatik form ölçekleme

Procedure ScaleForm(F: TForm;ScreenWidth, ScreenHeight: LongInt); Begin F.Scaled := True; F.AutoScroll := False; F.Position := poScreenCenter; F.Font.Name := 'Arial'; If (Screen.Width <> ScreenWidth) Then Begin F.Height := LongInt(F.Height)* LongInt(Screen.Height) div ScreenHeight; F.Width := LongInt(F.Width) * LongInt(Screen.Width) div ScreenWidth; F.ScaleBy(Screen.Width,ScreenWidth); End; End;