Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CodeX,
26. Apr 2016
Ups, ich habe völlig übersehen, dass TMenuItem an anderer Stelle aufgrund eines ganz anderen Kontextes bereits überschrieben wird. Das war auch der Grund, warum selbst CustomDraw nichts bewirkt hat. :oops:
Hat sich damit erledigt. Wen es interessiert, wie sich die Fragestellung lösen lässt:
TMenuItem = class(Menus.TMenuItem)
private
procedure MeasureItem(ACanvas: TCanvas; var Width,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by CodeX,
26. Apr 2016
Eigentlich eine simple Frage: Wie kann ich die Höhe von Items in einem TMainMenu oder TPopupMenu vergrößern?
Idealerweise nur für bestimmte Items oder alternativ für alle gleich.
Es gibt zwar ein OnMeasureItem, aber das Ändern von Height darin bewirkt nichts...
Ich habe testweise OwnerDraw:=True gesetzt, aber seltsamerweise ändert das nichts. Aber das will ich ja eigentlich ohnehin nicht,...