C1ZoomAttached Event

Namespace: C1.Win.TouchToolKit

Assembly: C1.Win.C1TouchToolKit.4.8.dll

Syntax

public event EventHandler<C1ZoomAttachedEventArgs> C1ZoomAttached

Returns

Remarks

Examples

The following code example shows how to use this event.

This code example is part of a larger example provided for the C1ApplicationZoom class.

public class GcApplicationZoomDemo : Form
{
	private Button _showFormButton;
	private GcApplicationZoom _gcApplicationZoom;

	public GcApplicationZoomDemo()
	{
		InitializeComponent();

		_showFormButton.Click += _showFormButton_Click;
		_gcApplicationZoom.GcZoomAttached += _gcApplicationZoom_GcZoomAttached;
	}

	void _gcApplicationZoom_GcZoomAttached(object sender, GcZoomAttachedEventArgs e)
	{
		// If you want specific GcZoom's setting different from GcApplicationZoom, You can change it in
		// GcZoomAttaching or GcZoomAttached event.
		e.GcZoom.MaxZoomFactor = 4f;

		if (e.Form is ZoomForm)
		{
			e.GcZoom.ZoomFactorChanged += (e.Form as ZoomForm).ZoomFactorChangeProc;
		}
	}

	void _showFormButton_Click(object sender, EventArgs e)
	{
		Form form = new ZoomForm();
		form.Show();
	}

	private void InitializeComponent()
	{
		_gcApplicationZoom = new GcApplicationZoom();
		_showFormButton = new Button();
		_showFormButton.Text = "Click to open ZoomForm";
		_showFormButton.Location = new Point(20, 20);
		_showFormButton.Size = new Size(200, 40);
		this.Controls.Add(_showFormButton);
	}
}

internal class ZoomForm : Form
{
	private Button _showFormButton;

	public ZoomForm()
	{
		InitializeComponent();

		_showFormButton.Click += _showFormButton_Click;
	}

	public void ZoomFactorChangeProc(object sender, EventArgs e)
	{
		Console.WriteLine(GcApplicationZoom.GetGcZoom(this).ZoomFactor.ToString());
	}

	private void _showFormButton_Click(object sender, EventArgs e)
	{
		Form form = new ZoomForm();
		form.Show();
	}

	private void InitializeComponent()
	{
		_showFormButton = new Button();
		_showFormButton.Text = "Click to open a new form";
		_showFormButton.Location = new Point(20, 20);
		_showFormButton.Size = new Size(200, 40);
		this.Controls.Add(_showFormButton);
		this.Text = "ZoomForm";
	}
}

Public Class GcApplicationZoomDemo
	Inherits Form
	Private _showFormButton As Button
	Private _gcApplicationZoom As GcApplicationZoom

	Public Sub New()
		InitializeComponent()

		AddHandler _showFormButton.Click, AddressOf _showFormButton_Click
		AddHandler _gcApplicationZoom.GcZoomAttached, AddressOf _gcApplicationZoom_GcZoomAttached
	End Sub

	Private Sub _gcApplicationZoom_GcZoomAttached(sender As Object, e As GcZoomAttachedEventArgs)
		' If you want specific GcZoom's setting different from GcApplicationZoom, You can change it in
		' GcZoomAttaching or GcZoomAttached event.
		e.GcZoom.MaxZoomFactor = 4.0F

		If TypeOf e.Form Is ZoomForm Then
			AddHandler e.GcZoom.ZoomFactorChanged, AddressOf TryCast(e.Form, ZoomForm).ZoomFactorChangeProc
		End If
	End Sub

	Private Sub _showFormButton_Click(sender As Object, e As EventArgs)
		Dim form As Form = New ZoomForm()
		form.Show()
	End Sub

	Private Sub InitializeComponent()
		_gcApplicationZoom = New GcApplicationZoom()
		_showFormButton = New Button()
		_showFormButton.Text = "Click to open ZoomForm"
		_showFormButton.Location = New Point(20, 20)
		_showFormButton.Size = New Size(200, 40)
		Me.Controls.Add(_showFormButton)
	End Sub
End Class

Friend Class ZoomForm
	Inherits Form
	Private _showFormButton As Button

	Public Sub New()
		InitializeComponent()

		AddHandler _showFormButton.Click, AddressOf _showFormButton_Click
	End Sub

	Public Sub ZoomFactorChangeProc(sender As Object, e As EventArgs)
		Console.WriteLine(GcApplicationZoom.GetGcZoom(Me).ZoomFactor.ToString())
	End Sub

	Private Sub _showFormButton_Click(sender As Object, e As EventArgs)
		Dim form As Form = New ZoomForm()
		form.Show()
	End Sub

	Private Sub InitializeComponent()
		_showFormButton = New Button()
		_showFormButton.Text = "Click to open a new form"
		_showFormButton.Location = New Point(20, 20)
		_showFormButton.Size = New Size(200, 40)
		Me.Controls.Add(_showFormButton)
		Me.Text = "ZoomForm"
	End Sub
End Class