Çevrimdışı

Arkadaslar aşağidaki addon bilinen bir kelime tamamlamadır. Cok kişi kullanmaktadır lakin çalışmıyor. Kulanan kişilerede baktım çalışmıyor.
dll ve kelimelerin listesi için txt olayida tamam ama kisa kelimeyi uzuna çevirmiyor.
Lütfen yardim edebilirmisiniz.



dialog kelime_tamamla {
title Kelime tamamlama
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ış: $+ $chr(9) $+ 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, * $+ $did(5) $+ *) == $null)) { .write $scriptdirkelimeler.txt $did(5) $+ $chr(9) $+ $did(7) } | else { .write -l $+ $readn $scriptdirkelimeler.txt $did(5) $+ $chr(9) $+ $did(7) } | kelimeyükle }
alias -l kelime.çıkart { if ($did(kelime_tamamla,1).sel) { .write -dl $+ $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 $+  $+ $colour(Own Text) 4< $+ $me $+ 4> %f %t } }

 

ben yaptım bi tane kelime tamamlama veya kelime / nick renklendirme addonu evde adsl gitti senin için yarın cdye çekip cafeden atayım..

 

Çevrimdışı

ciprix ilgin için teşekür ederim. Ama ben bunu çaliştiramadim bu benim hoşuma gitti.
Bir yerde bir hatasi var o konuda yardim istedim.

 

Çevrimdışı

Yardim etcek kimse yokmu arkadaslar.

 

baydo bu kod çalışmaz arkadaşım sorunu çözemedim çünkü hata vermiyor verse neyse ama vermiyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sadece çalışmıyor

 

Çevrimdışı

Evet bende ona uyuz oldum. Kelimeleri yüklüyo siraliyo. Ama kisayi uzun a cevirmiyo.
Hatada göstermiyo bir yerinde ufak bir sorun var ama ne ?
Bilen asrakadaslarda ilgilenirse cok makbule geccek.

 

Çevrimdışı

Yaf sunu yapacak kimse yokmu cok lazım bana .

 

Kardeş bende denedim. Hata vermiyo anlamadim ama çalıştırmıyo. Güzel bir şeye benziyor.
Ne deyim anlayan biri yapar inş. Sorunu;oki