Pen Color für MainMenu DrawItem

[Nils_13]

Hi,

wie ändere ich die Pen-Farbe von dem DrawItem des MainMenus ab ?

[turboPASCAL]

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;