ienew.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 "imgedit.h"
#include "iconinfo.h"
#include "jdlg.h"

static int              imgType = UNDEF_IMG;
static short            imgHeight = DIM_DEFAULT;
static short            imgWidth = DIM_DEFAULT;
static short            bitCount;
static int              imageCount = 0;

/*
 * SelImgProc - select the image type to edit.
 */
WPI_DLGRESULT CALLBACK SelImgProc( HWND hwnd, WPI_MSG msg, WPI_PARAM1 wparam,
                                                      WPI_PARAM2 lparam )
{
    if( _wpi_dlg_command( hwnd, &msg, &wparam, &lparam ) ) {
        switch( LOWORD(wparam) ) {
        case DLGID_OK:
            if (IsDlgButtonChecked(hwnd, SEL_BITMAP)) {
                imgType = BITMAP_IMG;
            } else if (IsDlgButtonChecked(hwnd, SEL_ICON)) {
                imgType = ICON_IMG;
            } else {
                imgType = CURSOR_IMG;
            }
            _wpi_enddialog( hwnd, DLGID_OK );
            break;

        case DLGID_CANCEL:
            _wpi_enddialog( hwnd, DLGID_CANCEL );
            break;

        case IDB_HELP:
            IEHelpRoutine();
            return( FALSE );

        default:
            return( FALSE );
        }
    } else {

        switch( msg ) {
        case WM_INITDIALOG:
            if ( imgType == UNDEF_IMG ) {
                _wpi_checkradiobutton(hwnd, SEL_BITMAP, SEL_CURSOR, SEL_BITMAP);
            } else {
                _wpi_checkradiobutton(hwnd, SEL_BITMAP, SEL_CURSOR, SEL_BITMAP+imgType-1);
            }
            return( TRUE );

#ifndef __OS2_PM__
        case WM_SYSCOLORCHANGE:
            IECtl3dColorChange();
            break;
#endif

        case WM_CLOSE:
            _wpi_enddialog( hwnd, DLGID_CANCEL );
            break;
        default:
            return( _wpi_defdlgproc(hwnd, msg, wparam, lparam) );
        }
    }
    _wpi_dlgreturn( FALSE );

} /* SelImgProc */

/*
 * SelBitmapProc - select options for the bitmap (size and colour scheme)
 */
WPI_DLGRESULT CALLBACK SelBitmapProc( HWND hwnd, WPI_MSG msg, WPI_PARAM1 wparam,
                                       WPI_PARAM2 lparam )
{
    char        *title;
    char        *text;
    char        *msg_text;
    BOOL        err;

    if( _wpi_dlg_command( hwnd, &msg, &wparam, &lparam ) ) {
        switch( LOWORD(wparam) ) {
        case SEL_SELECT:
            _wpi_enddialog( hwnd, SEL_SELECT );
            break;

        case DLGID_OK:
            imgHeight = _wpi_getdlgitemshort( hwnd, BMP_HEIGHT, &err, FALSE );
            imgWidth = _wpi_getdlgitemshort( hwnd, BMP_WIDTH, &err, FALSE );
            if( (imgHeight > MAX_DIM) || (imgHeight < MIN_DIM) ||
                (imgWidth > MAX_DIM) || (imgWidth < MIN_DIM) ) {
                title = IEAllocRCString( WIE_NOTE );
                text = IEAllocRCString( WIE_DIMENSIONSBETWEEN );
                if( text ) {
                    msg_text = (char *)MemAlloc( strlen( text ) + 20 + 1 );
                    if( msg_text ) {
                        sprintf( msg_text, text, MIN_DIM, MAX_DIM );
                        MessageBox( hwnd, msg_text, title, MB_OK | MB_ICONINFORMATION );
                        MemFree( msg_text );
                    }
                    IEFreeRCString( text );
                }
                if( title ) {
                    IEFreeRCString( title );
                }
                return( FALSE );
            }

            if (_wpi_isbuttonchecked(hwnd, BMP_TRUECOLOUR)) {
                bitCount = 24;
            } else if (_wpi_isbuttonchecked(hwnd, BMP_256COLOUR)) {
                bitCount = 8;
            } else if (_wpi_isbuttonchecked(hwnd, BMP_16COLOUR)) {
                bitCount = 4;
            } else if (_wpi_isbuttonchecked(hwnd, BMP_2COLOUR)) {
                bitCount = 1;
            }
            _wpi_enddialog( hwnd, DLGID_OK );
            break;

        case DLGID_CANCEL:
            _wpi_enddialog( hwnd, DLGID_CANCEL );
            break;

        case IDB_HELP:
            IEHelpRoutine();
            return( FALSE );

        default:
            return( FALSE );
        }

    } else {

        switch( msg ) {
        case WM_INITDIALOG: // WS_GROUP
            _wpi_setdlgitemshort(hwnd, BMP_HEIGHT, imgHeight, FALSE);
            _wpi_setdlgitemshort(hwnd, BMP_WIDTH, imgWidth, FALSE);
            if (bitCount == 1) {
                _wpi_checkradiobutton(hwnd, BMP_TRUECOLOUR, BMP_2COLOUR, BMP_2COLOUR);
            } else if (bitCount == 4) {
                _wpi_checkradiobutton(hwnd, BMP_TRUECOLOUR, BMP_2COLOUR, BMP_16COLOUR);
            } else if (bitCount == 8) {
                _wpi_checkradiobutton(hwnd, BMP_TRUECOLOUR, BMP_2COLOUR, BMP_256COLOUR);
            } else {
                _wpi_checkradiobutton(hwnd, BMP_TRUECOLOUR, BMP_2COLOUR, BMP_TRUECOLOUR);
            }
            return( TRUE );

#ifndef __OS2_PM__
        case WM_SYSCOLORCHANGE:
            IECtl3dColorChange();
            break;
#endif

        case WM_CLOSE:
            _wpi_enddialog( hwnd, IDCANCEL );
            break;
        default:
            return( _wpi_defdlgproc(hwnd, msg, wparam, lparam) );
        }
    }
    _wpi_dlgreturn( FALSE );
} /* SelBitmapProc */

#ifndef __OS2_PM__
/*
 * SelCursorProc - select the target device to use the cursor on
 */
BOOL CALLBACK SelCursorProc( HWND hwnd, UINT msg, UINT wparam, LONG lparam )
{
    static HWND hlistbox;
    char        *mono32x32;
    LRESULT     index;

    lparam = lparam;

    switch( msg ) {
    case WM_INITDIALOG:
        hlistbox = GetDlgItem( hwnd, TARGETLISTBOX );
        mono32x32 = IEAllocRCString( WIE_MONO32X32 );
        if( mono32x32 ) {
            SendMessage( hlistbox, LB_INSERTSTRING, 0, (LPARAM)mono32x32 );
            IEFreeRCString( mono32x32 );
        } else {
            SendMessage( hlistbox, LB_INSERTSTRING, 0, (LPARAM)"Monochrome, 32x32" );
        }
        SendMessage( hlistbox, LB_SETCURSEL, 0, 0L );
        return( TRUE );

    case WM_SYSCOLORCHANGE:
        IECtl3dColorChange();
        break;

    case WM_COMMAND:
        switch( LOWORD(wparam) ) {
        case IDOK:
            index = SendMessage( hlistbox, LB_GETCURSEL, 0, 0L );
            if (index == 0) {
                imgWidth = 32;
                imgHeight = 32;
                bitCount = 1;
            } else {
                return (FALSE);
            }
            EndDialog( hwnd, TRUE );
            break;

        case IDCANCEL:
            EndDialog( hwnd, IDCANCEL );
            break;

        case IDB_HELP:
            IEHelpRoutine();
            return( FALSE );

        default:
            return( FALSE );
        }
        break;

    case WM_CLOSE:
        EndDialog( hwnd, IDCANCEL );
        break;
    default:
        return( FALSE );
    }
    return( TRUE );

} /* SelCursorProc */
#endif

/*
 * initializeImage - initializes the bitmaps according to the image type
 */
static void initializeImage( img_node *node, char *filename )
{
    node->imgtype = imgType;
    node->width = imgWidth;
    node->height = imgHeight;
    node->bitcount = bitCount;
    node->hotspot.x = 0;
    node->hotspot.y = 0;
    node->num_of_images = 1;
    node->nexticon = NULL;
    node->issaved = TRUE;
    node->next = NULL;
    if( filename != NULL ) {
        strcpy( node->fname, filename );
    } else {
        sprintf( node->fname, "%s (%d)", IEImageUntitled, imageCount );
    }

    if (imgType == BITMAP_IMG) {
        MakeBitmap( node, TRUE );
    } else {
        MakeIcon(node, TRUE);           // also makes cursors
    }
} /* initializeImage */

/*
 * NewImage - Creates a new image and returns the image type (bitmap, icon
 *            or cursor).
 */
int NewImage( int img_type, char *filename )
{
    WPI_PROC            fp;
    int                 button_type;
    short               width;
    short               height;
    short               bcount;
    img_node            node;
    char                ext[ _MAX_EXT ];

    // if filename is not NULL and we don't know the image type
    // them lets guess based on the file extesion
    if( ( filename != NULL ) && ( img_type == UNDEF_IMG ) ) {
        _splitpath( filename, NULL, NULL, NULL, ext );
        if( !stricmp( ext, ".bmp" ) ) {
            img_type = BITMAP_IMG;
        } else if( !stricmp( ext, ".ico" ) ) {
            img_type = ICON_IMG;
        } else if( !stricmp( ext, ".cur" ) ) {
            img_type = CURSOR_IMG;
        }
    }

    if( img_type == UNDEF_IMG ) {
        fp = _wpi_makeprocinstance( (WPI_PROC)SelImgProc, Instance );
        button_type = _wpi_dialogbox( HMainWindow, (DLGPROC)fp, Instance,
                                      SELECTIMAGE, 0L );
        _wpi_freeprocinstance( fp );

        if (button_type == DLGID_CANCEL) {
            return(FALSE);
        }
    } else {
        imgType = img_type;
    }

    ++imageCount;

    switch(imgType) {
    case BITMAP_IMG:
        fp = _wpi_makeprocinstance( (WPI_PROC)SelBitmapProc, Instance );
        button_type = _wpi_dialogbox(HMainWindow, (DLGPROC)fp, Instance, BITMAPTYPE, 0L);
        _wpi_freeprocinstance( fp );
        if (button_type == DLGID_CANCEL) {
            imgType = UNDEF_IMG;
            --imageCount;
            return(imgType);
        } else if (button_type == SEL_SELECT) {
#ifdef __OS2_PM__
            IEDisplayErrorMsg( WIE_NOTE, WIE_NOTIMPLEMENTED,
                               MB_OK | MB_ICONINFORMATION);
            return( FALSE );
#else
            if (!SelectDynamicBitmap(&node, imageCount, filename )) {
                return(FALSE);
            }
#endif
        } else {
            initializeImage( &node, filename );
        }
        break;

    case ICON_IMG:
        if (!CreateNewIcon( &width, &height, &bcount, TRUE )) {
            imgType = UNDEF_IMG;
            return(imgType);
        }
        imgWidth = width;
        imgHeight = height;
        bitCount = bcount;
        initializeImage( &node, filename );
        break;

    case CURSOR_IMG:
#ifdef __OS2_PM__
        if (!CreateNewIcon( &width, &height, &bcount, FALSE )) {
            imgType = UNDEF_IMG;
            return(imgType);
        }
        imgWidth = width;
        imgHeight = height;
        bitCount = bcount;
#else
        fp = MakeProcInstance( (FARPROC)SelCursorProc, Instance );
        button_type = JDialogBox(Instance, "CURSORTYPE", HMainWindow, (LPVOID)fp);
        FreeProcInstance( fp );
        if (button_type == IDCANCEL) {
            imgType = UNDEF_IMG;
            return(imgType);
        }
#endif
        initializeImage( &node, filename );
        break;

    default:
        return(FALSE);
    }

    node.wrinfo = NULL;
    node.lnode = NULL;

    CreateNewDrawPad( &node );

    SetupMenuAfterOpen();

    return(imgType);
} /* NewImage */