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...

[Bernhard Geyer]

Ab XE2 gäbe es Themes dafür.

Davor könntest du schauen wie andere Kompos wie XPMenu das machen.

[Andidreas]

Zitat von Bernhard Geyer:

Ab XE2 gäbe es Themes dafür.

Wie gut das XE2 schon gekauft ist ich aber keine Zeit zum Installieren hab...
Mal ne OT Frage hierzu, gibt es Probleme XE Entwicklungen auf XE2 rüberzunehmen (Entwicklungen die von 2007 in XE übernommen wurden, wurden ja vom RAD XE Studio irgendwie geändert)?