By default, the AllowZoomSurface property is exMiddleClick, which indicates that clicking the middle mouse button zooms the surface. The control fires the LayoutStartChanging(exSurfaceZoom) / LayoutEndChanging(exSurfaceZoom) event when the user zooms the surface. The Zoom property specifies the current zooming factor of the surface. The ZoomMin/ZoomMax property specifies the range of the surface's zooming. The AllowZoomWheelSurface property specifies whether the user can zoom the surface by rotating the mouse wheel.

The following samples shows how you can prevent zooming the surface:

VBA (MS Access, Excell...)

With SwimLane1
	.AllowZoomSurface = 0
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

VB6

With SwimLane1
	.AllowZoomSurface = exDisallow
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

VB.NET

With Exsurface1
	.AllowZoomSurface = exontrol.EXSWIMLANELib.AllowKeysEnum.exDisallow
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

VB.NET for /COM

With AxSwimLane1
	.AllowZoomSurface = EXSWIMLANELib.AllowKeysEnum.exDisallow
	.AllowZoomWheelSurface = False
	.ToolBarFormat = "-1,100"
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXSWIMLANELib' for the library: 'ExSwimLane 1.0 Control Library'

	#import <ExSwimLane.dll>
	using namespace EXSWIMLANELib;
*/
EXSWIMLANELib::ISwimLanePtr spSwimLane1 = GetDlgItem(IDC_SWIMLANE1)->GetControlUnknown();
spSwimLane1->PutAllowZoomSurface(EXSWIMLANELib::exDisallow);
spSwimLane1->PutAllowZoomWheelSurface(VARIANT_FALSE);
spSwimLane1->PutToolBarFormat(L"-1,100");

C++ Builder

SwimLane1->AllowZoomSurface = Exswimlanelib_tlb::AllowKeysEnum::exDisallow;
SwimLane1->AllowZoomWheelSurface = false;
SwimLane1->ToolBarFormat = L"-1,100";

C#

exswimlane1.AllowZoomSurface = exontrol.EXSWIMLANELib.AllowKeysEnum.exDisallow;
exswimlane1.AllowZoomWheelSurface = false;
exswimlane1.ToolBarFormat = "-1,100";

JavaScript

<OBJECT classid="clsid:AFA73FCE-6609-4062-AE6A-4BAD6D96A025" id="SwimLane1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	SwimLane1.AllowZoomSurface = 0;
	SwimLane1.AllowZoomWheelSurface = false;
	SwimLane1.ToolBarFormat = "-1,100";
</SCRIPT>

C# for /COM

axSwimLane1.AllowZoomSurface = EXSWIMLANELib.AllowKeysEnum.exDisallow;
axSwimLane1.AllowZoomWheelSurface = false;
axSwimLane1.ToolBarFormat = "-1,100";

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exswimlane1.AllowZoomSurface(0/*exDisallow*/);
	exswimlane1.AllowZoomWheelSurface(false);
	exswimlane1.ToolBarFormat("-1,100");
}

Delphi 8 (.NET only)

with AxSwimLane1 do
begin
	AllowZoomSurface := EXSWIMLANELib.AllowKeysEnum.exDisallow;
	AllowZoomWheelSurface := False;
	ToolBarFormat := '-1,100';
end

Delphi (standard)

with SwimLane1 do
begin
	AllowZoomSurface := EXSWIMLANELib_TLB.exDisallow;
	AllowZoomWheelSurface := False;
	ToolBarFormat := '-1,100';
end

VFP

with thisform.SwimLane1
	.AllowZoomSurface = 0
	.AllowZoomWheelSurface = .F.
	.ToolBarFormat = "-1,100"
endwith

dBASE Plus

local oSwimLane

oSwimLane = form.Activex1.nativeObject
oSwimLane.AllowZoomSurface = 0
oSwimLane.AllowZoomWheelSurface = false
oSwimLane.ToolBarFormat = "-1,100"

XBasic (Alpha Five)

Dim oSwimLane as P

oSwimLane = topparent:CONTROL_ACTIVEX1.activex
oSwimLane.AllowZoomSurface = 0
oSwimLane.AllowZoomWheelSurface = .f.
oSwimLane.ToolBarFormat = "-1,100"

Visual Objects

oDCOCX_Exontrol1:AllowZoomSurface := exDisallow
oDCOCX_Exontrol1:AllowZoomWheelSurface := false
oDCOCX_Exontrol1:ToolBarFormat := "-1,100"

PowerBuilder

OleObject oSwimLane

oSwimLane = ole_1.Object
oSwimLane.AllowZoomSurface = 0
oSwimLane.AllowZoomWheelSurface = false
oSwimLane.ToolBarFormat = "-1,100"

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComAllowZoomSurface to OLEexDisallow
	Set ComAllowZoomWheelSurface to False
	Set ComToolBarFormat to "-1,100"
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oSwimLane

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oSwimLane := XbpActiveXControl():new( oForm:drawingArea )
	oSwimLane:CLSID  := "Exontrol.SwimLane.1" /*{AFA73FCE-6609-4062-AE6A-4BAD6D96A025}*/
	oSwimLane:create(,, {10,60},{610,370} )

		oSwimLane:AllowZoomSurface := 0/*exDisallow*/
		oSwimLane:AllowZoomWheelSurface := .F.
		oSwimLane:ToolBarFormat := "-1,100"

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN