99
How can I replace or add an icon at runtime

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	ReplaceIcon('gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+Ok' + 
	'YB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==',Null);
	ReplaceIcon('C:\images\favicon.ico',OleVariant(0));
	with Items do
	begin
		ToString := 'Icon 0[img=0]';
		Add('Icon 1',OleVariant(1),Null);
		Add('Icon Inside <img>3</img>',Null,Null);
	end;
	EndUpdate();
end
98
I need to be able to select hours and minutes, like a clock or slider 0-24h and 0-60 min

// BrowseItem event - Notifies once the user browses for a new item.
procedure TForm1.RadialMenu1BrowseItem(ASender: TObject; Item : IItem);
begin
	// ParentCaption(-1) = Item.Caption(1)
	// SelectedIndex(3) =  Item.Index
	// ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",Item.Caption(1),0)
end;

// SelectItem event - Notifies once the user selects an item.
procedure TForm1.RadialMenu1SelectItem(ASender: TObject; Item : IItem);
begin
	// SelectedIndex(3) =  Item.Index
	// ParentCaption(-1) = FormatABC("(A  lpad `00`) +`:`+ (B lpad `00`)",Item.Parent.Caption(1),Item.Caption(1))
end;

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	Expanded := True;
	ToString := '0(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,4' + 
	'5,46,47,48,49,50,51,52,53,54,55,56,57,58,59),1(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,3' + 
	'0,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),2(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,1' + 
	'5,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,' + 
	'58,59),3(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,' + 
	'43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),4(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,' + 
	'28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),5(0,1,2,3,4,5,6,7,8,9,10,11,12,' + 
	'13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55' + 
	',56,57,58,59),6(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40' + 
	',41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),7(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25' + 
	',26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),8(0,1,2,3,4,5,6,7,8,9,10' + 
	',11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,5' + 
	'3,54,55,56,57,58,59),9(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,3' + 
	'8,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),10(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,' + 
	'23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),11(0,1,2,3,4,5,6' + 
	',7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,5' + 
	'0,51,52,53,54,55,56,57,58,59),12(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,' + 
	'35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),13(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19' + 
	',20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),14(0,1' + 
	',2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,' + 
	'47,48,49,50,51,52,53,54,55,56,57,58,59),15(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31' + 
	',32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),16(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1' + 
	'6,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,' + 
	'59),17(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43' + 
	',44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),18(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,2' + 
	'8,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),19(0,1,2,3,4,5,6,7,8,9,10,11,12,' + 
	'13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55' + 
	',56,57,58,59),20(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,4' + 
	'0,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),21(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,' + 
	'25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59),22(0,1,2,3,4,5,6,7,8,9' + 
	',10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,5' + 
	'2,53,54,55,56,57,58,59),23(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,' + 
	'37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59)';
	DisplayCenter[EXRADIALMENULib_TLB.exRadialItems] := 0.1;
	DisplayCenter[EXRADIALMENULib_TLB.exRadialSubItems] := 0.1;
	ArrowImage := '';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialItemsGridLines] := 1;
	ParentSize := 32;
	SubItemsSize := 0;
	ParentCaption[EXRADIALMENULib_TLB.exRadialMenuStateAll] := FormatABC('(A  lpad `00`) +`:`+ (B lpad `00`)',OleVariant(0),OleVariant(0),Null);
	EndUpdate();
end
97
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.RadialMenu1MouseMove(ASender: TObject; Button : Smallint; Shift : Smallint; X : Integer; Y : Integer);
begin
	with RadialMenu1 do
	begin
		ShowToolTip('new content','',Null,'+8','+8');
	end
end;
96
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.RadialMenu1MouseMove(ASender: TObject; Button : Smallint; Shift : Smallint; X : Integer; Y : Integer);
begin
	with RadialMenu1 do
	begin
		ShowToolTip('<null>','<null>',Null,'+8','+8');
	end
end;

with RadialMenu1 do
begin
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0[ttp=tooltip''s item][sttp=tooltip''s subitem]';
		Add('Item 1',Null,Null).Tooltip[EXRADIALMENULib_TLB.exRadialItems] := 'This is a bit of text that shown when user <b>hovers</b> the item';
		with Add('Item 2',Null,Null) do
		begin
			Tooltip[EXRADIALMENULib_TLB.exRadialItems] := 'This is a bit of text that shown when user hovers the item';
			Tooltip[EXRADIALMENULib_TLB.exRadialSubItems] := 'This is a bit of text that shown when user hovers the sub-item';
		end;
	end;
end
95
The control shows no icons. What can be the problem (32-bit, alpha channel vs 4-bit icons problem)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	ImageSize := 32;
	Images('gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbmiAQD/jL/r1fYFlsFctFptVrtltt0qsdgrz/srAs8NsNxut3t99v1/wGBwQAuNhwlks17veGjFiueLweRyWTymVm+FxsTw90xOdu2Ks2Mht60OW02n1Gpr' + 
	'WYiUTh+b0Gfz2c2W1u+30l21W73m93021mu4UO2Gz2O05HHyF4xu5vm/6HR6WB4PD61yxG25XG7na0vMhvL6fj8nlqXV6/p4ve9nX7ft5eO7PP831+33rtzsPp/mvx7u' + 
	'uS77bus97kLy/T8QTBUFpM9D+we7D3QA47RQC9rRQZDMNQTCEOs0/UQK/AkJxJC7Gw3FEUvLD0HsKh7Fv8r7NxG+EStvFUcRy3sWOs50YIdH8DRDCUattDEdSRJLIx4h' + 
	'64rizUXtDKLdSmsEYwjGkLRvJUuS6v0WRch0nyq1sgzNKUgNDIcsyPL03TerMWv1KsxuJMk7zTKk8ytPbWs3GbXxPOFB0Iqjrx9ND5NdM89QNPFHT7QK8QQ8FC0tS6kt' + 
	'dJy5yhPc6uvMtE0ZPlIQNQVMVRVNM0/T8g1a2c2UfUc/VPVVbVuobcU4186V24VQts61gVJWda1xY9kKDB6903EVeU8udPonWdJPpZNr2wm1F1g4bW2bRVh2/YUyWNbN' + 
	'zXOl1QSqvdY0jd0ttbX9y3Rel6pNAdn1M8F1Xe+KVXhe2A4FdMK4IzLhyDNuB4XhilXxeVK4biWJqXgGKYvjGM41jeOY7jycIqHyVZEjqPpCjKSJIkyDpxSWP5fmCZIC' + 
	'');
	Images('gBJJgBggAAQAAgAEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbmiAkEar0gYFjrlls1ntFptVrllhjFeAFjYFtuFytl3vF5vV7vkmt1+sVku12lduwl9xGJxWLxk3v8Zh9vwNzweCy1zwt1smNzmdz2frePjGRyIAzWUy9x1' + 
	'OVzEqw2b0Gx2Wz2k10USf+43Wmyeq1G/33B1nBzO92vH5HJxO30kO3Wl0/C1fT4HDw8p6/K7Xb7lS5nO5u58OS6XV1Pj63U4kf6Pd93v+E57/i8H1+n38np82tlPo9Ts' + 
	'tu+MBQHAjJK+yD7OfBLxt5BTcv08qWQg7MCwrC0KvHDMFwTBsOrg/z9wjCbYQvEsTPfDT8RS3ivucwjnQ8kEQRE/8SRPG8cNrFcVte4CJOJFzNrhBsZxG/kcyRJLOR3B' + 
	'K3Lc0sgsxKLRwezcYSHD8EwhJUuS6xEmNyv7nSfKcfxfKspTRKjiSxGUtRtL04zks8eSHKcyNzM0rTVPU0yBPkrq/LM8znQtDKy8cez/FjdTPRdHUhPdFsBQ9K0sqTIy' + 
	'dQc1rtPEHU5SVIz9UVL1LUyo09T1HVU8831HUNYT9U9Z1op9PT7RkGSmu1dUBXz11rYNhKRFdOrhW872PTbI1JH9h2faCg2ZVr8R/TSQTFNVr0/XFo29b6cV7CMZ27Ms' + 
	'YJVBlwXVdabShPl0Q5c133Zel6qxclz3tfV9qvdN+X/gGA4FgeCYLg2D4RhLFoqHyVYajqPpCjKSJIkyD3C+1CJYiaX44lx/nhfKVn+cAf41kZgAfk90EAAeVv60aXn8' + 
	'jAfpefiMA+l58IwA6XngjAHpecGcaFoiXaGAGc6PoyW6RpWm6YlmnaLpOqD/q2fIxq6XZuAGtpbruvpZsOZIRl6TH+RgD7OjSHbXjp/mftkEZFeG6pSgIA==');
	with Items do
	begin
		Add('Icon 32-bit<br><c><img>1</img>',Null,Null);
		Add('Icon 4-bit<br><c><img>2</img>',Null,Null);
	end;
	EndUpdate();
end
94
ImageSize property on 32 (specifies the size of control' icons/images)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	ImageSize := 32;
	Images('gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m0mf8ZnMYncNnU/nlAn1BolDo09pFCpNFpdGm9PqE0f6Aqk' + 
	'9qNXrFZrVbrldr1fsFXidjslls1ntFptVroVht1UQFNptuul1u13vF5vViidKpVqv1MwFMwMSh9tvc0uFynV9nmLxORyWTr1VnWLYGZq2Uzk8tef0Gh0VnxGdAGQwmeh' + 
	'+ZYD/1mM02x2WmyFV19KzGa2d5seFuVm31/su+wdOxOoo+N1ea1/FqeW3fR6WV6E+23M7Gt3HX7XTrej8Hh8XDot15G/5et5sPkEN9uu7Ow73z+kx8997nw9Xx29M3Lu' + 
	'vqmTetS5LVLI4jQODA0BuMrTzuEhzXvWhz3vez0FtIx7qwDDjpvu4b8wk/kRwApD/s3DrDPHFcWLY8qbwewT0v0scKwuiSiIcz0Tv7AsUx+zkPrQ064xE/cjxpI0kt0/' + 
	'z8q0+UoQVH0owJKkVQZK0sJnGKjonJSzPenLDsPHD3OhHUrwzMy4yBNq7yEtkQxJJckSVJSlR6m8Wz3PjyTTPjSoxLikS8+K1S+wyJObG6dzRCk5RLQM3Umq84NDIk6U' + 
	'zCaxztOceufIsmJhLUqudBEhyrCFCT9KDgVTJtQyRQ9DLTREywHR0XTXFFKV6mFLPBTFOzrUVVrJYcaMvDcBT7ZtAQxZ9dp1ZDFrNL9a1otE71vTj4sLX1wJXYDx0xa1' + 
	'PW8plkU+qNSSm5UD1fLtWVVV0/z3d65SVHjNVnSN4qRa8I2zNVQV5cNw2cw7LYWuNzWJh9NXRBqpYTirxWUuLF40quN4zjmPzZf8pSzjuC5LasZ03h1kwJg+XXs8TIRn' + 
	'ROGLPdVz38p921becZM/kd6xpfeIX06sx5PkGTaS86qUTMcdSxgObYHoLkZfXsW6HMWBO1mea5Xm+cz1i2yNEy7H7Q920qntcbYno6QOfM257lutladqG8zIhuVLLqWw' + 
	'WLSWrx/mOkr7mfEa5rac6/v058EmOd3pnt3WhNHK3ly9c0ZRvO85taXbhumm7tDW8cXK/J8Vvtj6pymDcG+rRZlR+G8TZPbtvr02KrlfIVHsvg11tm1eL4nj7d5EXpb0' + 
	'XS7pvXT810nSWnflsVl6+WR92MUrX2mhd7p/ccUw3dfJ29MXLvfYcix3MWNyVS9f1UTaX8NUYnscxbv8XoyyvhQr2FtOuXgtJ7iASztaMMyh88DXxwPfNA8n7Rl2PCgs' + 
	'wRFjv1ftGdI9B8Tmm/uOgE1OEaYGkrfgOd5GrhnxGvgYaR3JuoYtdfI8srEF4cQFSy0FJ8HXUQffqyFmEIXWwlLKyVZDGH2QpMowUicL4IxQgJBCGUDoIwaS2/Zj0W2l' + 
	'RcaRF6LUXYxRficiuLDzIfOndS6Zup53WLdiMWSJDj2RRMPnEE3qM4XuHdW9ZA8M3FrrQcpBiKSGtNhfArGQqmVBqnLmgKNL/UsNQem3GSsQo4I0LVHNiBvmrR2UoWuF' + 
	'0LG9Sji4759ENinvJlY22VzxpWywle8qWUtUWxnefD9vUIFiyUktL+AzMIntJiSlWT8oGXSZjfAuML5TNMlOAzOVSMHPrcmq5ua02ZsTbc9NpRqFl/w8eYeE3yn4PTnf' + 
	'2hqLkxUpzHmRAeGEfTWyoitFU9EOityxlpPufU/ZZz+lsmGM0046vbjcxJ/5PJ2FyndO+hyqpnM5njFRsUKDpw5ow5ovbAD4xkoWduIVD6RE2PkSt+EAXUUEPrGSlkYa' + 
	'WxgphGOlyyy3tGkQtudtNKR07ibAB9alJDs4YLTdOdQWiTPp0XijknZjVJp5U+i8uD6UAn5P+q1Aar1VeMcemzgVYRLqhWGsReEwzXm7Nys1aZvVqUdOAzlDKnVjrlXM' + 
	'vNVK7VZrvVivVYC7sFrpXQioPiVWCI6R8kJGSSEkJMAIqDe6/2PshZGA5AQ=');
	with Items do
	begin
		ToString := 'Icon 0[img=0]';
		Add('Icon 1',OleVariant(1),Null);
		Add('Icon Inside <img>3</img>',Null,Null);
	end;
	EndUpdate();
end
93
ImageSize property on 16 (specifies the size of control' icons/images)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	ImageSize := 16;
	Images('gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUHAgEP50nD/N87f58nz/Q1Bf5rolDoqJpD/PFLoxrf5sqD/IVTf8' + 
	'zqwAAtZBAHriOD9ffgJsQJq9ls1ntEtAYgEB/GgwGB+rlctNpCt3QDCvT/RF9f7DwETf6Fwj/P+HwTPxT/QmNf60yF8v11mgEA4KBYLPgjFAneSQTCPf5y0j/CoUCp5y' + 
	'mr1mrEQzGa9MamU2MPZ7f5PJxOfg73yBuYH1stCXFPa+5GDwqA5mCQ/Pf6O6T/bPVf7G7D/5iAwSM71Vmc1ywKsSBEIkEj8PCLQT/YLGZL/Z6VT7/cTebL/EQlEr88SE' + 
	'OHAMBI0GYXBcXpUlyXKlFqWp/m2aZpn+WZZFkf44Qwf7dt43wdkCA0QAMmcRIxEgARNExBFdFbtOa27cHFGJ/j9Gh/lvG7BGBHUWu4XcfH+RsgvAlTggVIxAg9JJ+DoP' + 
	'A7vkZZmH+ag/D+v4Dge8Btn+bhwnixhCDyf7igkP0BzM1YVTSXpnGUZTBDKURRH8ZEdzbNxxzwf5bT2nSeCxP5/htQQnAZQoHo0IFEnzDA4HyNNHnywhCny0g5H4O9MH' + 
	'+SNNn+TFPQvDLDyqN1SH+S1Tn+aFVKUphK1cf5A1jIYEghWo9ySD0lpy6r8ombpbGKf55gScCHA8Ch/iiBBJn+Igsn2f51HVCT+BG/zxTPbKWxCAwU28XZi3CwRznwfB' + 
	'/DiVBUH+bpkviXcFOUQp/zsf5rXsf7aNqKd9n+GN/B6jTvEYf5O4Kf6kESwRr4WwzDn9BUFonWJAn+SmLH/CsLE6TxPH+c50HQf5RFGUZ/nfk5/kflR/hWFYXn0LguC8' + 
	'f903UwSHn0fR+Ska5x3mZxyH+cpQEof5sEDgYEguhx4nkh0aDpMTizLbWqo0CesDyY+tsEf2vH8dR7nvZpQFAf5UmcZx/m8ahqH+WGSH+NqimGYhiH/u27vEQyWO2f5L' + 
	'8BHj3GCYJ/mbw/BY5jp88Zhsq8Jwp/H6fp/jINo2n+aJyaCaxznPKRynLWFOCQJAdH+HwfCUf4wjCOB/DKMo4n+55IH+NA0Dqf4jCMHJ/isLohn+IYpisf5lmwau1m50' + 
	'R4niectm5LQQ+pa6a6tbQB+1KubocfdoFiyIoGr5QUGWZZ/jMWZZn+WMIn+cxuG5o3zn+XV4AAgg9pZUR/1cJVwQ24BHXOy35nI+jBMTccvUb43x/haLgP8TIQQgj/E+' + 
	'Ep1Yozdj/E4E8J4/wesAF82UFw/1HgtVACof4JwTgjcqGQiQ/2liwFe7pkiDh6D1HqyYd45n4Dmh8RMO0Qx/mZAWHp7C2TxG4e6HpCrNEcBwHcO4f4X3Nj/CyN0brLF2' + 
	'vpfWhNhg3YBgGJqIR/hiBFRpH+phJxEy9DCjWplRg/1yj4gWHsn4qjkhtLEP8X5GB/jAkALuQAmiMD5I0E0JoABaI3Ia6UhoeokEPAmP9BoYR/gNAaQ0VQqjaw6js55z' + 
	'7oXRDylMP9zbQSxjzAFK1AESTWljSq16Swvxfj/CKMgZA/xfLiD/FMf4S4GwPHCOF9LoR/hbHAsUEbdlmmIAekYPr/Dmi4XgnEUR1BtDaH+OFGQoZwL4FOKcwQoxSCkH' + 
	'/J0VQ/2xNjCivwVQrxXmCDuT4eBGQGEsCIEQDg+TnwxAgP8XovWKBQCg7o6Qg2RCibNKZpzIGQjrokP8dlFYeDvH+qQNw/wMUdEbLA4ZYw8iuk6X9+oVIBD+GBLZ+A9B' + 
	'6MYHaO0pTIENIyC9RMMT8khiDIyQYlYgxJrMG3TEf41XPD/GKwwZM20pRAH+NOZAwBojRqfFcbNExdv1DAo8f4gjoDHcQIQpA7yXg7klDECo/12hshAD0EpRg5TsbGP+' + 
	'Wg/2QOfoqOxtY3hvN4mcyRkoWrBD/K+B8flIEBAGADK0QAnqSjNIeMSL4jZlsEGYlGW0txZIxH8Igh4U4r2KAC1Ql0HYPipX4KkKoVVOhDeEJmfY/oLurFAEsJbKQdOn' + 
	'E0EUIo/7a23E9BsQAXQuj/D6IOhQm7lD/Dzc2e6JQH3RCip4ERDwU0CoJA8LQOh/TnIbcgA8cQvj/Tw6JPDQW8j/nAKGKoX7xvUBCPxrAEw9PaAGA6xC2Q/B1d1A4hwz' + 
	'HGisMWIF+oUqmCAnkP4PB0xR2VAYVy0hLZDAAHyLiQ4tJDiwIwPwYkgBjkEOvIAZL2sQkNGRIAYcgBMhUCo2cWIsR/j5ZyYMoNz0TupB8p0TC8rkB5HQZkDov19hlSAI' + 
	'0JA/40kNNIQ1y5ThYCwFoP8MGUz9AiBEPy6IDzgFzvzSAAkrQhguN2M4GppB/AkAcA4QwcbkDyFfjMPLjSMiWAqiAN1iwBAKRGRlFAHgUAoEELt94vX3i3cQLRNo/xcN' + 
	'p0VowWriBjL3GsOkdKW5gB5OfjZEwCyMnCIwAIjWfwTj9QqMC9QoRbj/EkJK9jrZMZWyvlnLZdMu61Jjp4k4BwO5pECHNTA/QCIgB+mYIR/A9iyvcP8U9gxQ4sb/BhfF' + 
	'gxTBZCzerZwlXeD/FHQZmgUgpJACOEceGoETlWo6BgPQY91D/kkbgE27x5AR3kHxEOuNbb3QGSRbQQiMB/GLIAXkgBdSDkALngvAuCEN4MQ3DpDRJkY3GiUq19gEgd4s' + 
	'PzeQERHIhARvjfBFQfEr5CR0j5ISMkk30RkQBdSH8e5cgIgI');
	with Items do
	begin
		ToString := 'Icon 0[img=0]';
		Add('Icon 1',OleVariant(1),Null);
		Add('Icon Inside <img>3</img>',Null,Null);
	end;
	EndUpdate();
end
92
How can I displays items rotated (exDisplayRadialRotated90)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrow.png';
	SubItemsBackColor := RGB(190,190,190);
	ShadowColor := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	with Items do
	begin
		Add('Foreground','color_line.png',Null).Items.ToString := 'Foreground';
		Add('Background','color_fill.png',Null).Items.ToString := 'Background';
		Add('Font','format_font_size_less.png',Null).Items.ToString := 'Font';
		Add('Undo','edit_undo.png',Null).Items.ToString := 'Undo';
		Add('Redo','edit_redo.png',Null).Items.ToString := 'Redo';
		Add('Copy','edit_copy.png',Null).Items.ToString := 'Copy';
		Add('List','fileview_text.png',Null).Items.ToString := 'List';
		Add('Tag','checkmark_korganizer.png',Null).Items.ToString := 'Tag';
	end;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated90;
	EndUpdate();
end
91
How can I displays items rotated (exDisplayRadialRotated270)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrow.png';
	SubItemsBackColor := RGB(190,190,190);
	ShadowColor := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	with Items do
	begin
		Add('Foreground','color_line.png',Null).Items.ToString := 'Foreground';
		Add('Background','color_fill.png',Null).Items.ToString := 'Background';
		Add('Font','format_font_size_less.png',Null).Items.ToString := 'Font';
		Add('Undo','edit_undo.png',Null).Items.ToString := 'Undo';
		Add('Redo','edit_redo.png',Null).Items.ToString := 'Redo';
		Add('Copy','edit_copy.png',Null).Items.ToString := 'Copy';
		Add('List','fileview_text.png',Null).Items.ToString := 'List';
		Add('Tag','checkmark_korganizer.png',Null).Items.ToString := 'Tag';
	end;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated270;
	EndUpdate();
end
90
How can I displays items rotated (exDisplayRadialRotated180)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrow.png';
	SubItemsBackColor := RGB(190,190,190);
	ShadowColor := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	with Items do
	begin
		Add('Foreground','color_line.png',Null).Items.ToString := 'Foreground';
		Add('Background','color_fill.png',Null).Items.ToString := 'Background';
		Add('Font','format_font_size_less.png',Null).Items.ToString := 'Font';
		Add('Undo','edit_undo.png',Null).Items.ToString := 'Undo';
		Add('Redo','edit_redo.png',Null).Items.ToString := 'Redo';
		Add('Copy','edit_copy.png',Null).Items.ToString := 'Copy';
		Add('List','fileview_text.png',Null).Items.ToString := 'List';
		Add('Tag','checkmark_korganizer.png',Null).Items.ToString := 'Tag';
	end;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated180;
	EndUpdate();
end
89
How can I displays items rotated (exDisplayRadialRotated)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrow.png';
	SubItemsBackColor := RGB(190,190,190);
	ShadowColor := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	with Items do
	begin
		Add('Foreground','color_line.png',Null).Items.ToString := 'Foreground';
		Add('Background','color_fill.png',Null).Items.ToString := 'Background';
		Add('Font','format_font_size_less.png',Null).Items.ToString := 'Font';
		Add('Undo','edit_undo.png',Null).Items.ToString := 'Undo';
		Add('Redo','edit_redo.png',Null).Items.ToString := 'Redo';
		Add('Copy','edit_copy.png',Null).Items.ToString := 'Copy';
		Add('List','fileview_text.png',Null).Items.ToString := 'List';
		Add('Tag','checkmark_korganizer.png',Null).Items.ToString := 'Tag';
	end;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated;
	EndUpdate();
end
88
How do I load images to sub-items zone

with RadialMenu1 do
begin
	Expanded := True;
	SubItemsSize := '48*dpi';
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotItem] := $808080;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotSubItem] := $808080;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	with Items do
	begin
		with Add('',Null,Null) do
		begin
			Image[EXRADIALMENULib_TLB.exRadialItems] := 'favorites.png';
			Image[EXRADIALMENULib_TLB.exRadialSubItems] := 'download.png';
		end;
	end;
end
87
How can I display the control directly on the screen 

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'stock_mail_filters_apply.png';
	HTMLPicture['settings'] := 'settings.png';
	HTMLPicture['hard'] := 'download.png';
	HTMLPicture['favorites'] := 'favorites.png';
	HTMLPicture['remove'] := 'remove.png';
	HTMLPicture['refresh'] := 'refresh.png';
	HTMLPicture['synchronize'] := 'synchronize.png';
	HTMLPicture['preview'] := 'preview.png';
	HTMLPicture['search'] := 'search.png';
	ToString := 'Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>Appl' + 
	'ication[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)';
	Expanded := True;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated270;
	BackgroundPicture := 'Background\frontc.png';
	SubItemsBackColor := $ffffffff;
	SubItemsSize := '18 * dpi';
	EndUpdate();
	Float := True;
end
86
How do I add a radial-slider control

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	InflateCustom := InflateItems;
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialCustomBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialCustomBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialCustomBorder] := 3;
	with Items do
	begin
		with Add('Slider',Null,Null) do
		begin
			BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
			BrowseCustom[EXRADIALMENULib_TLB.exRadialCustomSliderValue] := OleVariant(35);
		end;
	end;
	BrowseItem := (IUnknown(Items.Item['Slider']) as EXRADIALMENULib_TLB.Item);
end
85
How can I display a slider directly on the radial menu, with no items...

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	Expanded := True;
	InflateCustom := '-4 * dpi';
	RadialLineColor[EXRADIALMENULib_TLB.exRadialCustomBorder] := $0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialCustomBorder] := 3;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialCustomBorder] := 128;
	CustomPicture := 'Background\frame.png';
	with Root do
	begin
		BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
		BrowseCustom[EXRADIALMENULib_TLB.exRadialCustomSliderValue] := OleVariant(25);
	end;
	Refresh();
	EndUpdate();
end
84
How can I programatically browses for a new item

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	InflateCustom := InflateItems;
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialCustomBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialCustomBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialCustomBorder] := 3;
	with Items do
	begin
		with Add('Slider',Null,Null) do
		begin
			BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
		end;
	end;
	BrowseItem := (IUnknown(Items.Item['Slider']) as EXRADIALMENULib_TLB.Item);
end
83
How can I display the items rotated

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrow.png';
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated;
	DisplayCenter[EXRADIALMENULib_TLB.exRadialItems] := 0.05;
	EndUpdate();
end
82
Is it possible to display the arrow into the items section, and how I can change the default position

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrowu.png';
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	DisplayCenterArrow[EXRADIALMENULib_TLB.exRadialItems] := 0;
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	EndUpdate();
end
81
Can I display the arrow into the items section

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	EndUpdate();
end
80
How can I know if the cursor is hovering the center ring ( parent zone )
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.RadialMenu1MouseMove(ASender: TObject; Button : Smallint; Shift : Smallint; X : Integer; Y : Integer);
begin
	with RadialMenu1 do
	begin
		OutputDebugString( 'ParentOnPoint ' );
		OutputDebugString( ParentOnPoint[-1,-1] );
	end
end;

with RadialMenu1 do
begin
	Expanded := True;
end
79
How can I specify the size to display the images/pictures into the items

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ItemsImageHeight[EXRADIALMENULib_TLB.exRadialItems] := '64*dpi';
	ItemsImageWidth[EXRADIALMENULib_TLB.exRadialItems] := '64*dpi';
	with Items do
	begin
		Add('','color_line.png',Null);
		Add('','color_fill.png',Null);
		Add('','format_font_size_less.png',Null);
		Add('','edit_undo.png',Null);
		Add('','edit_redo.png',Null);
		Add('','edit_copy.png',Null);
		Add('','fileview_text.png',Null);
		Add('','checkmark_korganizer.png',Null);
	end;
	EndUpdate();
end
78
By default, the parent image is 32-pixels wide. Can I display it larger

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['logo'] := 'settings.png';
	ParentSize := '96 * dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '64*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '64*dpi';
	ParentCaption[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '<font ;14><c>System Settings</font><br><c>Surround';
	EndUpdate();
end
77
Is it possible to specify where to display the item's caption

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	Items.Item[OleVariant(0)].BackColor[EXRADIALMENULib_TLB.exRadialFullItems] := $f0f0f0;
	DisplayCenter[EXRADIALMENULib_TLB.exRadialItems] := 0.85;
	EndUpdate();
end
76
How can I disable browsing the items, or prevent displaying its children
with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	AllowBrowseItem := False;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	EndUpdate();
end
75
How do I get the item from the point
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.RadialMenu1MouseMove(ASender: TObject; Button : Smallint; Shift : Smallint; X : Integer; Y : Integer);
begin
	with RadialMenu1 do
	begin
		OutputDebugString( 'Full-Item: ' );
		OutputDebugString( ItemFromPoint[EXRADIALMENULib_TLB.exRadialFullItems,-1,-1]Caption[EXRADIALMENULib_TLB.exLayerCaptionBackColor] );
		OutputDebugString( 'Item: ' );
		OutputDebugString( ItemFromPoint[EXRADIALMENULib_TLB.exRadialItems,-1,-1]Caption[EXRADIALMENULib_TLB.exLayerCaptionBackColor] );
		OutputDebugString( 'SubItem: ' );
		OutputDebugString( ItemFromPoint[EXRADIALMENULib_TLB.exRadialSubItems,-1,-1]Caption[EXRADIALMENULib_TLB.exLayerCaptionForeColor] );
	end
end;

with RadialMenu1 do
begin
	Expanded := True;
	Items.ToString := 'Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[s' + 
	'cap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]';
end
74
How do I get the index of the pie from the point
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.RadialMenu1MouseMove(ASender: TObject; Button : Smallint; Shift : Smallint; X : Integer; Y : Integer);
begin
	with RadialMenu1 do
	begin
		OutputDebugString( 'Full-Index: ' );
		OutputDebugString( IndexFromPoint[EXRADIALMENULib_TLB.exRadialFullItems,-1,-1] );
		OutputDebugString( 'Index: ' );
		OutputDebugString( IndexFromPoint[EXRADIALMENULib_TLB.exRadialItems,-1,-1] );
		OutputDebugString( 'Sub-Index: ' );
		OutputDebugString( IndexFromPoint[EXRADIALMENULib_TLB.exRadialSubItems,-1,-1] );
	end
end;

with RadialMenu1 do
begin
	Expanded := True;
end
73
How can I select an item

// SelectItem event - Notifies once the user selects an item.
procedure TForm1.RadialMenu1SelectItem(ASender: TObject; Item : IItem);
begin
	// SelectedIndex(3) = Item.Index
end;

with RadialMenu1 do
begin
	BeginUpdate();
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialItems] := 32;
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialSubItems] := 128;
	SelForeColor[EXRADIALMENULib_TLB.exRadialFullItems] := $0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	SelectedIndex[EXRADIALMENULib_TLB.exRadialFullItems] := 0;
	EndUpdate();
end
72
How can I use the sub-items zone only

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['logo'] := 'settings.png';
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	SubItemsSize := '64 * dpi';
	ParentSize := 'value - 66 * dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '64*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '64*dpi';
	ParentCaption[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '<font ;14><c>System Settings</font><br><c>Surround';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := 0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotSubItem] := -1;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotSubItem] := $8000000d;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotSubItem] := 128;
	ItemsBackColor := SubItemsBackColor;
	with Items do
	begin
		Add('','color_line.png',OleVariant(2));
		Add('','color_fill.png',OleVariant(2));
		Add('','format_font_size_less.png',OleVariant(2));
		Add('','edit_undo.png',OleVariant(2));
		Add('','edit_redo.png',OleVariant(2));
		Add('','edit_copy.png',OleVariant(2));
		Add('','fileview_text.png',OleVariant(2));
		Add('','checkmark_korganizer.png',OleVariant(2));
	end;
	EndUpdate();
end
71
Is it possible to display all items with a different rotation angle

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	DisplayAngle := -7.5;
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ParentSize := '48 * dpi';
	ParentPicture := 'Background\frontb.png';
	ArrowImage := 'arrow.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	InflateParentPicture := '72 * dpi';
	EndUpdate();
end
70
How can I programatically advance / browse for the parent item (method 2)
// RClick event - Occurs once the user right clicks the control.
procedure TForm1.RadialMenu1RClick(ASender: TObject; );
begin
	with RadialMenu1 do
	begin
		BrowseItem := (IUnknown(BrowseItem.Parent) as _TLB.Object);
	end
end;

with RadialMenu1 do
begin
	Expanded := True;
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	with Items do
	begin
		with Add('Volume',Null,Null) do
		begin
			Caption[EXRADIALMENULib_TLB.exRadialSubItems] := 'slider';
			BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
		end;
		with Add('Item',Null,Null).Items do
		begin
			Add('Child 1',Null,Null);
			Add('Child 2',Null,Null);
		end;
	end;
end
69
How can I programatically advance / browse for the parent item (method 1)
// RClick event - Occurs once the user right clicks the control.
procedure TForm1.RadialMenu1RClick(ASender: TObject; );
begin
	with RadialMenu1 do
	begin
		GoBack();
	end
end;

with RadialMenu1 do
begin
	Expanded := True;
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	with Items do
	begin
		with Add('Volume',Null,Null) do
		begin
			Caption[EXRADIALMENULib_TLB.exRadialSubItems] := 'slider';
			BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
		end;
		with Add('Item',Null,Null).Items do
		begin
			Add('Child 1',Null,Null);
			Add('Child 2',Null,Null);
		end;
	end;
end
68
Can I display the pointer with a different angle

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := False;
	ParentSize := '36*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	PointerAngle := 12;
	EndUpdate();
end
67
How can I use the pointer (select sample)

// SelectItem event - Notifies once the user selects an item.
procedure TForm1.RadialMenu1SelectItem(ASender: TObject; Item : IItem);
begin
	// PointerIndex = Item.Index
	with RadialMenu1 do
	begin
		SelectedIndex[EXRADIALMENULib_TLB.exRadialFullItems] := PointerIndex;
	end
end;

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialItems] := 32;
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialSubItems] := 128;
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := False;
	SelForeColor[EXRADIALMENULib_TLB.exRadialFullItems] := $0;
	ParentSize := '36*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	PointerIndex := 0;
	SelectedIndex[EXRADIALMENULib_TLB.exRadialFullItems] := PointerIndex;
	EndUpdate();
end
66
How can I use the pointer (hot sample)

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	PointerIndex := -1;
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := True;
	SelBackAlpha[EXRADIALMENULib_TLB.exRadialFullItems] := 128;
	SelForeColor[EXRADIALMENULib_TLB.exRadialFullItems] := $0;
	ParentSize := '36*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '48*dpi';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := -1;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotParent] := 32;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $ffffffff;
	Expanded := True;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	EndUpdate();
end
65
Is it possible to apply the control's background picture on the parent zone too

with RadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	BackgroundPicture := 'Background\fronte.png';
	ForeColor := RGB(255,255,255);
	Expanded := True;
	ParentSize := '48 * dpi';
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated;
	DisplayCenter[EXRADIALMENULib_TLB.exRadialItems] := 0.23;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	ParentBackColor := $ffffffff;
	ExcludeParentFromItems := True;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := $0;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialParentBorder] := 128;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialItemsGridLines] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialItemsGridLines] := 128;
	EndUpdate();
end
64
Can I display the picture on the parent zone, a bit larger

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ParentSize := '48 * dpi';
	ParentPicture := 'Background\frontb.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	InflateParentPicture := '64 * dpi';
	EndUpdate();
end
63
Is it possible to assign a different background picture when displaying a slider/custom data

with RadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	Items.ToString := '[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	InflateCustom := '-4*dpi';
	CustomPicture := 'Background\frontb.png';
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
	end;
	BrowseItem := (IUnknown(Items.Item['Item 2']) as EXRADIALMENULib_TLB.Item);
end
62
How can I customize the custom part of the control, the inside ring/circle

with RadialMenu1 do
begin
	Expanded := True;
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	Items.ToString := '[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	InflateCustom := '-4*dpi';
	CustomBackColor := RGB(128,128,128);
	CustomBackAlpha := 128;
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
	end;
	BrowseItem := (IUnknown(Items.Item['Item 2']) as EXRADIALMENULib_TLB.Item);
end
61
How do I prevent expanding / collapsing the radial menu
with RadialMenu1 do
begin
	AllowToggleExpand := False;
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
	end;
end
60
Is it possible to change the parent's picture/image when expanding collapsing the radial menu

// BrowseItem event - Notifies once the user browses for a new item.
procedure TForm1.RadialMenu1BrowseItem(ASender: TObject; Item : IItem);
begin
	with RadialMenu1 do
	begin
		OutputDebugString( 'Current State: ' );
		OutputDebugString( State );
	end
end;

// SelectParent event - Occurs once the user clicks the parent of the item.
procedure TForm1.RadialMenu1SelectParent(ASender: TObject; );
begin
	with RadialMenu1 do
	begin
		OutputDebugString( 'Current State: ' );
		OutputDebugString( State );
	end
end;

with RadialMenu1 do
begin
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
	end;
	ParentImage[EXRADIALMENULib_TLB.exRadialMenuCollapsed] := 'format_font_size_less.png';
	ParentImage[EXRADIALMENULib_TLB.exRadialMenuExpandedNoItems] := 'fileview_text.png';
	ParentImage[EXRADIALMENULib_TLB.exRadialMenuExpandedRootItem] := 'edit_undo.png';
end
59
Is it possible to assign a different picture on the parent zone (center ring)

with RadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ParentSize := '48 * dpi';
	ParentPicture := 'Background\frontb.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
58
Is it possible to assign a different picture on the items zone (inner ring)

with RadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ItemsPicture := 'Background\frontc.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
57
How can I change the control's background picture

with RadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	BackgroundPicture := 'Background\fronta.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
56
How can I hide the line being shown around the item form the cursor

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := 0;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
55
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsChildren] := $0;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialItemsChildren] := 64;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialItemsChildren] := -1;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
54
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialSubItemsChildren] := $0;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialSubItemsChildren] := 64;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialSubItemsChildren] := -1;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
53
Is it possible to highlight the entire item, when cursor hovers it

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $0;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotFullItem] := 64;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := -1;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
52
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialHotFullItem] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := 3;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
51
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotSubItem] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialHotSubItem] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotSubItem] := 3;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
50
How can I change the border around the items zone, when cursor hovers it ( inner ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotItem] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialHotItem] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotItem] := 3;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
49
How can I change the border around the parent zone, when cursor hovers it ( center ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotParent] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialHotParent] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotParent] := 3;
end
48
How can I change the border around the items zone ( inner ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialItemsBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialItemsBorder] := 3;
end
47
How can I change the border around the parent zone ( center ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialParentBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialParentBorder] := 3;
end
46
How can I change the grid lines in the items zone ( inner ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialItemsGridLines] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialItemsGridLines] := 3;
end
45
How can I change the border around the slider / custom part of the control

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	InflateCustom := InflateItems;
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialCustomBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialCustomBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialCustomBorder] := 3;
	with Items do
	begin
		with Add('Slider',Null,Null) do
		begin
			BrowseType := EXRADIALMENULib_TLB.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib_TLB.exRadialCustomSlider;
		end;
	end;
	BrowseItem := (IUnknown(Items.Item['Slider']) as EXRADIALMENULib_TLB.Item);
end
44
How can I change the grid lines in the subitems zone ( outer ring )

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialSubItemsGridLines] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialSubItemsGridLines] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialSubItemsGridLines] := 3;
end
43
How can I change the border around the subitems (exRadialSubItemsBorder)

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialSubItemsBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialSubItemsBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialSubItemsBorder] := 3;
end
42
How can I change the border around the radial menu (exRadialBorder)

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := RGB(240,240,240);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialBorder] := $0;
	RadialLineStyle[EXRADIALMENULib_TLB.exRadialBorder] := EXRADIALMENULib_TLB.exRadialLineDot;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialBorder] := 3;
end
41
How can I customize the parent part of the control, the center ring/circle

with RadialMenu1 do
begin
	Expanded := True;
	Items.ToString := 'Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]';
	ParentSize := '48 * dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '78 * dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '78 * dpi';
	ParentBackColor := RGB(0,255,0);
	ParentBackAlpha := 128;
	ExcludeParentFromItems := True;
end
40
How can I prevent showing the arrow in the outer ring

with RadialMenu1 do
begin
	Expanded := True;
	ArrowImage := '';
	Items.ToString := 'Child(SubChild)';
end
39
Is it possible to change the default arrow, that items with children display (method 2)

with RadialMenu1 do
begin
	Expanded := True;
	HTMLPicture['pic1'] := 'gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJ' + 
	'ULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygX' + 
	'CccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI';
	ArrowImage := 'pic1';
	Items.ToString := 'Child(SubChild)';
end
38
Is it possible to change the default arrow, that items with children display (method 1)

with RadialMenu1 do
begin
	HTMLPicture['arrow'] := 'gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJ' + 
	'ULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT' + 
	'8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA==';
	Expanded := True;
	Items.ToString := 'Child(SubChild)';
end
37
How can I change the logo image

with RadialMenu1 do
begin
	HTMLPicture['logo'] := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png';
end
36
How can I customize the items part of the control, the inside ring/circle

with RadialMenu1 do
begin
	DisplayRadial[EXRADIALMENULib_TLB.exRadialFullItems] := EXRADIALMENULib_TLB.exDisplayRadialRotated;
	Expanded := True;
	Items.ToString := 'Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	InflateItems := '-4*dpi';
	ItemsBackColor := RGB(0,255,0);
	ItemsBackAlpha := 128;
end
35
How can I customize the subitems part of the control, the outside ring/circle

with RadialMenu1 do
begin
	Expanded := True;
	Items.ToString := '[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	SubItemsSize := '48 * dpi';
	SubItemsBackColor := RGB(0,255,0);
	SubItemsBackAlpha := 128;
end
34
Can I expand/shrink the radial menu relative to its border/shadow

with RadialMenu1 do
begin
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	InflateRadialMenu := '-6*dpi';
end
33
Is it possible to remove/hive the control's shadow

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
end
32
How do I change the color of the control's shadow

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := RGB(255,0,0);
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
end
31
How can I evaluate/format an expression using the control

with RadialMenu1 do
begin
	AllowToggleExpand := False;
	DisplayAngle := -66;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	Caption[EXRADIALMENULib_TLB.exLayerCaption] := FormatABC('`The number of items is: <b>` + value',Items.Count,Null,Null);
end
30
Is it possible to display some extra captions on the control's background

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	Caption[EXRADIALMENULib_TLB.exLayerCaption] := 'This is a caption to be displayed on the control''s background.';
	ExtraCaption['extra',EXRADIALMENULib_TLB.exLayerCaption] := 'This is an extra caption to be displayed on the control''s background.';
	ExtraCaption['extra',EXRADIALMENULib_TLB.exLayerCaptionAnchor] := OleVariant(2);
	ExtraCaption['extra',EXRADIALMENULib_TLB.exLayerCaptionWordWrap] := OleVariant(True);
	ExtraCaption['extralogo',EXRADIALMENULib_TLB.exLayerCaption] := '<img>logo:64</img>';
	ExtraCaption['extralogo',EXRADIALMENULib_TLB.exLayerCaptionAnchor] := OleVariant(4);
	ExtraCaption['extralogo',EXRADIALMENULib_TLB.exLayerCaptionLeft] := 'width-twidth';
	EndUpdate();
end
29
What events the control supports
// Event event - Notifies the application once the control fires an event.
procedure TForm1.RadialMenu1Event(ASender: TObject; EventID : Integer);
begin
	with RadialMenu1 do
	begin
		OutputDebugString( EventParam[-2] );
	end
end;

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	EndUpdate();
end
28
How can I use/load images/pictures

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['relative'] := 'settings.png';
	HTMLPicture['absolute'] := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png';
	HTMLPicture['encoded'] := 'gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5' + 
	'yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLc' + 
	'AubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQ' + 
	'nWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8F' + 
	'IXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh' + 
	'+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ' + 
	'9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFG' + 
	'KwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/' + 
	'nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZoc' + 
	'wbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6' + 
	'IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABF' + 
	'hTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcE' + 
	'AMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGD' + 
	'MJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVR' + 
	'qiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8' + 
	'PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DF' + 
	'FwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgW' + 
	'QzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=';
	BackgroundPicture := 'Background\frame.png';
	with Items do
	begin
		Add('Relative 1','relative',Null);
		Add('Relative 1',Null,Null).Image[EXRADIALMENULib_TLB.exRadialItems] := 'settings.png';
		Add('Aboslute 1','absolute',Null);
		Add('Aboslute 2','favorites.png',Null);
		Add('Encoded 1','encoded',Null);
		Add('Encoded 2',Null,Null).Image[EXRADIALMENULib_TLB.exRadialItems] := 'gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5' + 
	'yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLc' + 
	'AubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQ' + 
	'nWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8F' + 
	'IXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh' + 
	'+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ' + 
	'9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFG' + 
	'KwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/' + 
	'nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZoc' + 
	'wbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6' + 
	'IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABF' + 
	'hTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcE' + 
	'AMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGD' + 
	'MJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVR' + 
	'qiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8' + 
	'PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DF' + 
	'FwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgW' + 
	'QzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=';
		Add('<c><img>relative</img><br><c>Relative 3',Null,Null);
		Add('<c>Relative 4<br><c><img>relative</img>','relative',Null);
	end;
	EndUpdate();
end
27
Does your control supports tooltips (method 2)

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.RadialMenu1MouseMove(ASender: TObject; Button : Smallint; Shift : Smallint; X : Integer; Y : Integer);
begin
	with RadialMenu1 do
	begin
		ShowToolTip(FormatABC('`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )',OleVariant(IndexFromPoint[EXRADIALMENULib_TLB.exRadialFullItems,-1,-1]),Null,Null),'Info',OleVariant(0),'8','8');
	end
end;

with RadialMenu1 do
begin
	BeginUpdate();
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0';
		Add('Item 1',Null,Null);
		Add('Item 2',Null,Null);
	end;
	EndUpdate();
end
26
Can I change the visual appearance of the control's tooltip

with RadialMenu1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXRADIALMENULib_TLB.exToolTipAppearance] := $1000000;
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0[ttp=tooltip''s item][sttp=tooltip''s subitem]';
		Add('Item 1',Null,Null).Tooltip[EXRADIALMENULib_TLB.exRadialItems] := 'This is a bit of text that shown when user <b>hovers</b> the item';
		with Add('Item 2',Null,Null) do
		begin
			Tooltip[EXRADIALMENULib_TLB.exRadialItems] := 'This is a bit of text that shown when user hovers the item';
			Tooltip[EXRADIALMENULib_TLB.exRadialSubItems] := 'This is a bit of text that shown when user hovers the sub-item';
		end;
	end;
	EndUpdate();
end
25
Does your control supports tooltips (method 1)

with RadialMenu1 do
begin
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0[ttp=tooltip''s item][sttp=tooltip''s subitem]';
		Add('Item 1',Null,Null).Tooltip[EXRADIALMENULib_TLB.exRadialItems] := 'This is a bit of text that shown when user <b>hovers</b> the item';
		with Add('Item 2',Null,Null) do
		begin
			Tooltip[EXRADIALMENULib_TLB.exRadialItems] := 'This is a bit of text that shown when user hovers the item';
			Tooltip[EXRADIALMENULib_TLB.exRadialSubItems] := 'This is a bit of text that shown when user hovers the sub-item';
		end;
	end;
end
24
How can I use/load icons

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons';
	Images('copy.ico');
	Images('C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico');
	Images('gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTql' + 
	'Vq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbHY' + 
	'ul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z/' + 
	'qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/luW' + 
	'5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclAH' + 
	'+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwea' + 
	'1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIlk' + 
	'Ip/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZb' + 
	'h6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8l' + 
	'fmI6j6Q72AF4oyQDBIf5N6IC');
	HTMLPicture['icon'] := 'download.ico';
	with Items do
	begin
		ToString := 'Icon 0[img=0]';
		Add('Icon 1',OleVariant(1),Null);
		Add('Icon 2','print.ico',Null);
		Add('Icon 3',Null,Null).Image[EXRADIALMENULib_TLB.exRadialSubItems] := 'icon';
	end;
	EndUpdate();
end
23
How can I load items /images to the control, in sub-items zone

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['logo'] := 'settings.png';
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	SubItemsSize := '64 * dpi';
	ParentSize := 'value - 66 * dpi';
	ParentImageWidth[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '64*dpi';
	ParentImageHeight[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '64*dpi';
	ParentCaption[EXRADIALMENULib_TLB.exRadialMenuStateAll] := '<font ;14><c>System Settings</font><br><c>Surround';
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := 0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotSubItem] := -1;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotSubItem] := $8000000d;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotSubItem] := 128;
	ItemsBackColor := SubItemsBackColor;
	with Items do
	begin
		Add('','color_line.png',OleVariant(2));
		Add('','color_fill.png',OleVariant(2));
		Add('','format_font_size_less.png',OleVariant(2));
		Add('','edit_undo.png',OleVariant(2));
		Add('','edit_redo.png',OleVariant(2));
		Add('','edit_copy.png',OleVariant(2));
		Add('','fileview_text.png',OleVariant(2));
		Add('','checkmark_korganizer.png',OleVariant(2));
	end;
	EndUpdate();
end
22
How can I load items /images to the control

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['arrow'] := 'arrow.png';
	SubItemsBackColor := RGB(190,190,190);
	ShadowColor := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
	with Items do
	begin
		Add('Foreground-Color','color_line.png',Null).Items.ToString := 'Foreground';
		Add('Background-Color','color_fill.png',Null).Items.ToString := 'Background';
		Add('Font','format_font_size_less.png',Null).Items.ToString := 'Font';
		Add('Undo','edit_undo.png',Null).Items.ToString := 'Undo';
		Add('Redo','edit_redo.png',Null).Items.ToString := 'Redo';
		Add('Copy','edit_copy.png',Null).Items.ToString := 'Copy';
		Add('List','fileview_text.png',Null).Items.ToString := 'List';
		Add('Tag','checkmark_korganizer.png',Null).Items.ToString := 'Tag';
	end;
	EndUpdate();
end
21
How can I load items to the control

with RadialMenu1 do
begin
	BeginUpdate();
	MinVisibleCount := 3;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	HTMLPicture['remove'] := 'remove.png';
	HTMLPicture['refresh'] := 'refresh.png';
	HTMLPicture['preview'] := 'preview.png';
	HTMLPicture['search'] := 'search.png';
	with Items do
	begin
		with Add('Search','search',Null).Items do
		begin
			ToString := 'Search A,Search B,Search C';
		end;
		Add('Refresh','refresh',Null);
		Add('Preview','preview',Null);
		Add('Remove','remove',Null);
	end;
	Expanded := True;
	EndUpdate();
end
20
How do I get the version of the control I am running

with RadialMenu1 do
begin
	OutputDebugString( 'Version:' );
	OutputDebugString( Version );
end
19
How do I select an item

// SelectItem event - Notifies once the user selects an item.
procedure TForm1.RadialMenu1SelectItem(ASender: TObject; Item : IItem);
begin
	// SelectedIndex(3) =  Item.Index
	with RadialMenu1 do
	begin
		OutputDebugString( 'selection changed' );
	end
end;

with RadialMenu1 do
begin
	AllowToggleExpand := False;
	ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	SelectedIndex[EXRADIALMENULib_TLB.exRadialFullItems] := 0;
end
18
How can I change the item's foreground color (sample 3)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Font.Size := '14.25';
	with Items do
	begin
		with Add('Item 1',Null,Null) do
		begin
			Name := '<fgcolor FF0000>Item</fgcolor> 1';
			with Items do
			begin
				Add('SubItem 1',Null,Null);
				Add('SubItem 2',Null,Null);
			end;
		end;
		Add('Item 2',Null,Null);
		Add('Item 3',Null,Null);
		Add('Item 4',Null,Null);
		Add('Item 5',Null,Null);
		Add('Item 6',Null,Null);
	end;
	EndUpdate();
end
17
How can I change the item's foreground color (sample 2)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Font.Size := '14.25';
	with Items do
	begin
		with Add('Item 1',Null,Null) do
		begin
			ForeColor[EXRADIALMENULib_TLB.exRadialItems] := $ff;
			with Items do
			begin
				Add('SubItem 1',Null,Null);
				Add('SubItem 2',Null,Null);
			end;
		end;
		Add('Item 2',Null,Null);
		Add('Item 3',Null,Null);
		Add('Item 4',Null,Null);
		Add('Item 5',Null,Null);
		Add('Item 6',Null,Null);
	end;
	EndUpdate();
end
16
How can I change the item's foreground color (sample 1)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Font.Size := '14.25';
	ForeColor := RGB(255,0,0);
	with Items do
	begin
		with Add('Item 1',Null,Null).Items do
		begin
			Add('SubItem 1',Null,Null);
			Add('SubItem 2',Null,Null);
		end;
		Add('Item 2',Null,Null);
		Add('Item 3',Null,Null);
		Add('Item 4',Null,Null);
		Add('Item 5',Null,Null);
		Add('Item 6',Null,Null);
	end;
	EndUpdate();
end
15
How can I add new items / childrend to the control (method 2)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	with Items do
	begin
		with Add('Item 1',Null,Null).Items do
		begin
			Add('SubItem 1',Null,Null);
			Add('SubItem 2',Null,Null);
		end;
		Add('Item 2',Null,Null);
		Add('Item 3',Null,Null);
		Add('Item 4',Null,Null);
		Add('Item 5',Null,Null);
		Add('Item 6',Null,Null);
		Add('Item 7',Null,Null);
		Add('Item 8',Null,Null);
	end;
	EndUpdate();
end
14
How can I add new items / childrend to the control (method 1)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	ToString := 'Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	EndUpdate();
end
13
How do I enlarge the font (method 2)

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	MinVisibleCount := 4;
	ToString := 'Item 1,Item 2,Item 3,Item 4';
	Items.Item[OleVariant(0)].Name := '<font ;14>Item 1';
	EndUpdate();
end
12
How do I enlarge the font (method 1)

with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	MinVisibleCount := 4;
	ToString := 'Item 1,Item 2,Item 3,Item 4';
	Font.Size := '14.25';
	EndUpdate();
end
11
How can I expand the control (method 2)
with RadialMenu1 do
begin
	AllowToggleExpand := False;
end
10
How can I expand the control (method 1)
with RadialMenu1 do
begin
	Expanded := True;
end
9
By default, the control displays 8-pies. How can I change that

with RadialMenu1 do
begin
	Expanded := True;
	MinVisibleCount := 3;
end
8
How can I prevents expanding / collapsing the radial menu
with RadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	Caption[EXRADIALMENULib_TLB.exLayerCaption] := 'Cant expand/collapse the radial menu';
	Caption[EXRADIALMENULib_TLB.exLayerCaptionAnchor] := OleVariant(0);
	Caption[EXRADIALMENULib_TLB.exLayerCaptionLeft] := 'width-twidth';
	Caption[EXRADIALMENULib_TLB.exLayerCaptionTop] := 'height-theight';
	EndUpdate();
end
7
How can I prevent flickering the item, when user selects it
with RadialMenu1 do
begin
	AllowToggleExpand := False;
	ToString := '<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	Items.Item[OleVariant(0)].BrowseType := EXRADIALMENULib_TLB.BrowseItemEnum($fffffffc Or Integer(EXRADIALMENULib_TLB.exBrowseItemCustom) Or Integer(EXRADIALMENULib_TLB.exBrowseItemChild));
end
6
How do I highlight the sub-item zone when cursor hovers it (method 2)

with RadialMenu1 do
begin
	Expanded := True;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := FormatABC(SubItemsSize,Null,Null,Null);
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $8000000d;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotFullItem] := 64;
	with Items do
	begin
		Add('Item A',Null,Null);
		Add('Item B',Null,Null);
		Add('Item C',Null,Null);
	end;
end
5
How do I highlight the sub-item zone when cursor hovers it (method 1)

with RadialMenu1 do
begin
	Expanded := True;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := 0;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotSubItem] := -1;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotSubItem] := $8000000d;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotSubItem] := 64;
	with Items do
	begin
		Add('Item A',Null,Null);
		Add('Item B',Null,Null);
		Add('Item C',Null,Null);
	end;
end
4
Is it possible to highlight the entire item when cursor hovers the item

with RadialMenu1 do
begin
	Expanded := True;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := -1;
	RadialLineColor[EXRADIALMENULib_TLB.exRadialHotFullItem] := $8000000d;
	RadialLineAlpha[EXRADIALMENULib_TLB.exRadialHotFullItem] := 64;
	with Items do
	begin
		Add('Item A',Null,Null);
		Add('Item B',Null,Null);
		Add('Item C',Null,Null);
	end;
end
3
How can I hide the hot line when hovering the cursor
with RadialMenu1 do
begin
	AllowToggleExpand := False;
	RadialLineSize[EXRADIALMENULib_TLB.exRadialHotFullItem] := 0;
	with Items do
	begin
		Add('Item A',Null,Null);
		Add('Item B',Null,Null);
		Add('Item C',Null,Null);
	end;
end
2
How can I hide the control's shadow

with RadialMenu1 do
begin
	Expanded := True;
	ShadowColor := $ffffffff;
end
1
How do I change the control's background color
with RadialMenu1 do
begin
	BackColor := RGB(240,240,249);
end