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


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

RSS Icon Subscribe to comments

You need to login to post a comment.