Jump to content

İniden Show Popup Menu Oluşturma


Falcon

Önerilen İletiler

  • Yönetici

 

 

 

if e_Type == 2 then
sections = INIFile.GetSectionNames(_SourceFolder .. "\\AutoPlay\\Docs\\menu.ini");
if sections then
tblMenu = {}; -- menu tablosu
ayrac = false;
sayi = 1;
    
for i,v in pairs(sections) do
metin = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\menu.ini", v, "metin"); 
link = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\menu.ini", v, "link");
icon = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\menu.ini", v, "icon");
icon = String.ToNumber(icon) -- sayıya çevir
seperator = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\menu.ini", v, "seperator");
        
if seperator == "true" then
ayrac = true;
else
ayrac = false;
end

tblMenu[sayi] ={};
tblMenu[sayi].Text = metin;
tblMenu[sayi].ID = i;
tblMenu[sayi].IconID = icon;
tblMenu[sayi].Checked = false;
tblMenu[sayi].Enabled = true;
        
if ayrac == true then
sayi=sayi+1;
tblMenu[sayi] ={};
tblMenu[sayi].Text = "---";
tblMenu[sayi].ID = 100;
tblMenu[sayi].IconID = icon;
tblMenu[sayi].Checked = false;
tblMenu[sayi].Enabled = true;
end
            
sayi=sayi+1;
end

nRes = Application.ShowPopupMenu(e_X, e_Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
        
if nRes ~= -1 and nRes ~= 0 then

link = INIFile.GetValue(_SourceFolder .. "\\AutoPlay\\Docs\\menu.ini", nRes, "link");
File.OpenURL(link, SW_SHOWNORMAL)
end

end
end 

Download Apz

Yorum bağlantısı
Sitelerde Paylaş

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuyu yanıtla

×   Yapıştırdığınız içerik biçimlendirme içeriyor.   Biçimlendirmeyi Temizle

  Only 75 emoji are allowed.

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

×   Önceki içeriğiniz geri yüklendi.   Editör içeriğini temizle

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

×
×
  • Yeni Oluştur...

Önemli Bilgilendirme

KartalSoftware Forum kurallarını okudum ve kabul ettim.