Spectragram

[EWeiss]

Zitat:

Du prüfst nämlich leider nicht, ob es sich mindestens um Vista handelt, sondern, ob es Vista oder Windows 7 ist. Wenn du das korrigierst (und nebenbei ist die Prüfung dann auch mit Bordmitteln viel einfacher), funktioniert der Dialog auch unter Windows 10:

Ja das weis ich Danke..
Es soll auch nicht mit W10 Arbeiten aus dem einfachen Grund weil es unter W10 keine DWM API mehr gibt.

Das Problem liegt auch eher hier! und hat nichts mit der Abfrage <> W10 zu tun.

Delphi-Quellcode:

{$REGION 'procedure AddBrowseForFileControls'}
procedure AddBrowseForFileControls(hMain: HWND);
begin
  BrowseForFile := CTRL_BrowseForFileCreate;
  BrowseForFile.Width := 612;
  BrowseForFile.Height := 412;
  BrowseForFile.PanelImagePath := SKAERO_FOLDER + 'Panel.png';
  BrowseForFile.SysImagePath := SysButton.ImagePath;
  BrowseForFile.PanelDirListImagePath := SKAERO_FOLDER + 'Frame3d.png';
  BrowseForFile.ListSelectedImg := SKAERO_FOLDER + 'List\ListSelect.png';
  BrowseForFile.SkinConfigFile := PWideChar(DefSkin);
  BrowseForFile.ComboButtonImagePath := SKAERO_FOLDER + 'List\combo.png';
  BrowseForFile.ButtonImagePath := SKAERO_FOLDER + 'BTN_Push.png';
  BrowseForFile.VPageImg := SKAERO_FOLDER + 'VScroll\VSPage.png';
  BrowseForFile.VBotImg := SKAERO_FOLDER + 'VScroll\VSBot.png';
  BrowseForFile.VUpImg := SKAERO_FOLDER + 'VScroll\VSUp.png';
  BrowseForFile.VThumbImg := SKAERO_FOLDER + 'VScroll\VSThumb.png';
  BrowseForFile.FileListMask := '.mp3';
  BrowseForFile.UseVistaBlur := CheckAeroBlur.GetCheckButtonStatus(CheckAeroBlur.Handle);
  BrowseForFile.UseVistaCrystal := CheckCrystal.GetCheckButtonStatus(CheckCrystal.Handle);
  BrowseForFile.GlassOpacity := trbGlassOpacity.GetTrackValue(trbGlassOpacity.Handle);
  BrowseForFile.CreateWindow(hMain);
end;
{$ENDREGION}

in der uControls.

ersetzen durch

Delphi-Quellcode:

procedure AddBrowseForFileControls(hMain: HWND);
begin
  BrowseForFile := CTRL_BrowseForFileCreate;
  BrowseForFile.Width := 612;
  BrowseForFile.Height := 412;
  BrowseForFile.PanelImagePath := SKAERO_FOLDER + 'Panel.png';
  BrowseForFile.SysImagePath := SysButton.ImagePath;
  BrowseForFile.PanelDirListImagePath := SKAERO_FOLDER + 'Frame3d.png';
  BrowseForFile.ListSelectedImg := SKAERO_FOLDER + 'List\ListSelect.png';
  BrowseForFile.SkinConfigFile := PWideChar(DefSkin);
  BrowseForFile.ComboButtonImagePath := SKAERO_FOLDER + 'List\combo.png';
  BrowseForFile.ButtonImagePath := SKAERO_FOLDER + 'BTN_Push.png';
  BrowseForFile.VPageImg := SKAERO_FOLDER + 'VScroll\VSPage.png';
  BrowseForFile.VBotImg := SKAERO_FOLDER + 'VScroll\VSBot.png';
  BrowseForFile.VUpImg := SKAERO_FOLDER + 'VScroll\VSUp.png';
  BrowseForFile.VThumbImg := SKAERO_FOLDER + 'VScroll\VSThumb.png';
  BrowseForFile.FileListMask := '.mp3';
  
  if Assigned(CheckAeroBlur) then
  begin
    BrowseForFile.UseVistaBlur := CheckAeroBlur.GetCheckButtonStatus(CheckAeroBlur.Handle);
    BrowseForFile.UseVistaCrystal := CheckCrystal.GetCheckButtonStatus(CheckCrystal.Handle);
    BrowseForFile.GlassOpacity := trbGlassOpacity.GetTrackValue(trbGlassOpacity.Handle);
  end;
  BrowseForFile.CreateWindow(hMain);
end;

Die Checkboxen bzw.. diese Controls sind alle NIL wenn Aero nicht existiert.
CheckAeroBlur, CheckCrystal, trbGlassOpacity

Deshalb kracht es.
Wundert mich das sich der Dialog bei dir überhaupt öffnet.
Zumal die DriveList Combo mit DWM in Kombination LayeredWindow erstellt wird.
Was bedeutet das die aufgeklappte Combo Transparent ist.

Das geht nun mal nicht mit W10 oder deaktivierter Desktopgestaltung dementsprechend kann man dann auch kein Laufwerk auswählen.

Zitat:

Dass bei einem Multimediatool wie diesem Aero vorausgesetzt wird, sollte auch kein Problem sein. Denn wenn die Grafikkarte so schwach ist, dass man kein Aero einsetzen kann, wird so ein Tool meistens ohnehin nicht benutzt werden. Und wenn die Grafikkarte schnell genug für Aero ist, wird man normalerweise den Rechner nicht durch Deaktivieren von Aero langsamer machen.

Dazu kann ich nur sagen das dieses Tool 0% CPU bei mir verwendet.
Inklusive der ganzen Visuellen Komponenten.
Ich denke eher es ist uninteressant für diejenigen die W10 benutzen da gibt es nun mal kein DWM mehr ein Grund warum ich kein W10 verwende.
Man hätte das aktiviert lassen können es war immer möglich es auszuschalten.
Aber gut es ist wie es ist.

Zitat:

allerdings finde ich den Standarddialog sehr viel ergonomischer

Ich finde das auch.
Das Problem ist nur diesen auf meinen Visuellen Style anzupassen

Zitat:

wird so ein Tool meistens ohnehin nicht benutzt werden

Das ist richtig zumal es für die LIB im ganzen > W7 eh zu spät ist.
Aber für die 6 Jahre die ich vielleicht noch habe reicht es mir Weltuntergang LOL.


gruss