[delphi] komponent do listy plików

[Max1414]

Zna ktoś jakiś dobry komponent do listy plików który posiadałby takie właściwości jak:
-Wyświetlanie folderów i plików (przykladowo wchodzimy do folderu to widzimy i foldery i pliki),
-dobrze by bylo gdyby pobieral ikonke kazdego pliku,
-dobrze by bylo gdyby mial na samej gorze list cos ala [..] aby przejsc do katalogu wyzej.
Z gory dzieki!

[ktoś]

samlpes/shelllistview
(właściwość root / kropeczki/ "use path")
button + polecenie shelllistview.root := shelllistview.root - to co po ostatnim backslashu. Podanie ścieżki '..' powoduje błąd.

[Max1414]

A mam takie pytanko... bo chcialem zrobic zeby przeciagniety plik z jednej shelllistView byl kopiowany do zaznaczonego folderu w drugim shellListView i o to kodziK:
[code=Delphi]
procedure TForm1.Lista1StartDrag(Sender: TObject;
var DYÓXYÓX
NBY[B[NSLK
ÓLKĆV7FVDfĆFW\"F7ĆćSŚVćC&6VGW&RDf&ÓĆ7F$G&=ĄMMQ=`d%Ń4(MŃŃQState; var Accept: Boolean);
begin
Lista2.SelectedFolderB[BBYHLKLYŃ
[N&ŚV7CFVvW\"Ś&VvWFŁĆ7F\"&BĆ7F\"6VŃąą94)4(4)Q1Ńrag(Sender, Target: TObject; X, Y: Integer);
begin
CopyF[J[P[JK[P]JŃ^X[S[YJ[JJKYŚVćC [/code]

i przeciagam z 1. listy na 2., puszczam i wyskakuje Access Violation...

[Max1414]

Nikt nie wie ?? :cry:

[ktoś]

napisz jakie komunikaty wywalają kompilator i debuger.

[Max1414]

[quote] i przeciagam z 1. listy na 2., puszczam i wyskakuje Access Violation... [/quote]
No tylko to wywala podczas proby przeciagania... a z pierwszej listy adres pliku dobrze pobiera, tylko z tej docelowej nie chce pobrac... najlepiej wrzuc to sobie do delphi to zobaczysz dobrze efekt

EDIT:
Ehhhhh.... ten komponent ShellListView jest strasznie dziwny:| nie da sie sprawdzic aktualnego folderu....

[ktoś]

CYTATEhhhhh.... ten komponent ShellListView jest strasznie dziwny:| nie da sie sprawdzic aktualnego folderu....
Nie mam pomysłu...


[quote] No tylko to wywala podczas proby przeciagania... a z pierwszej listy adres pliku dobrze pobiera, tylko z tej docelowej nie chce pobrac... najlepiej wrzuc to sobie do delphi to zobaczysz dobrze efekt Smile [/quote]

Yyy... ja nie mogę przeciągać...

edit: może powinieneś sprawdzać, co robi użytkownik, i zapisywć zmiany w jakimś stringu?
Tj. user otwiera jakiś folder, to dopisujesz nazwę do stringa, jak się cofa do wyższego, to kasujesz ostatnią nazwę....

[Max1414]

heh ten debilny ShellListView chyba nawet nie ma opcji wyswietlania aktualnego katalogu... jest tylko Root ale to wyswietla ten pierwszy ktory sie ustawi w inspektorze obiektow :x

[Greensand]

Chodzi ci o:
[code=Delphi] procedure TForm1.ShellListView1MouseDown(Sender: TObject;
][P]YY]NN[YNBVvĆ&V6FŁ6VĆĆ7EfWsfĆFW'56VĆĆ7EfWsŃ%tAŃĄ94) [/code]
Dobrze zrozumiałem :?:

[Max1414]

Dzieki! tylko teraz mam taki problem ze po przeciagnieciu nie wykrywa który item jest aktualnei zaznaczony... zwraca -1

[code=Delphi] procedure TForm1.Lista1StartDrag(Sender: TObject;
var DraÓXYÓX
NBY[B[NSLK[^KFćSŚVćC&6VGW&RDf&ÓĆ7F$G&tG&6VćFW\"6Q=`d%Ń4)4(=Ń1Ńąlist].PathName;
end;

procedure TForm1.Lista2EndDrag(Send]XN[YNBY[BQ[J[6\"ć66\"WFWG&7DfĆTćRćG'VRŚVćC(4)Q1Ń
ąŹĄMQ=4)4(ndex:=Lista1.ItemIndex;
end;

procedure TForm1.Lista2Drag[NXN[YB]NYFFSf\"66WC&ĆVŚ&Vv66WCŁG'VSŚVćC [/code]

[Greensand]

Też to mam i wydaje mi się to dziwne bo jak
[code=Delphi] try
Label2.Caption:=ShellListView2.Folders[ShellListView2.I[R[^K][YNB^B[ [/code]
To Label2.Caption zwraca co powinien:)

[Max1414]

Temat zamkniety Smile Greensand pomógł mi na gg Smile ale jeszcze przed zamknięciem mam takie pytanko
zna ktoś komponent do odczytu listy plików FTP ? Na torry.net nie znalazlem A jezeli nie to może dajcie jakaś wskazówke/kodzik jak pobrac ikonkę pliku na ftp.