[출처] http://www.swissdelphicenter.ch/torry/showcode.php?id=1864
탐색기의 설정에 따라 어떤 폴더는 자세히 , 어떤 폴더는 아이콘 .... 으로
View-Style이 제가각 설정되어있는 경우가 있습니다.
OpenDialog에서 직접 클릭하여 ViewStyle을 변경하는것이 아니라
폴더를 옮겨도 항상 같은 Style로 보이도록 하는 팁입니다.
Delphi를 C++Builder로 변환하면서 쬐~끔 수정했습니다.
//---------------------------------------------------------------------------
void __fastcall TForm1::OpenDialog1FolderChange(TObject *Sender)
{
const static WORD CommandIDs[5]= {0x702D,0x702E, 0x7029, 0x702B, 0x702C };
HWND NotifyWnd = FindWindowEx(GetParent(OpenDialog1->Handle), 0, "SHELLDLL_DefView", NULL);
if( NotifyWnd)SendMessage(NotifyWnd, WM_COMMAND, CommandIDs[OpenDialog1->Tag ], 0);
}
//---------------------------------------------------------------------------
//미리보기,큰아이콘,아이콘,간단히,자세히
enum TFileViewStyle {fvsThumbnails,fvsBigIcons,fvsSmallIcons,fvsTiles, fvsDetails};
void __fastcall TForm1::Button1Click(TObject *Sender)
{
OpenDialog1->Tag = 4; //OpenDialog1->Tag = fvsDetails;
OpenDialog1->Execute();
}
//---------------------------------------------------------------------------
그럼...
|