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 ! :angel2:

Danke an euch alle !

blauweiss

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

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

[Mithrandir]

Zitat:

Zitat von blauweiss

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

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

[Garfield]

Zitat:

Zitat von blauweiss

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

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

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

Zitat:

Zitat von Daniel G

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

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

[Mithrandir]

Zitat:

Zitat von Garfield

Zitat:

Zitat von Daniel G

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

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

Ach Mensch... :oops:

[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;