Spectragram

[Luckie]

Ich dachte an so was:

Delphi-Quellcode:

procedure AuswahlFenster;
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    ListeFuellen(sl);
   // mach was mit sl
  finally
    sl.Free;
  end;
end;

procedure ListeFuellen(sl: TStringList);
begin
  //...
end;

[EWeiss]

Ich könnte den Lösungsansatz mal versuchen, möglich das ich dann einiges umstrukturieren muss.

EDIT:
Glaube das geht so einfach nicht.
Ich verwende die DriveList(TStringlist) übergreifen. Bsp. in WM_LBUTTONUP

Delphi-Quellcode:

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

DirStrPath := DriveList.Strings[nItem];

Das kann ich so einfach nicht umstricken..


gruss

[Luckie]

Finde ich übersichtlicher. Dann muss man nicht suchen, wo sie wieder freigegeben wird. Und je übersichtlicher, desto weniger Fehler können sich einschleichen.

[EWeiss]

Zitat von Luckie:

Finde ich übersichtlicher. Dann muss man nicht suchen, wo sie wieder freigegeben wird. Und je übersichtlicher, desto weniger Fehler können sich einschleichen.

Das ist richtig aber wie soll ich das machen aus oder gerade innerhalb einer Winproc?
Siehe mein editierter Beitrag.

gruss

[Luckie]

Wo finde ich den Code in den Sourcen?

[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.