Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
15. Mai 2021
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.
Werde ich gerne testen! Hand aufs Herz!
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...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
15. Mai 2021
Danke Delphi.Narium, recht hast Du, wozu ein "If" wenn es auch ohne geht :thumb:
Danke himitsu, nun sind es zwar keine Haken mehr sondern Punkte (Radio halt) aber zumindest ist es nur einer :-)
Bleibt der Bug mit der Positionierung.
Ich probiere mal ein kleines Demo-Projekt abzukapseln ob es sich da auch so verhält oder ob in meiner Anwendung irgendwas dazwischen funkt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by KodeZwerg,
15. Mai 2021
procedure kzTheme.AddNativeStyle(const AMenuItem: TMenuItem);
procedure AddMenuEntry(const ACaption: string; const AValue: Integer);
var
Item: TMenuItem;
begin
Item := TMenuItem.Create(FMenuItem);
Item.Caption := ACaption;
Item.OnClick := NativeStyleClick;
Item.AutoCheck := True;
Item.GroupIndex := 1;