Habs selber geschafft... jedenfalls fast:
Delphi-Quellcode:
procedure TtfWV.ZuknftigeWV1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
var
BRect : TRect;
AColor : TColor;
AText : String;
begin
AText := (Sender as TMenuItem).Caption;
AText:=Copy(Atext,2,Length(Atext)-2);
AColor:=ACanvas.Brush.Color;
BRect:=Rect(ARect.Left,ARect.Top,ARect.Left+MENUITEMHEIGHT,ARect.Top+MENUITEMHEIGHT);
ACanvas.Brush.Color:=USEDCOLOR;
ACanvas.FillRect(BRect);
ACanvas.Brush.Color:=AColor;
ACanvas.TextOut(ARect.Left+MENUITEMHEIGHT+3,ARect.Top,AText);
ACanvas.Refresh;
end;
allerdings wird mir als Caption die alte Caption mit nem "&" Zeichen gezeigt
EDIT: Text funzt au. Hab im Original einfach en Buchstaben drangehängt, damit die Breite des DropDown Menüs ausreicht.