怎样自己画一个菜单项？(50分)

怎样自己控制一个菜单项的显示，OnMeasureItem和OnDrawItem这两个触发事件要怎样写，最好能提供实例，谢谢！！！

设置OwnerDraw := true;
写OnDrawItem事件
procedure DrawItem(Sender: TObject;
ACanvas: TCanvas;
ARect: TRect;
Selected: Boolean);
begin
ACanvas.FillRect(ARect);
//调用TCanvas的画图，画字方法在ARect范围内画你想要的东西
//ACanvas.TextOut
//ACanvas.Draw

end;