IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Alıntı:

McKruGer Nickli Üyeden Alıntı (Mesaj 347947)

Mümkündür. Kodları alalım halledelim hemen.

Kod:

alias wfx dll sistem/dll/windowfx.dll SetChild $1 > $2

alias wpadding dll sistem/dll/wpadding.dll WinPadding $1-

alias Acıllan {

  wpadding $1 bottom 192 

  dialog -m $+(Child-,$1) Sercan

}

alias -l mircplusdll return Sistem\dll\mircplus.dll

on *:dialog:Child-*:*:*:{

  if (!$did(3).text) { did -b $dname 2 } | else { did -e $dname 2 }

  if ($devent == init) {

    dialog -s $dname $calc($window($active).w - 801) $calc($window($active).h - $calc($window($active).h - 298)) 786 190

    Esrar MarkDialog $dname

    Esrar SetColor 1 background  $rgb(255,255,227)

    Esrar SetDialog $dname bgcolor $rgb(255,255,227)

    Esrar SetDialog $dname style

    Esrar SetControlMDX $dname 1 ToolBar flat wrap arrows nodivider List > $bars

    Esrar SetBorderStyle $dname 1

    did -i $dname 1 1 setscheme $rgb(0,253,255) $rgb(0,253,255)

    did -i $dname 1 1 bmpsize 30 30

    did -i $dname 1 1 setimage icon large $mircexe

    did -i $dname 1 1 setimage icon large $mircexe

    did -i $dname 1 1 setimage icon large $mircexe

    did -a $dname 1 +a 1 $chr(32) Ifadeler $chr(9) $+ mIRC Smileys

    did -a $dname 1 +a 2 $chr(32) Göz Kıpması $chr(9) $+ mIRC Göz Kırpması

    did -a $dname 1 +a 3 $chr(32) Titreşim $chr(9) $+ mIRC Titreşim

    did -a $dname 1 +a -

    did -a $dname 1 +a -

    did -a $dname 1 +a -

    did -a $dname 1 +a -

    did -i $dname 1 1 setbkg tile Sistem\bmp\2.bmp

    wfx $remove($dname,Child-) $dname

  } 

  if ($devent == Sclick) {

    if $did == 1 {

      if ($did($dname,1).sel = 2) {

        smiley 

      }

      if ($did($dname,1).sel = 3) {

        echo -a 4 2

      }

      if ($did($dname,1).sel = 4) {

        echo -a 4 3

      }

    }

    if $did == 2 {

      /msg $active $did(3)

      .did -a $dname 3 $chr(32)

    }

  }

}

 

alias query {

  query $1 

  Acıllan $1

}

on *:Open:?:*:Acıllan $nick

dialog Sercan {

  title "Esrarda Israr"

  size -1 -1 392 116

  option dbu

  list 1, 5 5 394 17, size

  button "Gönder", 2, 337 29 49 77

  edit "", 3, 5 29 323 77

}

Buyrun Hocam.

Alıntı:

CipriX Nickli Üyeden Alıntı (Mesaj 348029)

Button yazan yere "ok" parametresini getirdiğinde sorun çözülecek sanırsam böyle bi kod yazmıştım 1 sene önce yanlış hatırlamıyorsam

CipriX,İlk olarak bunu uygulamıştım, uyguladığımda sadece dialog'un kapandıgını gördüm. :)

Alıntı:

SnØØpy Nickli Üyeden Alıntı (Mesaj 347969)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok güzel görünüyor

saol SnØØpy