PopUpMenu Farbe ändern

[Andidreas]

Hallo zusammen,

wenn ich bei einem PopUpMenu die Farbe ändern möchte, muss ich ja beim PopUpMenu die Option "OwnerDraw" auf True setzen und anschließend je Menü Item die Farbe ändern, z.B. so:

Delphi-Quellcode:

procedure TPST_main_form.popupmen_administration_maintenance_viewdata_plantsDrawItem(
          Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);

var
sCaption  : String;
rect      : TRect;

begin
  sCaption := (Sender as TMenuItem).Caption;

  With ACanvas Do
  Begin
    Brush.Color := $00FCDBC1;
    FillRect(ARect);
    rect := ARect;
    rect.Left := rect.Left + 5;
    DrawText(Handle, PChar(sCaption), Length(sCaption), rect, DT_SINGLELINE or DT_VCENTER);
  end;

end;

Gibt es auch eine Möglichkeit das ganze Global für das ganze PopUpMenu zu machen und nicht für jedes Item?

Edit: Ich benutze nicht Delphi Version 5 sondern das RAD XE Studio...