🚀 go-pugleaf

In article <7cc1se$ohl8@forums.borland.com>, Jens Korth politely 
paraphrased ...
> has anyone an idea how to change Jim's cbDrop.CC so that it works with NT ?
> 
Can you post the smallest possible working example so that I can try it?
-- 
Romain Strieff [dBVIPS/TeamB]
Please read this newsgroup guide below before 
posting on the private Inprise newsgroups.
http://www.inprise.com/newsgroups/guide.html
--

Dear Romain,

this is the code which does not work under WinNT:

* cbDrop.CC
* By Jim Sare - jimsare@worldnet.att.net
* Created: 09/10/1997
* Last Modified: 06/06/1998
*
* Fixes a problem with VdB 5.6 and 7.x ComboBox.AutoDrop when
* clicking on the pull-down button when the ComboBox does not
* have focus, the drop-down list drops, and then immediately
* pulls back up the first time clicked.
*

CLASS cbDrop(f) Of ComboBox(f) Custom

 If Type("PostMessage") # "FP"
   extern CLONG PostMessage(CHANDLE, CINT, CLONG, CLONG) User32;
      From "PostMessageA"
 EndIf
 If Type("SendMessage") # "FP"
   extern CLONG SendMessage(CHANDLE, CINT, CLONG, CLONG) User32;
      From "SendMessageA"
 EndIf
  #ifndef WM_USER
   #define WM_USER  HToI("400")
  #endif
  #ifndef CB_SHOWDROPDOWN
   #define CB_SHOWDROPDOWN WM_USER + 15
  #endif
  #ifndef WM_CANCELMODE
   #define WM_CANCELMODE HToI("1F")
  #endif

 this.AutoDrop =  .t.

 PROCEDURE OnGotFocus
  If this.AutoDrop
   SendMessage(this.hWND, WM_CANCELMODE, 0, 0)
   this.Drop()
  EndIf

 PROCEDURE Drop
  PostMessage(this.hWND, CB_SHOWDROPDOWN, 1, 0)

ENDCLASS  && cbDrop Of ComboBox

* EOF: cbDrop.CC


--
Jens

In article <7ce3ms$ptf18@forums.borland.com>, Jens Korth politely 
paraphrased ...
> Dear Romain,
> 
> this is the code which does not work under WinNT:
> 
> 
Can't get it working either, I guess you'll have to contact Jim.
-- 
Romain Strieff [dBVIPS/TeamB]
Please read this newsgroup guide below before 
posting on the private Inprise newsgroups.
http://www.inprise.com/newsgroups/guide.html
--