testcht2.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 21 行

#define NOAUTOPROCS
#include <windows.h>
#include "testcht.h"
#include "chart.h"

BOOL _EXPORT FAR PASCAL FetchData( int, LPFLOAT );

void CreateMe( HWND hwnd )
{
CALLBACKPTR             cbp;

#ifdef __WINDOWS_386__
    DefineUserProc16( GETPROC_USERDEFINED_1, (PROCPTR) FetchData,
            UDP16_WORD, UDP16_DWORD, UDP16_ENDLIST );
#endif
    cbp = GetProc16( (PROCPTR) FetchData, GETPROC_USERDEFINED_1 );
    SetWindowWord( hwnd, 0,
                    ChartAdd( MakeProcInstance( (FARPROC)cbp,
                    GetWindowWord( hwnd, GWW_HINSTANCE ) ) ) );
}