kurt0619 Posted January 21, 2013 Share Posted January 21, 2013 (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 ? apz dosyası; https://hotfile.com/dl/190057814/9fafa89/Treelist.autoplay.html Edited January 21, 2013 by kurt0619 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 21, 2013 Share Posted January 21, 2013 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 Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 21, 2013 Author Share Posted January 21, 2013 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) Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 21, 2013 Share Posted January 21, 2013 LoadIcon(): bir resim dosyasını icon olarak yükler. ExtractIcon(): Bir EXE,DLL dosyasından icon çeker. yukarıda verdiğim kodlarda LoadIcon var zaten sadece başına -- koyduğum için aktif değil. Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 21, 2013 Author Share Posted January 21, 2013 Sanırsam icon kodunda hata var. Docs klasörüne program attığımda çalıştırdığımda AIO'yu şöyle bir hata ile karşılaşıyorum vermiş olduğunuz kodların aynısı line 21'deki kod ise; Dialog.Message("", nIcon) Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted January 21, 2013 Share Posted January 21, 2013 20.satırdaki --nIcon = TreeList.ExtractIcon("Plugin1", v, nil) Kodunun başındaki çizgileri kaldırıp denermisin? Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 21, 2013 Author Share Posted January 21, 2013 (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 January 21, 2013 by kurt0619 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 21, 2013 Share Posted January 21, 2013 TreeList plugininde o yok, ListIcon plugini ile yapabilirsin. Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted January 21, 2013 Share Posted January 21, 2013 (edited) Treelist eklentisinde sütunların boyunu büyütebilen var mı, ben ayarlıyorum ama icraat yok. Edited January 21, 2013 by DivaneTR Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 21, 2013 Share Posted January 21, 2013 yok onu bende denemiştim olmadı. Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 21, 2013 Author Share Posted January 21, 2013 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. Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted January 21, 2013 Editor Share Posted January 21, 2013 aslında row lara image eklense belki image boyutunu alır denemek lazım. Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted January 21, 2013 Share Posted January 21, 2013 (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 January 21, 2013 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 21, 2013 Author Share Posted January 21, 2013 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 Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted January 21, 2013 Share Posted January 21, 2013 (edited) 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 ekledimhttp://www.mediafire.com/?17m1ygjc99u1ly3 Edited January 21, 2013 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 21, 2013 Author Share Posted January 21, 2013 Autoplay dosyasını değil apz dosyasını paylaşırsan daha iyi olur File-->Export ile yapabilirsin. Pardon kardeşim kusura bakma buyur; https://hotfile.com/dl/190107452/b9cf857/TreeList.apz.html Quote Link to comment Share on other sites More sharing options...
kurt0619 Posted January 22, 2013 Author Share Posted January 22, 2013 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 ekledimhttp://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 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 22, 2013 Share Posted January 22, 2013 Silme kodunun altına Page.Jump("SayfaAdı") kodunu ekleyin, listeyi yenilesin. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.