LIST and COMBO -- Show the DROP List or Hide it with WinAPI message CB_SHOWDROPDOWN

ListDropDown.clw

  MAP   
ListDropDown PROCEDURE(LONG FeqList, BOOL RollUp=0)  !0=Down 1=Roll Up  
   MODULE('Win32')
     PostMessage(LONG hWnd,LONG wMsg,LONG wParam,LONG lParam),BOOL,PROC,PASCAL,DLL(1),NAME('PostMessageA')
   END  
  END


ListDropDown PROCEDURE(LONG FeqList, BOOL RollUp=0)  !0=Down 1=Roll Up
  CODE  !CB_SHOWDROPDOWN = &H14F
  IF FeqList{PROP:Type}=CREATE:Combo THEN 
     FeqList=FeqList{PROP:ButtonFeq}      !COMBO must Post to Drop Button FEQ
  END                                     !LIST  just post to List FEQ
  PostMessage(FeqList{PROP:Handle},14Fh, 1-RollUp,0)  !wParam 1=Show Drop, 0=Hide Drop
  RETURN