Picture windows - Resim pencereleri - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

L4roXyL · 10 Temmuz 2009, 00:46

İş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.

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

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

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

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

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

-

Kod aşağıdadır.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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ı):

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
MIX dosya uzantısı Picture It resim dosyası	Kaf_Dağı	Bilgisayar Donanımı	0	09 Şubat 2016 09:59
PCT dosya uzantısı Picture - resim dosyası	Kaf_Dağı	Bilgisayar Donanımı	0	04 Şubat 2016 14:11
PIC dosya uzantısı Picture - Resim dosyası	Kaf_Dağı	Bilgisayar Donanımı	0	04 Şubat 2016 13:57
THUMBS dosya uzantısı Thumbs.db windows resim arşivi	Kaf_Dağı	Bilgisayar Donanımı	0	28 Ocak 2016 10:03

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.