Was meinst du mit Pen-Farbe (Pen=Stift), willst du die Textfarbe oder den Hintergrund verändern?
Delphi-Quellcode:
//..
Mainmenue1.OwnerDraw := True;
//..
procedure TForm1.TestMenueDrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
acanvas.brush.Color := clyellow;
settextcolor(acanvas.Handle, clred);
acanvas.textrect(arect,arect.left+2,arect.Top+2,(Sender as Tmenuitem).Caption);
end;