wdefscrl.c

开放源码的编译器open watcom 1.6.0版的源代码

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include <windows.h>
#include <win1632.h>

#include "wdeglbl.h"
#include "wdemem.h"
#include "wderesin.h"
#include "wdeobjid.h"
#include "wdefutil.h"
#include "wde_wres.h"
#include "wdemain.h"
#include "wdedebug.h"
#include "wdedefsz.h"
#include "wdeoinfo.h"
#include "wde_rc.h"
#include "wdecctl.h"
#include "wdefscrl.h"


/****************************************************************************/
/* type definitions                                                         */
/****************************************************************************/
typedef struct {
    FARPROC     dispatcher;
    OBJPTR      object_handle;
    OBJ_ID      object_id;
    OBJPTR      control;
} WdeScrollObject;

/****************************************************************************/
/* external function prototypes                                             */
/****************************************************************************/
extern BOOL    WINEXPORT WdeScrollDispatcher( ACTION, WdeScrollObject *,
                                              void *, void *);
extern LRESULT WINEXPORT WdeScrollSuperClassProc (HWND, UINT, WPARAM, LPARAM);

/****************************************************************************/
/* static function prototypes                                               */
/****************************************************************************/
static OBJPTR   WdeMakeScroll           ( OBJPTR, RECT *, OBJPTR, DialogStyle,
                                          char *, OBJ_ID );
static OBJPTR   WdeScrollCreate         ( OBJPTR, RECT *, OBJPTR,
                                          OBJ_ID, WdeDialogBoxControl *);
static BOOL     WdeScrollDestroy        ( WdeScrollObject *, BOOL *, void *);
static BOOL     WdeScrollResize         ( WdeScrollObject *, RECT *, BOOL *);
static BOOL     WdeScrollMove           ( WdeScrollObject *, POINT *, BOOL *);
static BOOL     WdeScrollValidateAction ( WdeScrollObject *, ACTION *, void *);
static BOOL     WdeScrollCopyObject     ( WdeScrollObject *, WdeScrollObject **,
                                          WdeScrollObject *);
static BOOL     WdeScrollIdentify       ( WdeScrollObject *, OBJ_ID *, void *);
static BOOL     WdeScrollGetWndProc     ( WdeScrollObject *, WNDPROC *, void * );
static BOOL     WdeScrollGetWindowClass ( WdeScrollObject *, char **, void *);
static BOOL     WdeScrollDefine         ( WdeScrollObject *, POINT *, void *);
static void     WdeScrollSetDefineInfo  ( WdeDefineObjectInfo *, HWND );
static void     WdeScrollGetDefineInfo  ( WdeDefineObjectInfo *, HWND );
static BOOL     WdeScrollDefineHook     ( HWND, UINT, WPARAM, LPARAM,
                                          DialogStyle );
/****************************************************************************/
/* static variables                                                         */
/****************************************************************************/
static HINSTANCE                WdeApplicationInstance;
static FARPROC                  WdeScrollDispatch;
static WdeDialogBoxControl      *WdeDefaultScroll = NULL;
static int                      WdeScrollWndExtra;
static WNDPROC                  WdeOriginalScrollProc;
//static WNDPROC                        WdeScrollProc;

static DISPATCH_ITEM WdeScrollActions[] = {
    { DESTROY           ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollDestroy             }
,   { MOVE              ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollMove                }
,   { RESIZE            ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollResize              }
,   { COPY              ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollCopyObject          }
,   { VALIDATE_ACTION   ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollValidateAction      }
,   { IDENTIFY          ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollIdentify            }
,   { GET_WINDOW_CLASS  ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollGetWindowClass      }
,   { DEFINE            ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollDefine              }
,   { GET_WND_PROC      ,  (BOOL (*)(OBJPTR, void *, void *))WdeScrollGetWndProc          }
};

#define MAX_ACTIONS      (sizeof(WdeScrollActions)/sizeof (DISPATCH_ITEM))

OBJPTR WINEXPORT WdeHScrollCreate ( OBJPTR parent, RECT *obj_rect,
                                    OBJPTR handle)
{
    if ( handle == NULL ) {
        return (WdeMakeScroll ( parent, obj_rect, handle,
                                SBS_HORZ,
                                "",
                                HSCROLL_OBJ));
    } else {
        return ( WdeScrollCreate ( parent, obj_rect, NULL, HSCROLL_OBJ,
                                   (WdeDialogBoxControl *) handle) );
    }
}

OBJPTR WINEXPORT WdeVScrollCreate ( OBJPTR parent, RECT *obj_rect,
                                    OBJPTR handle)
{
    if ( handle == NULL ) {
        return (WdeMakeScroll ( parent, obj_rect, handle,
                                SBS_VERT,
                                "",
                                VSCROLL_OBJ));
    } else {
        return ( WdeScrollCreate ( parent, obj_rect, NULL,
                                   VSCROLL_OBJ, (WdeDialogBoxControl *) handle) );
    }
}

OBJPTR WINEXPORT WdeSizeBoxCreate ( OBJPTR parent, RECT *obj_rect,
                                    OBJPTR handle)
{
    if ( handle == NULL ) {
        return (WdeMakeScroll ( parent, obj_rect, handle,
                                SBS_SIZEBOX,
                                "",
                                SIZEBOX_OBJ));
    } else {
        return ( WdeScrollCreate ( parent, obj_rect, NULL,
                                   SIZEBOX_OBJ, (WdeDialogBoxControl *) handle) );
    }
}

OBJPTR WdeMakeScroll ( OBJPTR parent, RECT *obj_rect, OBJPTR handle,
                       DialogStyle style, char *text, OBJ_ID id )
{
    OBJPTR new;

    style |= WS_VISIBLE | WS_CHILD;
    SETCTL_STYLE( WdeDefaultScroll, style );
    SETCTL_TEXT( WdeDefaultScroll, ResStrToNameOrOrd(text) );
    SETCTL_ID( WdeDefaultScroll, WdeGetNextControlID() );

    WdeChangeSizeToDefIfSmallRect ( parent, id, obj_rect );

    new = WdeScrollCreate (parent, obj_rect, handle, id, WdeDefaultScroll);

    WdeMemFree( GETCTL_TEXT(WdeDefaultScroll) );
    SETCTL_TEXT( WdeDefaultScroll, NULL );

    return ( new );
}

OBJPTR WdeScrollCreate ( OBJPTR parent, RECT *obj_rect, OBJPTR handle,
                         OBJ_ID id, WdeDialogBoxControl *info)
{
    WdeScrollObject *new;

    WdeDebugCreate("Scroll", parent, obj_rect, handle);

    if ( parent == NULL ) {
        WdeWriteTrail("WdeScrollCreate: Scroll has no parent!");
        return ( NULL );
    }

    new = (WdeScrollObject *) WdeMemAlloc ( sizeof(WdeScrollObject) );
    if ( new == NULL ) {
        WdeWriteTrail("WdeScrollCreate: Object malloc failed");
        return ( NULL );
    }

    new->dispatcher = WdeScrollDispatch;

    new->object_id = id;

    if ( handle ==  NULL ) {
        new->object_handle = new;
    } else {
        new->object_handle = handle;
    }

    new->control = Create( CONTROL_OBJ, parent, obj_rect, new->object_handle);

    if (new->control == NULL) {
        WdeWriteTrail("WdeScrollCreate: CONTROL_OBJ not created!");
        WdeMemFree ( new );
        return ( NULL );
    }

    if (!Forward ( (OBJPTR)new->object_handle, SET_OBJECT_INFO, info, NULL) ) {
        WdeWriteTrail("WdeScrollCreate: SET_OBJECT_INFO failed!");
        Destroy ( new->control, FALSE );
        WdeMemFree ( new );
        return ( NULL );
    }

    if (!Forward ( (OBJPTR)new->object_handle, CREATE_WINDOW,
                   NULL, NULL) ) {
        WdeWriteTrail("WdeScrollCreate: CREATE_WINDOW failed!");
        Destroy ( new->control, FALSE );
        WdeMemFree ( new );
        return ( NULL );
    }

    return ( new );
}

BOOL WINEXPORT WdeScrollDispatcher ( ACTION act, WdeScrollObject *obj,
                                     void *p1, void *p2)
{
    int     i;

    WdeDebugDispatch("Scroll", act, obj, p1, p2);

    for ( i = 0; i < MAX_ACTIONS; i++ ) {
        if( WdeScrollActions[i].id == act ) {
            return( (WdeScrollActions[i].rtn)( obj, p1, p2 ) );
        }
    }

    return (Forward ((OBJPTR)obj->control, act, p1, p2));
}

Bool WdeScrollInit( Bool first )
{
    WNDCLASS    wc;

    WdeApplicationInstance = WdeGetAppInstance();
    GetClassInfo( (HINSTANCE)NULL, "SCROLLBAR", &wc );
    WdeOriginalScrollProc = wc.lpfnWndProc;
    WdeScrollWndExtra = wc.cbWndExtra;

    if( first ) {
#if 0
        if ( wc.style & CS_GLOBALCLASS ) {
            wc.style ^= CS_GLOBALCLASS;
        }
        if ( wc.style & CS_PARENTDC ) {
            wc.style ^= CS_PARENTDC;
        }
        wc.style |= ( CS_HREDRAW | CS_VREDRAW );
        wc.hInstance     = WdeApplicationInstance;
        wc.lpszClassName = "wdescrollbar";
        wc.cbWndExtra    += sizeof( OBJPTR );
        //wc.lpfnWndProc        = WdeScrollSuperClassProc;
        if( !RegisterClass( &wc ) ) {
            WdeWriteTrail("WdeScrollInit: RegisterClass failed.");
        }
#endif
    }

    WdeDefaultScroll = WdeAllocDialogBoxControl ();
    if( !WdeDefaultScroll ) {
        WdeWriteTrail("WdeScrollInit: Alloc of control failed!");
        return( FALSE );
    }

    /* set up the default control structure */
    SETCTL_STYLE( WdeDefaultScroll, 0 );
    SETCTL_ID( WdeDefaultScroll, 0 );
    SETCTL_EXTRABYTES( WdeDefaultScroll, 0 );
    SETCTL_SIZEX( WdeDefaultScroll, 0 );
    SETCTL_SIZEY( WdeDefaultScroll, 0 );
    SETCTL_SIZEW( WdeDefaultScroll, 0 );
    SETCTL_SIZEH( WdeDefaultScroll, 0 );
    SETCTL_TEXT( WdeDefaultScroll, NULL );
    SETCTL_CLASSID( WdeDefaultScroll, ResNumToControlClass(CLASS_SCROLLBAR) );

    WdeScrollDispatch = MakeProcInstance((FARPROC)WdeScrollDispatcher,
                                           WdeGetAppInstance());
    return( TRUE );
}

void WdeScrollFini ( void )
{
    WdeFreeDialogBoxControl ( &WdeDefaultScroll );
    FreeProcInstance        ( WdeScrollDispatch );
}

BOOL WdeScrollDestroy ( WdeScrollObject *obj, BOOL *flag, void *p2 )
{
    /* touch unused vars to get rid of warning */
    _wde_touch(p2);

    if ( !Forward ( obj->control, DESTROY, flag, NULL ) ) {
        WdeWriteTrail("WdeScrollDestroy: Control DESTROY failed");
        return ( FALSE );
    }

    WdeMemFree( obj );

    return ( TRUE );
}

BOOL WdeScrollResize ( WdeScrollObject *obj, RECT *new_pos, BOOL *flag )
{
    WdeOrderMode        mode;

    if( Forward( (OBJPTR)obj, GET_ORDER_MODE, &mode, NULL ) &&
        ( mode != WdeSelect ) ) {
        return( FALSE );
    }

    if ( !Forward (obj->control, RESIZE, new_pos, flag) ) {
        WdeWriteTrail("WdeScrollResize: control RESIZE failed!");
        return ( FALSE );
    }

    if ( !Forward ( obj->object_handle, DESTROY_WINDOW, NULL, NULL ) ) {
        WdeWriteTrail("WdeScrollResize: DESTROY_WINDOW failed!");
        return ( FALSE );
    }

    if ( !Forward ( obj->object_handle, CREATE_WINDOW, NULL, NULL ) ) {
        WdeWriteTrail("WdeScrollResize: CREATE_WINDOW failed!");
        return ( FALSE );
    }

    return ( TRUE );
}

BOOL WdeScrollMove ( WdeScrollObject *obj, POINT *offset, BOOL *forms_called )
{
    if ( !Forward (obj->control, MOVE, offset, forms_called) ) {
        WdeWriteTrail("WdeScrollResize: control MOVE failed!");
        return ( FALSE );
    }

    if ( !Forward ( obj->object_handle, DESTROY_WINDOW, NULL, NULL ) ) {
        WdeWriteTrail("WdeScrollResize: DESTROY_WINDOW failed!");