PC-win [x-y] position.

[L4roXyL]

İşinizi görebilecek bir kod yazdım.
Picture window ile uğraşan arkadaşlara en çok lazım olan şeylerden bir tanesi, farenin pencere içerisinde bulunduğu x-y kordinatlarıdır. Yazdığım alias sayesinde, farenin bulunduğu x-y kordinatlarını belirlediğiniz "3" şekilde görebilirsiniz.
Bunlar:

1- Win formatında görebilirsiniz. Daha iyi anlamak için aşağıdaki resme bakınız.



2- Belirtilen pencerenin title-ı mevcut ise, title-ında(başlığında) gösterebilirsiniz.



3- Son olarak ballon uyarısında görebilirsiniz.



-

Kod aşağıdadır.

alias -l win_position {
  if ($window($2)) { 
    if ($regex($1,^ballon$)) { 
      $iif(!$tip(window),noop $tip(window,X-Y POSITION - $2,X: $3 - Y: $4,60,,,,$window($2).wid),tip -t window X: $3 - Y: $4) 
      return 
    }
    if ($regex($1,^title$)) { titlebar $2 - X: $3 - Y: $4 | return }
    if ($regex($1,^win$)) { if (!$window(@x_y)){ window -aoCk0BHdpw0 +dL @x_y 0 0 110 20 }
    drawfill -r @x_y 0 0 0 0 | $iif($window(@x_y).state = minimized,window -z @x_y)
    var %xy = $+($chr(2),X:,$chr(2),$chr(160),$3,$chr(160),-,$chr(160),$chr(2),Y:,$chr(2),$chr(160),$4)
    var %xy! = $width(%xy,Arial,12,0,1) | var %calc = $calc((110- %xy!)/2)
    drawrect -rf @x_y 0 2 0 0 110 20 | drawtext -rpb @x_y $rgb(255,255,255) 0 Arial 12 %calc 2 %xy
    window @x_y $calc($5 +12) $calc($6 -12)
  }
}
on *:active:@x_y:window -a $qt($lactive) | window -o @x_y
on *:appactive:if (!$appactive) && ($window(@x_y)) window -c @x_y

Alias ismi: /win_position
Kullanımı: /win_position <ballon|win|title> <window> <$mouse.x> <$mouse.y> [<$mouse.dx>] [<$mouse.dy>]
Açıklaması: Eğer ballon belirlerseniz, belirlenen pencere ait balon uyarılasında göreceksiniz. Eğer win olarak belirlerseniz, özel siyah pencere şeklinde göreceksiniz. Ve son olarak eğer title belirlerseniz, işlev gören pencerenin title(başlık) kısmında göreceksiniz.
-
Örnek kullanım(kod-un devamı):

menu * {
  mouse:win_position win $menu $mouse.x $mouse.y $mouse.dx $mouse.dy
  leave:$iif($tip(window).name,tip -c $v1) | $iif($window(@x_y),window -c @x_y)
}

Menu event-inda pencere ismi belirtmedim(*), yani tüm pencerelerde(custom/özel/@*) geçerli olacaktır. Belirlediğiniz kullanımı(/win_position aliasını) mouse sekmesinde kullanmalısınız. Ek olarak leave sekmesinide silmeyiniz.