TSaveDialog nie z klientem wizualnych stylów wyłączone

Question

Próbuję użyć TSaveDialog w Delphi XE6:

if not SaveDialog1.Execute(0) then 
    Exit; 

Wezwanie natychmiast powraca fałszywy, bez wyświetlania okna dialogowego. I prześledzić go do aktu tworzenia powłoki obiektu Zapisz Dialog COM:

function TCustomFileSaveDialog.CreateFileDialog: IFileDialog; 
var 
     LGuid: TGUID; 
begin 
    LGuid := CLSID_FileSaveDialog; 

    CoCreateInstance(LGuid, nil, CLSCTX_INPROC_SERVER, 
    StringToGUID(SID_IFileSaveDialog), Result); 
end; 

Wezwanie do CoCreateInstance zawodzi. Stworzyłem minimalny kod do odtworzenia problemu:

procedure TForm1.Button1Click(Sender: TObject); 
const 
    CLSID_FileSaveDialog: TGUID = '{C0B4E2F3-BA21-4773-8DBA-335EC946EB8B}'; 
begin 
    CreateComObject(CLSID_FileSaveDialog); 
end; 

To rzuca EOleSysError wyjątek:

0x80040111: ClassFactory nie może dostarczyć żądanej klasy, CLASSID: {C0B4E2F3-BA21-4773-8DBA-335EC946EB8B }

Moja aplikacja jest używając wersji 6 wspólnej biblioteki kontrolnej (6.0.7601.18837), ale uświadomiłem sobie, że tylko Happe ns, jeśli użytkownik wyłączył style wizualne dla mojej aplikacji:

Ciągle używając wersji 6 wspólnej biblioteki Controls, tylko że IsAppThemed zwraca false.

Uwaga: Znam wiele osób błędnie uważa, że:

• Style wizualne API działa tylko wtedy, gdy mamy Wersja 6 Comctrl32.dll załadowany
• Jeśli wersja 6 Comctrl32. dll jest ładowany, a następnie Visual Styles API zadziała
• Jeśli nie używamy ComCtrl v6, oznacza to, że Style wizualne są wyłączone
• Style wizualne są wyłączone, jeśli używamy stary wspólna biblioteka kontrole

Rozwiązanie brute-force jest stworzenie globalnego UseLatestCommonDialogs false.

Ale to jest bardzo złe, ponieważ odnosi się tylko do ludzi, którzy mają niepełnosprawne stylów wizualnych we wniosku:

• okno kontynuuje prace nad OS bez stylów wizualnych (np Windows Server 2008 R2)
• okno kontynuuje współpracę z style wizualne wyłączony (np Windows 7 z style wizualne wyłączony)

oznacza to, że nie można po prostu użyć IsAppThemed, jak również zwraca wartość false, jeśli IsThemeActive jest fałszywe.

| IsThemeActive | IsAppThemed | Disable visual styles | Result | 
|---------------|-------------|-----------------------|-----------| 
| True   | True  | Unchecked    | Works  | 
| True   | False  | Checked    | Fails  | 
| False   | False  | Unchecked    | Works  | 
| False   | False  | Checked    | Fails  | 

Co Chyba jestem pytaniem jest, jak sprawdzić stan Disble style wizualne compat flagi.

Naprawdę pytam, jak sprawić, aby TSaveDialog działał poprawnie w Delphi (bez sugerowania, że ​​czytanie flagi compat jest częścią rozwiązania).

Answer 1

Na pewno nie chcesz testować flagi zgodności. Jeśli zamierzasz przetestować, chcesz przetestować, co ta flaga kontroluje. W tym przypadku czy motywy są w użyciu. Jeśli masz zamiar przetestować jak to wtedy należy użyć stylu okien dialogowych Vista, gdy następujący warunek:

IsWindowsVistaOrGreater and Winapi.UxTheme.InitThemeLibrary and Winapi.UxTheme.UseThemes 

W przeciwnym razie trzeba używać starych okien dialogowych stylu XP. Można tego dokonać za pomocą następującego kodu:

UseLatestCommonDialogs := IsWindowsVistaOrGreater and Winapi.UxTheme.InitThemeLibrary 
    and Winapi.UxTheme.UseThemes; 

Problem z tym jest jednak, że można wyłączyć nowe dialogi w stylu, gdy użytkownik pracuje z tematem Klasyczny Windows. Które jestem pewien, że nie chcesz.

Dzięki temu można zastosować podejście oparte na funkcjonalności. Jest to próba użycia okien dialogowych nowego stylu i powrotu do poprzedniego okna dialogowego, jeśli nowa się nie powiedzie. Tak więc spróbuj utworzyć IFileSaveDialog. Przypisz UseLatestCommonDialogs w zależności od tego, czy się to uda, czy też nie.

---

Z drugiej strony, to compat ustawienie jest przeznaczone do stosowania w aplikacjach, które nie działają poprawnie, gdy są włączone motywy. Twoja aplikacja działa poprawnie w ramach motywów i myślę, że uzasadnione jest twierdzenie, że twoja aplikacja nie obsługuje tego konkretnego trybu kompatybilnego.

Nie przewiduje się obsługiwania trybów zgodności. Na przykład, jeśli przestaniesz wspierać obsługę XP, nie będziesz oczekiwać obsługi podkładek XP compat.

Odbicie to moja rada dla ciebie. Po prostu nie rób nic. Jeśli użytkownicy pytają o awarię aplikacji w ten sposób, powiedz im, że nie obsługujesz tego trybu zgodności. Nie jest Twoim zadaniem tworzenie trybów zgodności aplikacji.