Tekil Mesaj gösterimi
Alt 22 Şubat 2006, 01:17   #2
Çevrimdışı
McKruGer
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Başka forumda aynı soru gelmişti. Oradaki mesajımı aynen pasteliyorum.

Örnek diyalogla açıklanmasıdır.

Öncelikle Toolbar kodunun Diyalogunda ekleme yapmamız gerekir ve bunu MDX ile şekillendirmemiz gerekir.

İlk başta aliases kodu olarak şu kodu yazarız.


alias saat { if ($dialog(tb)) { did -a tb $1 $time } }


Diyalog Koduna ise iki tane txt komutu eklemeliyiz.

dialog tb {
title "x"
size 0 0 1500 8
option dbu
list 1, 2 2 2978 25, size
text "", 3, 464 9 45 16, center
text "", 4, 467 13 39 12, center

}

Diyaloga Eklenen Yerlerin Açıklaması :

Burada textlerin diyalogda saatin nerede yer alacağını belirlemek için text 3 kodunda 464, 9 , text 4 kodunda 467, 13 sayıları ile oynama edioruz.
464 ve 467 sayıları saatin diyalogta yanlamasına yönünü belirler. Sayı arttıkça saat daha sağa kayar. sayı azaldıkça saat daha sola kayar.
9 ve 13 Sayıları ise saatin diyalogda yukarı - aşağı yönünü belirler. Sayı azaldıkça diyalogun en üstünde yer alır. sayı arttıkça diyalogun aşağı kısımlarına kayar.
45 ve 39 sayıları ise diyalogda kullanılan saatin uzunluğudur. o sayılar arttıkça saatimizin uzunluğu artar.
16 ve 12 sayıları ise diyalogda kullanılan saatin genişliğidir. sayılar arttıkça saatimizin genişliği artar.

Sonra MDX ile bu textleri şekillendireceğiz. ve bu komutları init kısmına (Kalın yazılmış kısımlardır ) ekleyeceğiz.

on *:dialog:tb:init:0: {
set %seps 0
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
mdx SetColor $dname 3,4 background $rgb(0,0,0)
mdx SetColor $dname 3,4 textbg $rgb(0,0,0)
mdx SetColor $dname 4 text $rgb(17,225,36)
mdx SetFont $dname 4 20 500 turkish
.timersaat 0 1 saat 4


kodun devamını yazarsın işte.

Eklenen yerlerin açıklaması :
mdx SetColor $dname 3,4 background $rgb(0,0,0) satırı diyalogda kullandığın saatin arka planıdır. Biz arka planı 0,0,0 rgb renk kodları ile siyah yaptık.
mdx SetColor $dname 3,4 textbg $rgb(0,0,0) satırı ise diyalogda kullandığın saatte yer alan yazıların ( yani rakam oluyor saat olduğu için ) arka plan rengidir.
mdx SetColor $dname 4 text $rgb(17,225,36) satırı ise diyalogda kullandığın saatteki yazıların ( yani rakam oluyor saat olduğu için ) rengidir. Burada 17,225,36 rgb renk kodları ile yeşil yaptık.
mdx SetFont $dname 4 20 500 turkish satırı ise diyalogda yer alan yazının karakterini ve dolayısıyla büyüklüğünü belirler.


Kodun Tamamı :


on *:connect: {
update.tb
}

on *:disconnect: {
update.tb
}

on *:close:*: {
update.tb
}

on *:start: { dialog -m tb tb }

alias saat { if ($dialog(tb)) { did -a tb $1 $time } }

alias update.tb {
if (!$dialog(tb)) { halt }
else {
scid $activecid
if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) {
did -o tb 1 2 +a 2 Kopart
}
else {
did -o tb 1 2 +a 1 Bağlan
}
}
}


dialog tb {
title "x"
size 0 0 1500 8
option dbu
list 1, 2 2 2978 25, size
text "", 3, 464 9 45 16, center
text "", 4, 467 13 39 12, center

}

on *:dialog:tb:init:0: {
set %seps 0
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetBorderStyle $dname 2 staticedge
mdx SetColor $dname 3,4 background $rgb(0,0,0)
mdx SetColor $dname 3,4 textbg $rgb(0,0,0)
mdx SetColor $dname 4 text $rgb(17,225,36)
mdx SetFont $dname 4 20 500 turkish
.timersaat 0 1 saat 4


rebar HideToolbar .
rebar Dock $dialog(tb).hwnd > top

mdx SetControlMDX $dname 1,3,6 Progressbar smooth > $ctl
mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > $bars
; mdx SetControlMDX $dname 1 ToolBar flat arrows nodivider wrap > $aux.mdx(bars)

mdx SetBorderStyle 1


did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163)
did -i $dname 1 1 bmpsize 32 32
did -i $dname 1 1 setimage icon large icon\1.ico
did -i $dname 1 1 setimage icon large icon\2.ico
did -i $dname 1 1 setimage icon large icon\3.ico
did -i $dname 1 1 setimage icon large icon\4.ico
did -i $dname 1 1 setimage icon large icon\5.ico
did -i $dname 1 1 setimage icon large icon\6.ico
did -i $dname 1 1 setimage icon large icon\7.ico
did -i $dname 1 1 setimage icon large icon\12.ico
did -i $dname 1 1 setimage icon large icon\9.ico
did -i $dname 1 1 setimage icon large icon\10.ico

did -a $dname 1 +a 1 Bağlan
did -a $dname 1 +a 3 KanaLLar
did -a $dname 1 +a 4 KorumaLar
did -a $dname 1 +a 5 AraçLar
did -a $dname 1 +a 6 Admin - Op Panel
did -a $dname 1 +a 7 Global Mesajlar
did -a $dname 1 +a 8 Taramalar
did -a $dname 1 +a 9 Extra Panel
did -a $dname 1 +a 10 iRc Yardım
}

on *:dialog:tb:*:*: {
if $devent == sclick {
if $did == 1 {
if ($did($dname,1).sel = 2) {
if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
else {
scid $activecid server
}
update.tb
did -f $dname 1
scid $activecid window -a "status window"
}
if ($did($dname,1).sel = 3) {
kanalpop
}
if ($did($dname,1).sel = 4) {
dialog -m security security
}
if ($did($dname,1).sel = 5) {
aracpop
}
if ($did($dname,1).sel = 6) {
opspop
}
if ($did($dname,1).sel = 7) {
glbpop
}
if ($did($dname,1).sel = 8) {
trmpop
}
if ($did($dname,1).sel = 9) {
dialog -m guardian3 guardian3
}
if ($did($dname,1).sel = 10) {
dialog -m yardim yardim
}
}
}
}



Not : mdx SetFont $dname 4 20 500 turkish Burdaki 500 Rakamının Büyüklüğünden Dolayı sorun çıkarsa 500 rakamını düşür.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet