AW: Spectragram
Zitat:
Vorher geht es nicht weil ich die Laufwerke die in dieser Liste enthalten sind verwende solange wie der Dialog geöffnet ist. Wenn ich die Liste vorher freigebe dann kracht es.
Delphi-Quellcode:
Der geänderte part.
destructor TSkinDriveList.Destroy;
begin UnSubClass(Handle); FreeAndNil(DriveList); FreeAndNil(PropList); inherited Destroy; end;
Delphi-Quellcode:
gruss
procedure TSkinDriveList.ListDrive(hList: hWnd);
var FileInfo: SHFILEINFO; AllDriveStrings: LongWord; Drives: array [0 .. 128] of Widechar; pDrive: PWideChar; IconCount: Integer; begin IconCount := 1; ZeroMemory(@FileInfo, sizeof(SHFILEINFO)); 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; |
AW: Spectragram
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; |
AW: Spectragram
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:
Das kann ich so einfach nicht umstricken..
Atom := GlobalAddAtom(PWideChar(DriveList.Strings[nItem]));
SendMessage(DirListHandle, WM_COMMAND, FILL_DIRECTORY, Atom); DirStrPath := DriveList.Strings[nItem]; gruss |
AW: Spectragram
Finde ich übersichtlicher. Dann muss man nicht suchen, wo sie wieder freigegeben wird. Und je übersichtlicher, desto weniger Fehler können sich einschleichen. ;)
|
AW: Spectragram
Zitat:
Siehe mein editierter Beitrag. gruss |
AW: Spectragram
Wo finde ich den Code in den Sourcen?
|
AW: Spectragram
Zitat:
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 |
AW: Spectragram
Puh. Ohne Debugger nur mit Notepad++ etwas mühsam. ;)
Delphi-Quellcode:
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?
Atom := GlobalAddAtom(PWideChar(DriveList.Strings[nItem]));
SendMessage(DirListHandle, WM_COMMAND, FILL_DIRECTORY, Atom); 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. ;) |
AW: Spectragram
Zitat:
Wird dann hier ausgewertet. DirListBoxProc
Delphi-Quellcode:
Diese drei listen sind miteinander verknüpft
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; DirList, DriveList, FileList Zitat:
Alle meine Projekt funktionieren bei mir einwandfrei.. Verstehe ich nicht wo das Problem ist. gruss |
AW: Spectragram
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz