OpenPictureDialog програмное изменение вида отображения списка файлов

[Аватар]

При входе в OpenPictureDialog вид отображения устанавливается по умолчанию не такой как хочется. Вопрос - как изменить это умолчание? Первая мысль - в обработчике OnShow послать сообщение объекту отображающему список или соответствующему пункту меню кнопки "Вид". Знать бы какое и с какими параметрами. Если кто нибудь сталкивался с этой проблемой подскажите пожалуйста.

[Stilet]

ИМХО нужно искать примеры про LVM_SETIMAGELIST

[Аватар]

LVM_SETIMAGELIST не поможет, List View тут не причем, да и не поддерживает он стиль "Эскизы страниц", который собственно мне и нужен. Один из классов возвращемых из диалога по GetClassName - SHELLDLL_DefView (ид 1121). Folder используется, чего и следовало ожидать. А как к нему подступится - темный лес, да и в HELP-е нашел только возможность чтения стиля отображения, а изменения - нет.

[JTG]

private 
  { Private declarations } 
  procedure WMUser(var msg: TMessage); message WM_USER; 
public 
  { Public declarations } 
end; 

var Form1: TForm1; 

implementation 

  {$R *.dfm} 

const 
  FCIDM_SHVIEW_LARGEICON = 28713; 
  FCIDM_SHVIEW_SMALLICON = 28714; 
  FCIDM_SHVIEW_LIST = 28715; 
  FCIDM_SHVIEW_REPORT = 28716; 
  FCIDM_SHVIEW_THUMBNAIL = 28717; // XP only 
  FCIDM_SHVIEW_TILE = 28718; // XP 

procedure TForm1.WMUser(var msg: TMessage); 
var Dlg: HWND; 
    Ctrl: HWND; 
begin 
  Dlg := msg.WParam; 
  Ctrl := FindWindowEx(Dlg, 0, PChar('SHELLDLL_DefView'), nil); 
  if Ctrl <> 0 then SendMessage(Ctrl, WM_COMMAND, FCIDM_SHVIEW_THUMBNAIL, 0 ) 
end; 

procedure TForm1.OpenDialog1Show(Sender: TObject); 
var Dlg: HWND; 
begin 
  Dlg := GetParent((Sender as TOpenDialog).Handle); 
  PostMessage(Handle, WM_USER, Dlg, 0); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if OpenDialog1.Execute then ;
end;

http://www.mombu.com/programming/c/t-topenpicturedialog-in-thumbnail-view-2810279.html

[Аватар]

JTG! Работает! ГИГАНТ. Спасибо