Dialog açılırken animasyonlar
 

S.a Arkadaşlar ,

benim aklıma bir şey takıldı çözmeye çalıştım ama yapamadım:)
Ben bazı miRC lerde gördüm mıRC Dialogu açınca, dialog sagdan sola doğru , aşarığan yukarı , yukardan aşağı , çaprazlamasına açılıyo vs. vs. vs.

Bunun Kodlarını yazabilirmisiniz size zahmet :(

Yanıt: Dialog açılırken animasyonlar
 

Acele ile yazdığım bir code oldu... Ama fikir vermek açısından işine yarar umarım... Bu aralar zaten bu code üzerinde çalıshıyordum...



Daha güzel bir kodlama yapacaq arkadashlar vardır elbet ama acemi ishi bu kadar oldu idare et...

Yanıt: Dialog açılırken animasyonlar
 

Arkadaşım bu ne yapıo ki dialoga sag-sol asagı-yukarı :)

Yanıt: Dialog açılırken animasyonlar
 

Kodu kullanırsan anlarsın... Üst köşeden çaprazlama kayan bir dialog... Neyse... Ben maça gidiyom... Şampiyon Fenerbahçe... Hadi kolay gele...


Bu arada kullanmak için F11 e basman yeterli :D Bunu da örnek olarak verdim sen kendine göre gelishtirirsin artıq...

Yanıt: Dialog açılırken animasyonlar
 

öncelikle iyi bir post kasmıştım sorun çıktı uctu yazılar hep o yüzden hiar internet diyiyim:)

şimdi o kadar uzun post kasamam geneoyüzden kısaca bir kaç bilgi vereyim kodlan oynayabilmen için mc_ayala:

alias deneme {
var %i = 1
while (%i <= 450) {
dialog -s deneme $calc(1 + %i) $calc(1 + %i) 160 160
inc %i
}
}


var %i = 1 --> bu satırdaki 1 sayısı kodun mirc toolbarının 1.ci sırasından en sol üst köşesinden çarprazlama olarak aşağıya kaydırır. O Sayıyı mesela 10 yaparsan dialog daha aşağıdan ve daha sağdan açılır.


while (%i <= 450) { --> bu satırdaki 450 sayısı ise yukardan aşağıya kayan dialogun en son noktada tam nerede açılacağını belirler. bu 450 sayısı dialogu orta-sağ köşeye ve alt kısma yakın bir yerde açtırır. o Sayı 350 olduğu vakit dialog tam ortalarda açılır. o sayı 100 olursa direkt sol üst köşede açılır dialog.


dialog -s deneme $calc(1 + %i) $calc(1 + %i) 160 160 --> bu satırdaki 160 sayıları ise dialogun genişlik ve uzunluk ayarlarıdır. İlk 160 sayısı genişlik ayarı, sonraki 160 sayısı ise uzunluk ayarıdır. sen 250 250 yapınca sayıları dialogun boyutlarının daha da büyüdüğünü görürsün..

Yanıt: Dialog açılırken animasyonlar
 

Sağolasın McKruger maçtan dolayı yazdığım kodu açıklama vaktim olmamıshtı... Açıklamasını yaptığın için çoq sağol...

Yanıt: Dialog açılırken animasyonlar
 

Peki üstadlar bunlara başka örneklerde verebilirmiyiz :) ne biliyim aşagıdan yukarı doğru kayan bi dialog :)

bide kızmıcaksanız bi soru daha :)

ben dialog'a bi html sayfası eklemeye calıstım olmadı sadece kodları cıktı bunu nasıl yapabilirim

loadbuf -o 1 $dname kem küm.html yaptım olmadı

Yardımlarınız için şimdiden teşekkürler

Yanıt: Dialog açılırken animasyonlar
 

Alıntı:

lacces Nickli Üyeden Alıntı ben dialog'a bi html sayfası eklemeye calıstım olmadı sadece kodları cıktı bunu nasıl yapabilirim

Bunu için nHTML.DLL adlı DLL dosyasına ihtiyacın var.

Bu DLL'yi indirmek için:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
face="Tahoma">Dll'yi indirdikten sonra bu dll'yi mIRC.exe'nin olduğu klasöre çıkar ve aşağıdaki kodu kopyala ve yapıştır.(Nereye yapıştırılacağını biliorsundur inş.)

Seni ilgilendiren kısım init event'ının olduğu kısımdır...Oradakileri incelersen
anlayacağını umuyorum...

Kod:

---


dialog url {
  title "Örnek"
  size -1 -1 285 152
  option dbu
  list 1, 2 13 282 124, size
  button "Kapat!", 2, 245 138 37 12, cancel
  text "Yeni url:", 3, 3 3 20 8
  edit "", 4, 24 1 227 10
  button "Git!", 5, 253 1 25 11, disable
}
alias ornek { if (!$dialog(url)) dialog -m url url }
 
;Seni ilgilendiren kısım
on *:dialog:url:init:*: {
  ;Dialog'daki listbox'ın hwnd'si alınıyor...
  var %hwnd = $dll(nhtml.dll,item,$dialog(url).hwnd id:1)
  ;Burda ise listbox bir html görüntüleyicisine dönüştürülüyor...
  dll nhtml.dll attach %hwnd
  ;Bu da gidilecek adres...
  ;url adresi yerine,  $shortfn(index.html) yada about:blank(yani boş sayfa) yazabilirsin...
  dll nhtml.dll navigate
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:dialog:url:edit:4: $iif($did(4),did -e $dname 5,$did -b $dname 5)
on *:dialog:url:sclick:5: dll nhtml.dll navigate $did(4)

---

Örneği açmak için: /ornek yazın.

Yanıt: Dialog açılırken animasyonlar
 

bitanede ben ekliyim bari animasyonlu dialog açılımı diğerlerinden farkı her açılışta değişik bir animasyonla açılması tabi seni biraz zorluyacak çünkü açılış komutu /dialog -m falan falan değil dialogları açarken aliases kullanıcaksın örneğin ben aşağıda error diye bir dialog yaptım kısa yol olacak /aç komutunu verdim komutun tam açıklaması : alias kısayol { opdialog dialogismi sabit180 180 en boy } şeklinde kolay gelsin ;)

alias aç { opdialog error 180 180 400 260 }
alias opdialog { opdialogs $rand(a,k) $$1 $$2 $$3 $$4 $$5 }
alias opdialogs {
if $$1- != $null {
if $$1 = a {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.w 0 | set %temp.d.wd $$5 | set %temp.d.h $$6 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlw $calc(%temp.d.wd / 3) 0.001 opendl.w
}
if $$1 = b {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlh $calc(%temp.d.hd / 3) 0.001 opendl.h
}
if $$1 = c {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
.timeropendlwh $calc(%temp.d.hd / 3) 0.001 opendl.wh
}
if $$1 = d {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.w
opendl.h
}
if $$1 = e {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.h
opendl.w
}
if $$1 = f {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + ($$5 / 2)) | set %temp.d.y $calc($$4 + ($$6 / 2))
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.mvr
}
if $$1 = g {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $calc($$4 + $$6)
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.b
}
if $$1 = h {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h 0 | set %temp.d.w $$5 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.t
}
if $$1 = i {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $calc($$3 + $$5) | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.l
}
if $$1 = j {
dialog -m $$2 $$2
set %temp.d $$2
set %temp.d.h $$6 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
opendl.r
}
if $$1 = k {
dialog -m $$2 $$2
set %temp.d $$2 | set %temp.d.r1 $rand(1,4) | set %temp.d.r2 $rand(1,2)
set %temp.d.h 0 | set %temp.d.w 0 | set %temp.d.hd $$6 | set %temp.d.wd $$5 | set %temp.d.x $$3 | set %temp.d.y $$4
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.r1 = 1 {
if %temp.d.r2 = 1 { opendl.r | opendl.t }
if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.r | opendl.b }
}
if %temp.d.r1 = 2 {
if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.l | opendl.t }
if %temp.d.r2 = 2 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.l | opendl.b }
}
if %temp.d.r1 = 3 {
if %temp.d.r2 = 1 { set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.t | opendl.l }
if %temp.d.r2 = 2 { opendl.t | opendl.r }
}
if %temp.d.r1 = 4 {
if %temp.d.r2 = 1 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | set %temp.d.x $calc(%temp.d.x + %temp.d.wd) | opendl.b | opendl.l }
if %temp.d.r2 = 2 { set %temp.d.y $calc(%temp.d.y + %temp.d.hd) | opendl.b | opendl.r }
}
}
if $$1 = ? {
linesep
linesep
linesep
}
}
}
alias opendl.w {
:start
inc %temp.d.w 2 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlw off
}
alias opendl.h {
:start
inc %temp.d.h 2 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
.timeropendlh off
}
alias opendl.wh {
:start
inc %temp.d.h 2 | inc %temp.d.w 2 | dec %temp.d.x 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd && %temp.d.w => %temp.d.wd { dec %temp.d.w 2 }
if %temp.d.h => %temp.d.hd && %temp.d.w < %temp.d.wd { dec %temp.d.h 2 }
if %temp.d.h < %temp.d.hd || %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
.timeropendlwh off
}
alias opendl.mvr {
set %temp.d.xd $calc(%temp.d.x - (%temp.d.x / 2))
set %temp.d.y $calc(%temp.d.y - (%temp.d.y / 2))
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
:start2
inc %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.x < %temp.d.xd { goto start2 } | else { goto end2 }
:end2
}
alias opendl.b {
set %temp.d.yd $calc(%temp.d.y - %temp.d.hd)
:start
inc %temp.d.h 1 | dec %temp.d.y 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.y > %temp.d.yd { goto start } | else { goto end }
:end
}
alias opendl.t {
:start
inc %temp.d.h 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.h < %temp.d.hd { goto start } | else { goto end }
:end
}
alias opendl.l {
:start
inc %temp.d.w 1 | dec %temp.d.x 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
alias opendl.r {
:start
inc %temp.d.w 1
dialog -s %temp.d %temp.d.x %temp.d.y %temp.d.w %temp.d.h
if %temp.d.w < %temp.d.wd { goto start } | else { goto end }
:end
}
dialog error {
title " ( Dikkat )"
size -1 -1 250 100
button "Tamam" 2, 80 70 80 19, ok
}