Screen Resolution and Tlistbox

[Razor]

Delphi-Quellcode:

procedure tform4.res;

var
  i       : Integer;
  DevMode : TDeviceMode;
begin
  i:=0;


  while EnumDisplaySettings(nil,i,DevMode) do begin
    with Devmode do
      ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));
    Inc(i);
  end;

end;

[edit=mkinzler]Better readable with Delphi-Tags Mfg, mkinzler[/edit]