TMenuItem: Checked wird nicht dargestellt

[blauweiss]

Hi Garfield,

ok, ich habs jetzt so gemacht wie du vorgeschlagen hast: In der Menus.pas in der Methode AdvancedDrawItem hat Borland in der BDS 2006 Version (oder davor, egal) eine boolsche Variable WinXP eingeführt:

Delphi-Quellcode:

          { Draw background pattern brush if selected }
          if Checked and not WinXP then

"and not WinXP" ausgeklammert, Menus.pas neu kompiliert und es tut was ich will !

Danke an euch alle !

blauweiss

p.s. @Mods: wie kann ich offene Frage als beantwortet markieren ?

[edit] habs gefunden (offene Frage als beantwortet), Tomaten auf den Augen.... [/edit]

[Mithrandir]

Zitat von blauweiss:

p.s. @Mods: wie kann ich offene Frage als beantwortet markieren ?

Kein-Mod: Das kannst du nur, wenn du die Frage am Anfang auch als "Offen" markiert hast. Haste nicht. Also alles so lassen, wie es ist...

[Garfield]

Zitat von blauweiss:

"and not WinXP" ausgeklammert, Menus.pas neu kompiliert und es tut was ich will !

Das WinXP ist mir auch schon aufgefallen. Allerdings dachte ich das wäre wegen der Themes...

Schön, dass Dein Problem gelöst ist.

Zitat von Daniel G:

Haste nicht. Also alles so lassen, wie es ist...

Vor ein paar Minuten stand oben noch "Offene von blauweiss".

[Mithrandir]

Zitat von Garfield:

Zitat von Daniel G:

Haste nicht. Also alles so lassen, wie es ist...

Vor ein paar Minuten stand oben noch "Offene von blauweiss".

Ach Mensch...

[Geronimo]

Das Thema ist zwar schon alt, aber vielleicht kann es ja jemand gebrauchen.
Mein Ansatz wäre den Checked-Haken in der Caption nachzubilden.

Gruß
Geronimo

Code:

procedure TMenuItem.SetChecked(Value: Boolean);
begin
  //Orginal Code from VCL

  if FChecked then Caption := Caption + ' ✓'
  else
    Caption := StringReplace(Caption,' ✓','',[rfReplaceall]);
  end;
end;