//调整主菜单项尺寸
　　procedure measuremainitem(sender: tobject; acanvas: tcanvas; var width, height: integer);
　　begin
　　width := width + 6;
　　height := height + 2;
　　end;

　　//调整子菜单项尺寸
　　procedure measuresubitem(sender: tobject; acanvas: tcanvas; var width, height: integer);
　　begin
　　width := width + 20;
　　height := height + 2;
　　end;

　　//绘制主菜单内容
　　procedure drawmainitem(sender: tobject; acanvas: tcanvas; arect: trect; state: townerdrawstate);
　　const
　　mainmenubackcolor      : tcolor = $deedef;
　　mainmenubordercolor    : tcolor = $deedef;
　　mainmenuselectedbackcolor  : tcolor = $dfa988;
　　mainmenuselectedbordercolor: tcolor = $c08000;
　　mainmenuhotlightbackcolor  : tcolor = $deedef;
　　mainmenuhotlightbordercolor: tcolor = $800080;
　　mainmenugrayedbackcolor  : tcolor = $deedef;
　　var
　　brushcolor, pencolor: tcolor;
　　textrect: trect;
　　begin
　　if odgrayed in state then
　　begin
　　brushcolor := mainmenugrayedbackcolor;
　　pencolor := mainmenugrayedbackcolor;
　　end
　　else
　　if odhotlight in state then
　　begin   //鼠标划过
　　brushcolor := mainmenuhotlightbackcolor;
　　pencolor := mainmenuhotlightbordercolor;
　　end