Almost there however for some reason the propertiesBar pane is not turning pure white for some reason. Please see image and code below:
Code: Select all
Public Sub viewerConfigure()
' Change to single document mode
Me.docPreview.Inst.Settings("General.AppTitle").v = "Ticodi MarkupInsight"
Me.docPreview.Inst.Settings("MainFrm.TitleStyle").v = 1
Dim pr As PDFXEdit.ICabNode = Me.docPreview.Inst.Settings("CustomUI")
Dim clrArr As PDFXEdit.ICabNode = pr("Colors")
SetCustColor(clrArr, "base", "rgbd(255,255,255)")
SetCustColor(clrArr, "face", "rgbd(255,255,255)")
SetCustColor(clrArr, "window", "rgbd(255,255,255)")
SetCustColor(clrArr, "main.bg", "rgbd(255,255,255)")
SetCustColor(clrArr, "dlg.bg", "rgbd(255,255,255)")
SetCustColor(clrArr, "pg.bg", "rgbd(255,255,255)")
SetCustColor(clrArr, "hot", "rgbd(205,230,247)")
SetCustColor(clrArr, "tip", "rgbd(255,255,255)")
SetCustColor(clrArr, "tip.dark", "rgbd(255,255,255)")
SetCustColor(clrArr, "tip.light", "rgbd(255,255,255)")
Me.docPreview.Inst.Settings("CustomUI.Backgrounds.Main.Style").v = "S"
Me.docPreview.Inst.Settings("CustomUI.Backgrounds.Main.ShowOverlay").v = False
Me.docPreview.Inst.Settings("CustomUI.Backgrounds.Pages.Style").v = "S"
Me.docPreview.Inst.Settings("CustomUI.Backgrounds.Pages.ShowOverlay").v = False
Me.docPreview.Inst.Settings("CustomUI.Backgrounds.Dialog.Style").v = "S"
Me.docPreview.Inst.Settings("CustomUI.Backgrounds.Dialog.ShowOverlay").v = False
uiInst = DirectCast(Me.docPreview.Inst.GetExtension("UIX"), PDFXEdit.IUIX_Inst)
fsInst = DirectCast(Me.docPreview.Inst.GetExtension("AFS"), PDFXEdit.IAFS_Inst)
auxInst = DirectCast(Me.docPreview.Inst.GetExtension("AUX"), PDFXEdit.IAUX_Inst)
pxsInst = DirectCast(Me.docPreview.Inst.GetExtension("PXS"), PDFXEdit.IPXS_Inst)
pxcInst = DirectCast(Me.docPreview.Inst.GetExtension("PXC"), PDFXEdit.IPXC_Inst)
ixcInst = DirectCast(Me.docPreview.Inst.GetExtension("IXC"), PDFXEdit.IIXC_Inst)
Me.docPreview.Inst.FireAppPrefsChanged(PDFXEdit.PXV_AppPrefsChanges.PXV_AppPrefsChange_CustomUI)
Me.docPreview.Inst.Settings("Docs.SingleWnd").v = True
Me.docPreview.Inst.ActiveMainView.Panes.Layout.Obj.SetStyle(DirectCast(PDFXEdit.UIX_LayoutStyleFlags.UIX_LayoutStyle_Flat, Integer), DirectCast(PDFXEdit.UIX_LayoutStyleFlags.UIX_LayoutStyle_Flat, Integer))
Me.docPreview.Doc.ActiveView.Panes.Layout.Obj.SetStyle(DirectCast(PDFXEdit.UIX_LayoutStyleFlags.UIX_LayoutStyle_Flat, Integer), DirectCast(PDFXEdit.UIX_LayoutStyleFlags.UIX_LayoutStyle_Flat, Integer))
Me.docPreview.Inst.FireAppPrefsChanged(PDFXEdit.PXV_AppPrefsChanges.PXV_AppPrefsChange_Documents)
' Open docking panes
Me.docPreview.ShowPane("pageThumbnailsView", True)
Me.docPreview.ShowPane("commentsView", True)
Me.docPreview.ShowPane("propertiesView", True)
' Hides menu items from options button at bottom left of designer control
Dim cmd As PDFXEdit.IUIX_Cmd = uiInst.CmdManager.Cmds.Find("cmd.view.signatures")
cmd.Hidden = True
cmd = uiInst.CmdManager.Cmds.Find("cmd.view.fields")
cmd.Hidden = True
cmd = uiInst.CmdManager.Cmds.Find("cmd.view.spellCheck")
cmd.Hidden = True
cmd = uiInst.CmdManager.Cmds.Find("cmd.docProps")
cmd.Hidden = True
cmd = uiInst.CmdManager.Cmds.Find("cmd.comments.summarize")
cmd.Hidden = True
cmd = uiInst.CmdManager.Cmds.Find("cmd.thumbnailsView.options")
cmd.Hidden = True
cmd = uiInst.CmdManager.Cmds.Find("cmd.launchExternalApp")
cmd.Hidden = True
Me.docPreview.VisibleCmdPanes = CUInt(PDFXEdit.PXV_VisibleCmdPanes.PXV_VisibleCmdPanes_All)
Me.docPreview.LockedCmdPanes = True
ShowCmdBar(IDS.cmdbar_menubar, False)
ShowCmdBar(IDS.cmdbar_menubar, False)
ShowCmdBar(IDS.cmdbar_file, False)
ShowCmdBar(IDS.cmdbar_standard, False)
ShowCmdBar(IDS.cmdbar_zoom, False)
ShowCmdBar(IDS.cmdbar_commenting, False)
ShowCmdBar(IDS.cmdbar_contentEditing, False)
ShowCmdBar(IDS.cmdbar_measurement, False)
ShowCmdBar(IDS.cmdbar_rotateView, False)
ShowCmdBar(IDS.cmdbar_form, False)
End Sub
Thanks for all your help.