Treelist Sağ Tık

[kurt0619]

Arkadaşlar treelist sağ tık program ekle,kaldır, kaldr eklemek istiyorum forumda bu kodları buldum bi bakarmısınız hangi kodları eklemeliyim
[b][size="4"][color="#FF0000"][color="#8B0000"]On ContextMenu evresine:[/color][/color][/size][/b]
[size="3"][b][code]tMenu = {};
tMenu[1] ={};
tMenu[1].Text = "Menu 1";
tMenu[1].ID = 100;
tMenu[1].IconID = 15;
tMenu[1].Checked = false;
tMenu[1].Enabled = true;
tMenu[2] ={};
tMenu[2].Text = "Menu 2";
tMenu[2].ID = 101;
tMenu[2].IconID = 1;
tMenu[2].Checked = false;
tMenu[2].Enabled = true;

nMenu = Application.ShowPopupMenu(System.GetMousePosition(true, Application.GetWndHandle()).X, System.GetMousePosition(true, Application.GetWndHandle()).Y, tMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true)

if nMenu == 100 then
-- menu 1 seçilince çalışacak kodlar
elseif nMenu == 101 then
-- menu 2 seçilince çalışacak kodlar
end
[/code][/b][/size]

[nightmare3519]

Program Ekle:


---- Program Ekleme kodu KintaRo'ya teşekkürler...

tDosya = Dialog.FileBrowse(true, "Dosya Seçin", _DesktopFolder, "EXE dosyaları (*.exe)|*.exe|", "", "", false, true)
if tDosya[1] ~= "CANCEL" then
sDosya = String.SplitPath(tDosya[1]).Filename .. String.SplitPath(tDosya[1]).Extension;
File.Copy(tDosya[1], _SourceFolder .. "\\Autoplay\\Docs\\Programlar\\" .. sDosya, false, true, false, true, nil)
Dialog.Message("Program Eklendi.", "Program Başarıyla Eklendi!")

---- Program Sil

nSec = TreeList.GetSelected("Plugin1");
nText = TreeList.GetCellText("Plugin1", nSec, 0);
result = Dialog.Message(""..nText.." Siliniyor", ""..nText.." Adlı Programı Silmek İstediğinizden Eminmisiniz?.", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result == 6 then
File.Delete(_SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..nText..".exe", false, false, false, DeleteCallback);
elseif result == 7 then
end

Edited May 31, 2012 by nightmare3519

[nightmare3519]

Program Ekle:


---- Program Ekle

tDosya = Dialog.FileBrowse(true, "Dosya Seçin", _DesktopFolder, "EXE dosyaları (*.exe)|*.exe|", "", "", false, true)
if tDosya[1] ~= "CANCEL" then
sDosya = String.SplitPath(tDosya[1]).Filename .. String.SplitPath(tDosya[1]).Extension;
File.Copy(tDosya[1], _SourceFolder .. "\\Autoplay\\Docs\\Programlar\\" .. sDosya, false, true, false, true, nil)
Dialog.Message("Program Eklendi.", "Program Başarıyla Eklendi!")

---- Program Sil

nSec = TreeList.GetSelected("Plugin1");
nText = TreeList.GetCellText("Plugin1", nSec, 0);
result = Dialog.Message(""..nText.." Siliniyor", ""..nText.." Adlı Programı Silmek İstediğinizden Eminmisiniz?.", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1);
if result == 6 then
File.Delete(_SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..nText..".exe", false, false, false, DeleteCallback);
elseif result == 7 then
end

Dosya konumlarını ayarlarsın

[kingdown]

yaha bu kodları nereye koycam nightmare3519

[pilgetir]

Anlayamayacak bir şey yok üsttekini Program Ekle butonuna alttakini Program Sil butonuna.