Spectragram

[Luckie]

OK. Dein Boah ey hat bei mir den Eindruck hinterlassen, dass du genervt warst, weil ich anscheinend unfähig bin ein Multipartarchiv zu erkennen. Da habe ich mich etwas angepisst gefühlt. Vergessen wir das.

Der Freecommander macht wohl folgendes (und das ist etwas blöd vom Freecommander): Er erkennt dass es sich um ein Multipartarchiv handelt egal welchen Teil man entpackt. So weit so gut. Jetzt der blöde Teil: Entpackt man in Unterordner, benennt er die Ordner nach dem Archivteil, den man zum Entpacken genommen hat. Daher meine Verwirrung.

Der Source Ordner fehlt nicht. In meinen Screenshot sieht man nur den Unterordner bin.

Aber warum wird Aero unbedingt benötigt? Du bringst doch deinen eigenen Skinengine mit. Oder benötigt der Skinengine Aero? Das würde es erklären. Also das würde ich irgendwie ändern, man kann wohl kaum erwarten, dass man dafür Aero aktiviert, wenn überhaupt möglich.

Ich werde es morgen noch mal auf dem großen Rechner mit Windows 7 Home und deaktivierten Aero probieren.

[EWeiss]

Zitat:

Aber warum wird Aero unbedingt benötigt? Du bringst doch deinen eigenen Skinengine mit. Oder benötigt der Skinengine Aero? Das würde es erklären. Also das würde ich irgendwie ändern, man kann wohl kaum erwarten, dass man dafür Aero aktiviert, wenn überhaupt möglich.

Jain.. Warum.
Wie du sehen kannst wurden ja bei dir "Crystal" und "Blur Mode" deaktiviert.
Der Grund liegt daran weil dein System das nicht unterstützt.

Meine Dialoge hingegen prüfen den Status ob das Haupt-Fenster Aero eingeschaltet hat oder nicht.
Ich denke das hier im Code ein Fehler vorliegt den ich noch berichtigen muss.

Danke so kann ich zumindest das Problem beheben.

gruss.

[Luckie]

Was wurde bei mir deaktiviert und woran siehst du das? Ich hatte vorher mal ein paar Hintergründe durch probiert bevor ich eine MP3 auswählen wollte. Das Hintergrundbild wechseln funktioniert ohne Probleme.

[EWeiss]

Zitat von Luckie:

Was wurde bei mir deaktiviert und woran siehst du das? Ich hatte vorher mal ein paar Hintergründe durch probiert bevor ich eine MP3 auswählen wollte. Das Hintergrundbild wechseln funktioniert ohne Probleme.

Wenn du unsere ScreenShots vergleichst.
Fehlen bei dir unter Move Background drei Komponente.

2x Checkboxen und eine Trackbar.

Ich habe jetzt mal das hier addiert damit müsste es eigentlich funktionieren.

Delphi-Quellcode:

      if (GetOS = OsVista) or (GetOS = OsWindows7)
        and SkinEngine.IsCompositionEnabled then
      begin

Mit IsCompositionEnabled lade ich die dwmapi.dll..

Delphi-Quellcode:

function TSkinEngine.IsCompositionEnabled: boolean;
var
  DwmIsCompositionEnabled: function(pfEnabled: PBoolean): HRESULT; stdcall;
  hDwmapi: THandle;
  Enabled: BOOL;
begin
  Result := False;
  if (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 6) then
  begin
    hDwmapi := LoadLibrary('dwmapi.dll');
    if hDwmapi <> 0 then
      try
        DwmIsCompositionEnabled := GetProcAddress(hDwmapi, 'DwmIsCompositionEnabled');
        if Assigned(DwmIsCompositionEnabled) then
          Result := (DwmIsCompositionEnabled(@Enabled) = 0) and Enabled;
      finally
        FreeLibrary(hDwmapi);
      end;
  end;
end;

Ich denke das wird aber auch nicht ausreichen, denn was mache ich wenn die DLL nicht existiert dann kracht es auch.
Na ja oder auch nicht.. hDwmapi ist ja dann 0

Habe die geänderte DLL nochmals angehängt.
Vielleicht geht es ja damit.

gruss

[Luckie]

Die sind mir gar nicht aufgefallen.

Na ja, wenn du die DLL nicht laden kannst, dann musst du eben eine Fehlerbehandlung machen. Hinweis ausgeben und das Programm sauber beenden. Schön wäre natürlich ein Fallback, der ohne die DLL auskommt, so dass man das Programm zu mindest noch nutzen kann.

[Luckie]

Nope. Stürzt bei Klick auf den Button ab. AberMmoment mal. Am Skinengine kann es nicht liegen. Das Fenster wird ja geskinnt. Das funktioniert ja alles. Der Fehler mit dem Absturz kommt ja erst, wenn der Dateiöffnen Code durch den Klick aufgerufen wird. Da müsste der Fehler zu suchen sein. Hast du irgendwelche Pfade hard gecodet oder so?

[EWeiss]

Zitat von Luckie:

Nope. Stürzt bei Klick auf den Button ab. AberMmoment mal. Am Skinengine kann es nicht liegen. Das Fenster wird ja geskinnt. Das funktioniert ja alles. Der Fehler mit dem Absturz kommt ja erst, wenn der Dateiöffnen Code durch den Klick aufgerufen wird. Da müsste der Fehler zu suchen sein. Hast du irgendwelche Pfade hard gecodet oder so?

Der Dialog beinhaltet 3 Komponente

DriveList
DirList
FileList.

Bei der DriveList werden alle Festplatten addiert.

Delphi-Quellcode:

procedure TSkinDriveList.ListDrive(hList: hWnd);
var
  FileInfo: SHFILEINFO;
  AllDriveStrings: LongWord;
  Drives: array [0 .. 128] of Widechar;
  pDrive: PChar;
  IconCount: Integer;
begin
  IconCount := 1;
  DriveList := TStringList.Create;

  AllDriveStrings := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if AllDriveStrings = 0 then
    exit;

  if AllDriveStrings > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));

  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    SHGetFileInfo(pDrive, FILE_ATTRIBUTE_NORMAL, FileInfo, SizeOf(FileInfo),
      SHGFI_DISPLAYNAME Or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON);
    if GetDriveType(pDrive) = DRIVE_NO_ROOT_DIR or DRIVE_FIXED then
    begin
      DriveList.Add(pDrive);
      ListAdd(hList, FileInfo.szDisplayName);
      SetLength(IconHandle, IconCount + 1);
      IconHandle[IconCount] := FileInfo.HIcon;
      inc(IconCount);
      inc(pDrive, 4);
    end
    else
      inc(pDrive, 4);

  end;

end;

also nichts festes.

Mit GetCurrentDirectory wird der letzte Pfad zugewiesen der verwendet wurde.
Wenn keiner existiert dann ist es der Pfad wo sich die Skins drin befinden.

Die Fileliste addiert die Dateien abhängig von dem Pfad der mit DirList gesetzt wurde.
Vorausgesetzt es finden sich MP3 Dateien darin.

Hard gecoded sollte da eigentlich nichts sein.

gruss

[EWeiss]

Zitat von Luckie:

Die sind mir gar nicht aufgefallen.

Na ja, wenn du die DLL nicht laden kannst, dann musst du eben eine Fehlerbehandlung machen. Hinweis ausgeben und das Programm sauber beenden. Schön wäre natürlich ein Fallback, der ohne die DLL auskommt, so dass man das Programm zu mindest noch nutzen kann.

Werde ich machen..
Obwohl die Behandlung ja dadurch schon ausgelöst wird da die Abfrage False zurück liefert bei einem hDwmapi = 0

Den Fallback hätte ich dann mit der Abfrage von IsCompositionEnabled erstellt.
Bin mir jetzt nicht sicher ob wenn er die DLL nicht findet ein Exeption ausgelöst wird.
Oder ein Handle 0 ausreicht.

gruss

[Luckie]

LoadLibrary ist eine API Funktion und wird somit keine Exception auslösen. Der Rückgabewert ist ein Handle auf die DLL. Ist das Handle null, konnte sie nicht geladen werden.