PoupMenu.Items Icons wenn das Item deaktiviert ist

[thomas2009]

Hallo

ich habe ein Problem wenn ich Popupmenu Items deaktiviere
Die Icon sehen damit schrecklich aus

kann man irgendwie den Text ohne das Icon deaktivieren?
Oder ein Icon für das Item, wenn es deaktiviert ist, zuweisen
Bei BitBtn Buttons kann man über (Spacing) bis 4 Icons zuweisen
eines wenn das Bitbtn aktiv ist
eines wenn das bitbtn deaktiviert ist
...

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if Edit1.Text='0' then begin
PopupMenu1.Items[0].Enabled:=False;
PopupMenu1.Items[1].Enabled:=False; end else begin
PopupMenu1.Items[0].Enabled:=True;
PopupMenu1.Items[1].Enabled:=True; end;
end;