TMainMenu/TMenuItem problem mit Vcl.Themes

[KodeZwerg]

Zitat von Delphi.Narium:

Zitat von KodeZwerg:

Danke Delphi.Narium, recht hast Du, wozu ein "If" wenn es auch ohne geht

Bei dem If fehlte aber auch die Else. Checked hätte eigentlich bei allen Items, bei denen das If nicht zutraf, auf false gesetzt werden müssen
Checked und Co. arbeiten nun mal halt als Flipflop. Klick = If Checked then Not Checked else Checked.
Klick <> ich bin nicht gechecked und werde durch Klick gecheckt und damit alle anderen ungechecked

Schau doch mal den Original-Code in Post #1 an, da war es halt an anderer Stelle definiert, nur eben kein FlipFlop sondern ein "es kann nur einen geben" was aber wohl falsch so sei.

Zitat von Delphi.Narium:

Es könnte sein, dass Dir der GroupIndex dort gewaltig zwischenfunkt.
Setze den mal bei allen auf -1 (oder sonstwas < 0) und dann eine Ereignisroutine auf's Klick, die beim Geklickten Checked setzt (und alles damit zusammenhängende veranlasst) und bei allen anderen entfernt.

Werde ich gerne testen! Hand aufs Herz!

Zitat von Delphi.Narium:

Zitat von KodeZwerg:

Sollte man diesen Bug melden oder ist der bereits bekannt?

Ist kein Bug sondern defniniertes Verhalten.

Damit meinte ich nicht das Verhalten was passiert wenn man im Menu was klickt, darauf habe ich ja mit normalen Bordmitteln Zugriff (zur Zeit halt nicht für mich zufriedenstellend aber daran arbeite ich noch), sondern das was ich die ganze Zeit bereits als Bug empfinde.

Sprich:
Menu malt sich nach einem wechsel des Styles Oberhalb der Form, wenn Oberhalb kein Platz ist schließt sich das Menu automatisch ohne das man es mit der Maus bedienen kann.

Zitat von himitsu:

Oberhalb des Buttons ist per se nicht "falsch",
aber auch bei normalen Popups wundere ich mich manchmal.

Selbst wenn es nicht abnormal wäre das sich ein MainMenu Oberhalb zeichnet und nicht wie üblich unter dem Menupunkt, so verschiebt die Windows Logik solche Fenster an eine Stelle wo sie Platz haben.
Auch bei Hints geht Windows so vor ohne das ich mich selbst in die Tiefen des Paint-Events(?) rein buddeln muss.

Zum testen des ganzen ist ja der Code da, in Projekt-Optionen einfach alle Styles anhaken, fertig.



Danke schonmal für Euer Feedback Delphi.Narium und himitsu



Und zum Bug melden bin ich absolut ungeeignet falls dies ein Bug sein sollte.
Ich wüsste nicht wie ich es besser beschreiben könnte. Alles sehr laienhaft aber hoffentlich verständlich genug um von Experten verstanden zu werden.

Zitat von Uwe Raabe:

Zitat von himitsu:

z.B. die Contextmenüs in der Delphi-IDE.
Obwohl rechts noch mehr als genug Platz ist, gehen SubMenüs oftmals links auf. Oder nach oben, obwohl unten noch genug Platz wäre.

Kann das an einer Auflösung <> 100% liegen?

Ich arbeite auf 100%, falls Du mich überhaupt meintest.

[himitsu]

Also hier nicht. Des steht auf 100%.