TOpenTextFileDialog <> TOpenDialog

[anse]

Kann mir jemand sagen warum TOpenTextFileDialog unter Delphi 10.3.1 bzw. Win10 so anders aussieht als TOpenDialog? Und das obwohl ersteres von letzterem direkt ableitet?

TOpenTextFileDialog

• richtet sich nicht nach dem in Win10 eingestellten Explorer Theme (dark/light)
• nutzt _zum Teil_ Tahoma anstatt der Systemschrift Segeo UI
• Buttons oben rechts sehen stark nach Win7 aus
• ...

Edit:
"UseLatestCommonDialogs := False;" lässt den TOpenDialog genauso "alt" aussehen wie TOpenTextFileDialog.

[Bernhard Geyer]

TOpenDialog -> Öffnen-Dialog im XP-Style
TOpen(Text)FileDiallog -> Öffnen-Dialog im Windows Vista (und neuer) Style

[Uwe Raabe]

Um es mal präziser zu erklären: TOpenDialog verwendet intern den neuen TFileOpenDialog wenn folgende Bedingungen erfüllt sind:

1. Das Programm läuft unter Windows Vista oder höher
2. UseLatestCommonDialogs ist True
3. Es gibt keine Events für OnIncludeItem , OnClose oder OnShow

[anse]

Ok, weil aber TOpenTextFileDialog nun von TOpenDialog ableitet, sollte erstere doch genauso intern den neuen TFileOpenDialog verwenden, oder ist das auf den TOpenDialog beschränkt?

Zitat von Uwe Raabe:

1. Das Programm läuft unter Windows Vista oder höher
2. UseLatestCommonDialogs ist True
3. Es gibt keine Events für OnIncludeItem , OnClose oder OnShow

Trifft alles zu hier, für beide Dialoge.

[Redeemer]

Zitat von Bernhard Geyer:

TOpenDialog -> Öffnen-Dialog im XP-Style
TOpen(Text)FileDiallog -> Öffnen-Dialog im Windows Vista (und neuer) Style

Andersrum, oder? Benutzerdefinierte Dialoge können sich ja schlecht automatisch anpassen.

[Uwe Raabe]

Zitat von anse:

Trifft alles zu hier, für beide Dialoge.

Hier tritt aber noch eine interne Bedingung ein, die vom User nicht beeinflusst werden kann: Bei TOpenTextFileDialog wird ein Template verwendet. Das schließt die neuen Dialoge ebenfalls aus.

Die komplette Bedingung lautet:

Delphi-Quellcode:

  if (Win32MajorVersion >= 6) and UseLatestCommonDialogs and
     not (TStyleManager.IsCustomStyleActive and (shDialogs in TStyleManager.SystemHooks)) and
     IsNewCommonCtrl and (Template = '') and IsAppThemed and
     not (Assigned(FOnIncludeItem) or Assigned(FOnClose) or Assigned(FOnShow)) then

[anse]

Danke, das wird's dann wohl sein. Schade nur dass die Dialoge dadurch nicht einheitlich aussehen.

[Bernhard Geyer]

Zitat von anse:

Danke, das wird's dann wohl sein. Schade nur dass die Dialoge dadurch nicht einheitlich aussehen.

Stell halt überalla auf TOpenFileDialog um und gut ist.
Dann schaut es wieder überall gleich aus.

[Uwe Raabe]

Zitat von Bernhard Geyer:

Stell halt überalla auf TOpenFileDialog um und gut ist.
Dann schaut es wieder überall gleich aus.

Unter der Annahme, daß Windows XP keine Zielplattform mehr ist, würde ich das auch empfehlen.

[anse]

Zitat von Bernhard Geyer:

Stell halt überalla auf TOpenFileDialog um und gut ist.
Dann schaut es wieder überall gleich aus.

Du meinst wahrscheinlich TFileOpenDialog . Ja, das wär ne Option. Den müsste ich dann nur erweitern um ein Encoding Dropdown unten dranzuhängen. Hier gibt es dafür ein Tutorial: https://akirabbq.wordpress.com/2009/...n-file-dialog/ . Für Win32MajorVersion < 6 könnte dann der TOpenTextFileDialog wieder herhalten.