forum.clarionlife.net

Код: Выделить всё

Combo::ButtonPressed    PROCEDURE(SIGNED pComboFEQ)

bLeft                     SIGNED, AUTO    !-- Btn{XPos}

  CODE

  IF pComboFEQ{PROP:Type} <> CREATE:combo
    RETURN FALSE    !-- not a combo
  END

  bLeft = pComboFEQ{PROP:Xpos} + (pComboFEQ{PROP:ButtonFEQ}){PROP:Xpos}  !-- left pos of dropdown button
  
  IF KEYCODE() <> MouseLeft OR MOUSEX() < bLeft
    !-- whether not a mouse was pressed or clicked outside dropdown-part
    RETURN FALSE
  END
  
  RETURN TRUE