Çevrimdışı

Hiçbir kod girmeden, sadece diyalog şeklinde istediğiniz renk, arkaplan, kalın, altçizgili vb seçerek yazı yazmak için ufak bir kod. Kod sahibini bilmiyorum, sadece Türkçe'ye çevirdim. Bazen çok kullanışlı olabiliyor.

Diyalog resmi


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Mirc klasörüne eklenecek resim:


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Yüklenişi:
Aşağıdaki kodu Alt+R ile açtığımız remoteye ekliyoruz(Yeni bir pencere tavsiye edilir). Ardından yukarıdaki renk kodlarının olduğu küçük resmi bilgisayara indirip mirc klasöründe uygun yere koyun. Mesela koda göre icon 9, 13 73 87 20, icon\renkler.jpg, 0, noborder resim icon klasörü içinde. Siz nereye koyarsanız kodda ona göre düzeltme yapabilirsiniz.

Çalıştırma: Sağ tıklama ya da /mct

Kod:

dialog MCT {
title "Renkli Yazı"
size -1 -1 112 165
option dbu
button "Tamam", 4, 35 145 40 15, ok
box "Yazı Özellikleri", 5, 10 27 93 36
edit "", 6, 56 37 30 10
icon 9, 13 73 87 20, icon\renkler.jpg, 0, noborder
box "Renk Kodları", 10, 10 65 93 33
text "Renk Kodu", 18, 28 38 28 6
box "Aç / Kapat", 22, 10 2 93 23
radio "Açık", 23, 29 11 19 10, group
radio "Kapalı", 24, 60 11 25 10
check "Kalın", 29, 28 50 20 10, left
check "Altçizgili", 30, 55 51 32 7, left
box "Örnek", 31, 10 98 93 45
edit "Tek Renk= Yazınızın rengi olur.", 32, 11 107 90 10
edit "Çift Renk= 1.si yazı, 2.si arkaplan", 33, 11 119 90 10
edit "13,1=Siyah arkaplanda pembe yazı", 34, 11 131 90 10
}

on *:dialog:MCT:init:0:{
did -c $dname $iif(%mct.on,23,$iif(%mct.off,24,))
$iif(%text.color,did -a $dname 6 %text.color)
if (%mctbold = ) { did -c $dname 29 }
if (%mctunderline = ) { did -c $dname 30 }
}
on *:dialog:MCT:sclick:*:{
if ($did == 4) {
if ($did(MCT,29).state = 1) { set %mctbold  } | else { unset %mctbold }
if ($did(MCT,30).state = 1) { set %mctunderline  } | else { unset %mctunderline }
set %text.color $did(MCT,6)
}
if ($did == 23) { enable #mctext | unset %mct.* | set %mct.on on }
if ($did == 24) { disable #mctext | unset %mct.* | set %mct.off off }
}

#mctext off
on *:input:*:if (!$regex($1-,^\/) && !$inpaste) { msg $active %mctunderline $+ %mctbold $+  $+ %text.color $+ $1- | halt }
#mctext end

alias mct { dialog -m MCT MCT }

alias ctext {
$iif($dialog(MCT),dialog -c MCT MCT) dialog -m MCT MCT
}

menu * {
Renkli Yazma:/mct
}