Silverlight 2.0 içerisinde .NET programlama dillerini kullanırken istemci tarafında bir tarayıcıda olduğumuzu sürekli hatırlamak gerek. Bu bilgiyi aklımızda tutarsak aslında Silverlight içerisinde yapılamayan bazı şeyleri tarayıcının özelliklerinden faydalanarak yapma şansımız olabiliyor. Bu konuya örneklerden biri Silverlight 2.0 içerisinde farenin roller'ını yakalayarak zoom-in veya zoom-out efekti yaratmak. Maalesef şimdilik Silverlight içerisinde farenin roller'ını yakalayabileceğimiz herhangi bir event-handler yok. Bu durumda biz de tarayıcının özelliklerinden faydalanacağız.
İlk olarak hazırlayacağımız Silverlight 2.0 Beta 1 uygulamasının XAML kodunu inceleyelim. Page.xaml içerisinde basit bir Image nesnesi yer alıyor. Farenin rollerını kullanarak söz konusu Image nesnesini zoom yapabileceğiniz, yani özünde Image nesnesinin boyutlarını büyüterek küçülteleceğiz.
<UserControl x:Class="ScrollWheel.Page"
xmlns="http://schemas.microsoft.com/client/2007"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Width="400" Height="300">
<Grid x:Name="LayoutRoot" Background="White">
<Image Margin="147,112,156,126" Source="Forest.jpg" RenderTransformOrigin="0.5,0.5" x:Name="Foto">
<Image.RenderTransform>
<TransformGroup>
<ScaleTransform x:Name="ZoomCarpani" ScaleX="1" ScaleY="1"/>
<SkewTransform/>
<RotateTransform/>
<TranslateTransform/>
</TransformGroup>
</Image.RenderTransform>
</Image>
</Grid>
</UserControl>
Yukarıdaki kod içerisinde özellikle dikkat edilmesi gereken bir nokta var. Normal şartlarda Expression Blend içerisinde bir Image nesnesi yerleştirirseniz Image.RenderTransform tagı ve içerisindekiler gelmeyecektir. Eğer söz konusu Image nesnesini sadece bir kere arayüz içerisinde boyutlandırırsanız hemen bu taglar eklenir. Sonrasında RenderTransform içerisindeki ScaleTransform kısmıyla ilgileneceğiz. Image nesnemizin büyüklüğünü değiştirecek olan tag bu. ScaleTransform'un ScaleX ve ScaleY adında X ve Y doğrultusunda boyutlandırma yapabilen çarpanları var. Bu çarpanlara ve ScaleTransform nesnesine programatik olarak ulaşabilmek için hemen ScaleTransform'a ZoomCarpani adını veriyoruz. Böylece artık rahatlıkla kod tarafından bu resmin boyutu ile oynayabiliriz.
Gelelim code-behind sayfamıza; ilk olarak internet tarayıcımızın farenin roller'ını algıladığı event-handlerları yakalayarak kendi .NET event handlerlarımızı bağlamalıyız.
Private Sub Page_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
System.Windows.Browser.HtmlPage.Window.AttachEvent("DOMMouseScroll", AddressOf FareTekerlekDondu)
System.Windows.Browser.HtmlPage.Window.AttachEvent("onmousewheel", AddressOf FareTekerlekDondu)
System.Windows.Browser.HtmlPage.Document.AttachEvent("onmousewheel", AddressOf FareTekerlekDondu)
End Sub
Silverlight uygulamamız sayfaya ilk yüklendiğinde hemen mevcut HtmlPage (HTML sayfa) üzerinden tarayıcı penceresini (Window) yakalayarak DOMMouseScroll ve onmousewheel durumlarına kendi FareTekerlekDondu kodumuzu atıyoruz. Ayrıca sayfada yüklü dokümanın da (Document) onmousewheel event'ını aynı şekilde yakalamamız gerekiyor. Tüm bu farklı event-handlerlar aslında hep bizim tek event-handlarımız olan FareTekerlekDondu'ye yönlendiriliyor. Bunun nedeni farklı tarayıcıların farklı event-handlerlar ile çalışıyor olması. Bizim örneğimiz rahatlıkla Opera, Safari, FireFox ve IE'de çalışacak. Sıra geldi FareTekerlekDondu'yü kodlamaya.
Private Sub FareTekerlekDondu(ByVal sender As Object, ByVal e As System.Windows.Browser.HtmlEventArgs)
...
End Sub
Yukarıdaki şekli ile kodumuzu yazarken dikkat etmemiz gereken nokta e parametresinin tipi. HtmlEventArgs bize tarayıcının döndürdüğü değerleri aktaracak.
Dim DonMiktar As Integer = 0
Dim Gelen As System.Windows.Browser.ScriptObject = e.EventObject
Kodumuzda iki adet değişken tanımlıyoruz. Bunlardan ilki olan DonMiktar tarayıcından gelen farenin roller'ını dönüş miktarını alarak yönünü belirleyecek. Tarayıcılardan dönüş miktarı + veya - değer olarak gelebilir ve maalesef bu durum tarayıcı tipine göre farklı yönlerde dönüşleri tanımlıyor. Tanımladığımız bir diğer değişken ise Gelen adında; bu değişken doğrudan e parametresinden EventObject'i alarak bize dönüş miktarını ulaştıracak.
'IE ve OPERA
If Not Gelen.GetProperty("wheelDelta") Is Nothing Then
'OPERA'da ters!
If Not Gelen.GetProperty("opera") Is Nothing Then
DonMiktar = -DonMiktar
End If
DonMiktar = Gelen.GetProperty("wheelDelta")
'Mozilla ve Safari
ElseIf Not Gelen.GetProperty("detail") Is Nothing Then
DonMiktar = -Gelen.GetProperty("detail")
End If
Yukarıdaki kod biraz karışık gözükebilir fakat aslında yapmaya çalıştığımız şey çok basit. Tarayıcıdan farenin roller'ının dönüş miktarını almaya çalışıyoruz. Maalesef farklı tarayıcılarda bu sistemin farklı çalışması gerekiyor. Opera ve IE bu değeri wheelDelta özelliği üzerinden verirken Mozilla ve Safari detail adında bir property kullanıyor. Ayrıca IE dışında tüm tarayıcılarda değerler ters, veya belki de IE'de ters :) Ama duruma göre gelen değeri eksi ile çarpmak zorunda kalıyoruz.
If DonMiktar > 0 Then
ZoomCarpani.ScaleX += 0.1
ZoomCarpani.ScaleY += 0.1
Else
ZoomCarpani.ScaleX -= 0.1
ZoomCarpani.ScaleY -= 0.1
End If
Artık elimizde DonMiktar değişkeni hazır olarak bulunduğunda göre DonMiktar'ın eksi veya artı değer almasına göre elimizdeki resmi büyütüp küçültebiliriz. Bu noktada büyütme ve küçültme miktarını el ile ayarlamakta fayda var. Aslında DonMiktar içerisinde farenin roller'ının bir defada ne kadar döndürüldüğüne dair bir değer geliyor fakat bunu kullanmak farklı sistemlerde çok ilginç sonuçlar verebiliyor. En iyisi sabit bir yol izlemek.
If DonMiktar <> 0 Then
e.PreventDefault()
Gelen.SetProperty("returnValue", False)
End If
Son olarak tarayıcıya farenin roller değişimi ile ilgili işlemlerini bizim yaptığımızı belirtmemiz gerek. Böylece tarayıcı içerisinde sayfa scroll etmeyecektir.
Uygulamamızın tam kodu aşağıdaki şekilde sonuçlanıyor....
Private Sub FareTekerlekDondu(ByVal sender As Object, ByVal e As System.Windows.Browser.HtmlEventArgs)
Dim DonMiktar As Integer = 0
Dim Gelen As System.Windows.Browser.ScriptObject = e.EventObject
'IE ve OPERA
If Not Gelen.GetProperty("wheelDelta") Is Nothing Then
'OPERA'da ters!
If Not Gelen.GetProperty("opera") Is Nothing Then
DonMiktar = -DonMiktar
End If
DonMiktar = Gelen.GetProperty("wheelDelta")
'Mozilla ve Safari
ElseIf Not Gelen.GetProperty("detail") Is Nothing Then
DonMiktar = -Gelen.GetProperty("detail")
End If
If DonMiktar > 0 Then
ZoomCarpani.ScaleX += 0.1
ZoomCarpani.ScaleY += 0.1
Else
ZoomCarpani.ScaleX -= 0.1
ZoomCarpani.ScaleY -= 0.1
End If
If DonMiktar <> 0 Then
e.PreventDefault()
Gelen.SetProperty("returnValue", False)
End If
End Sub
Hepinize kolay gelsin...
Yazar Hakkında
Daron Yöndem
daron.yondem.com
DEVELOAD Yazılım şirketi kurucusu Daron Yöndem ASP.NET alanında aldığı MVP ünvanını son üç yıldır Silverlight alanında devam ettirmektedir. Microsoft Regional Director ünvanına da sahip olan Daron Yöndem’e 2009, 2010 ve 2011 yıllarında Microsoft tarafından “Gold Global Impact Award” ödülü verilmiştir. Microsoft TechEd, PDC, DevReach, Microsoft DevDays gibi uluslararası konferanslarda konuşmacı olan Daron Yöndem INETA (International .NET Association) Orta-Doğu Afrika Bölge Başkanlığı görevini sürdürürerek 262.000’i aşkın üyesi olan 58 sosyal topluluğa destek vermektedir. Üç Türkçe, üç İngilizce kitabı olan Daron Yöndem’in Wrox Publishing gibi uluslararası yayınevlerinden kitapları bulunmaktadır.
Sosyal Medya
ORANLAR
4972izleme
Arkadaşlarınla Paylaş
Tweet
0 Yorum
Yorum Yaz / Soru Sor
Lütfen yorum yazmak veya soru sormak için üye girişi yapınız.
Son Yorumlar
Hocam Link başka sayfaya yönlendiriyor.
merhaba benim merak ettiğim bir konu var y...
Merhaba download linki çalışmıyor. Rica et...
Nevzat Bey selamlar, Açıkçası bizler a...
Parametreleri Cache İşleminden Yalıtma kon...
En Güncel Sorular
Bilgilendirme maili (C#.Net)
Power Pivot (Sharepoint 2010)
BigInteger, BigDecimal (Asp.Net ve Asp.Net MVC)
visual C# ile asp nette veritabanı islemleri (Asp.Net ve Asp.Net MVC)
Share Point ile Dosya Arşiv Yönetim Sistemi yapılabilir mi ? (Sharepoint 2010)
En Son Cevap Verilen Sorular
Bilgilendirme maili
BigInteger, BigDecimal
visual C# ile asp nette veritabanı islemleri
Share Point ile Dosya Arşiv Yönetim Sistemi yapılabilir mi ?
txt dosyasına veri yazma
Twitter
Takip et: @yazilim_dilleri
En Çok Okunanlar
C# ile SQL Server Bağlantısı, Insert, Update ve Delete Sorguları
23.05.2013
120972
0
C# ile Windows Service Projesi Oluşturma, Debug Etme ve Setup Hazırlama
17.12.2013
66227
0
Php - Mail Gönderme (İletişim Formu)
02.09.2013
48958
0
Sponsorlar
Exchange server is
YAZILIM DİLLERİ
Yukarı Çık
Hakkımızda
Facebook
Twitter
RSS
© Yazılım Dillerinin Buluşma Noktası | Kaynak belirtildiği sürece makaleler kopyalanabilir.
YazilimDilleri.Net sitesinde yer alan kullanıcıların oluşturduğu tüm içeriklerin yayınlanması ile ilgili yasal yükümlülükler içeriği oluşturan kullanıcıya aittir, YazilimDilleri.Net hiçbir şekilde sorumlu değildir.