wdefscrl.c

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

        return ( FALSE );
    }

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

    return ( TRUE );
}

BOOL WdeScrollValidateAction ( WdeScrollObject *obj, ACTION *act, void *p2 )
{
    int                 i;
    WdeOrderMode        mode;

    /* touch unused vars to get rid of warning */
    _wde_touch(p2);

    if( *act == MOVE || *act == RESIZE ) {
        if( Forward( (OBJPTR)obj, GET_ORDER_MODE, &mode, NULL ) &&
            ( mode != WdeSelect ) ) {
            return( FALSE );
        }
    }

    for ( i = 0; i < MAX_ACTIONS; i++ ) {
        if( WdeScrollActions[i].id == *act ) {
            return ( TRUE );
        }
    }

    return ( ValidateAction( (OBJPTR) obj->control, *act, p2 ) );
}

BOOL WdeScrollCopyObject ( WdeScrollObject *obj, WdeScrollObject **new,
                           WdeScrollObject *handle )
{
    if (new == NULL) {
        WdeWriteTrail("WdeScrollCopyObject: Invalid new object!");
        return ( FALSE );
    }

    *new = (WdeScrollObject *) WdeMemAlloc ( sizeof(WdeScrollObject) );

    if ( *new == NULL ) {
        WdeWriteTrail("WdeScrollCopyObject: Object malloc failed");
        return ( FALSE );
    }

    (*new)->dispatcher    = obj->dispatcher;
    (*new)->object_id     = obj->object_id;

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

    if (!CopyObject(obj->control, &((*new)->control), (*new)->object_handle)) {
        WdeWriteTrail("WdeScrollCopyObject: Control not created!");
        WdeMemFree ( (*new) );
        return ( FALSE );
    }

    return ( TRUE );
}

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

    *id = obj->object_id;

    return ( TRUE );
}

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

    *proc = WdeScrollSuperClassProc;

    return ( TRUE );
}

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

    *class = "scrollbar";

    return ( TRUE );
}

BOOL WdeScrollDefine ( WdeScrollObject *obj, POINT *pnt, void *p2 )
{
    WdeDefineObjectInfo  o_info;

    /* touch unused vars to get rid of warning */
    _wde_touch(pnt);
    _wde_touch(p2);

    o_info.obj        = obj->object_handle;
    o_info.obj_id     = obj->object_id;
    o_info.mask       = WS_VISIBLE | WS_DISABLED | WS_TABSTOP | WS_GROUP;
    o_info.set_func   = (WdeSetProc)WdeScrollSetDefineInfo;
    o_info.get_func   = (WdeGetProc)WdeScrollGetDefineInfo;
    o_info.hook_func  = WdeScrollDefineHook;
    o_info.win        = NULL;

    return ( WdeControlDefine ( &o_info ) );
}

void WdeScrollSetDefineInfo ( WdeDefineObjectInfo *o_info, HWND hDlg )
{
    OBJ_ID   id;
    DialogStyle mask;

    id   = o_info->obj_id;

    mask = GETCTL_STYLE( o_info->info.c.info ) & 0x0000ffff;

    if ( id  == HSCROLL_OBJ ) {

        if ( (mask & 0x00000001) ) {
            WdeWriteTrail("WdeScrollSetDefineInfo: Bad HScroll mask!");
        }

        if ( mask & SBS_TOPALIGN ) {
            CheckDlgButton ( hDlg, IDB_SBS_TOPALIGN, 1);
        } else if ( mask & SBS_BOTTOMALIGN ) {
            CheckDlgButton ( hDlg, IDB_SBS_BOTTOMALIGN, 1);
        }

    } else if ( id  == VSCROLL_OBJ ) {

        if ( !( mask & SBS_VERT ) ) {
            WdeWriteTrail("WdeScrollSetDefineInfo: Bad VScroll mask!");
        }

        if ( mask & SBS_LEFTALIGN ) {
            CheckDlgButton ( hDlg, IDB_SBS_LEFTALIGN, 1);
        } else if ( mask & SBS_RIGHTALIGN ) {
            CheckDlgButton ( hDlg, IDB_SBS_RIGHTALIGN, 1);
        }

    } else if ( id  == SIZEBOX_OBJ ) {

        if ( !( mask & SBS_SIZEBOX ) ) {
            WdeWriteTrail("WdeScrollSetDefineInfo: Bad SizeBox mask!");
        }

        if ( mask & SBS_SIZEBOXTOPLEFTALIGN ) {
            CheckDlgButton ( hDlg, IDB_SBS_SIZEBOXTOPLEFTALIGN, 1);
        } else if ( mask & SBS_SIZEBOXBOTTOMRIGHTALIGN ) {
            CheckDlgButton ( hDlg, IDB_SBS_SIZEBOXBOTTOMRIGHTALIGN, 1);
        }

#if __NT__XX
        EnableWindow ( GetDlgItem(hDlg, IDB_SBS_SIZEGRIP), TRUE );
        if ( mask & SBS_SIZEGRIP ) {
            CheckDlgButton ( hDlg, IDB_SBS_SIZEGRIP, 1);
        }
#else
        EnableWindow ( GetDlgItem(hDlg, IDB_SBS_SIZEGRIP), FALSE );
#endif

    } else {
        WdeWriteTrail("WdeScrollSetDefineInfo: Bad OBJ_ID!");
    }

#if __NT__XX
    // do the extended style stuff - its the same for HScroll,
    // VScroll and SizeBox
    EnableWindow ( GetDlgItem(hDlg, IDB_WS_EX_CLIENTEDGE), TRUE);
    EnableWindow ( GetDlgItem(hDlg, IDB_WS_EX_STATICEDGE), TRUE);
    EnableWindow ( GetDlgItem(hDlg, IDB_WS_EX_NOPARENTNOTIFY), TRUE);

    mask = GETCTL_EXSTYLE( o_info->info.c.info );
    if ( mask & WS_EX_CLIENTEDGE ) {
        CheckDlgButton ( hDlg, IDB_WS_EX_CLIENTEDGE, 1);
    }
    if ( mask & WS_EX_STATICEDGE ) {
        CheckDlgButton ( hDlg, IDB_WS_EX_STATICEDGE, 1);
    }
    if ( mask & WS_EX_NOPARENTNOTIFY ) {
        CheckDlgButton ( hDlg, IDB_WS_EX_NOPARENTNOTIFY, 1);
    }
#else
    // disable the extended styles
    EnableWindow ( GetDlgItem(hDlg, IDB_WS_EX_CLIENTEDGE), FALSE);
    EnableWindow ( GetDlgItem(hDlg, IDB_WS_EX_STATICEDGE), FALSE);
    EnableWindow ( GetDlgItem(hDlg, IDB_WS_EX_NOPARENTNOTIFY), FALSE);
#endif

}

void WdeScrollGetDefineInfo ( WdeDefineObjectInfo *o_info, HWND hDlg )
{
    OBJ_ID   id;
    DialogStyle mask;

    id   = o_info->obj_id;

    mask = 0;

    if ( id  == HSCROLL_OBJ ) {

        mask = SBS_HORZ;

        if ( IsDlgButtonChecked ( hDlg, IDB_SBS_TOPALIGN ) ) {
            mask |= SBS_TOPALIGN;
        } else if ( IsDlgButtonChecked ( hDlg, IDB_SBS_BOTTOMALIGN ) ) {
            mask |= SBS_BOTTOMALIGN;
        }

    } else if ( id  == VSCROLL_OBJ ) {

        mask = SBS_VERT;

        if ( IsDlgButtonChecked ( hDlg, IDB_SBS_LEFTALIGN ) ) {
            mask |= SBS_LEFTALIGN;
        } else if ( IsDlgButtonChecked ( hDlg, IDB_SBS_RIGHTALIGN ) ) {
            mask |= SBS_RIGHTALIGN;
        }

    } else if ( id  == SIZEBOX_OBJ ) {

        mask = SBS_SIZEBOX;

        if ( IsDlgButtonChecked ( hDlg, IDB_SBS_SIZEBOXTOPLEFTALIGN ) ) {
            mask |= SBS_SIZEBOXTOPLEFTALIGN;
        } else if ( IsDlgButtonChecked ( hDlg, IDB_SBS_SIZEBOXBOTTOMRIGHTALIGN ) ) {
            mask |= SBS_SIZEBOXBOTTOMRIGHTALIGN;
        }

#if __NT__XX
        if ( IsDlgButtonChecked ( hDlg, IDB_SBS_SIZEGRIP ) ) {
            mask |= SBS_SIZEGRIP;
        }
#endif

    } else {
        WdeWriteTrail("WdeButtonGetDefineInfo: Bad OBJ_ID!");
        return;
    }

    SETCTL_STYLE( o_info->info.c.info,
                  ( GETCTL_STYLE(o_info->info.c.info) & 0xffff0000 ) | mask );

#if __NT__XX
    // set the extended mask - same for HScroll,
    // VScroll and SizeBox
    mask = 0;
    if ( IsDlgButtonChecked ( hDlg, IDB_WS_EX_CLIENTEDGE ) ) {
        mask |= WS_EX_CLIENTEDGE;
    }
    if ( IsDlgButtonChecked ( hDlg, IDB_WS_EX_STATICEDGE ) ) {
        mask |= WS_EX_STATICEDGE;
    }
    if ( IsDlgButtonChecked ( hDlg, IDB_WS_EX_NOPARENTNOTIFY ) ) {
        mask |= WS_EX_NOPARENTNOTIFY;
    }
    SETCTL_EXSTYLE( o_info->info.c.info, mask );
#endif

    return;
}

BOOL WdeScrollDefineHook ( HWND hDlg, UINT message,
                           WPARAM wParam, LPARAM lParam, DialogStyle mask )
{
    BOOL processed;
    WORD wp;

    /* touch unused vars to get rid of warning */
    _wde_touch(mask);
    _wde_touch(lParam);

    processed = FALSE;

    if ( ( message == WM_COMMAND ) &&
         ( GET_WM_COMMAND_CMD(wParam,lParam) == BN_CLICKED ) ) {
        wp = LOWORD(wParam);
        switch ( wp ) {
            case IDB_SBS_TOPALIGN:
                if ( IsDlgButtonChecked(hDlg, wp) ) {
                    CheckDlgButton ( hDlg, IDB_SBS_BOTTOMALIGN, 0);
                }
                processed = TRUE;
                break;

            case IDB_SBS_LEFTALIGN:
                if ( IsDlgButtonChecked(hDlg, wp) ) {
                    CheckDlgButton ( hDlg, IDB_SBS_RIGHTALIGN, 0);
                }
                processed = TRUE;
                break;

            case IDB_SBS_BOTTOMALIGN:
                if ( IsDlgButtonChecked(hDlg, wp) ) {
                    CheckDlgButton ( hDlg, IDB_SBS_TOPALIGN, 0);
                }
                processed = TRUE;
                break;

            case IDB_SBS_SIZEBOXBOTTOMRIGHTALIGN:
                if ( IsDlgButtonChecked(hDlg, wp) ) {
                    CheckDlgButton ( hDlg, IDB_SBS_SIZEBOXTOPLEFTALIGN, 0);
                }
                processed = TRUE;
                break;

            case IDB_SBS_SIZEBOXTOPLEFTALIGN:
                if ( IsDlgButtonChecked(hDlg, wp) ) {
                    CheckDlgButton(hDlg, IDB_SBS_SIZEBOXBOTTOMRIGHTALIGN, 0);
                }
                processed = TRUE;
                break;

            case IDB_SBS_RIGHTALIGN:
                if ( IsDlgButtonChecked(hDlg, wp) ) {
                    CheckDlgButton ( hDlg, IDB_SBS_LEFTALIGN, 0);
                }
                processed = TRUE;
                break;
        }
    }

    return ( processed );
}

LRESULT WINEXPORT WdeScrollSuperClassProc( HWND hWnd, UINT message,
                                           WPARAM wParam,
                                           volatile LPARAM lParam )
{
    if ( !WdeProcessMouse ( hWnd, message, wParam, lParam ) ) {
        return( CallWindowProc ( WdeOriginalScrollProc,
                                 hWnd, message, wParam, lParam ) );
    }
    return ( FALSE );
}