Spectragram

[EWeiss]

Zitat von Luckie:

Wo finde ich den Code in den Sourcen?

Den muss ich dir schicken die DLL ist im Archiv nicht enthalten.

warte gebe link über PM:
Die Komponente liegt unter _ctrl\uBrowseForFile.pas
AddChildControls ist der Part wo die Listen addiert werden..

DirList
DriveList
FileList

gruss

[Luckie]

Puh. Ohne Debugger nur mit Notepad++ etwas mühsam.

Delphi-Quellcode:

Atom := GlobalAddAtom(PWideChar(DriveList.Strings[nItem]));
SendMessage(DirListHandle, WM_COMMAND, FILL_DIRECTORY, Atom);

Du erzeugst dir eine eindeutige Zeichenfolgen (Atom) und schickst sie als LParam von WM_Command an das Fenster DirListHandle. Warum? Und wo finde ich den Code wo die Nachricht hingeschickt wird?

Ist irgendwie alles so etwas von hinten durch die Brust ins Auge, habe ich das Gefühl. Kann aber auch sein, dass ich noch nicht so gaz durch den Aufbau des Projekts durchgestiegen bin.

[EWeiss]

Zitat von Luckie:

Puh. Ohne Debugger nur mit Notepad++ etwas mühsam.

Delphi-Quellcode:

Atom := GlobalAddAtom(PWideChar(DriveList.Strings[nItem]));
SendMessage(DirListHandle, WM_COMMAND, FILL_DIRECTORY, Atom);

Du erzeugst dir eine eindeutige Zeichenfolgen (Atom) und schickst sie als LParam von WM_Command an das Fenster DirListHandle. Warum?

Schien mir das einfachste um die Liste zu füllen ohne nochmals einen extra Knopf oder was auch immer dafür in Anspruch zu nehmen.
Wird dann hier ausgewertet. DirListBoxProc

Delphi-Quellcode:

    WM_COMMAND:
      case LoWord(wP) of
        FILL_DIRECTORY:
          begin
            Buffer := StrAlloc(lP + 1);
            try
              DirList.clear;
              GlobalGetAtomName(lP, Buffer, lP + 1);
              FindDirs(Buffer, DirList);
              FillList(DirList);
              SkinEngine.FInvalidateRect(WinHandle, false);
              // FileListe löschen
              if FileListHandle <> 0 then
                SendMessage(FileListHandle, WM_COMMAND, FILL_FILELIST, GlobalAddAtom
                    (PWideChar(DirStrPath)));
            finally
              StrDispose(Buffer);
            end;
          end;
      end;

Diese drei listen sind miteinander verknüpft
DirList, DriveList, FileList

Zitat:

Ist irgendwie alles so etwas von hinten durch die Brust ins Auge, habe ich das Gefühl. Kann aber auch sein, dass ich noch nicht so gaz durch den Aufbau des Projekts durchgestiegen bin.

Hmm...
Alle meine Projekt funktionieren bei mir einwandfrei.. Verstehe ich nicht wo das Problem ist.

gruss

[EWeiss]

Es hat nichts mit meiner Art der Programmierung was die DriveList angeht zu tun.
Es liegt definitiv an Aero.

Werde nachher eine aktualisierte DLL hochladen sobald ich das behoben habe.

EDIT:
Ok diese Anwendung setzt voraus das die Desktopgestaltung nicht ausgeschaltet wird.
Ich könnte das beheben macht aber keinen sinn da meine Library darauf ausgelegt ist diese Einstellungen zu verwenden.
Die nennt sich nicht umsonst SK_AERO.dll

Kein Aero keine Desktopgestaltung dann wird das nix
So soll es auch sein.

Ich werde da hingehend auch nichts ändern. Es funktioniert wenn die Voraussetzungen gegeben sind.

gruss