Jump to content

Listbox Sağ Tıkla


kingdown
 Share

Recommended Posts

Merhaba Arkadaşlar Ben Yeni Bir Aio yapıyorum version 5 Ben Buna Listbox Ekledim Çünkü Listboxa Program Koyunca Programın İconu Yanına Geliyor... Benim Sorum Listboxa Sağ tıklayıp Program Ekle/Kaldır Nasıl Yaparım Ve Nasıl İcon Eklerim... Şimdiden ..::Teşekkürler::..

Arkadaşlar Forumda Araştırdım Ancak Listbox Değil Hep Treelist Olarak Konu Açılmış...

Saygılarımla...

Bu sadece Örnek ama Ben Listbox İçin İstiyorum:

[img]http://img641.imageshack.us/img641/3374/qttempemu536.png[/img]
Link to comment
Share on other sites

[color="#8B0000"]Verdiğin resimdeki ListBox değil, "PopupMenu"dür. ListBox'da ikon görüntüleme şansın da yok. Ayrıca ListBox'ta sağ tık menü de çok zahmetli iş. İyisi mi sen gel, TreeList veya ListIcon kullan :)[/color]

Link to comment
Share on other sites

Baba_ Biliyorum verdiğim örnek listbox değil ben şuan zaten listIcon kullanıyorum ancak sağ tıklama yapmak istiyorum bide Bu Benim aionun 5 inci versionu önceki versionlarda treelist kullandım ama sağ tık listboxa nasıl koyucam :(

Edited by kingdown
Link to comment
Share on other sites

Bir listbox oluştur ve Project > Plugin bölümünden ListIconu aktif et.
On show;
[quote]ListIcon.Create("list","ID",100,{FullRowSelect=true,AlwaysShowSelection = true,GridLines=true});
ListIcon.AddColumn("list","Ad",100);
ListIcon.AddColumn("list","Soyad",100);
ListIcon.AddColumn("list","Tel",100);[/quote]

Global functions bölümüne;
[quote]if(not ListIconEvent)then
ListIconEvent = {}
end
function ListIconEvent.OnHeaderClick(ObjectName, Column)

end
function ListIconEvent.OnChecked(ObjectName, Row, boolChecked)

end
function ListIconEvent.OnRightClick(ObjectName, Row)
local tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "&Sil";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 0;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "&Düzenle";
tblMenu[2].ID = 200;
tblMenu[2].IconID = 0;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
local mouse_pos = System.GetMousePosition(true,nil);
local show_popup = Application.ShowPopupMenu(mouse_pos.X,mouse_pos.Y,tblMenu,TPM_LEFTALIGN,TPM_TOPALIGN,true,true);
if (show_popup ~= -1) then
if (show_popup==100) then --sil
--çalışacak kodlar
elseif (show_popup==200) then --düzenle
--çalışacak kodlar
end
end
end
function ListIconEvent.OnSelect(ObjectName, Row)

end
function ListIconEvent.OnKillFocus(ObjectName)

end
function ListIconEvent.OnDoubleRightClick(ObjectName, Row)

end
function ListIconEvent.OnKey(ObjectName, e_Key)

end
function ListIconEvent.OnDoubleClick(ObjectName, Row)

end
function ListIconEvent.OnSetFocus(ObjectName)

end
function ListIconEvent.OnReturn(ObjectName, Row)

end
function ListIconEvent.OnHeaderRightClick(ObjectName, Column)

end

function ListIconEvent.OnColorRequest(Object, Row, Column)

end

function ListIconEvent.OnFontRequest(Object, Row, Column)

end
[/quote]

APZ Dosyası;
[code]http://s2.dosya.tc/server16/fRNqsO/pilgetir_listbox_sagtik.rar.html[/code]

Edited by pilgetir
Link to comment
Share on other sites

[quote name='pilgetir' date='22 June 2012 - 07:55 ' timestamp='1340344540' post='1214488']
Bir listbox oluştur ve Project > Plugin bölümünden ListIconu aktif et.
On show;


Global functions bölümüne;


APZ Dosyası;
[code]http://s2.dosya.tc/server16/fRNqsO/pilgetir_listbox_sagtik.rar.html[/code]
[/quote]

Mlaesef Olmadı :(

Link to comment
Share on other sites

[color="#8B0000"][font="Lucida Sans Unicode"]Kullanmadığınız eventleri yazmanıza gerek yok ;

[code]ListIconEvent = {}[/code]

sadece yukarıda kod yeterlidir, hata mesajı almamak için. Şu an işyerindeyim, gece eve gidince sana bi örnek hazırlamaya çalışırım.[/font][/color]

Link to comment
Share on other sites

  • 1 yıl yıl...

Tamam Baba_ Örnek Bekliyorum Teşekkürler


Hee Bide Arkdaşlar Sağ Tık Şansımız Yok İse Normal Bir Button Yapıp Listboxa Nasıl
Program Ekleriz.. unsure.gif

buyur arkadaşım kodlar button nun on clck  yerine koyacaksın

 

if tDosya[1] ~= "CANCEL" then
sDosya = String.SplitPath(tDosya[1]).Filename .. String.SplitPath(tDosya[1]).Extension;
File.Copy(tDosya[1], _SourceFolder .. "\\Programlar\\" .. sDosya, false, true, false, true, nil)--hedef klasör
Dialog.Message("Bilgi.", "Katılımsız Programınız Başarıyla Eklendi Ana Kategoriyi Tekrar İşaretlerseniz Programınızı Göreceksiniz..!")
end

Edited by sakaci_79
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

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...