procedure TForm1.MenuItemDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
var
s: string;
begin
ACanvas.Font.size:= 10;
ACanvas.Font.Style:= [fsBold];
s:= StringReplace(TMenuItem(Sender).Caption,'&','',[rfReplaceAll]);
ACanvas.TextOut(ARect.Left,ARect.Top,s);
end;
procedure TForm1.MenuItemMeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
var
s: string;
begin
ACanvas.Font.size:= 10;
ACanvas.Font.Style:= [fsBold];
s:= StringReplace(TMenuItem(Sender).Caption,'&','',[rfReplaceAll]);
Width:= ACanvas.TextWidth(s);
Height:= ACanvas.TextHeight(s);
end;