Page History
...
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) |