Screen Resolution and Tlistbox

[Razor]

I got a problem i can generate supported resolution modes in a ilstbox,right..
Then i got this after calling the enumdisplaysettings.This is in a listbox.

640X480 8 bit
640X480 8 bit
640X480 8 bit
640X480 8 bit
640X480 16 bit
640X480 16 bit
640X480 16 bit
640X480 16 bit

Can i somehow filter(remove) the items that have the same name.Couse i dont need that many items that are the same its confusing!

[Bernhard Geyer]

Write the items first in a TStringList with

Delphi-Quellcode:

MyStringList.Duplicates := dupIgnore;

set and then assign it to the ListBox with

Delphi-Quellcode:

MyListBox.Items.Assign(MyStringList);

[Meflin]

How do you call enumdisplaysettings? It doens't return duplicate entries.

[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]

[Meflin]

Hm, so I guess this is due to different refresh rates? Anyway, adding a mode only if it's not already in the list is preferable rather than removing duplicate entries afterwards.

By the way, you can find a complete implementation here (that ignores the duplicates):
http://burks.brighton.ac.uk/burks/la...s/fullscrn.htm

[Razor]

Crap i always do something wrong...

[Satty67]

Here my way :

Delphi-Quellcode:

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


  while EnumDisplaySettings(nil,i,DevMode) do begin
    with Devmode do
      s := Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]);
    if ListBox1.Items.IndexOf(s) < 0 then ListBox1.Items.Add(s);

    Inc(i);
  end;

end;