Mega Code Archive
Use a VisualBrush to magnify a portion of the screen
<![CDATA[
<Page xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="Microsoft.Samples.Graphics.UsingVisualBrush.MagnifyingGlassExample"
Background="White">
<Page.Resources>
<Style TargetType="{x:Type Paragraph}">
<Setter Property="Margin" Value="10" />
</Style>
<DrawingBrush x:Key="MyGridBackgroundBrushResource"
Viewport="0,0,10,10" ViewportUnits="Absolute" TileMode="Tile">
<DrawingBrush.Drawing>
<DrawingGroup>
<DrawingGroup.Children>
<GeometryDrawing Brush="White">
<GeometryDrawing.Geometry>
<RectangleGeometry Rect="0,0,1,1" />
</GeometryDrawing.Geometry>
</GeometryDrawing>
<GeometryDrawing Brush="#E6E8F6"
Geometry="M 0,0 L 0,1 0.1,1 0.1,0.1 1,0.1 1,0 Z" />
</DrawingGroup.Children>
</DrawingGroup>
</DrawingBrush.Drawing>
</DrawingBrush>
</Page.Resources>
<Grid>
<ScrollViewer>
<StackPanel Name="magnifiedPanel"
VerticalAlignment="Stretch"
MouseMove="updateMagnifyingGlass"
Background="{StaticResource MyGridBackgroundBrushResource}">
<FlowDocumentScrollViewer>
<FlowDocument>
<Paragraph><Button></Button></Paragraph>
<Paragraph><Border BorderBrush="Black" BorderThickness="1"><Image Source="c:\image.jpg" Stretch="None" /></Border></Paragraph>
<Paragraph>this is a test</Paragraph>
</FlowDocument>
</FlowDocumentScrollViewer>
</StackPanel>
</ScrollViewer>
<Canvas Name="magnifyingGlassCanvas">
<Ellipse Name="magnifyingGlassEllipse" Width="100" Height="100" Stroke="Black">
<Ellipse.Fill>
<DrawingBrush>
<DrawingBrush.Drawing>
<DrawingGroup>
<DrawingGroup.Children>
<GeometryDrawing Brush="White">
<GeometryDrawing.Geometry>
<RectangleGeometry Rect="0,0,1,1" />
</GeometryDrawing.Geometry>
</GeometryDrawing>
<GeometryDrawing>
<GeometryDrawing.Brush>
<VisualBrush x:Name="myVisualBrush" ViewboxUnits="Absolute"
Visual="{Binding ElementName=magnifiedPanel}"/>
</GeometryDrawing.Brush>
<GeometryDrawing.Geometry>
<RectangleGeometry Rect="0,0,1,1" />
</GeometryDrawing.Geometry>
</GeometryDrawing>
</DrawingGroup.Children>
</DrawingGroup>
</DrawingBrush.Drawing>
</DrawingBrush>
</Ellipse.Fill>
</Ellipse>
</Canvas>
</Grid>
</Page>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Navigation
Imports System.Windows.Shapes
Imports System.Windows.Media
Imports System.Windows.Input
Namespace Microsoft.Samples.Graphics.UsingVisualBrush
Public Partial Class MagnifyingGlassExample
Inherits Page
Private Shared ReadOnly distanceFromMouse As Double = 5
Public Sub New()
End Sub
Private Sub updateMagnifyingGlass(sender As Object, args As MouseEventArgs)
Mouse.SetCursor(Cursors.Cross)
Dim currentMousePosition As Point = args.GetPosition(Me)
If Me.ActualWidth - currentMousePosition.X > magnifyingGlassEllipse.Width + distanceFromMouse Then
Canvas.SetLeft(magnifyingGlassEllipse, currentMousePosition.X + distanceFromMouse)
Else
Canvas.SetLeft(magnifyingGlassEllipse, currentMousePosition.X - distanceFromMouse - magnifyingGlassEllipse.Width)
End If
If Me.ActualHeight - currentMousePosition.Y > magnifyingGlassEllipse.Height + distanceFromMouse Then
Canvas.SetTop(magnifyingGlassEllipse, currentMousePosition.Y + distanceFromMouse)
Else
Canvas.SetTop(magnifyingGlassEllipse, currentMousePosition.Y - distanceFromMouse - magnifyingGlassEllipse.Height)
End If
myVisualBrush.Viewbox = New Rect(currentMousePosition.X - 10, currentMousePosition.Y - 10, 20, 20)
End Sub
End Class
End Namespace
]]>