Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by chrisw,
15. Dez 2005
Versuch mal das (Allerdings nicht getestet)
Mglw müssen da noch ein paar Pixel dazu !
Überarbeitete Version !
function GetPopUpMenuWidth(PopUpMenu : TPopUpMenu; Canvas : TCanvas) : Integer;
var i : Integer;
LongestCaption : Integer;
begin
LongestCaption := -1;
Result := 0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by chrisw,
15. Dez 2005
Die Eigenschaft OwnerDraw des PopUpMenus auf True;
In einem der MenuItems das Ereignis OnMeasureItem abfragen, dort ist Width und Height abgreifbar ! Height * Anzahl Items ergibt die Gesamthöhe !