Advanced Search

Delphi/Lazarus: Display the screen size and the list of fonts

/ Published in: Delphi
Save to your folder(s)
display the screen size and the list of fonts

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Label1.Caption := IntToStr (Screen.Width) + 'x' + IntToStr (Screen.Height); 
  2. ListBox1.Items := Screen.Fonts;

Report this snippet


Comments

You need to login to view comments.