How I can get screen resolutions?

[lublinkermi]

Hi, I need help to find any procedure to find resolution screen ? I need coordinate X  and Y for creating applications works fine in any resolutions... In PHP is very, very simple... Please help me!

[theo]

Screen.Height
Screen.Width
Screen.PixelsPerInch

[lublinkermi]

Thank You!

[Zaher]

>In PHP is very, very simple
PHP generate HTML, sp you must say HTML and CSS.
Layouts in HTML and CSS more flexible than GUI app like Delphi and Lazarus.

[vonskie]

var
  dm: tDEVMODE;
begin

 
  FillChar(dm,SizeOf(dm) ,#0 );
  dm.dmSize := sizeof(dm);
  EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, @dm);
  showmessage(inttostr(dm.dmPelsHeight));
  showmessage(inttostr(dm.dmPelsWidth));
  end;     

This is true resolution font scaling will not mess it up

[PascalDragon]

var
  dm: tDEVMODE;
begin

 
  FillChar(dm,SizeOf(dm) ,#0 );
  dm.dmSize := sizeof(dm);
  EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, @dm);
  showmessage(inttostr(dm.dmPelsHeight));
  showmessage(inttostr(dm.dmPelsWidth));
  end;     

This is true resolution font scaling will not mess it up

This will only work on Windows however.

[wp]

Hi, I need help to find any procedure to find resolution screen ? I need coordinate X  and Y for creating applications works fine in any resolutions...

Check the box "Use LCL scaling (High-DPI)" in "Project" > "Project Options". On Windows also select an appropriate "On" setting in the "DPI awareness" combobox. Make sure that "Use manifest resource" is checked. Then your program will be scaled automatically.

[vonskie]

I used the below code for a while and ran into problems as sometimes it could not get the resolution

I then changed ENUM_CURRENT_SETTINGS to ENUM_REGISTRY_SETTINGS and it works every time in windows.

var
  dm: tDEVMODE;
begin

 
  FillChar(dm,SizeOf(dm) ,#0 );
  dm.dmSize := sizeof(dm);
  EnumDisplaySettings(nil, ENUM_CURRENT_SETTINGS, @dm);
  showmessage(inttostr(dm.dmPelsHeight));
  showmessage(inttostr(dm.dmPelsWidth));
  end;     

This is true resolution font scaling will not mess it up