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