SelectDirectory Optik

[haentschman]

Hallo...8-)

Ich benutze SelectDirectory. In meiner Anwendung sieht es Schei... aus. In einer leeren Anwendung, gleicher Code, ist es ok. :?
An welchem Schräubchen muß ich drehen? Ich weis, daß das mit dem Skinning zu tun hat. Die leere hat keinen VCL Style, das Original schon. Wie kann ich den Dialog, und die anderen System Dialoge aus dem Skinning herausnehmen.

Danke. :wink:

Delphi-Quellcode:

// leere Anwendung
procedure TForm1.FormShow(Sender: TObject);
var
  Test2: TArray<string>;
begin
  SelectDirectory('E:\tmp', Test2, [], 'Test');
...

Delphi-Quellcode:

// Original
class function TSEAMToolsIO.SelectFolder(Root: string; Parent: TForm; FolderTypeText: string = ''): string;
var
  Directories: TArray<string>;
begin
  SelectDirectory(Root, Directories, [], FolderTypeText);
...

Nachtrag: Hat sich erledigt. :wink:

Delphi-Quellcode:

TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shDialogs];

...fertsch.:wink: