227:
Is there any function to retrieve all available shortcut keys

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyBackColor,$10000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyForeColor,$ffffff);
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '3';
						end;
					end;
				end;
			end;
		end;
	end;
	Refresh();
	OutputDebugString( ShortcutKeysInfo );
end
226:
How can I display shortcut keys with a different size

with AxRibbon1 do
begin
	ShortcutKeyFormat := '`<font ;14>` + caption';
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+SHIFT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
225:
How can I display shortcut keys with a different font

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyBackColor,$10000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyForeColor,$ffffff);
	ShortcutKeyFormat := '`<font Stencil>` + caption';
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+SHIFT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
224:
How can I change the visual appearance of the shortcut keys (sample 3, theme)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'XP: Button 1 1');
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyAppearance,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyBackColor,$0);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyForeColor,$0);
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
223:
It is possible somehow to show all available shortcut keys (sample 2)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
		ShortcutKeyFormat := '`<c><font ;6><fgcolor 808080>` + sca + `</fgcolor></font><br><c>Key:` + keys';
		ShortcutKeyPressedModifers := EXRIBBONLib.ModifierKeyEnum.exModifierAny;
		ShortcutKeyFormat := '';
		ShortcutKeyVisible := EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed;
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+CTRL+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+SHIFT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
222:
It is possible somehow to show all available shortcut keys (sample 1)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		ShortcutKeyPressedModifers := EXRIBBONLib.ModifierKeyEnum.exModifierAny;
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
221:
How can I show the shortcut keys semi-transparent

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyAppearance,$0);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyBackColor,$10000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyForeColor,$ffffff);
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	ShortcutKeyTransparent := 50;
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
220:
Is it possible somehow to display ID of each item

with AxRibbon1 do
begin
	Debug := True;
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
219:
How can I change the visual appearance of the shortcut keys (sample 2, EBN)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyAppearance,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyBackColor,$0);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyForeColor,$0);
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
218:
How can I change the visual appearance of the shortcut keys (sample 1)

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyAppearance,$0);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyBackColor,$10000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exShortcutKeyForeColor,$ffffff);
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
217:
Can I show the shortcut key right after the item so it won't overlap it (sample 2)

with AxRibbon1 do
begin
	ShortcutKeyExtPaddingH := '16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2';
	ShortcutKeyExtPaddingV := '16 + width/2, 16 + height/2 ,16 + width/2,16 + height/2';
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
216:
Can I show the shortcut key right after the item so it won't overlap it (sample 1)

with AxRibbon1 do
begin
	ShortcutKeyExtPaddingH := 'width/2, height/2 ,width/2,height/2';
	ShortcutKeyExtPaddingV := 'width/2, height/2 ,width/2,height/2';
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
215:
Can I specify padding for shortcut keys (sample 2)

with AxRibbon1 do
begin
	ShortcutKeyPadding := '8,8,8,8';
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
214:
Can I specify padding for shortcut keys (sample 1)

with AxRibbon1 do
begin
	ShortcutKeyPadding := '0,0,0,0';
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
213:
Is it possible to specify where the shortcut keys should be shown

with AxRibbon1 do
begin
	ShortcutKeyAlignH := EXRIBBONLib.ShortcutKeyAlignEnum.exShortcutKeyUpperLeft;
	ShortcutKeyAlignV := EXRIBBONLib.ShortcutKeyAlignEnum.exShortcutKeyLowerRight;
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
212:
Can I use different shortcut modifier keys for items

with AxRibbon1 do
begin
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT + CTRL + 1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'CTRL + SHIFT + ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '3 + 33';
						end;
					end;
				end;
			end;
		end;
		Add('',Nil,Nil);
		Add('Press <b>CTRL or ALT',Nil,Nil);
	end;
end
211:
How can I disable a shortcut key

with AxRibbon1 do
begin
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Enabled := False;
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '3 + 33';
						end;
					end;
				end;
			end;
		end;
	end;
end
210:
I have noticed that the shortcut keys are still visible while I clicking the control. Is it possible to hide them as soon as user clicks anywhere
with AxRibbon1 do
begin
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exCloseShortcutKeysOnClick) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '3 + 33';
						end;
					end;
				end;
			end;
		end;
	end;
end
209:
I have a shortcut that's not currently visible, the question is if I can invoke somehow
// CheckItem event - Occurs when the user checks the item.
procedure TWinForm1.AxRibbon1_CheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_CheckItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exAllowShortcutKeysIfNotShown) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := 'ALT + 4';
						end;
					end;
				end;
			end;
		end;
		Add('press ALT + 4',Nil,Nil);
	end;
end
208:
Can I specify a longer delay to display shortcut once the user presses any modifer keys
with AxRibbon1 do
begin
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exLongerDelayShortcutKeys) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '3+33';
						end;
					end;
				end;
			end;
		end;
	end;
end
207:
How can I display extended shortcut keys

with AxRibbon1 do
begin
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '333';
						end;
					end;
				end;
			end;
		end;
	end;
end
206:
Is it possible to disable the shortcut keys, whithout changing the Shortcut property

with AxRibbon1 do
begin
	ShortcutKeyVisible := Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisplayShortcutKeysAllAvailable) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exDisableShortcutKeys) Or Integer(EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysToggleDelayed);
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
205:
How can display the shortcut keys only when modifier keys are pressed

with AxRibbon1 do
begin
	ShortcutKeyVisible := EXRIBBONLib.ShortcutKeyVisibleEnum.exShowShortcutKeysPressOnly;
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '3+33';
						end;
					end;
				end;
			end;
		end;
	end;
end
204:
How can I assign a shortcut key to an item

with AxRibbon1 do
begin
	with Items do
	begin
		PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		with Add('',TObject(2),TObject(10)) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Item 1',TObject(0),TObject(20)) do
				begin
					Check := True;
					Shortcut := 'ALT+1';
				end;
				with Add('Item 2',TObject(0),TObject(30)) do
				begin
					Check := True;
					Checked := True;
					Shortcut := 'ALT+2';
				end;
				with Add('Item 3',TObject(2),TObject(40)) do
				begin
					Shortcut := 'ALT+3';
					with Items do
					begin
						with Add('Sub-Item 3.1',TObject(0),TObject(50)) do
						begin
							Radio := True;
							Checked := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '1';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(60)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '2';
						end;
						with Add('Sub-Item 3.2',TObject(0),TObject(70)) do
						begin
							Radio := True;
							CloseOnClick := EXRIBBONLib.CloseOnClickEnum.exCloseOnClick;
							Shortcut := '33+3';
						end;
					end;
				end;
			end;
		end;
	end;
end
203:
Is it possible to insert items at a specified position during runtime, without rebuilding the entire item which hosts the items

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item A',TObject(0),TObject(1000));
		Add('Item B',TObject(0),TObject(1001));
		Add('Item C',TObject(0),TObject(1002)).Position := 0;
	end;
end
202:
Is it possible to have a popup on a radio button when it is checked

with AxRibbon1 do
begin
	ToString := '[group=0x03][id=0](Link[id=10][typ=2][grp=100][chk=1],Move To[id=20][typ=2][grp=100][spchk][arrow=0]())';
	with Items.Item[TObject(20)] do
	begin
		Items.Add('Item A',TObject(0),TObject(1000));
		Items.Add('Item B',TObject(0),TObject(1001));
		Items.Add('Item C',TObject(0),TObject(1002));
	end;
end
201:
Is it possible to minimize the control, once the user clicks a button

// CheckItem event - Occurs when the user checks the item.
procedure TWinForm1.AxRibbon1_CheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_CheckItemEvent);
begin
	with AxRibbon1 do
	begin
		AxRibbon1.Items.Item[TObject(-99)].Visible := AxRibbon1.Items.Item[TObject(-999)].Checked;
		OutputDebugString( 'RequiredHeight' );
		OutputDebugString( RequiredHeight );
	end
end;

// UncheckItem event - Occurs when the user unchecks the item.
procedure TWinForm1.AxRibbon1_UncheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_UncheckItemEvent);
begin
	with AxRibbon1 do
	begin
		AxRibbon1.Items.Item[TObject(-99)].Visible := AxRibbon1.Items.Item[TObject(-999)].Checked;
		OutputDebugString( 'RequiredHeight' );
		OutputDebugString( RequiredHeight );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		ToString := '[id=0][group=0x03]([id=-999][chk][height=18]),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		with Item[TObject(-999)] do
		begin
			Check := True;
			Checked := AxRibbon1.Item[TObject(-99)].Visible;
		end;
		with Item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_Item3 := Add('New Page',Nil,Nil);
			with var_Item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 200;
				Caption := 'Page1';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					var_Item := Items.Add('New Group',Nil,Nil);
					with var_Item do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>A';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('R1',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
									with Add('R2',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := True;
									end;
									with Add('R3',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
								end;
							end;
						end;
					end;
					var_Item1 := Items.Add('New Group',Nil,Nil);
					with var_Item1 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>B';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('C1',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
									with Add('C2',Nil,Nil) do
									begin
										Check := True;
										Checked := False;
									end;
									with Add('C3',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
								end;
							end;
						end;
					end;
					Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
					var_Item2 := Items.Add('New Group',Nil,Nil);
					with var_Item2 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
							with Add('',TObject(0),Nil) do
							begin
								AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
								ItemHeight := 76;
								EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
								EditValue := TObject(25);
							end;
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('',TObject(2),Nil) do
									begin
										GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
										with Items do
										begin
											with Add('Button1',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 1',Nil,Nil);
													Add('Item 2',Nil,Nil);
													Add('Item 3',Nil,Nil);
												end;
											end;
											Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
											with Add('Button2',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 4',Nil,Nil);
													Add('Item 5',Nil,Nil);
													Add('Item 6',Nil,Nil);
												end;
											end;
										end;
									end;
									with Add('Popup',TObject(2),Nil) do
									begin
										Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
										with Items do
										begin
											Add('Item 7',Nil,Nil).Check := True;
											Add('Item 8',Nil,Nil);
											with Add('Item 9',TObject(2),Nil).Items do
											begin
												Add('Item 10',Nil,Nil);
												Add('Item 11',Nil,Nil);
												Add('Item 12',Nil,Nil);
											end;
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_Item4 := Add('New Page',Nil,Nil);
			with var_Item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 300;
				Caption := 'Page2';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					with Items do
					begin
						with Add('S1',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(25);
						end;
						with Add('S2',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(50);
						end;
						with Add('S3',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(75);
						end;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_background.ebn');
		Add(2,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn');
		Add(3,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn');
		Add(4,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn');
		Add(5,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn');
		Add(6,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn');
		Add(7,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn');
		Add(8,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn');
		Add(9,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn');
		Add(10,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn');
		Add(11,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn');
		Add(12,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_select.ebn');
		Add(13,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn');
		Add(14,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn');
		Add(15,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn');
		Add(16,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn');
		Add(19,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	LocalAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$d000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Refresh();
end
200:
Is there any debug option, so I can see the IDs of the items I have in the control

with AxRibbon1 do
begin
	Debug := True;
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Padding := '22,0,0,0';
				Add('Radio 1',Nil,Nil).Radio := True;
				Add('Radio 2',Nil,Nil).Radio := True;
				with Add('Radio 3',Nil,Nil) do
				begin
					Radio := True;
					Checked := True;
				end;
			end;
			Checked := True;
		end;
		Add('',Nil,Nil).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' + 
	'][chk=1])';
	end;
	Refresh();
end
199:
Microsoft Office - Ribbon Like - Minimized

with AxRibbon1 do
begin
	ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
	get_Item(TObject(-99)).Visible := False;
	with get_Item(TObject(0)).Items do
	begin
		Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		var_Item3 := Add('New Page',Nil,Nil);
		with var_Item3 do
		begin
			ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
			ID := 200;
			Caption := 'Page1';
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			with Items.Item[TObject(0)] do
			begin
				var_Item := Items.Add('New Group',Nil,Nil);
				with var_Item do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>A';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('R1',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
								with Add('R2',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := True;
								end;
								with Add('R3',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
							end;
						end;
					end;
				end;
				var_Item1 := Items.Add('New Group',Nil,Nil);
				with var_Item1 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>B';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('C1',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
								with Add('C2',Nil,Nil) do
								begin
									Check := True;
									Checked := False;
								end;
								with Add('C3',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
							end;
						end;
					end;
				end;
				Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
				var_Item2 := Items.Add('New Group',Nil,Nil);
				with var_Item2 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
						with Add('',TObject(0),Nil) do
						begin
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
							ItemHeight := 76;
							EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
							EditValue := TObject(25);
						end;
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('',TObject(2),Nil) do
								begin
									GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
									with Items do
									begin
										with Add('Button1',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 1',Nil,Nil);
												Add('Item 2',Nil,Nil);
												Add('Item 3',Nil,Nil);
											end;
										end;
										Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
										with Add('Button2',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 4',Nil,Nil);
												Add('Item 5',Nil,Nil);
												Add('Item 6',Nil,Nil);
											end;
										end;
									end;
								end;
								with Add('Popup',TObject(2),Nil) do
								begin
									Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
									with Items do
									begin
										Add('Item 7',Nil,Nil).Check := True;
										Add('Item 8',Nil,Nil);
										with Add('Item 9',TObject(2),Nil).Items do
										begin
											Add('Item 10',Nil,Nil);
											Add('Item 11',Nil,Nil);
											Add('Item 12',Nil,Nil);
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
		end;
		var_Item4 := Add('New Page',Nil,Nil);
		with var_Item4 do
		begin
			ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
			ID := 300;
			Caption := 'Page2';
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			with Items.Item[TObject(0)] do
			begin
				with Items do
				begin
					with Add('S1',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(25);
					end;
					with Add('S2',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(50);
					end;
					with Add('S3',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(75);
					end;
				end;
			end;
		end;
		Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_background.ebn');
		Add(2,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn');
		Add(3,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn');
		Add(4,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn');
		Add(5,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn');
		Add(6,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn');
		Add(7,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn');
		Add(8,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn');
		Add(9,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn');
		Add(10,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn');
		Add(11,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn');
		Add(12,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_select.ebn');
		Add(13,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn');
		Add(14,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn');
		Add(15,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn');
		Add(16,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn');
		Add(19,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	LocalAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$d000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Refresh();
end
198:
Microsoft Paint - Ribbon Like - Minimized

with AxRibbon1 do
begin
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		Item[TObject(-99)].Visible := False;
		with Item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_Item3 := Add('New Page',Nil,Nil);
			with var_Item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 200;
				Caption := 'Page1';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					var_Item := Items.Add('New Group',Nil,Nil);
					with var_Item do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>A';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('R1',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
									with Add('R2',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := True;
									end;
									with Add('R3',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
								end;
							end;
						end;
					end;
					var_Item1 := Items.Add('New Group',Nil,Nil);
					with var_Item1 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>B';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('C1',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
									with Add('C2',Nil,Nil) do
									begin
										Check := True;
										Checked := False;
									end;
									with Add('C3',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
								end;
							end;
						end;
					end;
					Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
					var_Item2 := Items.Add('New Group',Nil,Nil);
					with var_Item2 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
							with Add('',TObject(0),Nil) do
							begin
								AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
								ItemHeight := 76;
								EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
								EditValue := TObject(25);
							end;
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('',TObject(2),Nil) do
									begin
										GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
										with Items do
										begin
											with Add('Button1',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 1',Nil,Nil);
													Add('Item 2',Nil,Nil);
													Add('Item 3',Nil,Nil);
												end;
											end;
											Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
											with Add('Button2',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 4',Nil,Nil);
													Add('Item 5',Nil,Nil);
													Add('Item 6',Nil,Nil);
												end;
											end;
										end;
									end;
									with Add('Popup',TObject(2),Nil) do
									begin
										Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
										with Items do
										begin
											Add('Item 7',Nil,Nil).Check := True;
											Add('Item 8',Nil,Nil);
											with Add('Item 9',TObject(2),Nil).Items do
											begin
												Add('Item 10',Nil,Nil);
												Add('Item 11',Nil,Nil);
												Add('Item 12',Nil,Nil);
											end;
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_Item4 := Add('New Page',Nil,Nil);
			with var_Item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 300;
				Caption := 'Page2';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					with Items do
					begin
						with Add('S1',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(25);
						end;
						with Add('S2',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(50);
						end;
						with Add('S3',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(75);
						end;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn');
		Add(2,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn');
		Add(3,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn');
		Add(4,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn');
		Add(5,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn');
		Add(6,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn');
		Add(7,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn');
		Add(8,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn');
		Add(9,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn');
		Add(10,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn');
		Add(11,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn');
		Add(12,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn');
		Add(13,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn');
		Add(14,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn');
		Add(15,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn');
		Add(16,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn');
		Add(19,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	LocalAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$d000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Refresh();
end
197:
Microsoft Windows 8.1 - Ribbon Like - Minimized

with AxRibbon1 do
begin
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		Item[TObject(-99)].Visible := False;
		with Item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_Item3 := Add('New Page',Nil,Nil);
			with var_Item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 200;
				Caption := 'Page1';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					var_Item := Items.Add('New Group',Nil,Nil);
					with var_Item do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>A';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('R1',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
									with Add('R2',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := True;
									end;
									with Add('R3',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
								end;
							end;
						end;
					end;
					var_Item1 := Items.Add('New Group',Nil,Nil);
					with var_Item1 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>B';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('C1',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
									with Add('C2',Nil,Nil) do
									begin
										Check := True;
										Checked := False;
									end;
									with Add('C3',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
								end;
							end;
						end;
					end;
					Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
					var_Item2 := Items.Add('New Group',Nil,Nil);
					with var_Item2 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
							with Add('',TObject(0),Nil) do
							begin
								AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
								ItemHeight := 76;
								EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
								EditValue := TObject(25);
							end;
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('',TObject(2),Nil) do
									begin
										GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
										with Items do
										begin
											with Add('Button1',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 1',Nil,Nil);
													Add('Item 2',Nil,Nil);
													Add('Item 3',Nil,Nil);
												end;
											end;
											Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
											with Add('Button2',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 4',Nil,Nil);
													Add('Item 5',Nil,Nil);
													Add('Item 6',Nil,Nil);
												end;
											end;
										end;
									end;
									with Add('Popup',TObject(2),Nil) do
									begin
										Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
										with Items do
										begin
											Add('Item 7',Nil,Nil).Check := True;
											Add('Item 8',Nil,Nil);
											with Add('Item 9',TObject(2),Nil).Items do
											begin
												Add('Item 10',Nil,Nil);
												Add('Item 11',Nil,Nil);
												Add('Item 12',Nil,Nil);
											end;
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_Item4 := Add('New Page',Nil,Nil);
			with var_Item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 300;
				Caption := 'Page2';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					with Items do
					begin
						with Add('S1',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(25);
						end;
						with Add('S2',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(50);
						end;
						with Add('S3',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(75);
						end;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn');
		Add(2,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn');
		Add(12,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn');
		Add(14,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn');
		Add(17,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn');
		Add(18,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn');
		Add(32,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn');
		Add(33,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn');
		Add(34,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn');
		Add(35,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn');
	end;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$23000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$22000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum($3),$23000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exCheckBoxState0,$20000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exCheckBoxState1,$21000000);
	Refresh();
end
196:
How can I display a tab into the ribbon (method 2, minimized)

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	with Items do
	begin
		ToString := '[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-1' + 
	'00]))';
		Item[TObject(-99)].Visible := False;
		with Item[TObject(-10)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>1</b></font></off>';
				with Items.Item[TObject(0)].Items do
				begin
					with Add('add here fields for page 1',Nil,Nil) do
					begin
						ID := -1000;
						Enabled := False;
						BackColor := $ff;
					end;
				end;
			end;
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>2</b></font></off>';
				with Items.Item[TObject(0)].Items do
				begin
					with Add('add here fields for page 2',Nil,Nil) do
					begin
						ID := -1001;
						Enabled := False;
						BackColor := $ff00;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	Refresh();
end
195:
How can I display a tab into the ribbon (method 1, minimized)

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	ToString := '[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][typ' + 
	'=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group' + 
	'=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font ;' + 
	'5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(24' + 
	'0,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-100' + 
	'1][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))';
	with Items.Item[TObject(-1000)] do
	begin
		BackColor := $ff;
	end;
	with Items.Item[TObject(-1001)] do
	begin
		BackColor := $ff00;
	end;
	get_Item(TObject(-99)).Visible := False;
end
194:
How can I display the drop down panel to a specified location only
with AxRibbon1 do
begin
	PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	with Items do
	begin
		with Add('Popup',TObject(2),TObject(100)) do
		begin
			ShowPopupArrow := False;
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			ShowPopupOffset := '0:screen,0:screen';
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Refresh();
end
193:
How can I displays the drop down bellow the control, rather than item itself

with AxRibbon1 do
begin
	PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	with Items do
	begin
		with Add('Popup <b>1',TObject(2),TObject(100)) do
		begin
			ShowPopupArrow := False;
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			ShowPopupOffset := '0,0:control';
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		with Add('Popup <b>2',TObject(2),TObject(200)) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
				Add('Item 4',Nil,Nil);
			end;
		end;
	end;
	Refresh();
end
192:
How can I change the visual appearance of the progress bar

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXRIBBONLib.BackgroundPartEnum($104),$1000000);
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end
191:
How can I change the progress's color

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum($104),$ff);
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end
190:
I am using the Item.Visible property on False to hide the item, but the editor is still visible
// CheckItem event - Occurs when the user checks the item.
procedure TWinForm1.AxRibbon1_CheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_CheckItemEvent);
begin
	with AxRibbon1 do
	begin
		with Items.Item[TObject(1000)] do
		begin
			Visible := True;
			AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditReadOnly) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
		end;
		Refresh();
	end
end;

// UncheckItem event - Occurs when the user unchecks the item.
procedure TWinForm1.AxRibbon1_UncheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_UncheckItemEvent);
begin
	with AxRibbon1 do
	begin
		with Items.Item[TObject(1000)] do
		begin
			Visible := False;
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemDisableEdit;
		end;
		Refresh();
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('Visible',Nil,Nil);
				with Add('',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
				end;
				with Add('Item 2',Nil,TObject(1000)) do
				begin
					ItemHeight := 18;
					Caption := 'Percent';
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditReadOnly) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
					EditValue := TObject(50);
					Visible := True;
				end;
				Add('Visible',Nil,Nil);
			end;
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Refresh();
end
189:
How can I change the color of a disabled item

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Disabled',TObject(2),TObject(0)) do
		begin
			ForeColor := $ff;
			Items.Add('',Nil,Nil);
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			ShowPopupArrow := False;
		end;
		Add('Disabled',Nil,Nil).Enabled := False;
	end;
	Refresh();
end
188:
Microsoft Windows 8.1 - Ribbon Like

with AxRibbon1 do
begin
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		with Item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_Item3 := Add('New Page',Nil,Nil);
			with var_Item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 200;
				Caption := 'Page1';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					var_Item := Items.Add('New Group',Nil,Nil);
					with var_Item do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>A';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('R1',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
									with Add('R2',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := True;
									end;
									with Add('R3',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
								end;
							end;
						end;
					end;
					var_Item1 := Items.Add('New Group',Nil,Nil);
					with var_Item1 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>B';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('C1',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
									with Add('C2',Nil,Nil) do
									begin
										Check := True;
										Checked := False;
									end;
									with Add('C3',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
								end;
							end;
						end;
					end;
					Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
					var_Item2 := Items.Add('New Group',Nil,Nil);
					with var_Item2 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
							with Add('',TObject(0),Nil) do
							begin
								AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
								ItemHeight := 76;
								EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
								EditValue := TObject(25);
							end;
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('',TObject(2),Nil) do
									begin
										GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
										with Items do
										begin
											with Add('Button1',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 1',Nil,Nil);
													Add('Item 2',Nil,Nil);
													Add('Item 3',Nil,Nil);
												end;
											end;
											Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
											with Add('Button2',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 4',Nil,Nil);
													Add('Item 5',Nil,Nil);
													Add('Item 6',Nil,Nil);
												end;
											end;
										end;
									end;
									with Add('Popup',TObject(2),Nil) do
									begin
										Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
										with Items do
										begin
											Add('Item 7',Nil,Nil).Check := True;
											Add('Item 8',Nil,Nil);
											with Add('Item 9',TObject(2),Nil).Items do
											begin
												Add('Item 10',Nil,Nil);
												Add('Item 11',Nil,Nil);
												Add('Item 12',Nil,Nil);
											end;
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_Item4 := Add('New Page',Nil,Nil);
			with var_Item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 300;
				Caption := 'Page2';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					with Items do
					begin
						with Add('S1',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(25);
						end;
						with Add('S2',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(50);
						end;
						with Add('S3',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(75);
						end;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn');
		Add(2,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn');
		Add(12,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn');
		Add(14,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn');
		Add(17,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn');
		Add(18,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn');
		Add(32,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn');
		Add(33,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn');
		Add(34,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn');
		Add(35,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn');
	end;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$23000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$22000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum($3),$23000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exCheckBoxState0,$20000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exCheckBoxState1,$21000000);
	Refresh();
end
187:
Microsoft Paint - Ribbon Like

with AxRibbon1 do
begin
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		with Item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_Item3 := Add('New Page',Nil,Nil);
			with var_Item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 200;
				Caption := 'Page1';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					var_Item := Items.Add('New Group',Nil,Nil);
					with var_Item do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>A';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('R1',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
									with Add('R2',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := True;
									end;
									with Add('R3',Nil,Nil) do
									begin
										RadioGroup := 100;
										Radio := True;
										ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
										Checked := False;
									end;
								end;
							end;
						end;
					end;
					var_Item1 := Items.Add('New Group',Nil,Nil);
					with var_Item1 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '<b><font ;14>B';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('C1',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
									with Add('C2',Nil,Nil) do
									begin
										Check := True;
										Checked := False;
									end;
									with Add('C3',Nil,Nil) do
									begin
										Check := True;
										Checked := True;
									end;
								end;
							end;
						end;
					end;
					Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
					var_Item2 := Items.Add('New Group',Nil,Nil);
					with var_Item2 do
					begin
						ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
						Caption := '';
						with Items do
						begin
							BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
							with Add('',TObject(0),Nil) do
							begin
								AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
								ItemHeight := 76;
								EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
								EditValue := TObject(25);
							end;
							with Add('',TObject(2),Nil) do
							begin
								GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
								Caption := '';
								with Items do
								begin
									with Add('',TObject(2),Nil) do
									begin
										GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
										with Items do
										begin
											with Add('Button1',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 1',Nil,Nil);
													Add('Item 2',Nil,Nil);
													Add('Item 3',Nil,Nil);
												end;
											end;
											Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
											with Add('Button2',TObject(2),Nil) do
											begin
												ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
												with Items do
												begin
													Add('Item 4',Nil,Nil);
													Add('Item 5',Nil,Nil);
													Add('Item 6',Nil,Nil);
												end;
											end;
										end;
									end;
									with Add('Popup',TObject(2),Nil) do
									begin
										Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
										with Items do
										begin
											Add('Item 7',Nil,Nil).Check := True;
											Add('Item 8',Nil,Nil);
											with Add('Item 9',TObject(2),Nil).Items do
											begin
												Add('Item 10',Nil,Nil);
												Add('Item 11',Nil,Nil);
												Add('Item 12',Nil,Nil);
											end;
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_Item4 := Add('New Page',Nil,Nil);
			with var_Item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
				ID := 300;
				Caption := 'Page2';
				ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
				with Items.Item[TObject(0)] do
				begin
					with Items do
					begin
						with Add('S1',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(25);
						end;
						with Add('S2',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(50);
						end;
						with Add('S3',Nil,Nil) do
						begin
							ItemHeight := 88;
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
							EditValue := TObject(75);
						end;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn');
		Add(2,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn');
		Add(3,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn');
		Add(4,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn');
		Add(5,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn');
		Add(6,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn');
		Add(7,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn');
		Add(8,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn');
		Add(9,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn');
		Add(10,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn');
		Add(11,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn');
		Add(12,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn');
		Add(13,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn');
		Add(14,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn');
		Add(15,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn');
		Add(16,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn');
		Add(19,'C:/Program Files/Exontrol/ExRibbon/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	LocalAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$d000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Refresh();
end
186:
Microsoft Office - Ribbon Like

with AxRibbon1 do
begin
	ToString := '[id=0][group=0x03](),[id=-99][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
	with get_Item(TObject(0)).Items do
	begin
		Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		var_Item3 := Add('New Page',Nil,Nil);
		with var_Item3 do
		begin
			ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
			ID := 200;
			Caption := 'Page1';
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			with Items.Item[TObject(0)] do
			begin
				var_Item := Items.Add('New Group',Nil,Nil);
				with var_Item do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>A';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('R1',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
								with Add('R2',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := True;
								end;
								with Add('R3',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
							end;
						end;
					end;
				end;
				var_Item1 := Items.Add('New Group',Nil,Nil);
				with var_Item1 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>B';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('C1',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
								with Add('C2',Nil,Nil) do
								begin
									Check := True;
									Checked := False;
								end;
								with Add('C3',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
							end;
						end;
					end;
				end;
				Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
				var_Item2 := Items.Add('New Group',Nil,Nil);
				with var_Item2 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
						with Add('',TObject(0),Nil) do
						begin
							AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
							ItemHeight := 76;
							EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
							EditValue := TObject(25);
						end;
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('',TObject(2),Nil) do
								begin
									GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
									with Items do
									begin
										with Add('Button1',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 1',Nil,Nil);
												Add('Item 2',Nil,Nil);
												Add('Item 3',Nil,Nil);
											end;
										end;
										Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
										with Add('Button2',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 4',Nil,Nil);
												Add('Item 5',Nil,Nil);
												Add('Item 6',Nil,Nil);
											end;
										end;
									end;
								end;
								with Add('Popup',TObject(2),Nil) do
								begin
									Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
									with Items do
									begin
										Add('Item 7',Nil,Nil).Check := True;
										Add('Item 8',Nil,Nil);
										with Add('Item 9',TObject(2),Nil).Items do
										begin
											Add('Item 10',Nil,Nil);
											Add('Item 11',Nil,Nil);
											Add('Item 12',Nil,Nil);
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
		end;
		var_Item4 := Add('New Page',Nil,Nil);
		with var_Item4 do
		begin
			ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03]([id=0][group=0x03]))';
			ID := 300;
			Caption := 'Page2';
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			with Items.Item[TObject(0)] do
			begin
				with Items do
				begin
					with Add('S1',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(25);
					end;
					with Add('S2',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(50);
					end;
					with Add('S3',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(75);
					end;
				end;
			end;
		end;
		Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
	end;
	PopupFlatAppearance := False;
	with VisualAppearance do
	begin
		Add(1,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_background.ebn');
		Add(2,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn');
		Add(3,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn');
		Add(4,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn');
		Add(5,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn');
		Add(6,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn');
		Add(7,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn');
		Add(8,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn');
		Add(9,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn');
		Add(10,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn');
		Add(11,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn');
		Add(12,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_select.ebn');
		Add(13,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn');
		Add(14,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn');
		Add(15,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn');
		Add(16,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn');
		Add(19,'C:\Program Files\Exontrol\ExRibbon\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXRIBBONLib.Ribbon).SelBackColor := $e000000;
	LocalAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$d000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Refresh();
end
185:
How I can assign buttons to a tab

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	with Items do
	begin
		ToString := '[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-1' + 
	'00]))';
		with Item[TObject(-10)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>1</b></font></off>';
				ID := -1000;
				with Items.Item[TObject(0)].Items do
				begin
					Add('Button 1',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
					Add('Button 2',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
					Add('Button 3',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
				end;
			end;
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>2</b></font></off>';
				ID := -1001;
				with Items.Item[TObject(0)].Items do
				begin
					Add('Button 3',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
					Add('Button 4',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	Refresh();
end
184:
How can I hide an item

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).Visible := False;
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
183:
How do I quickly load items into the control

with AxRibbon1 do
begin
	ToString := 'Check 1[chk],Check 2[chk=1]';
end
182:
Are there any functions to get the size/width/height of the control so all items fit the control's client area

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
	OutputDebugString( RequiredWidth );
	OutputDebugString( RequiredHeight );
end
181:
How do I get the item giving its caption

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).ID := 1000;
		Add('Item 2',Nil,Nil).ID := 1001;
	end;
	get_Item('Item 1').Bold := True;
	Refresh();
end
180:
How do I get the item giving its identifier

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).ID := 1000;
		Add('Item 2',Nil,Nil).ID := 1001;
	end;
	get_Item(TObject(1000)).Bold := True;
	Refresh();
end
179:
Can I change the cursor where it hovers the item

with AxRibbon1 do
begin
	Cursor := 'exCross';
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil).Cursor := 'exNoDrop';
	end;
	Refresh();
end
178:
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

with AxRibbon1 do
begin
	AllowToggleRadio := True;
	with Items do
	begin
		with Add('Radio 1',Nil,TObject(1000)) do
		begin
			Radio := True;
			RadioGroup := 100;
		end;
		with Add('Radio 2',Nil,TObject(1001)) do
		begin
			Radio := True;
			RadioGroup := 100;
		end;
		with Add('Radio 2',Nil,TObject(1003)) do
		begin
			Radio := True;
			RadioGroup := 100;
		end;
	end;
	Refresh();
end
177:
Is it possible to display the item's identifiers

with AxRibbon1 do
begin
	Debug := True;
	with Items do
	begin
		Add('Item 1',Nil,Nil).ID := 10001;
		Add('Item 2',Nil,Nil).ID := 10002;
	end;
	Refresh();
end
176:
How do I disable showing the tooltip for all control (method 2)

with AxRibbon1 do
begin
	AllowToolTip := False;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Refresh();
end
175:
How can I lock the control, so no events occur, but no shown in gray as Enabled do

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'SelectItem should not be fired while locked' );
	end
end;

with AxRibbon1 do
begin
	Locked := True;
	with Items do
	begin
		Add('Disabled',Nil,Nil).Enabled := False;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
174:
How can I disable the control

with AxRibbon1 do
begin
	Enabled := False;
	with Items do
	begin
		Add('Disabled',Nil,Nil).Enabled := False;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
173:
How can I specify a different border/visual appearance for drop down portion of the popup menu (ebn)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	PopupAppearance := EXRIBBONLib.AppearanceEnum($1000000);
	with Items do
	begin
		with Add('Popup 1',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
		end;
		with Add('Popup 2',TObject(2),Nil).Items do
		begin
			Add('Item 4',Nil,Nil).Check := True;
			Add('Item 5',Nil,Nil).Check := True;
			Add('Item 6',Nil,Nil).Check := True;
		end;
	end;
	Refresh();
end
172:
How can I specify a different border for drop down portion of the popup menu

with AxRibbon1 do
begin
	PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	with Items do
	begin
		with Add('Popup 1',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
		end;
		with Add('Popup 2',TObject(2),Nil).Items do
		begin
			Add('Item 4',Nil,Nil).Check := True;
			Add('Item 5',Nil,Nil).Check := True;
			Add('Item 6',Nil,Nil).Check := True;
		end;
	end;
	Refresh();
end
171:
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	LocalAppearance := EXRIBBONLib.AppearanceEnum($1000000);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
						Add('Item 6',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Refresh();
end
170:
How can I specify a different border for drop down portion of the select buttons/combobox

with AxRibbon1 do
begin
	LocalAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
						Add('Item 6',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Refresh();
end
169:
How can I change the visual appearance for the entire control

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXRIBBONLib.AppearanceEnum($1000000);
	ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		with Add('Radio 1',Nil,Nil) do
		begin
			Radio := True;
			Checked := True;
		end;
		Add('Radio 2',Nil,Nil).Radio := True;
		Add('Radio 3',Nil,Nil).Radio := True;
	end;
	Refresh();
end
168:
How can I show a border arround the control

with AxRibbon1 do
begin
	Appearance := EXRIBBONLib.AppearanceEnum.FlatBorder;
	ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		with Add('Check 1',Nil,Nil) do
		begin
			Checked := True;
			Check := True;
		end;
		with Add('Check 2',Nil,Nil) do
		begin
			Check := True;
		end;
	end;
	Refresh();
end
167:
Is it possible to change the item's background color when check/uncheck the item

with AxRibbon1 do
begin
	ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		with Add('Check 1',Nil,Nil) do
		begin
			Checked := True;
			Check := True;
		end;
		with Add('Check 2',Nil,Nil) do
		begin
			Check := True;
		end;
	end;
	Refresh();
end
166:
How can I change the colors for hot/hover items

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotBackColor,$10000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotForeColor,$ffffff);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotBackColor,$808080);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelHotForeColor,$ffffff);
	SelBackColor := Color.FromArgb(128,128,128);
	SelForeColor := Color.FromArgb(255,255,255);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$808080);
	ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		Add('',Nil,Nil).ToString := '[group=3](Item 1,Item 2)';
		with Add('Check 1',Nil,Nil) do
		begin
			Checked := True;
			Check := True;
		end;
		with Add('Check 2',Nil,Nil) do
		begin
			Check := True;
		end;
	end;
	Refresh();
end
165:
How do I change the visual appearance of the groups (vertical)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
		Add(3,'c:\exontrol\images\hot.ebn');
	end;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVStart,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$2000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameVEnd,$3000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSolid,$ff);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Vertical',TObject(2),Nil) do
				begin
					Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
					end;
				end;
				Add('',Nil,Nil).CaptionWidth := 12;
				with Add('Vertical',TObject(2),Nil) do
				begin
					Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Refresh();
end
164:
How do I change the visual appearance of the groups (horizontal)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
		Add(3,'c:\exontrol\images\hot.ebn');
	end;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSingle,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHStart,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$2000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameHEnd,$3000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exGroupPopupFrameSolid,$ff);
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
				Add('Item 4',Nil,Nil);
				Add('Item 5',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)';
	end;
	Refresh();
end
163:
How can I change the visual appearance of the separator item

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSeparatorItem,$1000000);
	with Items do
	begin
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',TObject(1),Nil);
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',Nil,Nil).ToString := '<font ;5>separator[sep]';
	end;
	Refresh();
end
162:
How can I change the visual appearance of the drop down of the control (normal.2)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	PopupFlatImageWidth := 0;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
			PopupAppearance := EXRIBBONLib.AppearanceEnum($1000000);
		end;
	end;
	Refresh();
end
161:
How can I change the visual appearance of the drop down of the control (normal.1)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	PopupFlatAppearance := False;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
			PopupAppearance := EXRIBBONLib.AppearanceEnum($1000000);
		end;
	end;
	Refresh();
end
160:
How can I change the visual appearance of the drop down of the control (flat)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	(GetOcx() as EXRIBBONLib.Ribbon).PopupFlatBackColor := $2000000;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuFlatLineColor,PopupFlatBackColor);
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
			PopupAppearance := EXRIBBONLib.AppearanceEnum($1000000);
		end;
	end;
	Refresh();
end
159:
How can I change the visual appearance of the flat portion of the drop down of the control

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	(GetOcx() as EXRIBBONLib.Ribbon).PopupFlatBackColor := $1000000;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuFlatLineColor,PopupFlatBackColor);
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		end;
	end;
	Refresh();
end
158:
How can I change the visual appearance of the radio-buttons to be displayed in the ribbon control (ebn)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exRadioButtonState0,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exRadioButtonState1,$2000000);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				with Add('Radio 1',Nil,TObject(1000)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1001)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1003)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				Item[TObject(1000)].Checked := True;
			end;
		end;
	end;
	Refresh();
end
157:
How can I change the visual appearance of the check-boxes to be displayed in the ribbon control (ebn)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exCheckBoxState0,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exCheckBoxState1,$2000000);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Check 1',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
				end;
				Add('Check 2',Nil,Nil).Check := True;
			end;
		end;
	end;
	Refresh();
end
156:
How can I change the visual appearance of the tooltips to be displayed in the ribbon control (ebn)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	ToolTipDelay := 1;
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exToolTipForeColor,$ff);
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Refresh();
end
155:
Is it possible to change the visual appearance of the buttons to be displayed in the ribbon control (ebn)

with AxRibbon1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	set_Background(EXRIBBONLib.BackgroundPartEnum($2),$1000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum($3),$2000000);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSeparatorSelectButton,$ff);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSeparatorSelectButtonBottom,$ff0000);
	with Items do
	begin
		Padding := '4,4,4,4';
		Add('Button',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
		with Add('',Nil,Nil) do
		begin
			Enabled := False;
			ItemHeight := 4;
		end;
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		with Add('',Nil,Nil) do
		begin
			Enabled := False;
			ItemHeight := 4;
		end;
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButton) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Refresh();
end
154:
I've seen that the width of the tooltip is variable. Can I make it larger

with AxRibbon1 do
begin
	ToolTipWidth := 328;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Refresh();
end
153:
How do I disable showing the tooltip for all control (method 1)

with AxRibbon1 do
begin
	ToolTipDelay := 0;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Refresh();
end
152:
How do I let the tooltip being displayed longer

with AxRibbon1 do
begin
	ToolTipPopDelay := 10000;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Refresh();
end
151:
How do I show the tooltip quicker

with AxRibbon1 do
begin
	ToolTipDelay := 1;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Refresh();
end
150:
How can I get the version of the control I am running

with AxRibbon1 do
begin
	OutputDebugString( Version );
end
149:
How can I align the picture on the control's background

with AxRibbon1 do
begin
	(GetOcx() as EXRIBBONLib.Ribbon).Picture := (AxRibbon1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)') as Object);
	PictureDisplay := EXRIBBONLib.PictureDisplayEnum.UpperRight;
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Refresh();
end
148:
Is it possible to place a picture on the control's background

with AxRibbon1 do
begin
	(GetOcx() as EXRIBBONLib.Ribbon).Picture := (AxRibbon1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)') as Object);
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Refresh();
end
147:
How can I display the item using a different font/size

with AxRibbon1 do
begin
	with Items do
	begin
		Add('',Nil,Nil).Caption := '<font ;14>This is a bit of text';
		Add('<font ;6>This is a bit of text',Nil,Nil);
		Add('',Nil,Nil).Caption := '<font Times New Roman;22>This is a bit of text</font>. Default';
	end;
	Refresh();
end
146:
How can I use the Event event, available for /COM version

// Event event - Notifies the application once the control fires an event.
procedure TWinForm1.AxRibbon1_Event(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EventEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'Event' );
		OutputDebugString( get_EventParam(-2) );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Check',Nil,Nil).Check := True;
		with Add('Slider',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
			EditWidth := 128;
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end
145:
Is it possible to get notified once the user edits the field, or change the slider value

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'EditChange event on Itm object' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Item',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
			EditWidth := 128;
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end
144:
How do I get notified once I uncheck an item

// UncheckItem event - Occurs when the user unchecks the item.
procedure TWinForm1.AxRibbon1_UncheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_UncheckItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'UncheckItem event on Itm object' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Check := True;
		Add('Item',Nil,Nil).Check := True;
	end;
	Refresh();
end
143:
How do I get notified once I check an item

// CheckItem event - Occurs when the user checks the item.
procedure TWinForm1.AxRibbon1_CheckItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_CheckItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'CheckItem event on Itm object' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Check := True;
		Add('Item',Nil,Nil).Check := True;
	end;
	Refresh();
end
142:
How do I get notified once I click/select an item

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'SelectItem event on Itm object' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Refresh();
end
141:
Does your control support padding for items

with AxRibbon1 do
begin
	PopupFlatAppearance := False;
	with Items do
	begin
		Padding := '2,12,2,2';
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		BackgroundExt := 'root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])';
	end;
	Refresh();
end
140:
How can I display the drop down popup to a different position ( method 2 )

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),TObject(100)) do
		begin
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			ShowPopupArrow := False;
			ShowPopupOffset := '-12,-48';
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.RaisedBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Refresh();
end
139:
How can I display the drop down popup to a different position ( method 1 )

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				with Add('Popup 1',TObject(2),TObject(100)) do
				begin
					ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
					ShowPopupArrow := False;
					with Items do
					begin
						PopupAppearance := EXRIBBONLib.AppearanceEnum.RaisedBorder;
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
				with Add('Popup 2',TObject(2),TObject(200)) do
				begin
					ShowPopupAt := 100;
					ShowPopupArrow := False;
					with Items do
					begin
						PopupAppearance := EXRIBBONLib.AppearanceEnum.RaisedBorder;
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
						Add('Item 6',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Refresh();
end
138:
Is it possible to show the popup bellow to the item, rather than on the right side

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),Nil) do
		begin
			ShowPopupAlign := EXRIBBONLib.ShowPopupAlignEnum.exShowPopupAlignDown;
			ShowPopupArrow := False;
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.FlatBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Popup[arrow=0][popupalign=1][popupapp=1](Item 1,Item 2,Item 3)';
	end;
	Refresh();
end
137:
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				HotBackColor := $1000000;
				Padding := '4,8,4,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)';
	end;
	Refresh();
end
136:
How can I change the background color for items, when cursor hovers it (hot)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				HotBackColor := $ff;
				Padding := '0,8,0,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)';
	end;
	Refresh();
end
135:
How can I change the visual appearance for items (EBN)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				BackColor := $1000000;
				Padding := '4,8,4,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)';
	end;
	Refresh();
end
134:
How can I change the background color for items

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				BackColor := $ff;
				Padding := '0,8,0,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)';
	end;
	Refresh();
end
133:
Is it possible to hide the popup's arrow

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),Nil) do
		begin
			ShowPopupArrow := False;
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Popup[arrow=0][popupapp=6](Item 1,Item 2,Item 3)';
	end;
	Refresh();
end
132:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

with AxRibbon1 do
begin
	PopupFlatImageWidth := 0;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		end;
	end;
	Refresh();
end
131:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

with AxRibbon1 do
begin
	PopupFlatAppearance := False;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		end;
	end;
	Refresh();
end
130:
How can I arrange the drop down item from left to right, rather than top to bottom

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

with AxRibbon1 do
begin
	PopupFlatAppearance := False;
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
			end;
		end;
		Add('',Nil,Nil).ToString := 'Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))';
	end;
	Refresh();
end
129:
How can I add a drop down button / combobox (method 2)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Refresh();
end
128:
How can I add a drop down button / combobox (method 1)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButton) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Refresh();
end
127:
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsSelectButton) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Refresh();
end
126:
How can I add a button (push button)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxRibbon1_SelectItem(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_SelectItemEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Button',Nil,Nil).ShowAsButton := Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXRIBBONLib.ShowAsButtonEnum.exShowAsButton);
		Add('',Nil,Nil).ToString := 'Button[button=0x03]';
	end;
	Refresh();
end
125:
How can I display grouping items with no frame arround

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('A',Nil,Nil).Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
				Add('BC',Nil,Nil).Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
				Add('D',Nil,Nil).Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])';
	end;
	Refresh();
end
124:
How can I display grouping items of the same size/width/height

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('A',Nil,Nil).Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
				Add('BC',Nil,Nil).Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
				Add('D',Nil,Nil).Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])';
	end;
	Refresh();
end
123:
Is it possible to display a ticker frame arround grouping items

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Refresh();
end
122:
How do I display items horizontally arranged

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Refresh();
end
121:
Is it possible to expand an item when it is clicked (tree,group,vertical)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Padding := '22,0,0,0';
				Add('Radio 1',Nil,Nil).Radio := True;
				Add('Radio 2',Nil,Nil).Radio := True;
				with Add('Radio 3',Nil,Nil) do
				begin
					Radio := True;
					Checked := True;
				end;
			end;
			Checked := True;
		end;
		Add('',Nil,Nil).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' + 
	'][chk=1])';
	end;
	Refresh();
end
120:
Is it possible to expand an item when it is clicked (tree,group,vertical)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Padding := '22,0,0,0';
				Add('Radio 1',Nil,Nil).Radio := True;
				Add('Radio 2',Nil,Nil).Radio := True;
				with Add('Radio 3',Nil,Nil) do
				begin
					Radio := True;
					Checked := True;
				end;
			end;
			Checked := True;
		end;
	end;
	Refresh();
end
119:
Is it possible to expand an item when it is clicked (group)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			ItemHeight := 24;
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
			end;
		end;
	end;
	Refresh();
end
118:
Is it possible to extend an item when it is clicked

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
				PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
			end;
		end;
	end;
	Refresh();
end
117:
Does your control implement padding for item

with AxRibbon1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil).Padding := '4,4,4,4';
		Add('',Nil,Nil).ToString := 'Item[pad=4,4,4,4]';
	end;
	Refresh();
end
116:
How can I add an empty item for a horizontal group

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupCenter) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					ItemHeight := 12;
					with Items.Add('',Nil,Nil) do
					begin
						Enabled := False;
						ItemHeight := 8;
						CaptionWidth := 8;
					end;
				end;
				Add('Item 2',Nil,Nil);
			end;
		end;
	end;
	Refresh();
end
115:
How can I add an empty/separator item

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil);
		with Add('',Nil,Nil) do
		begin
			Enabled := False;
			ItemHeight := 2;
			CaptionWidth := 8;
			BackColor := $f0f0f0;
		end;
		Add('Item',Nil,Nil);
	end;
	Refresh();
end
114:
How can I add an empty/frame item

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupCenter) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			ItemHeight := 12;
			with Items.Add('',Nil,Nil) do
			begin
				Enabled := False;
				ItemHeight := 8;
				CaptionWidth := 8;
			end;
		end;
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
113:
How can I specify the height of the item

with AxRibbon1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil).ItemHeight := 64;
		Add('',Nil,Nil).ToString := 'Item[height=64]';
	end;
	Refresh();
end
112:
How can I specify the width of the item

with AxRibbon1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',Nil,Nil).ToString := 'Item[captionwidth=128]';
	end;
	Refresh();
end
111:
How do I align the item

with AxRibbon1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil);
		with Add('Item',Nil,Nil) do
		begin
			Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
			CaptionWidth := 128;
		end;
		with Add('Item',Nil,Nil) do
		begin
			Alignment := EXRIBBONLib.AlignmentEnum.exRight;
			CaptionWidth := 128;
		end;
		Add('',Nil,Nil).ToString := 'Item[align=1]';
	end;
	Refresh();
end
110:
How can I underline the item

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Underline := True;
		Add('<u>Item</u>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[und]';
	end;
	Refresh();
end
109:
How can I show the item as strikeout

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Strikeout := True;
		Add('<s>Item</s>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[stk]';
	end;
	Refresh();
end
108:
How can I show the item in italics

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Italic := True;
		Add('<i>Item</i>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[itl]';
	end;
	Refresh();
end
107:
How can I show the item in bold

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Bold := True;
		Add('<b>Item</b>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[bld]';
	end;
	Refresh();
end
106:
How can I show the item as disabled but still be able to select or use it

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).ShowAsDisabled := True;
		Add('',Nil,Nil).ToString := 'Item[showdis=1]';
	end;
	Refresh();
end
105:
How can I enable or disable an item

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Enabled := False;
		Add('',Nil,Nil).ToString := 'Item[dis]';
	end;
	Refresh();
end
104:
How can I add a separator item

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('<font ;6>separator',TObject(1),Nil);
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',Nil,Nil).ToString := '<font ;6>separator[sep]';
	end;
	Refresh();
end
103:
How can I change the item's foreground color

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).ForeColor := $ff;
		Add('<fgcolor FF0000>Item',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[fg=RGB(255,0,0)]';
	end;
	Refresh();
end
102:
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Radio 1',Nil,Nil) do
				begin
					HotBackColor := $ffffff;
					SelBackColor := $ff;
					SelHotBackColor := $ff;
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
					Checked := True;
				end;
				with Add('Radio 2',Nil,Nil) do
				begin
					HotBackColor := $ffffff;
					SelBackColor := $ff;
					SelHotBackColor := $ff;
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				Add('',Nil,Nil).ToString := 'Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]';
			end;
		end;
	end;
	Refresh();
end
101:
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Check 1',Nil,Nil) do
		begin
			HotBackColor := $ffffff;
			SelBackColor := $ff;
			SelHotBackColor := $ff;
			ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
			Checked := True;
			Check := True;
		end;
		Add('',Nil,Nil).ToString := 'Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]';
	end;
	Refresh();
end
100:
How can I prevent showing the border for selected/highlight/hot items

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$ffffff);
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Refresh();
end
99:
How can I change the item's background/backcolor, when the cursor hovers it (hot)

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).HotBackColor := $ff;
		Add('',Nil,Nil).ToString := 'Item[bghot=RGB(255,0,0)]';
	end;
	Refresh();
end
98:
How can I change the item's background/backcolor

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		Add('Item',Nil,Nil).BackColor := $ff;
		Add('Item',Nil,Nil).BackColor := $1000000;
		Add('',Nil,Nil).ToString := 'Item[bg=RGB(255,0,0)]';
	end;
	Refresh();
end
97:
How can I specify/assign the item's identifier

with AxRibbon1 do
begin
	Debug := True;
	with Items do
	begin
		Add('ID 1',TObject(0),TObject(1000));
		Add('ID 2',Nil,Nil).ID := 1001;
		Add('',Nil,Nil).ToString := 'ID 3[id=1002]';
	end;
	Refresh();
end
96:
The popup is displayed using a fade/light-up effect. Is it possible to prevent that

with AxRibbon1 do
begin
	ShowPopupEffect := EXRIBBONLib.ShowPopupEffectEnum.exShowPopupDirect;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		end;
	end;
	Refresh();
end
95:
How can I show semi-transparent popups

with AxRibbon1 do
begin
	PopupVisibility := 50;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		end;
	end;
	Refresh();
end
94:
How can I change the popup's border

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
		end;
	end;
	Refresh();
end
93:
How can I show a horizontal separator/line between groups (method 3,EBN color)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $1000000;
					ItemHeight := 8;
					CaptionWidth := 128;
				end;
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Refresh();
end
92:
How can I show a horizontal separator/line between groups (method 2,solid color)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $808080;
					ItemHeight := 8;
					CaptionWidth := 128;
				end;
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Refresh();
end
91:
How can I show a horizontal separator/line between groups (method 1,pattern)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						with Add('',Nil,Nil) do
						begin
							Enabled := False;
							ItemHeight := 8;
							CaptionWidth := 128;
						end;
						BackgroundExt := 'none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]';
					end;
				end;
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Refresh();
end
90:
How can I show a vertical separator/line between groups (method 3,EBN color)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $1000000;
					ItemHeight := 96;
					CaptionWidth := 8;
				end;
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Refresh();
end
89:
How can I show a vertical separator/line between groups (method 2,solid color)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $808080;
					ItemHeight := 96;
					CaptionWidth := 8;
				end;
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Refresh();
end
88:
How can I show a vertical separator/line between groups (method 1,pattern)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						with Add('',Nil,Nil) do
						begin
							Enabled := False;
							ItemHeight := 96;
							CaptionWidth := 8;
						end;
						BackgroundExt := 'none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]';
					end;
				end;
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Refresh();
end
87:
How can I show a pattern on the items

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '2,2,2,12';
		BackgroundExt := 'root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off' + 
	' -2> clipboard </off></font></fgcolor>`,align=0x21])';
	end;
	Refresh();
end
86:
How can I show a thick frame arround the items

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '2,2,2,12';
		BackgroundExt := 'root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,alig' + 
	'n=0x21])';
	end;
	Refresh();
end
85:
How can I add some additional icons on the background

with AxRibbon1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '0,0,0,16';
		BackgroundExt := 'root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]';
	end;
	Refresh();
end
84:
How can I add some additional text on the background

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '0,0,0,8';
		BackgroundExt := 'root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]';
	end;
	Refresh();
end
83:
How can I disable incremental searching

with AxRibbon1 do
begin
	PopupIncrementalSearch := EXRIBBONLib.IncrementalSearchEnum.exNoIncrementalSearch;
	Items.ToString := 'Popup(Item 1,Item 2,Item 3)';
	Refresh();
end
82:
How can I assign a tooltip to an item (method 2)

with AxRibbon1 do
begin
	ToString := 'ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]';
end
81:
How can I assign a tooltip to an item (method 1)

with AxRibbon1 do
begin
	Items.Add('ToolTip',Nil,Nil).Tooltip := 'This is a bit of text that should be shown when cursor hovers the item';
	Refresh();
end
80:
How can I assign a spin field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Spin',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSpin;
			EditWidth := 16;
			EditValue := TObject(15);
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
			EditOption[EXRIBBONLib.EditOptionEnum.exEditMaxValue] := TObject(1000);
		end;
		with Add('Edit-Spin',Nil,Nil) do
		begin
			AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditText);
			EditWidth := -128;
			EditValue := TObject(15);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditMaxValue] := TObject(1000);
		end;
		with Add('Splider-Spin',Nil,Nil) do
		begin
			AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditSpin) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
			EditWidth := -128;
			EditValue := TObject(25);
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
		end;
	end;
	Refresh();
end
79:
How can I assign a spin field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][edi' + 
	'twidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]';
end
78:
How can I add a vertical slider (method 2)

with AxRibbon1 do
begin
	ToString := 'Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]';
end
77:
How can I add a vertical slider (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Vertical',Nil,Nil) do
		begin
			ItemHeight := 128;
			AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditVertical) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditSlider);
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
			EditWidth := 32;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end
76:
How can I disable an editor (method 2)

with AxRibbon1 do
begin
	ToString := 'Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]';
end
75:
How can I disable an editor (method 1)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Disabled',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditText;
			EditWidth := -128;
			EditValue := 'text-box';
			Enabled := False;
		end;
	end;
	Refresh();
end
74:
How can I lock an editor (method 2)

with AxRibbon1 do
begin
	ToString := 'Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]';
end
73:
How can I lock an editor (method 1)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Locked',Nil,Nil) do
		begin
			AllowEdit := Integer(EXRIBBONLib.AllowEditEnum.exItemEditReadOnly) Or Integer(EXRIBBONLib.AllowEditEnum.exItemEditText);
			EditWidth := -128;
			EditValue := 'disabled text-box';
		end;
	end;
	Refresh();
end
72:
How can I assign a font field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Font',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditFont;
			EditWidth := -128;
			EditValue := 'Tahoma';
		end;
	end;
	Refresh();
end
71:
How can I assign a font field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]';
end
70:
How can I assign a color field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Color',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditColor;
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
			EditWidth := -128;
			EditValue := TObject(255);
		end;
	end;
	Refresh();
end
69:
How can I assign a color field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]';
end
68:
How can I assign a scrollbar field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('ScrollBar',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditScrollBar;
			EditWidth := -128;
			EditValue := '25';
		end;
	end;
	Refresh();
end
67:
How can I assign a scrollbar field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]';
end
66:
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditChangeToolTip] := '`Current value is: ` + value';
		end;
	end;
	Refresh();
end
65:
How can I hide the tooltip beging shown when I change the slider/scroll/progress value

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditChangeToolTip] := '';
		end;
	end;
	Refresh();
end
64:
How can I assign a progress field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
	end;
	Refresh();
end
63:
How can I assign a progress field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Progress[id=10][edittype=0x04][edit=25][editwidth=-128]';
end
62:
How can I assign a slider field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Slider',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
		with Add('Slider',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditSlider;
			EditBorder := EXRIBBONLib.EditBorderEnum.exEditBorderNone;
			EditWidth := -128;
			EditOption[EXRIBBONLib.EditOptionEnum.exEditMinValue] := TObject(50);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditMaxValue] := TObject(450);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditTickStyle] := TObject(2);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditTickFrequency] := TObject(50);
			EditOption[EXRIBBONLib.EditOptionEnum.exEditTickLabel] := 'value = vmin ? ''<br><font ;6><b>''+value : ( value = vmax ? ''<br><font ;6><b>''+value : ( value = 200 ? ''<br><font ;6><b><fgcolor ' + 
	'FF0000>''+value : '''' ) )';
			EditValue := TObject(345);
		end;
	end;
	Refresh();
end
61:
How can I assign a slider field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2][' + 
	'freq=50][ticklabel=value = vmin ? ''<br><font ;6><b>''+value : ( value = vmax ? ''<br><font ;6><b>''+value : ( value = 200 ? ''<br><f' + 
	'ont ;6><b><fgcolor FF0000>''+value : '''' ) )][editwidth=-128]';
end
60:
How can I assign a mask (time) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Time',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '99:00:00;;0;overtype,warning=Invalid character';
			EditValue := '123456';
		end;
	end;
	Refresh();
end
59:
How can I assign a mask (time) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]';
end
58:
How can I assign a mask (license key) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('License Key',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := 'AAAA-AAAA-AAAA-AAAA';
			EditValue := '1234';
		end;
	end;
	Refresh();
end
57:
How can I assign a mask (license key) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]';
end
56:
How can I assign a mask (IP address) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('IP Address',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '{0,255}.{0,255}.{0,255}.{0,255}';
			EditValue := '1.2.3.4';
		end;
	end;
	Refresh();
end
55:
How can I assign a mask (IP address) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]';
end
54:
How can I assign a mask (phone) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Phone',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '!(9999) 000 000;;;empty,select=4,overtype,beep';
			EditValue := '0771638317';
		end;
	end;
	Refresh();
end
53:
How can I assign a mask (phone) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]';
end
52:
How can I assign a mask (date) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '`Date: `{1,12}/{1,31}/{1950,2050};;;select=1';
			EditValue := '2/15/2015';
		end;
		with Add('Date',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype';
			EditValue := '2/15/2015';
		end;
	end;
	Refresh();
end
51:
How can I assign a mask (date) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := '[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edit' + 
	'type=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,ove' + 
	'rtype][editwidth=-128]';
end
50:
How can I assign a mask (integer) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Integer',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := ';;;float,grouping=,digits=0';
			EditValue := TObject(1000);
		end;
		with Add('Integer-Grouping',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := ';;;float,decimal=,digits=0,select=1';
			EditValue := TObject(1000);
		end;
		with Add('Integer-In-Range',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '{0,2050}';
			EditValue := TObject(1000);
		end;
	end;
	Refresh();
end
49:
How can I assign a mask (integer) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x02' + 
	'][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask={' + 
	'0,2050}][editwidth=-128]';
end
48:
How can I assign a mask field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Mask',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := ';;;float,select=1';
			EditValue := TObject(1000);
		end;
	end;
	Refresh();
end
47:
How can I assign a mask field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]';
end
46:
How can I assign an edit / text-box to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Mask',Nil,Nil) do
		begin
			AllowEdit := EXRIBBONLib.AllowEditEnum.exItemEditText;
			EditValue := 'this is a text';
			EditWidth := -128;
		end;
	end;
	Refresh();
end
45:
How can I assign an edit / text-box to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxRibbon1_EditChange(sender: System.Object; e: AxEXRIBBONLib._IRibbonEvents_EditChangeEvent);
begin
	with AxRibbon1 do
	begin
		OutputDebugString( e.itm );
	end
end;

with AxRibbon1 do
begin
	ToString := 'Text-Box[edit=this is a text][editwidth=-128]';
end
44:
How can I display a tab into the ribbon (method 2)

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	with Items do
	begin
		ToString := '[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-1' + 
	'00]))';
		with Item[TObject(-10)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>1</b></font></off>';
				with Items.Item[TObject(0)].Items do
				begin
					with Add('add here fields for page 1',Nil,Nil) do
					begin
						ID := -1000;
						Enabled := False;
						BackColor := $ff;
					end;
				end;
			end;
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0][popupalign=0x01]([id=0][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>2</b></font></off>';
				with Items.Item[TObject(0)].Items do
				begin
					with Add('add here fields for page 2',Nil,Nil) do
					begin
						ID := -1001;
						Enabled := False;
						BackColor := $ff00;
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	Refresh();
end
43:
How can I add check-buttons to items, without showing the check-box (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Check 1',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
				end;
				with Add('Check 2',Nil,Nil) do
				begin
					Check := True;
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
				end;
				with Add('Check 3',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
				end;
			end;
		end;
	end;
	Refresh();
end
42:
How can I add check-buttons to items, without showing the check-box (method 1)

with AxRibbon1 do
begin
	ToString := '[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])';
end
41:
How can I add radio buttons to items, without showing the radio-buttons (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Radio 1',Nil,TObject(1000)) do
				begin
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1001)) do
				begin
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1003)) do
				begin
					ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				Item[TObject(1000)].Checked := True;
			end;
		end;
	end;
	Refresh();
end
40:
How can I add radio buttons to items, without showing the radio-buttons (method 1)

with AxRibbon1 do
begin
	ToString := '[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][id' + 
	'=1002])';
end
39:
How can I add check-buttons to items (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Check 1',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
				end;
				Add('Check 2',Nil,Nil).Check := True;
			end;
		end;
	end;
	Refresh();
end
38:
How can I add check-buttons to items (method 1)

with AxRibbon1 do
begin
	ToString := '[group=0x3](Check 1[chk=1],Check 2[chk=0])';
end
37:
How can I add radio buttons to items (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				with Add('Radio 1',Nil,TObject(1000)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1001)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1003)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				Item[TObject(1000)].Checked := True;
			end;
		end;
	end;
	Refresh();
end
36:
How can I add radio buttons to items (method 1)

with AxRibbon1 do
begin
	ToString := '[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])';
end
35:
How can I change the selection/highlighting color

with AxRibbon1 do
begin
	SelBackColor := Color.FromArgb(0,0,0);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$80);
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuHotForeColor,$ffffff);
	ToString := '[group=3](Item 1[chk],Item 2[chk])';
end
34:
How can I prevent showing/hide the border on the selected/highlighted item

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,SelBackColor);
	ToString := 'Item 1,Item 2';
end
33:
How can I display a tab into the ribbon (method 1)

with AxRibbon1 do
begin
	set_Background(EXRIBBONLib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	ToString := '[group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03]([id=50][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=60][typ' + 
	'=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][group' + 
	'=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=80],add here fields for page 1[id=-1000][dis])),Page<off -5><font ;' + 
	'5><b>2</b></font></off>[id=100][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(24' + 
	'0,240,240)][height=16][group=0x03][tab=-100][pad=2,0,2,0][popupalign=1]([group=0x03]([id=120],add here fields for page 2[id=-100' + 
	'1][dis])),[id=140][pad=8,0,0,0]),[id=-99][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100]))';
	with Items.Item[TObject(-1000)] do
	begin
		BackColor := $ff;
	end;
	with Items.Item[TObject(-1001)] do
	begin
		BackColor := $ff00;
	end;
end
32:
How do I prevent highlighting the item (method 2.b)

with AxRibbon1 do
begin
	with Items do
	begin
		Add('No highlight',Nil,Nil).Enabled := False;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
31:
How do I prevent highlighting the item (method 2.a)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('No highlight',TObject(2),Nil) do
		begin
			Items.Add('',Nil,Nil);
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			ShowPopupArrow := False;
		end;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
30:
How do I prevent highlighting the item (method 1.b)

with AxRibbon1 do
begin
	Items.ToString := 'No highlight[dis],Item 2,Item 3';
	Refresh();
end
29:
How do I prevent highlighting the item (method 1.a)

with AxRibbon1 do
begin
	Items.ToString := 'No highlight[group=0x3][arrow=0]([]),Item 2,Item 3';
	Refresh();
end
28:
How can I can I assign pictures or images for the item (method 2)

with AxRibbon1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	with Items do
	begin
		Add('Item',Nil,Nil).HTMLImage := 'pic1';
		Add('Item',Nil,Nil).HTMLImage := 'pic2';
		Add('',TObject(1),Nil);
		Add('Item <img>pic1</img>',Nil,Nil);
		Add('Item <img>pic2</img>',Nil,Nil);
		Add('',TObject(1),Nil);
		Add('<img>pic1</img> Item <img>pic2</img>',Nil,Nil);
	end;
	Refresh();
end
27:
How can I can I assign pictures or images for the item (method 1)

with AxRibbon1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	ToString := 'Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>';
end
26:
How can I can I assign icons for the item (method 2)

with AxRibbon1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Items do
	begin
		Add('Item',Nil,Nil).Image := 1;
		Add('Item',Nil,Nil).Image := 2;
		Add('',TObject(1),Nil);
		Add('Item <img>1</img>',Nil,Nil);
		Add('Item <img>2</img>',Nil,Nil);
		Add('',TObject(1),Nil);
		Add('Item <img>1</img>',Nil,Nil).Image := 1;
	end;
	Refresh();
end
25:
How can I can I assign icons for the item (method 1)

with AxRibbon1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Items.ToString := 'Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]';
	Refresh();
end
24:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		Padding := '2,2,2,2';
		BackColor := $1000000;
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
23:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Items.ToString := '[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)';
	Refresh();
end
22:
How can I change the background color for a collection of items/group (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		Padding := '2,2,2,2';
		BackColor := $ff;
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
21:
How can I change the background color for a collection of items/group (method 1)

with AxRibbon1 do
begin
	Items.ToString := '[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)';
	Refresh();
end
20:
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil).BackColor := $1000000;
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
19:
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Items.ToString := 'Item 1,Item 2[bg=0x1000000],Item 3';
	Refresh();
end
18:
How can I change the background color for a specified item (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil).BackColor := $ff;
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
17:
How can I change the background color for a specified item (method 1)

with AxRibbon1 do
begin
	Items.ToString := 'Item 1,Item 2[bg=RGB(255,0,0)],Item 3';
	Refresh();
end
16:
How can I change the visual appearance (EBN) of the floating popups (method 2, applies to single popup)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			PopupAppearance := EXRIBBONLib.AppearanceEnum($1000000);
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
		end;
	end;
	Refresh();
end
15:
How can I change the visual appearance (EBN) of the floating popups (method 1, applies to all)

with AxRibbon1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Items.ToString := 'Popup(Item 1,Item 2,Item 3)';
	PopupAppearance := EXRIBBONLib.AppearanceEnum($1000000);
	Refresh();
end
14:
How can I change the visual appearance of the floating popups (method 2, applies to single popup)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
		end;
	end;
	Refresh();
end
13:
How can I change the visual appearance of the floating popups (method 1, applies to all)

with AxRibbon1 do
begin
	Items.ToString := 'Popup(Item 1,Item 2,Item 3)';
	PopupAppearance := EXRIBBONLib.AppearanceEnum.ShadowBorder;
	Refresh();
end
12:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
		end;
	end;
	Refresh();
end
11:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

with AxRibbon1 do
begin
	Items.ToString := 'Popup(Item 1,Item 2,Item 3)';
	Refresh();
end
10:
How can I arrange the items by grouping (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Horizontal',TObject(2),Nil) do
				begin
					GroupPopup := EXRIBBONLib.GroupPopupEnum.exGroupPopup;
					with Items do
					begin
						Add('Sub-Item <b>A</b>',Nil,Nil);
						Add('Sub-Item <b>B</b>',Nil,Nil);
						Add('Sub-Item <b>C</b>',Nil,Nil);
					end;
				end;
				Add('',Nil,Nil).CaptionWidth := 16;
				with Add('Vertical',TObject(2),Nil) do
				begin
					Alignment := EXRIBBONLib.AlignmentEnum.exCenter;
					GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Sub-Item <b>A</b>',Nil,Nil);
						Add('Sub-Item <b>B</b>',Nil,Nil);
						Add('Sub-Item <b>C</b>',Nil,Nil);
					end;
				end;
				Add('',Nil,Nil).CaptionWidth := 16;
				with Add('Popup',TObject(2),Nil) do
				begin
					with Items do
					begin
						Add('Sub-Item <b>A</b>',Nil,Nil);
						Add('Sub-Item <b>B</b>',Nil,Nil);
						Add('Sub-Item <b>C</b>',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Refresh();
end
9:
How can I arrange the items by grouping (method 1)

with AxRibbon1 do
begin
	Items.ToString := '[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x01' + 
	'01][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>,' + 
	'Sub-Item <b>C</b>),[captionwidth=160])';
	Refresh();
end
8:
How can I arrange some items vertically, and some horizontally (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('1',Nil,Nil);
				Add('2',Nil,Nil);
				Add('3',Nil,Nil);
			end;
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
		end;
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('4',Nil,Nil);
				Add('5',Nil,Nil);
				Add('6',Nil,Nil);
			end;
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
		end;
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('7',Nil,Nil);
				Add('8',Nil,Nil);
				Add('9',Nil,Nil);
			end;
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Refresh();
end
7:
How can I arrange some items vertically, and some horizontally (method 1)

with AxRibbon1 do
begin
	Items.ToString := '[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)';
	Refresh();
end
6:
How can I assign multiple-lines to an item (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('Item 1',Nil,Nil).Caption := 'Item <br><c><b>1';
				Add('Item 2',Nil,Nil).Caption := 'Item <br><c><b>2';
				Add('Item 3',Nil,Nil).Caption := 'Item <br><c><b>3';
			end;
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Refresh();
end
5:
How can I assign multiple-lines to an item (method 1)

with AxRibbon1 do
begin
	Items.ToString := '[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)';
	Refresh();
end
4:
How can I add new items arranged horizontally to the ribbon control (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
			GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Refresh();
end
3:
How can I add new items arranged horizontally to the ribbon control (method 1)

with AxRibbon1 do
begin
	Items.ToString := '[group=3](Item 1,Item 2,Item 3)';
	Refresh();
end
2:
How can I add new items to the ribbon control (method 2)

with AxRibbon1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Refresh();
end
1:
How can I add new items to the ribbon control (method 1)

with AxRibbon1 do
begin
	Items.ToString := 'Item 1,Item 2,Item 3';
	Refresh();
end