Farbe eine PopUpMenu ändern

[Sharky]

Zitat von eddy:

... der Nutzer, um den es hier konkret geht, ist nicht mehr der jüngste und hat so seine Schwierigkeiten mit dem Lesen der Bildschirmausschriften ...

Hai eddy,

alles klar. Also dann doch einfärben.

Hier mal ein etwas angepasstest Beispiel.

Delphi-Quellcode:

procedure TForm1.Vier1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: boolean);
var
  mycaption: string;
  myrect: TRect;
begin
  mycaption := (Sender as TMenuItem).Caption;
  with ACanvas do
  begin
    if (Selected) then
    begin
      Brush.Color := clgreen;
    end
    else
    begin
      Brush.Color := clRed;
    end;
    FillRect(ARect);
    myRect := ARect;
    myRect.Left := myRect.Left + 5;
    DrawText(Handle, PChar(mycaption), Length(mycaption),
      myRect, DT_SINGLELINE or DT_VCENTER);
  end;
end;

Einfach allen Einträgen des PopUpMenüs das selbe OnDrawItem zuweisen und *blubb*