코드쓰는사람

TOpenDialog는 Windows의 기본 대화상자를 다루는 컴포넌트다.

[adsense]

이미지를 불러올 때 TPictureDialog 보다는 기본 대화상자에서 View 만 변경되는 것을 원한다면 다음과 같은 코드를 사용해보자. 기본값은 "간단히" 모드이지만, 아래 코드를 사용한다면 원하는 스타일로 지정해줄 수 있다.

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;