Spectragram

[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