Hi all,
can someone tell me if there is a way to get a popupmenu's height ? I
wrote a function that work for me but it is not very good.
On Win32 there are some apis that will do the job but for linux I wrote:
---------------------------------------------------
for i := 0 to popup.Items.Count -1 do
  if Popup.Items[i].Visible then
     if Popup.Items[i].Caption = '-'
        then Height := Height + 4
        else Height := Height + 20

This works for me and gives at most around 5 pixels difference from
the real height (haven't tested that so good though).

Second Question :
Is TMenuItem.Default  implemented somewhere ??? I couldn't find
checking for that property and doing something different when showing
the menu. Nothing visible occurs as well ?
Where to start looking to implement that ??

TIA.

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to