Вы можете использовать закрепленную ячейку с номером версии. Вот отправная точка:
SetOptions[$FrontEndSession, DockedCells -> Cell[BoxData[ ToBoxes[NumberForm[$VersionNumber, ], StandardForm]], "DockedCells", ShowStringCharacters -> False ]]
(Обратите внимание, что $FrontEndSession
не будет сохраняться после выхода из интерфейса.)
редактировать
Вот версия с оранжевым фоном, которая идет от края к краю. Ключевой вариант CellMargins
:
SetOptions[$FrontEndSession, DockedCells -> Cell[BoxData[ ToBoxes[NumberForm[$VersionNumber, ], StandardForm]], "DockedCells", ShowStringCharacters -> False, CellMargins -> {, }, Background -> Orange]]