Hi fabricio,
i use this code to create a window
Private Function CreateDialogImageWindow() As Window
aktDialogImageWindow = New Window
AddHandler aktDialogImageWindow.DirectEvents.Hide.Event, AddressOf OpenDialogWindow__Hide
With aktDialogImageWindow
.ID = "DialogImageWindow"
.Title = ""
.Icon = Icon.New
.Maximizable = False
.Minimizable = False
.Scrollable = ScrollableOption.Both
.CloseAction = CloseAction.Hide
'.Layout = "Fit"
.Region = Region.Center
Dim _ButtonZoomOut As New Button
With _ButtonZoomOut
.Icon = Icon.MagifierZoomOut
.Listeners.Click.Handler = "newFactor(#{SizesCombo}, -1);"
End With
Dim _SizeCombo As New ComboBox
With _SizeCombo
.ID = "SizesCombo"
.TriggerIcon = TriggerIcon.SimpleMagnify
.Editable = False
.Items.Add(New ListItem(Me.Translate("tf-Automatisch"), -1))
.Items.Add(New ListItem("10%", 0.1))
.Items.Add(New ListItem("25%", 0.25))
.Items.Add(New ListItem("33%", 0.33))
.Items.Add(New ListItem("50%", 0.5))
.Items.Add(New ListItem("100%", 1))
.Items.Add(New ListItem("200%", 2))
.Items.Add(New ListItem("500%", 5))
.Items.Add(New ListItem("1000%", 10))
.Items.Add(New ListItem("2000%", 20))
.Listeners.Select.Handler = "resize(#{Image1}, records[0].get(this.valueField),#{DialogImageWindow});"
.SelectedItems.Add(.Items(0))
End With
Dim _ButtonZoomIn As New Button
With _ButtonZoomIn
.Icon = Icon.MagnifierZoomIn
.Listeners.Click.Handler = "newFactor(#{SizesCombo}, 1);"
End With
Dim _ToolBar As New Toolbar
_ToolBar.Items.Add(_ButtonZoomOut)
_ToolBar.Items.Add(_SizeCombo)
_ToolBar.Items.Add(_ButtonZoomIn)
.TopBar.Add(_ToolBar)
aktDialogImageWindow__Image = New Image
With aktDialogImageWindow__Image
.ID = "Image1"
.ResizableConfig = New Resizer
.ResizableConfig.PreserveRatio = True
.ResizableConfig.HandlesSummary = "s e se"
.Listeners.Complete.Handler = "newFactor(#{SizesCombo}, 0);"
.Listeners.ResizerResize.Handler = "newFactor(#{SizesCombo}, 0);"
.Listeners.Click.Handler = "#{Image1}.SetAllowPan(true);"
.Border = False
End With
.Items.Add(aktDialogImageWindow__Image)
.Hidden = True
End With
aktHTTFSiteWindows.Add("DialogImageWindow", aktDialogImageWindow)
Return aktDialogImageWindow
End Function
and this code to Show this Window
Public Sub OpenDialogImageWindow(ByVal ID As String, ByVal Title As String, ByVal Icon As Icon, ByVal ImageURL As String, Optional Height As Integer = 500, Optional Width As Integer = 600)
With aktDialogImageWindow
.Tag = ""
.Title = Me.Translate(Title)
.Icon = Icon
If Height = 0 Then
.Maximize()
Else
.Height = Height
.Width = Width
End If
aktDialogImageWindow__Image.ImageUrl = ImageURL
.Modal = False
.Show()
End With
End Sub
All works fine, but this line of code dosen't work.
.Listeners.Click.Handler = "#{Image1}.SetAllowPan(true);"
Thanks to you
Gidi