//调整主菜单项尺寸
　　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

　　else
　　if odSelected in State then
　　begin
　　BrushColor := MainMenuSelectedBackColor;
　　PenColor := MainMenuSelectedBorderColor;
　　end
　　else
　　begin
　　BrushColor := MainMenuBackColor;
　　PenColor := MainMenuBackColor;
　　if TMenuItem(Sender).Caption = '帮助(&H)' then ARect.Right := ARect.Right + 1600;
　　end;
　　ACanvas.Brush.Color := BrushColor;
　　ACanvas.Pen.Color := PenColor;
　　//ACanvas.FillRect(ARect);
　　ACAnvas.Rectangle(ARect);
　　ACanvas.Brush.Style := bsClear;
　　//绘出文字
　　if odGrayed in State then
　　ACanvas.Font.Color := clBtnShadow
　　else
　　ACanvas.Font.Color := clBlack;
　　SetRect(TextRect, ARect.left+10, ARect.top+3, ARect.right, ARect.bottom);
　　DrawText(ACanvas.Handle, PChar(TMenuItem(Sender).Caption), Length(TMenuItem(Sender).Caption),
　　TextRect, DT_LEFT);
　　end;

　　//绘制子菜单内容
　　procedure DrawSubItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
　　const
　　SubMenuBackColor      : TColor = $F7F8F9;
　　SubMenuBorderColor    : TColor = $DEEDEF;
　　SubMenuSelectedBackColor  : TColor = $EED2C1;
　　SubMenuSelectedBorderColor: TColor = $C08000;
　　SubMenuLineColor      : TColor = $C8D0D4;
　　//SubMenuHotLightBorderColor: TColor = $C08000;
　　SubMenuGrayedBackColor  : TColor = $F7F8F9;//$DEEDEF;
　　var
　　BrushColor, PenColor: TColor;
　　TextRect: TRECT;
　　str: String;
　　ImageList: TCustomImageList;
　　begin
　　if (odGrayed in State) and not(TMenuItem(Sender).IsLine) then
　　begin
　　BrushColor := SubMenuGrayedBackColor;
　　{if odSelected in State then
　　PenColor := SubMenuSelectedBorderColor
　　else}