Problemi sa directoryoutline- om!?

[ godscrusher1990 @ 05.05.2006. 19:59 ] @

Ljudi pomagajte!!! Kako da update - ujem directoryoutline posle kreiranja foldera? U stvari stvar je ovakva: Koristim proceduru za kreiranje foldera (mkdir) i posle nje folder se kreira ali se ne prikazuje u directoryoutline -u.Pokusao sam sa directoryoutline.update i sa directoryoutline.refresh i ne uspeva. Pomagajte inace sam nadrljo!!! Unapred hvala!

[ savkic @ 05.05.2006. 23:37 ] @

> Ljudi pomagajte!!! Kako da update - ujem directoryoutline posle kreiranja foldera? U stvari stvar je ovakva: Koristim proceduru za
> kreiranje foldera (mkdir) i posle nje folder se kreira ali se ne prikazuje u directoryoutline -u.Pokusao sam
> sa directoryoutline.update i sa directoryoutline.refresh i ne uspeva. Pomagajte inace sam nadrljo!!! Unapred hvala!

Misliš na TDirectoryOutline iz Delphi primera? Pokušaj da promeniš dir na neki drugi pa vrati na onaj prethodni ili pozovi RecreateWnd ili dodaj metodu komponeti koja će pozvati BuildTree. Ako ti je potrebno da primiš obaveštenja i o promenama koje se dese van tvog programa onda pogledaj funkcije
SHChangeNotifyRegister, SHChangeNotify i FindFirstChangeNotification.

[ protector1990 @ 06.05.2006. 21:18 ] @

Malo pitanje... Kako da dodam metodu i 'el moze neko da napise celu funkciju da bi mi bilo jasnije?

[ savkic @ 07.05.2006. 00:11 ] @

> Malo pitanje... Kako da dodam metodu i 'el moze neko da napise celu funkciju da bi mi bilo jasnije?

Možeš izmeniti samu TDirectoryOutline komponentu, napraviš kopiju DirOutln.pas koju staviš ga u dir tvoje aplikacije pa onda dodaš jednu public metodu npr. RefreshTree u kojoj pozoveš BuildTree ili Build tree samo prebaciš u public deo. Druga čistija varijanta je da napraviš naslednika TDirectoryOutline u kome ćeš BuildTree overajdovati ali u public delu npr.

TMyDir = class(TDirectoryOutline)
public
procedure BuildTree; override;
end;

implementation

TMyDir.BuildTree;
begin
inherited BuildTree;
end;

[ godscrusher1990 @ 22.05.2006. 22:10 ] @

Sve je to u redu i radi, ali problem je sledeci: na formi imam dva directoryoutline - a i ako zamenim to za oba projekat prijavi gresku. Pomognite ako znate!!! Unapred hvala!!!

[ savkic @ 22.05.2006. 23:33 ] @

Nisam razumeo, koje si tačno rešenje primenio i koju grešku dobiješ?

[ godscrusher1990 @ 23.05.2006. 11:45 ] @

Ako zamenim u tipe za Directoryoutline1:Tmydir radi ali ako to uradim i sa directoryoutline2:Tmydir prijavi gresku.

[ savkic @ 23.05.2006. 12:15 ] @

> Ako zamenim u tipe za Directoryoutline1:Tmydir radi ali ako to uradim i sa directoryoutline2:Tmydir prijavi gresku.

A greška je? Evo primera sa dve kontrole koji radi bez problema:

Code:

  with TMyDir.Create(Self) do
  begin
    Parent := Self;
    Top := 50;
    Left := 50;
    Height := 350;
    SetDrive('C');
    SetDirectory('C:\WinNt');
    BuildTree;
  end;

  with TMyDir.Create(Self) do
  begin
    Parent := Self;
    Top := 50;
    Left := 250;
    Height := 350;
    SetDrive('C');
    SetDirectory('C:\WinNt');
    BuildTree;
  end;

[ protector1990 @ 25.05.2006. 20:41 ] @

Program prijavi gresku pri pokretanju aplikacije, "Class TdirectoryOutline not fuond". Da li neko ima ideju?

[ savkic @ 26.05.2006. 20:10 ] @

> Program prijavi gresku pri pokretanju aplikacije, "Class TdirectoryOutline not fuond". Da li neko ima idej

Liči na grešku u dfm fajlu. Proveri još jednom da li ti je putanja do Samples dira u pathu i da li je TDirectoryOutline ispravno instalirana kao komponenta. Ako ne uspe pošalji što kraći primer pa ćemo pogledati.