Jump to content

Treelist Hatası

kurt0619

By kurt0619,
in AutoPlay Media Studio

 Share

Recommended Posts

kurt0619 Newbie

kurt0619

Posted
Posted (edited)

Merhaba arkadaşlar bir treelist örneği realyman arkadaşımız video ile hazırlamış ona göre yaptım ama bu hatayı alıyorum onun orjinal apz dosyasında bu hatayı vermiyor neden olabilir ? Arkadaşlar bir sorunum daha var programların iconunu göstermeyi nasıl yapabilirim onada yardımcı olurmusunuz rica etsem ? 

 

j5u46.png

 

apz dosyası;

 

 

https://hotfile.com/dl/190057814/9fafa89/Treelist.autoplay.html
Edited by kurt0619
Link to comment
Share on other sites
KintaRo Rookie

KintaRo

Posted
Posted

Kodlardaki hataları düzelttim, ayrıca Docs klasoru boşas hata vermesin diye kontrol koydum. 

 

İcon göstermek için 

 

nIcon = TreeList.ExtractIcon("Plugin1", v, 0)

kullanılıyor ama nedense bende hata verdi sürekli

 

Düzeltilmiş kodlar şurda:

TreeList.AddColumn("Plugin1", "X", 100);
TreeList.AddColumn("Plugin1", "P.Adı", 200);
TreeList.AddColumn("Plugin1", "P.Boyutu", 75);
TreeList.AddColumn("Plugin1", "P.Sürümü", 75);
TreeList.AddColumn("Plugin1", "P.Üretici", 225);

tDosya = File.Find(_SourceFolder .. "\\AutoPlay\\Docs", "*.exe", false, false, nil, nil);
if tDosya then
	for i,v in pairs(tDosya) do 
	DosyaAdi = String.SplitPath(v).Filename
	nBoyut = String.GetFormattedSize(File.GetSize(v), FMTSIZE_AUTOMATIC, true);
	
	fv = "";
	fd = "";
	version_info = File.GetVersionInfo(v);
		if version_info then
		fv=version_info.FileVersion
		fd=version_info.ProductName
		end
	--nIcon = TreeList.ExtractIcon("Plugin1", v, nil)
	Dialog.Message("", nIcon)
	TreeList.AddRow("Plugin1", "" .. "|" .. DosyaAdi .."|"..nBoyut.."|"..fv.."|"..fd, nIcon, nil, 0);
	end
end
Link to comment
Share on other sites
kurt0619 Newbie

kurt0619

Posted
  • Author
Posted

Teşekkür ederim hata düzelmiş yalnız icon gösterme hakkında sormak istediklerim var vermiş olduğunuz kodu nereye yazacağım ve forumdan bir arkadaşımızda şöyle bir kod vermiş bu da doğrumudur ?

 

 

 

TreeList.ExtractIcon("Plugin1", "Dosyanın Yolu", 0); (Dosyadan iconu alır)
TreeList.LoadIcon("Plugin1", "AutoPlay\\Images\\kategori.png"); (png gibi resimleri görüntüler)
Link to comment
Share on other sites
kurt0619 Newbie

kurt0619

Posted
  • Author
Posted (edited)
20.satırdaki

 

--nIcon = TreeList.ExtractIcon("Plugin1", v, nil)

 

Kodunun başındaki çizgileri kaldırıp denermisin?

 

Oldu :) Çok Teşekkür Ederim. Yalnız iconları biraz büyütme şansım var mı ? treelist üzerinde çok küçük duruyor

Edited by kurt0619
Link to comment
Share on other sites
kurt0619 Newbie

kurt0619

Posted
  • Author
Posted

KintaRo hocam sizi bulmuşken 2 sorunum daha var sormak istiyorum :) 

1: Şimdi hocam treelist'e sağ tık menü yapmak istiyorum yani misal boş alanda sağ tıkladığında program ekle çıkacak bir programın üstünde sağ tıkladığında programı sil çıkacak.

2: Toplam program sayısı, seçili olan program sayısı, toplam programların boyutu'nu yazan küçük bir yer olacak

Hocam yardımcı olursanız çok teşekkür ederim. 

Link to comment
Share on other sites
nightmare3519 Newbie

nightmare3519

Posted
Posted (edited)
KintaRo hocam sizi bulmuşken 2 sorunum daha var sormak istiyorum :) 

1: Şimdi hocam treelist'e sağ tık menü yapmak istiyorum yani misal boş alanda sağ tıkladığında program ekle çıkacak bir programın üstünde sağ tıkladığında programı sil çıkacak.

2: Toplam program sayısı, seçili olan program sayısı, toplam programların boyutu'nu yazan küçük bir yer olacak

Hocam yardımcı olursanız çok teşekkür ederim. 

 

1-TreeList OnContextMenu evresine bunu yapıştır.Program ekleme kodlarını biliyosundur zaten. Menüleri çoğaltabilirsin.

tblMenu = {};
tblMenu[1] = {};
tblMenu[1].Text = "Program Ekle";
tblMenu[1].ID = 1;

menu = Application.ShowPopupMenu(System.GetMousePosition(true, nil).X, System.GetMousePosition(true, nil).Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);


if (menu == 1) then
--Kodlar Buraya
end

 

 

 

 

2-Toplam program sayısı

 

nSay = TreeList.CountRows("Plugin1",false)

Label.SetText("toplamprogram","Toplam Program Sayısı: "..nSay)

 

Seçili program sayısı için TreeList On Checkd evresine

 

 

 

if e_checked then
nSecili = nSecili+1
else
nSecili = nSecili-1
end
Label.SetText("labelsecilen","Seçilen Program Sayısı: "..nSecili)

 

 

Klaör Boyutu:

 

 

 

tAra = File.Find("AutoPlay\\Docs\\Programlar", "*.exe", false, false, nil, nil)
if tAra then -- klasor boş değilse
nToplamBoyut = 0;
nDosyaBoyutu = 0;
for i,v in pairs(tAra) do
nDosyaBoyutu = File.GetSize(v)
nToplamBoyut = nToplamBoyut+nDosyaBoyutu
end
nToplamBoyut = String.GetFormattedSize(nToplamBoyut, FMTSIZE_AUTOMATIC, true)
else -- klasör boşsa.
nToplamBoyut = "0 Kb"; 
end
Edited by nightmare3519
Link to comment
Share on other sites
kurt0619 Newbie

kurt0619

Posted
  • Author
Posted

1-TreeList OnContextMenu evresine bunu yapıştır.Program ekleme kodlarını biliyosundur zaten. Menüleri çoğaltabilirsin.

tblMenu = {};
tblMenu[1] = {};
tblMenu[1].Text = "Program Ekle";
tblMenu[1].ID = 1;

menu = Application.ShowPopupMenu(System.GetMousePosition(true, nil).X, System.GetMousePosition(true, nil).Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);


if (menu == 1) then
--Kodlar Buraya
end

 

 

 

 

2-Toplam program sayısı

 

nSay = TreeList.CountRows("Plugin1",false)

Label.SetText("toplamprogram","Toplam Program Sayısı: "..nSay)

 

Seçili program sayısı için TreeList On Checkd evresine

 

 

 

if e_checked then
nSecili = nSecili+1
else
nSecili = nSecili-1
end
Label.SetText("labelsecilen","Seçilen Program Sayısı: "..nSecili)

 

 

Klaör Boyutu:

 

 

 

tAra = File.Find("AutoPlay\\Docs\\Programlar", "*.exe", false, false, nil, nil)
if tAra then -- klasor boş değilse
nToplamBoyut = 0;
nDosyaBoyutu = 0;
for i,v in pairs(tAra) do
nDosyaBoyutu = File.GetSize(v)
nToplamBoyut = nToplamBoyut+nDosyaBoyutu
end
nToplamBoyut = String.GetFormattedSize(nToplamBoyut, FMTSIZE_AUTOMATIC, true)
else -- klasör boşsa.
nToplamBoyut = "0 Kb"; 
end

Kardeşim eklemeyi yaptım ama silme kodu olmadı toplam program sayısı vs şeyleri dediğiniz yere attım ama sanırsam ben yanlış yaptım olmadı bir bakabilirmisiniz apz dosyasını düzenleyebilirmisiniz rica etsem. 

 

 

https://hotfile.com/dl/190105011/90f77e8/TreeList.autoplay.html
Link to comment
Share on other sites
kurt0619 Newbie

kurt0619

Posted
  • Author
Posted
Autoplay dosyasını değil apz dosyasını paylaşırsan daha iyi olur

File-->Export ile yapabilirsin.

Umarım istediğin gibi olmuştur tümü seç ve kaldırda ekledim

http://www.mediafire.com/?17m1ygjc99u1ly3

Çok teşekkür ederim tam istediğim gibi. Nightmare kardeşim biraz araştırma yapıyordum ve bir link buldum sen bir arkadaşa vermişsin konu aşağıdaki linkte projeyide veriyim burada çok güzel menü bar olmuş program ekleme çalışıyor silmede çalışıyor ama sildikten sonra sildiğin program kaybolmuyor ancak yeniden açınca AIO'yu kayboluyor neden acaba ?

 

Konu;

 

 

http://www.tnctr.com/topic/205133-program-ekleme-ve-sil/page-2

 

Proje;

 

 

http://www.mediafire.com/?w482vbmrypxnqus
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...