[es] - ShellTreeView1 (putanja foldera...)

Bagwell

Član broj: 169485
Poruke: 23
*.dynamic.sbb.rs.

Profil

^{04.02.2009. u 09:44 - pre 185 meseci}

Code:
procedure TForm1.FormCreate(Sender: TObject);
var
    dwStyle : DWord;
begin
    dwStyle := GetWindowLong(ShellTreeView1.Handle,GWL_STYLE); //ShelltreeView Node Style
    dwStyle := dwStyle or OBM_CHECKBOXES; //checkbox Style
    SetWindowLong(ShellTreeView1.Handle,GWL_STYLE,dwStyle); //Style
end;

function IsNodeChecked(aNode :TTreeNode) :Boolean;
var
  aTVItem :TTVItem;
begin
  with aTVItem do begin
    Mask  := TVIF_STATE;
    hItem := aNode.ItemId;
  end;
  TreeView_GetItem(aNode.TreeView.Handle, aTVItem);
  result := (aTVItem.State and $2000) = $2000;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i:Integer;
  aNode: TTreeNode;
begin
for i:=0 to  ShellTreeView1.Items.Count-1 do
   if IsNodeChecked(ShellTreeView1.Items[i]) then
      ShowMessage(ShellTreeView1.Items[i].Text);    //// IME CEKIRANOG FOLDERA
      //ShowMessage(ShellTreeView1.Path);             //// PUTANJA SELEKTOVANOG FOLDERA

     ///////////////////////////////////////////////////////////
     ////    KAKO DA SAZNAM PUTANJU CEKIRANOG FOLDERA?      ////
     ///////////////////////////////////////////////////////////

end;

Hvala unapred :)

_{[Ovu poruku je menjao Bagwell dana 04.02.2009. u 10:59 GMT+1]}

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: ShellTreeView1 (putanja foldera...)

^{04.02.2009. u 12:35 - pre 185 meseci}

> KAKO DA SAZNAM PUTANJU CEKIRANOG FOLDERA?

Šta ti vraća ShellTreeView1.Path?

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

nikomak
Nikola Makić
Beograd

Član broj: 177053
Poruke: 65
*.rcub.bg.ac.yu.

+1 Profil

Re: ShellTreeView1 (putanja foldera...)

^{04.02.2009. u 16:33 - pre 185 meseci}

Code:

ShellTreeView1.Folders[I].PathName // umesto ShellTreeView1.Items[i].Text

TurboDispatchJumpAddressEnd
----
Knocka Fia
----
And so we meet, again in a different time

Odgovor na temu

Bagwell

Član broj: 169485
Poruke: 23
*.dynamic.sbb.rs.

Profil

Re: ShellTreeView1 (putanja foldera...)

^{04.02.2009. u 16:46 - pre 185 meseci}

@savkic,
Vraca mi putanju selektovanog foldera ali ne i cekiranog!

@nikomak,
To je to! -Milion puta hvala! :)

Odgovor na temu