korumaLardan mı ßahsediyoSun ? kısaLtma yazıLardan ? Alıntı:
size -1 -1 212 94
option dbu
list 1, 3 2 100 88, size
box "", 2, 105 18 74 57
button "Kapalı", 3, 104 2 76 12,flat
text "Kısaltılmış:", 4, 109 26 28 8
edit "", 5, 108 37 67 10, autohs
text "Tam:", 6, 109 50 25 8
edit "", 7, 108 60 67 10, autohs
button "Ekle", 8, 107 78 31 12,flat
button "Kaldır", 9, 145 78 31 12,flat
button "Tamam" 10, 180 21 30 69 , ok,flat
}
on *:dialog:Kelime_tamamla:init:0:{ dll $mdx SetMircVersion $version | dll $mdx MarkDialog $dname | dll $mdx SetBorderStyle 3,8,9,10 staticedge | dll $mdx SetFont 4,6,3 12 700 Tahoma | dll $mdx SetFont 8,9,5,7 12 400 Tahoma | dll $mdx SetControlMDX 1 ListView grid single rowselect showsel report > $scriptdirviews.mdx | did -i $dname 1 1 headerdims 87:1 87:2 | did -i $dname 1 1 headertext Kısaltılmış: %4$s $chr(9) %4$s Tam: | if (%Kelime_tamamla == evet) did -a $dname 3 Açık | else did -a $dname 3 Kapalı | kelimeyükle }
on *:dialog:Kelime_tamamla:sclick:1:{ did -ra $dname 5 $gettok($read($scriptdirkelimeler.txt,$calc($did(1 ).sel - 1)),1,9) | did -ra $dname 7 $gettok($read($scriptdirkelimeler.txt,$calc($did(1 ).sel - 1)),2,9) | if ($gettok($did($dname,$did,1),1,32) == rclick) { Kelimenü } }
on *:dialog:Kelime_tamamla:sclick:3:{ if (%Kelime_tamamla == evet) { set %Kelime_tamamla hayır | did -a Kelime_tamamla 3 Kapalı | set %kelimetamamla OFF } | else { set %Kelime_tamamla evet | set %kelimetamamla ON | did -a Kelime_tamamla 3 Açık } }
on *:dialog:Kelime_tamamla:sclick:8:{ kelime.ekle }
on *:dialog:Kelime_tamamla:sclick:9:{ kelime.çıkart }
alias kelime { dialog -m Kelime_tamamla Kelime_tamamla }
alias -l mdx { return $shortfn($scriptdirmdx.dll) }
alias -l kelimeyükle { did -r kelime_tamamla 1,5,7 | loadbuf -o kelime_tamamla 1 $scriptdirkelimeler.txt }
alias -l kelime.ekle { if ((!$did(5)) || (!$did(4))) { return } | if ((* isin $did(5)) || ($read($scriptdirkelimeler.txt, w, * %4$s $did(5) %4$s *) == $null)) { .write $scriptdirkelimeler.txt $did(5) %4$s $chr(9) %4$s $did(7) } | else { .write -l %4$s $readn $scriptdirkelimeler.txt $did(5) %4$s $chr(9) %4$s $did(7) } | kelimeyükle }
alias -l kelime.çıkart { if ($did(kelime_tamamla,1).sel) { .write -dl %4$s $calc($did(kelime_tamamla,1).sel - 1) $scriptdirkelimeler.txt } | kelimeyükle }
alias -l oirc { if (%Kelime_Tamamla == hayır) { return $1- } | else { var %i 1 | set %text $1- | :init | if ($read($scriptdirkelimeler.txt,%i) == $null) { goto end } | set %heroturk $gettok($read($scriptdirkelimeler.txt,%i),1,9) | set %her0turk $gettok($read($scriptdirkelimeler.txt,%i),2,9) | set %text $replace(%text,%heroturk,%her0turk) | inc %i | goto init | :end } | var %a %text | unset %text | unset %heroturk | unset %her0turk | return %a }
alias -l Kelimenü { if ($did(Kelime_Tamamla,1).sel) { dll $popups New replace 16 16 | dll $popups SetStyle replace bordericon | dll $popups LoadImg replace icon small $scriptdiricon\off.ico | dll $popups AddItem replace end 1 1 çıkart $cr kelime.çıkart | Popupz replace $mouse.dx $mouse.dy } }
alias -l popupz { tokenize 32 $dll($shortfn($scriptdirpopups.dll),Popup,$1-) | if ($isid) { return $1- } | elseif ($4- != did not select a menu item) { $4- } }
alias -l popups { return $shortfn($scriptdirpopups.dll) }
on *:INPUT:?: { if (%kelimetamamla == ON) && (%yazitipacikmi == OFF) && (($1 != $null) && ($left($1,1) != /) && (Status Window != $active)) { haltdef | var %t $oirc($1-) | .msg $active %t | .echo -a $timestamp %4$s %4$s $colour(Own Text) 4< %4$s $me %4$s 4> %f %t } }
| |
