Solution to how to call the Check-Out window from a program (OpenInsight Specific)
At 20 JAN 1998 08:41:59AM Dave Pociu wrote:
Thanks to Cameron for providing this solution (the Check-Out window is not a regular OI window - it's written in C I believe - so it cannot be called with StartWindow).
subroutine invoke_checkout(void)
declare function FindWindow
declare subroutine SendMessage
equ WM_COMMAND$ to 273 ;* 0x111
equ IDM_CHECKOUT$ to 8280
hWnd=FindWindow("RTI_OINSIGHT":\00\, "")
SendMessage(hWnd, WM_COMMAND$, IDM_CHECKOUT$ , 0)
return