Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Listview vs. FTP
Andre :-) - Fr 24.01.03 22:34
Titel: Listview vs. FTP
Hi,
ich habe gegoogelt wie ein blöder aber leider keine Antwort gefunden. Ich lasse eine FTP Filestruktur in einer Listview aufbauen. Nur bekomme ich keine Icons gesetzt.
Kann mir jemand ein Bsp. Code zeigen, wie ich in eine Listview Komponente Icons plaziere?
Besten Dank
Delete - Fr 24.01.03 23:34
Auf meiner Homepage findest du eine VCL-FTP-Client. Kuck ihn dir mal an, ist mit Soße.
Andre :-) - Fr 24.01.03 23:36
Danke Dir.
Ich werde es mir ansehen. :)
Andre :-) - Sa 25.01.03 20:28
Sorry wenn ich noch einmal nerve, aber Dein Code ist schon ganz cool und ich habe es auch geschafft, Icons davor zu setzen. Wenn ich aber dann einmal connected bin und dann die Verbindung wieder schliesse und Sie dann wieder aufmache, dann bleibt er bei Deinem Procedure List bei folgendem Punkt stehen (auch bei deinem Tool):
Quelltext
1:
2:
| NMFTP1.List;
for i := 0 to NMFTP1.FTPDirectoryList.name.Count-1 do begin |
Die ganze Listbox ist dann off und nichts geht mehr. Immer beim 2ten mal. Ich habe es so gamcht wie Du es auch gemacht habe und mir erschien das alles logisch.
Hast Du einen Tip für mich?
Ich verzweifle :cry:
Andre
Moderiert von 
Tino: Code-Tags hinzugefügt.
Delete - Sa 25.01.03 20:36
Das kann an den Fastnet Kompos liegen. Die sind wohl etwas ver bugget. kann aber auch an mir liegen. Ich habe es nicht geschafft damals den Fehler zu finden und habe es aufgegeben.
Andre :-) - Sa 25.01.03 20:48
:D :D :D
Habe es selber geschafft. Also, hier die lösung! Bzw. Habe ich es anders gemacht als Du:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
| procedure TForm3.NMFTP1ListItem(Listing: String);
var
NewItem: TListItem;
sFile: String;
begin
NewItem := lstRemote.Items.Add;
sFile :=Listing;
NewItem.Caption := sFile;
if ExtractFileExt(sFile) = '.txt' then NewItem.ImageIndex := 0
else if (ExtractFileExt(sFile) = '.htm') OR (ExtractFileExt(sFile) = '.html') then
NewItem.ImageIndex := 1
else if ExtractFileExt(sFile) = '.zip' then NewItem.ImageIndex := 3
else if ExtractFileExt(sFile) = '.css' then newItem.imageIndex := 2
else if (ExtractFileExt(sFile) = '.gif') OR (ExtractFileExt(sFile) = '.jpg') then
NewItem.ImageIndex := 4
else if ExtractFileExt(sFile) = '' then
begin
NewItem.ImageIndex := 5;
end
else if ExtractFileExt(sFile) = '.exe' then newItem.imageIndex := 7
else NewItem.ImageIndex := 6;
end; |
Und vorher beim connectButton dann ein: nlist! Geht wunderbar! ok habe im Moment noch keine FileSize aber mit einem Inc() müsste das auch zu holen sein. Oder?
Danke Dir für die Hilfe. :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!