I have some comments on Mobile Designer tools Visibility as follow:
1)when ShowFileMenuOpen is assigned to false it doesn't hide open menu.
2)In windows designer control there is options that prevent user to do any modifications on dictionaries items in another word it hide
NewItem,edit and delete buttons,how can i do that in mobile designer
StiMobileDesigner tools visibility
Re: StiMobileDesigner tools visibility
Hello.
Could you specify which version do you use?
Thank you.
Could you specify which version do you use?
Thank you.
Re: StiMobileDesigner tools visibility
I am using version 2014.2 , sorry about unlearn the first point it is working fine.but i am still asking about second point .
this a snap shot on what i do in windows version and my question what can i do gain these features
Thank you.
this a snap shot on what i do in windows version and my question what can i do gain these features
Code: Select all
Private Sub GetReportDesignerLayout(ByVal pmMode As String)
If pmMode = "E" Then
Dim Service As StiMainMenuService = TryCast(StiConfig.Services.GetService(GetType(StiMainMenuService)), StiMainMenuService)
Service.ServiceEnabled = False
Dim MainMenuService As New MyMainMenuService()
MainMenuService.RepDAN = CurrentSystemSettings.DisplayAlternateNames
MainMenuService.TheReport = Me.TV.SelectedNode.Text
MainMenuService.TheTemplate = DirectoryName
StiConfig.Services.Add(MainMenuService)
'MainMenu
'File
MainMenuService.ShowFile = True
MainMenuService.ShowFileReportNew = False
'MainMenuService.ShowFilePageNew = False
'MainMenuService.ShowFileFormNew = False
MainMenuService.ShowFileReportOpen = False
MainMenuService.ShowFilePageOpen = False
MainMenuService.ShowFileReportSave = False
MainMenuService.ShowFileReportSaveAs = False
MainMenuService.ShowFilePageSaveAs = False
'MainMenuService.ShowFilePageDelete = False
MainMenuService.ShowFileReportPreview = False
MainMenuService.ShowFilePageSetup = False
MainMenuService.ShowFileReportSetup = True
MainMenuService.ShowFileRecentFiles = False
MainMenuService.ShowFileExit = False
'Edit
MainMenuService.ShowEdit = False
MainMenuService.ShowEditUndo = False
MainMenuService.ShowEditRedo = False
MainMenuService.ShowEditCut = False
MainMenuService.ShowEditCopy = False
MainMenuService.ShowEditPaste = False
MainMenuService.ShowEditDelete = True
MainMenuService.ShowEditSelectAll = False
MainMenuService.ShowEditClearContents = False
'View
MainMenuService.ShowView = True
MainMenuService.ShowViewNormal = False
MainMenuService.ShowViewPageBreakPreview = False
MainMenuService.ShowViewShowGrid = False
MainMenuService.ShowViewAlignToGrid = False
MainMenuService.ShowViewShowHeaders = False
MainMenuService.ShowViewShowRulers = False
MainMenuService.ShowViewShowOrder = False
MainMenuService.ShowViewToolbars = True
MainMenuService.ShowViewPanels = True
'Tools
MainMenuService.ShowTools = False
MainMenuService.ShowToolsDataStore = False
'MainMenuService.ShowToolsPagesManager = False
MainMenuService.ShowToolsOptions = False
'Help
MainMenuService.ShowHelp = False
MainMenuService.ShowHelpProductHomePage = False
MainMenuService.ShowHelpFaqPage = False
MainMenuService.ShowHelpSupport = False
MainMenuService.ShowHelpAboutProgramm = False
Else
Dim MainMenuService As StiMainMenuService = TryCast(StiConfig.Services.GetService(GetType(StiMainMenuService)), StiMainMenuService)
'MainMenu
'File
MainMenuService.ServiceEnabled = True
MainMenuService.ShowFile = True
MainMenuService.ShowFileReportNew = False
'MainMenuService.ShowFilePageNew = False
'MainMenuService.ShowFileFormNew = False
MainMenuService.ShowFileReportOpen = False
MainMenuService.ShowFilePageOpen = False
MainMenuService.ShowFileReportSave = False
MainMenuService.ShowFileReportSaveAs = False
MainMenuService.ShowFilePageSaveAs = False
'MainMenuService.ShowFilePageDelete = False
MainMenuService.ShowFileReportPreview = False
MainMenuService.ShowFilePageSetup = False
MainMenuService.ShowFileReportSetup = True
MainMenuService.ShowFileRecentFiles = False
MainMenuService.ShowFileExit = False
'Edit
MainMenuService.ShowEdit = False
MainMenuService.ShowEditUndo = False
MainMenuService.ShowEditRedo = False
MainMenuService.ShowEditCut = False
MainMenuService.ShowEditCopy = False
MainMenuService.ShowEditPaste = False
MainMenuService.ShowEditDelete = True
MainMenuService.ShowEditSelectAll = False
MainMenuService.ShowEditClearContents = False
'View
MainMenuService.ShowView = True
MainMenuService.ShowViewNormal = False
MainMenuService.ShowViewPageBreakPreview = False
MainMenuService.ShowViewShowGrid = False
MainMenuService.ShowViewAlignToGrid = False
MainMenuService.ShowViewShowHeaders = False
MainMenuService.ShowViewShowRulers = False
MainMenuService.ShowViewShowOrder = False
MainMenuService.ShowViewToolbars = True
MainMenuService.ShowViewPanels = True
'Tools
MainMenuService.ShowTools = False
MainMenuService.ShowToolsDataStore = False
MainMenuService.ShowToolsPagesManager = False
MainMenuService.ShowToolsOptions = False
'Help
MainMenuService.ShowHelp = False
MainMenuService.ShowHelpProductHomePage = False
MainMenuService.ShowHelpFaqPage = False
MainMenuService.ShowHelpSupport = False
MainMenuService.ShowHelpAboutProgramm = False
End If
StiOptions.Designer.CodeTabVisible = True
StiOptions.Designer.IgnoreOptionReportNeverSaved = False
StiOptions.Designer.DontAskSaveReport = False
'Standard Toolbar
Dim StandardToolbarService As StiStandardToolbarService = StiStandardToolbarService.GetService
If (Not StandardToolbarService Is Nothing) Then
StandardToolbarService.ServiceEnabled = True
StandardToolbarService.ShowReportNew = False
StandardToolbarService.ShowReportOpen = False
StandardToolbarService.ShowReportSave = True
StandardToolbarService.ShowReportPreview = True
StandardToolbarService.ShowPageNew = False
StandardToolbarService.ShowFormNew = False
StandardToolbarService.ShowPageDelete = False
StandardToolbarService.ShowPageSetup = True
StandardToolbarService.ShowUndo = True
StandardToolbarService.ShowRedo = True
StandardToolbarService.ShowCut = True
StandardToolbarService.ShowCopy = True
StandardToolbarService.ShowPaste = True
StandardToolbarService.ShowDelete = True
StandardToolbarService.ShowSelectAll = False
StandardToolbarService.ShowShowGrid = True
StandardToolbarService.ShowAlignToGrid = True
StandardToolbarService.ShowShowHeaders = True
StandardToolbarService.ShowShowRulers = True
StandardToolbarService.ShowShowOrder = True
StandardToolbarService.ShowZoom = True
StandardToolbarService.ShowClose = False
StandardToolbarService.ShowQuickInfo = False
StandardToolbarService.ShowShowOrder = False
StandardToolbarService.ShowShowHeaders = False
End If
'Layout Toolbar
Dim LayoutToolbarService As StiLayoutToolbarService = StiLayoutToolbarService.GetService
If (Not LayoutToolbarService Is Nothing) Then
LayoutToolbarService.ServiceEnabled = True
LayoutToolbarService.ShowAlignToGrid = True
LayoutToolbarService.ShowAlignLeft = True
LayoutToolbarService.ShowAlignCenter = True
LayoutToolbarService.ShowAlignRight = True
LayoutToolbarService.ShowAlignTop = True
LayoutToolbarService.ShowAlignMiddle = True
LayoutToolbarService.ShowAlignBottom = True
LayoutToolbarService.ShowMakeSameSize = True
LayoutToolbarService.ShowMakeSameWidth = True
LayoutToolbarService.ShowMakeSameHeight = True
LayoutToolbarService.ShowMakeHorizontalSpacingEqual = True
LayoutToolbarService.ShowMakeVerticalSpacingEqual = True
LayoutToolbarService.ShowCenterHorizontally = True
LayoutToolbarService.ShowCenterVertically = True
LayoutToolbarService.ShowBringToFront = False
LayoutToolbarService.ShowSendToBack = False
LayoutToolbarService.ShowMoveForward = False
LayoutToolbarService.ShowMoveBackward = False
LayoutToolbarService.ShowLink = False
LayoutToolbarService.ShowLock = False
End If
'Formatting Toolbar
Dim FormattingToolbarService As StiFormattingToolbarService = StiFormattingToolbarService.GetService
If (Not FormattingToolbarService Is Nothing) Then
FormattingToolbarService.ServiceEnabled = True
FormattingToolbarService.ShowFont = True
FormattingToolbarService.ShowFontSize = True
FormattingToolbarService.ShowTextBrush = True
FormattingToolbarService.ShowBold = True
FormattingToolbarService.ShowItalic = True
FormattingToolbarService.ShowUnderline = True
FormattingToolbarService.ShowAlignLeft = True
FormattingToolbarService.ShowAlignCenter = True
FormattingToolbarService.ShowAlignRight = True
FormattingToolbarService.ShowAlignWidth = False
FormattingToolbarService.ShowAlignTop = False
FormattingToolbarService.ShowAlignMiddle = True
FormattingToolbarService.ShowAlignBottom = True
FormattingToolbarService.ShowRotateText = True
FormattingToolbarService.ShowConditions = True
End If
'Borders Toolbar
Dim BordersToolbarService As StiBordersToolbarService = StiBordersToolbarService.GetService
If (Not BordersToolbarService Is Nothing) Then
BordersToolbarService.ServiceEnabled = True
BordersToolbarService.ShowBorderAll = True
BordersToolbarService.ShowBorderNone = True
BordersToolbarService.ShowBorderTop = True
BordersToolbarService.ShowBorderLeft = True
BordersToolbarService.ShowBorderBottom = True
BordersToolbarService.ShowBorderRight = True
BordersToolbarService.ShowBorderShadow = True
BordersToolbarService.ShowFillBrush = True
BordersToolbarService.ShowBorderColor = True
BordersToolbarService.ShowBorderStyle = True
End If
'DockStyle Toolbar
Dim DockStyleToolbarService As StiDockStyleToolbarService = StiDockStyleToolbarService.GetService
If (Not DockStyleToolbarService Is Nothing) Then
DockStyleToolbarService.ServiceEnabled = True
DockStyleToolbarService.ShowDockStyleFill = True
DockStyleToolbarService.ShowDockStyleNone = True
DockStyleToolbarService.ShowDockStyleTop = True
DockStyleToolbarService.ShowDockStyleLeft = True
DockStyleToolbarService.ShowDockStyleBottom = True
DockStyleToolbarService.ShowDockStyleRight = True
End If
'Style Toolbar
Dim StyleToolbarService As StiStyleToolbarService = StiStyleToolbarService.GetService
If (Not StyleToolbarService Is Nothing) Then
StyleToolbarService.ServiceEnabled = False
StyleToolbarService.ShowStyleDesigner = False
StyleToolbarService.ShowStyles = False
End If
'Tools Toolbar
Dim ToolsToolbarService As StiToolsToolbarService = StiToolsToolbarService.GetService
If (Not ToolsToolbarService Is Nothing) Then
ToolsToolbarService.ServiceEnabled = False
ToolsToolbarService.ShowModifiers = False
ToolsToolbarService.ShowPagesManager = False
ToolsToolbarService.ShowDataStore = False
End If
'TextFormat Toolbar
Dim TextFormatToolbarService As StiTextFormatToolbarService = StiTextFormatToolbarService.GetService
If (Not TextFormatToolbarService Is Nothing) Then
TextFormatToolbarService.ServiceEnabled = False
End If
'Toolbox Toolbar
Dim ToolboxToolbarService As StiToolboxToolbarService = StiToolboxToolbarService.GetService
If (Not ToolboxToolbarService Is Nothing) Then
ToolboxToolbarService.ServiceEnabled = True
End If
'Dictionary Panel
Dim DictionaryPanelService As Panels.StiDictionaryPanelService = Panels.StiDictionaryPanelService.GetService
If (Not DictionaryPanelService Is Nothing) Then
DictionaryPanelService.ShowActionsButton = False
DictionaryPanelService.ShowCategoryNewMenuItem = False
DictionaryPanelService.ShowConnectionNewMenuItem = False
DictionaryPanelService.ShowCollapseAllMenuItem = False
DictionaryPanelService.ShowColumnNewMenuItem = False
DictionaryPanelService.ShowColumnNewMenuItem = False
DictionaryPanelService.ShowContextMenu = True
DictionaryPanelService.ShowDataParameterNewMenuItem = False
DictionaryPanelService.ShowDataSourceNewMenuItem = False
DictionaryPanelService.ShowDataSourcesNewMenuItem = False
DictionaryPanelService.ShowDeleteButton = False
DictionaryPanelService.ShowDeleteMenuItem = False
DictionaryPanelService.ShowDictMergeMenuItem = False
DictionaryPanelService.ShowDictNewMenuItem = False
DictionaryPanelService.ShowDictOpenMenuItem = False
DictionaryPanelService.ShowDictSaveMenuItem = False
DictionaryPanelService.ShowDictXmlExportMenuItem = False
DictionaryPanelService.ShowDictXmlImportMenuItem = False
DictionaryPanelService.ShowDictXmlMergeMenuItem = False
DictionaryPanelService.ShowUpButton = True
DictionaryPanelService.ShowDownButton = True
DictionaryPanelService.ShowEditButton = False
DictionaryPanelService.ShowEditMenuItem = True
DictionaryPanelService.ShowExpandAllMenuItem = False
DictionaryPanelService.ShowMarkUsedMenuItem = False
DictionaryPanelService.ShowNewButton = False
DictionaryPanelService.ShowPropertiesForDataColumn = False
DictionaryPanelService.ShowPropertiesForDataParameter = False
DictionaryPanelService.ShowPropertiesForDataRelation = False
DictionaryPanelService.ShowPropertiesForDataSource = False
DictionaryPanelService.ShowPropertiesForVariable = False
DictionaryPanelService.ShowPropertiesMenuItem = False
DictionaryPanelService.ShowRelationNewMenuItem = True
DictionaryPanelService.ShowRemoveUnusedMenuItem = False
DictionaryPanelService.ShowSynchronizeMenuItem = False
DictionaryPanelService.ShowUseAliases = False
DictionaryPanelService.ShowVariableNewMenuItem = True
DictionaryPanelService.ShowViewDataMenuItem = False
End If
'ReportTree Panel
Dim ReportTreePanelService As Panels.StiReportTreePanelService = Panels.StiReportTreePanelService.GetService
If (Not ReportTreePanelService Is Nothing) Then
ReportTreePanelService.ServiceEnabled = False
End If
Dim ContextMenuService As StiCTService
ContextMenuService = StiDesignComponentCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = True
End If
ContextMenuService = StiOrderCTService.GetService()
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = True
End If
ContextMenuService = StiAlignCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = False
End If
ContextMenuService = StiObjectCutCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = True
End If
ContextMenuService = StiObjectCopyCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = True
End If
ContextMenuService = StiObjectPasteCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = True
End If
ContextMenuService = StiObjectDeleteCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = True
End If
ContextMenuService = StiObjectSelectAllCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = False
End If
ContextMenuService = StiTextFormatCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = False
End If
ContextMenuService = StiClearContentCTService.GetService
If (Not ContextMenuService Is Nothing) Then
ContextMenuService.ServiceEnabled = False
End If
StiSelectGuiHelper.IsRibbonGui = False
'''''''''''''''''''''''''''
'''''''''''''''''''''''
End SubThank you.
Re: StiMobileDesigner tools visibility
Hello.
Please, send a request for missed properties of the Mobile Designer to support@stimulsoft.com.
We will consider the request and will make an improvement if it's possible.
Thank you.
Please, send a request for missed properties of the Mobile Designer to support@stimulsoft.com.
We will consider the request and will make an improvement if it's possible.
Thank you.