Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
Xml  = ''
Xml := '<AddControls>'
Xml := '  <Group Key="EDITING">'
Xml := '    <Button Key="BTN_FIND">'
Xml := '      <Command Key="FIND" Caption="Find" SmallIcon="Icons\find.png" />'
Xml := '    </Button>'
Xml := '  </Group>'
Xml := '  <QuickAccessControls>'
Xml := '    <Button Key="QA_BTN_FIND" Command="FIND" />'
Xml := '  </QuickAccessControls>'
Xml := '  <TabBarControls>'
Xml := '    <Button Key="TB_BTN_FIND" Command="FIND" />'
Xml := '  </TabBarControls>'
Xml := '  <SplitButton Key="MY_SPLIT_BUTTON">'
Xml := '    <Button Key="SPL_BTN_FIND" Command="FIND" />'
Xml := '  </SplitButton>'
Xml := '</AddControls>'

Send_Message(@Window:".OLE_RIBBON", "OLE.AddControls", Xml)

See Also

RemoveContolsRemoveControls<AddControls>