[Delphi] TOpenDialog에서 미리보기를 기본값으로 설정
TOpenDialog는 Windows의 기본 대화상자를 다루는 컴포넌트다.
이미지를 불러올 때 TPictureDialog 보다는 기본 대화상자에서 View 만 변경되는 것을 원한다면 다음과 같은 코드를 사용해보자. 기본값은 “간단히” 모드이지만, 아래 코드를 사용한다면 원하는 스타일로 지정해줄 수 있다.
1 procedure TForm1.OpenDialog1FolderChange(Sender: TObject); 2 const 3 FCIDM_SHVIEW_LARGEICON = $7029; 4 FCIDM_SHVIEW_SMALLICON = $702A; 5 FCIDM_SHVIEW_LIST = $702B; 6 FCIDM_SHVIEW_REPORT = $702C; 7 FCIDM_SHVIEW_THUMBNAIL = $702D; 8 FCIDM_SHVIEW_TILE = $702E; 9 var 10 newStyle: dWord; 11 begin 12 newStyle := FCIDM_SHVIEW_THUMBNAIL; 13 SendMessage(FindWindowEx(GetParent(OpenDialog1.Handle), 0, 'SHELLDLL_DefView', nil), WM_COMMAND, newStyle, 0); 14 end;
이 글엔 왜 답글이 없나요?
