- v2.1 deki tüm fonksiyonlar korundu.
- Dialog pencerenizin tamamını boyama imkanınız var. Aynı pencerenizde çizgiler çizme imkanınız var.15 farklı şekil ile Hayal gücünüzle sınırlı olacak bir çok şeyi yapabilirsiniz.
- Ekranınıza istediğiniz şekli çizdirebilirsiniz.
Yeri geldiğinde size örneklerle açıklayacağım.
yazarak deneyin.
Ölçülerin neler olduğunu görmek için aşağıdaki resme bakabilirsiniz.Bazı ölçüler çok küçük olduğu için, resim büyük şekilde gösterilmiştir.Kırmızı kare, sizin
dir.
yazın...
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias Boya { .comreg dll/Sekil_v2.2.dll | .comopen cSj Beni.Sekillendir | var %komut = $com(cSj,Boya,3,i4,$dialog($1).hwnd,i4,$2,i4,$3,i4,$4,i2,$5,i2,$6,i2,$7) | .comclose cSj | .comreg -u dll/Sekil_v2.2.dll }
alias ekraniboya {
var %cSj = 0
while (500 > %cSj) { boya Cappystarj0e 15 %cSj %cSj $rand(0,255) $rand(0,255) $rand(0,255) | inc %cSj 10 }
}
şekillendirmeler devam edecek...
__________________________________________________ ___________________________
----------------------------------------------------------------------------------------
yazın.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
dialog cSj {
title "~ Şekil.dll_v2.1 Örnekleri..."
size -1 -1 187 141
option dbu
combo 1, 66 39 100 65, size drop
button "&Ekle", 2, 66 24 26 13
button "&Sil", 3, 92 24 26 13
button "&Düzenle", 4, 118 24 26 13
button "Server'a Bağlan!..", 5, 50 107 90 15, default ok
text "IRC Server :", 7, 31 40 32 8
text "Nick :", 8, 48 53 15 8
text "Alternatif Nick :", 9, 24 65 40 8
text "E-m@iL :", 10, 40 77 25 8
edit "", 11, 66 50 100 12
edit "", 12, 66 62 100 12
edit "", 13, 66 74 100 12
check "Proxy IP Kullan!..", 6, 67 91 55 10, flat
check "Multi Server!..", 14, 122 91 46 10, flat
}
on *:dialog:cSj:init:*:{
.timerÖnceKüresel 1 3 Küresel $dname 40 30 350 300
.timerSonraKaresel 1 6 Karesel $dname 0 0 0 550 300 0
.timerYineKaresel 1 9 Karesel $dname 0 0 0 300 350 0
.timerHepKaresel 1 12 Karesel $dname 0 222 1000 0 0 0
.timerKenarlıkOlsun 1 15 Kenarlik $dname 10 0 360 1000 130 200
.timerİlledeKenarlık 1 18 Kenarlik $dname 0 3 1200 100 200 200
.timerNegüzelKenarlik 1 21 Kenarlik $dname 5 0 1200 300 200 200
.timer4Kenarlik 1 24 Kenarlik $dname 5 5 360 300 100 100
}
alias Küresel { .comreg dll/Sekil_v2.1.dll | .comopen cSj Beni.Sekillendir | var %komut = $com(cSj,Küresel,3,i4,$dialog($1).hwnd,i4,$2,i4,$3,i4,$4,i4,$5) | .comclose cSj | .comreg -u dll/Sekil_v2.1.dll }
alias Karesel { .comreg dll/Sekil_v2.1.dll | .comopen cSj Beni.Sekillendir | var %komut = $com(cSj,Karesel,3,i4,$dialog($1).hwnd,i4,$2,i4,$3,i4,$4,i4,$5,i4,$6,i4,$7) | .comclose cSj | .comreg -u dll/Sekil_v2.1.dll }
alias Kenarlik { .comreg dll/Sekil_v2.1.dll | .comopen cSj Beni.Sekillendir | var %komut = $com(cSj,Kenarlik,3,i4,$dialog($1).hwnd,i4,$2,i4,$3,i4,$4,i4,$5,i4,$6,i4,$7) | .comclose cSj | .comreg -u dll/Sekil_v2.1.dll }
alias ircforumlari dialog -m cSj cSj