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:

Delphi-Quellcode:

TOpenDialog

verwendet intern den neuen

Delphi-Quellcode:

TFileOpenDialog

wenn folgende Bedingungen erfüllt sind:

1. Das Programm läuft unter Windows Vista oder höher
2. Delphi-Quellcode:

   UseLatestCommonDialogs

   ist True
3. Es gibt keine Events für
   Delphi-Quellcode:

   OnIncludeItem

   ,
   Delphi-Quellcode:

   OnClose

   oder
   Delphi-Quellcode:

   OnShow

[anse]

Ok, weil aber

Delphi-Quellcode:

TOpenTextFileDialog

nun von

Delphi-Quellcode:

TOpenDialog

ableitet, sollte erstere doch genauso intern den neuen

Delphi-Quellcode:

TFileOpenDialog

verwenden, oder ist das auf den

Delphi-Quellcode:

TOpenDialog

beschränkt?

Zitat:

Zitat von Uwe Raabe (Beitrag 1451125)

1. Das Programm läuft unter Windows Vista oder höher
2. Delphi-Quellcode:

   UseLatestCommonDialogs

   ist True
3. Es gibt keine Events für
   Delphi-Quellcode:

   OnIncludeItem

   ,
   Delphi-Quellcode:

   OnClose

   oder
   Delphi-Quellcode:

   OnShow

Trifft alles zu hier, für beide Dialoge.

[Redeemer]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1451121)

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:

Zitat von anse (Beitrag 1451126)

Trifft alles zu hier, für beide Dialoge.

Hier tritt aber noch eine interne Bedingung ein, die vom User nicht beeinflusst werden kann: Bei

Delphi-Quellcode:

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:

Zitat von anse (Beitrag 1451131)

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:

Zitat von Bernhard Geyer (Beitrag 1451135)

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:

Zitat von Bernhard Geyer (Beitrag 1451135)

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

Du meinst wahrscheinlich

Delphi-Quellcode:

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

Delphi-Quellcode:

Win32MajorVersion < 6

könnte dann der

Delphi-Quellcode:

TOpenTextFileDialog

wieder herhalten.