السلام عليكم
شباب امر وطازه لوق عجيب يبطل لك نافذه تشوف منها اللوق
وسهل الاستعمال واكشخ امر لوق ممكن
تحصله وتحطه بسكربتك هالامر هذا منقووول
الامر هذا تحطه في Popups
‡©‡ لوووووووووووق ‡©‡:dialog -m DLGlog DLGlog
والامر الثاني تحطه بالريموت Remote
alias DLGlog { dialog -m DLGlog DLGlog }
dialog DLGlog {
title "Telex v1 اللـــوق"
size 30 68 370 211
option dbu
text "الـقــائــمـــــه" 8,3 5 201 189
text "مـشــاهـدة الـلــوق" 10,326 5 170 189
list 29, 1 17 71 176, autohs size
button "Telex v1 مـــــــــــــــوافـــــق Telex v1", 32, 75 195 294 14, ok flat
button "حــذف الـلــوق", 33, 1 195 71 14, flat
}
on *:DIALOG:DLGlog:init:*: var %x = $findfile(logs,*.log,0,did -a $dname 29 $nopath($1-)) | window -ado +dL @log.view $calc($dialog(DLGlog).x + 155) $calc($dialog(DLGlog).y + 59 + $iif($os == XP,8)) 448 347 | .timerLogV -m 0 100 setlogview
on *:DIALOG:DLGlog:sclick:*:{
if ($did == 37) { loadbuf -r @log.view logs\Pager.txt | halt }
if ($did == 33) { .timerlogV off | window -c @log.view | var %x = $$?!="Delete $did($dname,29).seltext " | if (%x) { .remove logs\ $+ $did($dname,29).seltext | did -d $dname 29 $did($dname,29).sel } | window -hkdo +dL @log.view $calc($dialog(DLGlog).x + 155) $calc($dialog(DLGlog).y + 59) 448 347 | window -a @log.view | .timerLogV -m 0 100 setlogview }
if ($did == 31) { reload_logs | halt }
if ($did == 36) { did -r $dname 29 | var %y = * $+ $did($dname,35) $+ *.log | var %x = $findfile(logs,%y,0,did -a $dname 29 $nopath($1-)) | halt }
if ($did > 1) && ($did < 29) reload_logs $did($dname,$did) | if ($did == 29) loadbuf -r @log.view logs\ $+ $did($dname,$did).seltext
}
alias -l reload_logs did -r $dname 29 | var %y = $1 $+ *.log | var %x = $findfile(logs,%y,0,did -a $dname 29 $nopath($1-))
alias setlogview if ($dialog(DLGlog)) window @log.view $calc($dialog(DLGlog).x + 155) $calc($dialog(DLGlog).y + 59 + $iif($os == XP,8)) 585 347 | else { window -c @log.view | .timerLogV off }
شباب امر وطازه لوق عجيب يبطل لك نافذه تشوف منها اللوق
وسهل الاستعمال واكشخ امر لوق ممكن
تحصله وتحطه بسكربتك هالامر هذا منقووول
الامر هذا تحطه في Popups
‡©‡ لوووووووووووق ‡©‡:dialog -m DLGlog DLGlog
والامر الثاني تحطه بالريموت Remote
alias DLGlog { dialog -m DLGlog DLGlog }
dialog DLGlog {
title "Telex v1 اللـــوق"
size 30 68 370 211
option dbu
text "الـقــائــمـــــه" 8,3 5 201 189
text "مـشــاهـدة الـلــوق" 10,326 5 170 189
list 29, 1 17 71 176, autohs size
button "Telex v1 مـــــــــــــــوافـــــق Telex v1", 32, 75 195 294 14, ok flat
button "حــذف الـلــوق", 33, 1 195 71 14, flat
}
on *:DIALOG:DLGlog:init:*: var %x = $findfile(logs,*.log,0,did -a $dname 29 $nopath($1-)) | window -ado +dL @log.view $calc($dialog(DLGlog).x + 155) $calc($dialog(DLGlog).y + 59 + $iif($os == XP,8)) 448 347 | .timerLogV -m 0 100 setlogview
on *:DIALOG:DLGlog:sclick:*:{
if ($did == 37) { loadbuf -r @log.view logs\Pager.txt | halt }
if ($did == 33) { .timerlogV off | window -c @log.view | var %x = $$?!="Delete $did($dname,29).seltext " | if (%x) { .remove logs\ $+ $did($dname,29).seltext | did -d $dname 29 $did($dname,29).sel } | window -hkdo +dL @log.view $calc($dialog(DLGlog).x + 155) $calc($dialog(DLGlog).y + 59) 448 347 | window -a @log.view | .timerLogV -m 0 100 setlogview }
if ($did == 31) { reload_logs | halt }
if ($did == 36) { did -r $dname 29 | var %y = * $+ $did($dname,35) $+ *.log | var %x = $findfile(logs,%y,0,did -a $dname 29 $nopath($1-)) | halt }
if ($did > 1) && ($did < 29) reload_logs $did($dname,$did) | if ($did == 29) loadbuf -r @log.view logs\ $+ $did($dname,$did).seltext
}
alias -l reload_logs did -r $dname 29 | var %y = $1 $+ *.log | var %x = $findfile(logs,%y,0,did -a $dname 29 $nopath($1-))
alias setlogview if ($dialog(DLGlog)) window @log.view $calc($dialog(DLGlog).x + 155) $calc($dialog(DLGlog).y + 59 + $iif($os == XP,8)) 585 347 | else { window -c @log.view | .timerLogV off }
تعليق