![]() |
DxImagelist mal wieder
hi,
ich hab schon alles dazu im forum dursucht, und auch so einige lösungen gefunden, nur gehts bei mir net! ich hab vor die imagelist zur laufzeit zu löschen und zu füllen, je nachdem welche objekte zur auswahl stehen sollen! dazu habe ich vor beim datei-durchsuchen die imagelist zu füllen:
Delphi-Quellcode:
tja das müsste es nach meinen recherchen eigentlich schon sein, aber es funktioniert nicht! bzw. der fehler liegt auf einmal an einer stelle die vorher wunderbar geklappt hat (weiss net wo er is)!
procedure suchdateien(maske:string); //Dateien suchen
var search:TSearchRec; pfad, typ:string; count:byte; begin count:=0; // für änderungen zur laufzeit form_haupt.imgl_bilder.Items.Clear; // ------"--------- typ:=ExtractFileName(maske); pfad:=ExtractFilePath(maske); if pfad[length(pfad)]<>'\' then pfad:=pfad+'\'; {Dateien suchen...} if FindFirst(maske,$3F, search)=0 then repeat form_objekte.filelb_bilder.Items.Add(search.Name); form_haupt.imgl_bilder.Items.Add; // für änderungen zur laufzeit form_haupt.imgl_bilder.Items[count].Picture.LoadFromFile(pfad+search.Name); inc(count); // ------"------- until FindNext(search)<>0; FindClose(search); end; ich habe nämlich bevor ich das mit der veränderung zur laufzeit machen wollte der imagelist zu testzwecken 2-3 objekte zugewiesen. das aus dem grund, da ich testen wollte ob ich objekte per mausklick plazieren kann. das klappt auch, und daran habe ich auch nix mehr geändert! doch wenn ich nun den kommentierten teil (änderungen zur laufzeit) einfüge, dann erscheinen die objekte nicht mehr so wie vorher, ich seh sie einfach nicht mehr! woran kann das nun liegen?? |
Re: DxImagelist mal wieder
Liste der Anhänge anzeigen (Anzahl: 2)
so, das mit der imagelist klappt ja nun, aber ich bekomm wenn ich die kategorien der objekte oft wechsel eine fehlermeldung (siehe anhang).
probierts selber! weiss einer was das bedeuten könnte? gruss haegar |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:10 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz