io Programmo 10/ioProg_10.iso/soft/optima/samples.z/form1.bak

Text File | 1996-05-06 | 33.8 KB | 1,655 lines

Save Format v1.3
@begin Form "Form1"
 Exported 0;

 @begin Object "WModelessDialog"
  WSCaption 1;
  WSClipSiblings 1;
  WSSizeable 1;
  WSDlgBorder 1;
  WSSysMenu 1;
  WSSystemMenu 1;
  WSMinimizeBox 1;
  WSGroup 1;
  WSResizeBorder 1;
  WSExAcceptDropFile 1;
  WSExAcceptFiles 1;
  WSExWindowEdge 1;
  WSVisible 1;
  FormPositionType "Centered";
  Font "8.MS Sans Serif";
  Text "Tiles Game";
  @begin Event "Close"
   GencodeSrcLine 312;
   FunctionName "Form1::Form1_Close";
  @end;
  @begin Event "Create"
   GencodeSrcLine 322;
   FunctionName "Form1::Form1_Create";
  @end;
  @begin Event "Destroy"
   GencodeSrcLine 364;
   FunctionName "Form1::Form1_Destroy";
  @end;
  @begin Event "EraseBackground"
   GencodeSrcLine 369;
   FunctionName "Form1::Form1_EraseBackground";
  @end;
  @begin Event "Paint"
   GencodeSrcLine 381;
   FunctionName "Form1::Form1_Paint";
  @end;
  @begin UserFunction "Continue()"
   GencodeSrcLine 393;
   FunctionName "Form1::Continue()";
  @end;
  @begin UserFunction "GetPosition()"
   GencodeSrcLine 403;
   FunctionName "Form1::GetPosition()";
  @end;
  @begin UserFunction "StartMove()"
   GencodeSrcLine 418;
   FunctionName "Form1::StartMove()";
  @end;
  @begin UserFunction "Place()"
   GencodeSrcLine 437;
   FunctionName "Form1::Place()";
  @end;
  @begin UserFunction "IsFinished()"
   GencodeSrcLine 472;
   FunctionName "Form1::IsFinished()";
  @end;
  @begin UserFunction "MakeBoard()"
   GencodeSrcLine 483;
   FunctionName "Form1::MakeBoard()";
  @end;
  @begin UserFunction "OverBox()"
   GencodeSrcLine 534;
   FunctionName "Form1::OverBox()";
  @end;
  @begin UserFunction "Prototype for OverBox()"
   GencodeSrcLine 155;
   FunctionName "Form1::Prototype for OverBox()";
  @end;
  @begin UserFunction "IsValidMove()"
   GencodeSrcLine 549;
   FunctionName "Form1::IsValidMove()";
  @end;
  @begin UserFunction "Prototype for IsValidMove()"
   GencodeSrcLine 157;
   FunctionName "Form1::Prototype for IsValidMove()";
  @end;
  @begin UserFunction "Feedback()"
   GencodeSrcLine 593;
   FunctionName "Form1::Feedback()";
  @end;
  @begin UserFunction "Prototype for Feedback()"
   GencodeSrcLine 159;
   FunctionName "Form1::Prototype for Feedback()";
  @end;
  @begin UserFunction "Prototype for Continue()"
   GencodeSrcLine 161;
   FunctionName "Form1::Prototype for Continue()";
  @end;
  @begin UserFunction "Prototype for GetPosition()"
   GencodeSrcLine 163;
   FunctionName "Form1::Prototype for GetPosition()";
  @end;
  @begin UserFunction "Prototype for StartMove()"
   GencodeSrcLine 165;
   FunctionName "Form1::Prototype for StartMove()";
  @end;
  @begin UserFunction "Prototype for Place()"
   GencodeSrcLine 167;
   FunctionName "Form1::Prototype for Place()";
  @end;
  @begin UserFunction "Prototype for IsFinished()"
   GencodeSrcLine 169;
   FunctionName "Form1::Prototype for IsFinished()";
  @end;
  @begin UserFunction "Prototype for MakeBoard()"
   GencodeSrcLine 171;
   FunctionName "Form1::Prototype for MakeBoard()";
  @end;
  ResID 103;
  DesignName Form1;
  TabIndex 0;
  DesignRect 83,103,263,210;
 @end;

 @begin Menu
  ItemCount 4;
  DesignName "menu_1";
  IsDefault 1;
  ResID 101;
  DesignRect 0,0,14,14;
  @begin Popup
   Name "File";
   Caption "&File";
   NegotiatePosition None;
   @begin Item
    Name "New";
    Caption "New &Game";
    ResID 1003;
    NegotiatePosition None;
    @begin Event "Click"
     GencodeSrcLine 621;
     FunctionName "Form1::menu_1_New_Click";
    @end;
   @end;
   @begin Item
    Name "Exit";
    Caption "E&xit";
    ResID 1004;
    NegotiatePosition None;
    @begin Event "Click"
     GencodeSrcLine 613;
     FunctionName "Form1::menu_1_Exit_Click";
    @end;
   @end;
  @end;
  @begin Popup
   Name "item_1";
   Caption "&Help";
   NegotiatePosition None;
   @begin Item
    Name "item_4";
    Caption "A&bout";
    ResID 1002;
    NegotiatePosition None;
    @begin Event "Click"
     GencodeSrcLine 633;
     FunctionName "Form1::menu_1_item_4_Click";
    @end;
   @end;
  @end;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  DragSourceTag "*";
  DragTargetTag "*";
  @begin Event "Create"
   GencodeSrcLine 641;
   FunctionName "Form1::pictb_1_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 651;
   FunctionName "Form1::pictb_1_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 665;
   FunctionName "Form1::pictb_1_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 672;
   FunctionName "Form1::pictb_1_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 681;
   FunctionName "Form1::pictb_1_DragStart";
  @end;
  ResID 102;
  DesignName pictb_1;
  TabIndex 1;
  DesignRect 47,74,33,31;
  @begin ComponentData "pictb_1"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorBackground";
  @begin Event "Create"
   GencodeSrcLine 689;
   FunctionName "Form1::pictb_2_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 696;
   FunctionName "Form1::pictb_2_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 705;
   FunctionName "Form1::pictb_2_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 712;
   FunctionName "Form1::pictb_2_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 720;
   FunctionName "Form1::pictb_2_DragStart";
  @end;
  ResID 103;
  DesignName pictb_2;
  TabIndex 2;
  DesignRect 80,74,33,31;
  @begin ComponentData "pictb_2"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorActiveCaption";
  @begin Event "Create"
   GencodeSrcLine 727;
   FunctionName "Form1::pictb_3_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 734;
   FunctionName "Form1::pictb_3_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 742;
   FunctionName "Form1::pictb_3_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 749;
   FunctionName "Form1::pictb_3_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 758;
   FunctionName "Form1::pictb_3_DragStart";
  @end;
  ResID 104;
  DesignName pictb_3;
  TabIndex 3;
  DesignRect 113,74,33,31;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorBrightRed";
  @begin Event "Create"
   GencodeSrcLine 765;
   FunctionName "Form1::pictb_4_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 772;
   FunctionName "Form1::pictb_4_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 780;
   FunctionName "Form1::pictb_4_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 787;
   FunctionName "Form1::pictb_4_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 796;
   FunctionName "Form1::pictb_4_DragStart";
  @end;
  ResID 105;
  DesignName pictb_4;
  TabIndex 4;
  DesignRect 47,104,33,31;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorGreen";
  @begin Event "Create"
   GencodeSrcLine 804;
   FunctionName "Form1::pictb_5_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 810;
   FunctionName "Form1::pictb_5_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 818;
   FunctionName "Form1::pictb_5_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 825;
   FunctionName "Form1::pictb_5_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 834;
   FunctionName "Form1::pictb_5_DragStart";
  @end;
  ResID 106;
  DesignName pictb_5;
  TabIndex 5;
  DesignRect 80,104,33,31;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorCaptionText";
  @begin Event "Create"
   GencodeSrcLine 842;
   FunctionName "Form1::pictb_6_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 848;
   FunctionName "Form1::pictb_6_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 856;
   FunctionName "Form1::pictb_6_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 863;
   FunctionName "Form1::pictb_6_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 872;
   FunctionName "Form1::pictb_6_DragStart";
  @end;
  ResID 107;
  DesignName pictb_6;
  TabIndex 6;
  DesignRect 113,104,33,31;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorRed";
  @begin Event "Create"
   GencodeSrcLine 880;
   FunctionName "Form1::pictb_7_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 886;
   FunctionName "Form1::pictb_7_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 894;
   FunctionName "Form1::pictb_7_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 901;
   FunctionName "Form1::pictb_7_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 910;
   FunctionName "Form1::pictb_7_DragStart";
  @end;
  ResID 108;
  DesignName pictb_7;
  TabIndex 7;
  DesignRect 47,135,33,31;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorPink";
  @begin Event "Create"
   GencodeSrcLine 918;
   FunctionName "Form1::pictb_8_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 924;
   FunctionName "Form1::pictb_8_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 932;
   FunctionName "Form1::pictb_8_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 939;
   FunctionName "Form1::pictb_8_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 948;
   FunctionName "Form1::pictb_8_DragStart";
  @end;
  ResID 109;
  DesignName pictb_8;
  TabIndex 8;
  DesignRect 80,135,33,31;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorBrightGreen";
  DragSourceTag "*";
  DragTargetTag "*";
  @begin Event "Create"
   GencodeSrcLine 956;
   FunctionName "Form1::pictb_9_Create";
  @end;
  @begin Event "DragContinue"
   GencodeSrcLine 962;
   FunctionName "Form1::pictb_9_DragContinue";
  @end;
  @begin Event "DragEnd"
   GencodeSrcLine 970;
   FunctionName "Form1::pictb_9_DragEnd";
  @end;
  @begin Event "DragFeedback"
   GencodeSrcLine 977;
   FunctionName "Form1::pictb_9_DragFeedback";
  @end;
  @begin Event "DragStart"
   GencodeSrcLine 986;
   FunctionName "Form1::pictb_9_DragStart";
  @end;
  ResID 110;
  DesignName pictb_9;
  TabIndex 9;
  DesignRect 113,135,33,31;
  @begin ComponentData "pictb_9"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  BackColor "WColorBackground";
  ResID 111;
  DesignName pictb_10;
  TabIndex 10;
  DesignRect 165,98,48,44;
 @end;

 @begin Object "WLabel"
  WSSCenter 1;
  WSSNotify 1;
  WSSSunken 1;
  WCCSTop 1;
  WSClipSiblings 1;
  WSChild 1;
  WSExStaticEdge 1;
  WSVisible 1;
  Text "  The object of this puzzle is to arrange the tiles, to create the picture on the right.  This program demonstrates Drag and Drop events and Member Function creation.  Refer to DragStart(), DragContinue(), and DragEnd() for drag and drop techniques.";
  ResID 112;
  DesignName label_1;
  TabIndex 11;
  DesignRect 16,15,213,39;
 @end;

 @begin HPPPrefixBlock
@begin-code HPPPrefix

#include "wres.h"
#include <stdlib.h>
#include <time.h>
WRect   _board;
WRect   _r[ 9 ];
WPoint  _positions[ 9 ];
WPictureBox * _missing;
WBitmap bitmap[ 10 ];
int     _tile[ 9 ];
int     _width;
int     _height;
int     _start;
int     _blank;

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin CPPPrefixBlock
@begin-code CPPPrefix

// Code added here will be included at the top of the .CPP file

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin ClassContentsBlock
@begin-code ClassContents

    public:
        // add your public instance data here
    private:
        // add your private instance data here
    protected:
        // add your protected instance data here

    public:
    void Continue( WEventData * event );
    public:
    int GetPosition( WPoint pt );
    public:
    void StartMove( int index, WEventData * event );
    public:
    void Place( WPictureBox * pBox, WEventData * event );
    public:
    WBool IsValidMove( int index, int blank );
    public:
    WBool IsFinished();
    public:
    WBool MakeBoard();

@end-code;
  GencodeSrcLine 134;
 @end;

@begin-code GeneratedClassContents


@end-code;

@begin-code Code "Form1::Continue()"

void Form1::Continue( WEventData * event )
{
    WDragEventData * dragEv = (WDragEventData *) event;
    if( dragEv->draginfo->kbState == WMK_NONE ){
        event->returns = WDRAG_DROP;
    } else {
        event->returns = WDRAG_CONTINUE_DRAG;
    }
    return;
}

@end-code;

@begin-code Code "Form1::GetPosition()"

int Form1::GetPosition( WPoint pt )
{
    int i;
    for( i = 0; i < 9; i++ ){
        if( pt.x > _positions[ i ].x
            && pt.x < _positions[ i ].x + _width
            && pt.y > _positions[ i ].y
            && pt.y < _positions[ i ].y + _height ){
                return i;
        }
    }

    return -1;

}

@end-code;

@begin-code Code "Form1::StartMove()"

void Form1::StartMove( int index, WEventData * event )
{
    WPoint      pt;
    WRect       rect;
    WInt        pos;

    WDragEventData * d_ev;
    d_ev = (WDragEventData *) event;
    rect = GetClientRectangle( TRUE );
    event->returns = WDRAG_DEFAULT_START;
    pt.x = d_ev->currentPoint.x - rect.x;
    pt.y = d_ev->currentPoint.y - rect.y;
    pos = GetPosition( pt );
    if( pos != _blank ) {
        _start = pos;
    }

    return;
}

@end-code;

@begin-code Code "Form1::Place()"

void Form1::Place( WPictureBox * pBox, WEventData * event )
{
    WRect       fr; //form_rect
    WRect       set;
    WDragEventData * dragEv = (WDragEventData *) event;
    WPoint      point;
    int         pos;
    int         temp;

    fr = GetClientRectangle( TRUE );

    point.x = dragEv->currentPoint.x - fr.x;
    point.y = dragEv->currentPoint.y - fr.y;

    pos = GetPosition( point );

    if( pos == _blank && IsValidMove( _start, _blank ) ){
        set.Create( _positions[ _blank ].x,
            _positions[ _blank ].y, _width, _height );
        temp = _tile[ _blank ];
        _tile[ _blank ] = _tile[ _start ];
        _tile[ _start ] = temp;
        _blank = _start;
        pBox->SetRectangle( set );
        if( IsFinished() ){
            _missing->SetRectangle( WRect( _positions[ _blank ].x,
                _positions[ _blank ].y, _width, _height ) );
            _missing->SetVisible( TRUE );
            WMessageBox::Info( this, "Yes!",
                "You have finished.  Well Done!" );
            _blank = -1;
        }
    }
    return;
}

@end-code;

@begin-code Code "Form1::IsFinished()"

WBool Form1::IsFinished()
{
    WBool rtn = TRUE;
    int i;
    for( i = 0; i < 9; i++ ){
        if( _tile[ i ] != i ){
            rtn = FALSE;
        }
    }
    return rtn;
}

@end-code;

@begin-code Code "Form1::MakeBoard()"

WBool Form1::MakeBoard()
{
    int             i;
    WPictureBox *   pBox[ 9 ];
    int             move_tile;
    int             temp;


    _blank = 0;
    _start = -1;

    // Setting Random positions of tiles
    srand( time( NULL ) );
    for( i = 0; i < 9; i++ ){
        _tile[ i ] = i;
    }
    for( i = 0; i < 50; ){
        move_tile = (int) rand() % 9;
        if( IsValidMove( move_tile, _blank ) ){
            i++;
            temp = _tile[ _blank ];
            _tile[ _blank ] = _tile[ move_tile ];
            _tile[ move_tile ] = temp;
            _blank = move_tile;
        }
    }
    pBox[ 0 ] = pictb_1;
    pBox[ 1 ] = pictb_2;
    pBox[ 2 ] = pictb_3;
    pBox[ 3 ] = pictb_4;
    pBox[ 4 ] = pictb_5;
    pBox[ 5 ] = pictb_6;
    pBox[ 6 ] = pictb_7;
    pBox[ 7 ] = pictb_8;
    pBox[ 8 ] = pictb_9;
    for( i = 0; i < 9; i++ ){
        pBox[ i ]->SetRectangle( WRect( _r[ i ].x,
                _r[ i ].y, _width, _height ) );
    }

    for( i = 0; i < 9; i++ ){
        pBox[ i ]->SetBitmap( (const WBitmap) bitmap[ _tile[ i ] ] );
    }
    pictb_10->SetBitmap( (const WBitmap) bitmap[ 9 ] );
    pBox[ _blank ]->SetRectangle( WRect( 0, 0, 0, 0 ) );
    pBox[ _blank ]->SetVisible( FALSE );
    _missing = pBox[ _blank ];

    return TRUE;

}

@end-code;

@begin-code Code "Form1::OverBox()"

int Form1::OverBox( WPoint pos )
{
    int r;
    WRect rect;
    WPoint pt;
//    rect = GetClientRectangle( TRUE );
    pt.x = pos.x;
    pt.y = pos.y;
    for( r = 0; r < 9; r++ ){
        if( _r->Contains( pt ) ){
            break;
        }
    }
    return r;
}

@end-code;

@begin-code Code "Form1::Prototype for OverBox()"

    public:
        int OverBox( WPoint pos );

@end-code;

@begin-code Code "Form1::IsValidMove()"

WBool Form1::IsValidMove( int index, int blank )
{
    WBool   rtn = FALSE;
    switch( index ){
        case 0:
            if( blank == 1 || blank == 3 )
                rtn = TRUE;
            break;
        case 1:
            if( blank == 0 || blank == 2 || blank == 4 )
                rtn = TRUE;
            break;
        case 2:
            if( blank == 1 || blank == 5 )
                rtn = TRUE;
            break;
        case 3:
            if( blank == 0 || blank == 4 || blank == 6 )
                rtn = TRUE;
            break;
        case 4:
            if( blank == 1 || blank == 3 || blank == 5 || blank == 7 )
                rtn = TRUE;
            break;
        case 5:
            if( blank == 2 || blank == 4 || blank == 8 )
                rtn = TRUE;
            break;
        case 6:
            if( blank == 3 || blank == 7 )
                rtn = TRUE;
            break;
        case 7:
            if( blank == 6 || blank == 4 || blank == 8 )
                rtn = TRUE;
            break;
        case 8:
            if( blank == 7 || blank == 5 )
                rtn = TRUE;
            break;
    }
    return rtn;

}

@end-code;

@begin-code Code "Form1::Prototype for IsValidMove()"

    public:
        WBool IsValidMove( int index, int blank );

@end-code;

@begin-code Code "Form1::Feedback()"

WBool Form1::Feedback( WDragEventData * d_Ev )
{
    WPoint pt;
    WRect rect = GetClientRectangle( TRUE );
    int position;

    pt = d_Ev->currentPoint;
    pt.x = pt.x - rect.x;
    pt.y = pt.y - rect.y;
    position = GetPosition( pt );

    if( IsValidMove( _start, position ) && position == _blank ){
        d_Ev->currentOp = WDROPEFFECT_COPY;
    } else {
        d_Ev->currentOp = WDROPEFFECT_NONE;
    }

    d_Ev->returns = WDRAG_DEFAULT_FEEDBACK;
    return TRUE;
}

@end-code;

@begin-code Code "Form1::Prototype for Feedback()"

    public:
        WBool Feedback( WDragEventData * d_Ev );

@end-code;

@begin-code Code "Form1::Prototype for Continue()"

// Placeholder for Prototype for Continue
//     you should move the prototype here from the Class Contents section

@end-code;

@begin-code Code "Form1::Prototype for GetPosition()"

// Placeholder for Prototype for GetPosition
//     you should move the prototype here from the Class Contents section

@end-code;

@begin-code Code "Form1::Prototype for StartMove()"

// Placeholder for Prototype for StartMove
//     you should move the prototype here from the Class Contents section

@end-code;

@begin-code Code "Form1::Prototype for Place()"

// Placeholder for Prototype for Place
//     you should move the prototype here from the Class Contents section

@end-code;

@begin-code Code "Form1::Prototype for IsFinished()"

// Placeholder for Prototype for IsFinished
//     you should move the prototype here from the Class Contents section

@end-code;

@begin-code Code "Form1::Prototype for MakeBoard()"

// Placeholder for Prototype for MakeBoard
//     you should move the prototype here from the Class Contents section

@end-code;

@begin-code Code "Form1::Form1_Close"

WBool Form1::Form1_Close( WObject *source, WEventData *event )
{
    extern WForm *__MainForm;

    Destroy();
    if( (WForm*) this == __MainForm ) {
        WAppObject.Quit();
    }
    return( TRUE );
}

@end-code;

@begin-code Code "Form1::Form1_Create"

WBool Form1::Form1_Create( WObject *source, WCreateEventData *event )
{
    int i;


    _r[ 0 ] = pictb_1->GetRectangle();
    _r[ 1 ] = pictb_2->GetRectangle();
    _r[ 2 ] = pictb_3->GetRectangle();
    _r[ 3 ] = pictb_4->GetRectangle();
    _r[ 4 ] = pictb_5->GetRectangle();
    _r[ 5 ] = pictb_6->GetRectangle();
    _r[ 6 ] = pictb_7->GetRectangle();
    _r[ 7 ] = pictb_8->GetRectangle();
    _r[ 8 ] = pictb_9->GetRectangle();

    bitmap[ 0 ].Create( BITMAP01 );
    bitmap[ 1 ].Create( BITMAP02 );
    bitmap[ 2 ].Create( BITMAP03 );
    bitmap[ 3 ].Create( BITMAP04 );
    bitmap[ 4 ].Create( BITMAP05 );
    bitmap[ 5 ].Create( BITMAP06 );
    bitmap[ 6 ].Create( BITMAP07 );
    bitmap[ 7 ].Create( BITMAP08 );
    bitmap[ 8 ].Create( BITMAP09 );
    bitmap[ 9 ].Create( BITMAP10 );


    _board.Create( _r[ 0 ].x - 1, _r[ 0 ].y - 1,
                _r[ 8 ].x + _r[ 8 ].w - _r[ 0 ].x + 2,
                _r[ 8 ].y + _r[ 8 ].h - _r[ 0 ].y + 2 );

    for( i = 0; i < 9; i++ ){
        _positions[ i ].x = _r[ i ].x;
        _positions[ i ].y = _r[ i ].y;
    }
    _width = _r[ 0 ].w;
    _height = _r[ 0 ].h;


    MakeBoard();
    return( FALSE ); // previously:// return( TRUE );
}

@end-code;

@begin-code Code "Form1::Form1_Destroy"

WBool Form1::Form1_Destroy( WObject *source, WEventData *event )
{

    return( FALSE ); // previously:// return( TRUE );
}

@end-code;

@begin-code Code "Form1::Form1_EraseBackground"

WBool Form1::Form1_EraseBackground(
    WObject           *source,
    WPaintEventData        *event )
{
    WPaintEventData * paint;
    WBrush            brush;
    brush.Create( WBBlackBrush );
    paint = (WPaintEventData *) event;
    paint->canvas->FillRectangle( _board, &brush );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::Form1_Paint"

WBool Form1::Form1_Paint(
    WObject           *source,
    WPaintEventData        *event )
{
    WPaintEventData * paint;
    WBrush            brush;
    brush.Create( WBBlackBrush );
    paint = (WPaintEventData *) event;
    paint->canvas->FillRectangle( _board, &brush );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::menu_1_Exit_Click"

WBool Form1::menu_1_Exit_Click(
    WObject           *source,
    WEventData        *event )
{
    WAppObject.Quit();

    return TRUE;
}

@end-code;

@begin-code Code "Form1::menu_1_New_Click"

WBool Form1::menu_1_New_Click(
    WObject           *source,
    WEventData        *event )
{
    _missing->SetRectangle( WRect( _positions[ _blank ].x,
        _positions[ _blank ].y, _width, _height ) );
    _missing->SetVisible( TRUE );

    MakeBoard();

    return TRUE;
}

@end-code;

@begin-code Code "Form1::menu_1_item_4_Click"

WBool Form1::menu_1_item_4_Click(
    WObject           *source,
    WEventData        *event )
{
    WMessageBox::Info( this, "About", "Puzzle Game\n\nOptima ++, 1996" );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_1_Create"

WBool Form1::pictb_1_Create(
    WObject           *source,
    WCreateEventData        *event )
{
//    WBool           result;
//    WBitmap         bitmap;
//    result = bitmap.Create( BITMAP01 );
//    result = pictb_1->SetBitmap( (const WBitmap) bitmap );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_1_DragContinue"

WBool Form1::pictb_1_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
//    WDragEventData * dragEv = (WDragEventData *) event;
//    if( dragEv->draginfo->kbState == WMK_NONE ){
//        event->returns = WDRAG_DROP;
//    } else {
//        event->returns = WDRAG_CONTINUE_DRAG;
//    }
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_1_DragEnd"

WBool Form1::pictb_1_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_1, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_1_DragFeedback"

WBool Form1::pictb_1_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_1_DragStart"

WBool Form1::pictb_1_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 0, event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_2_Create"

WBool Form1::pictb_2_Create(
    WObject           *source,
    WCreateEventData        *event )
{

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_2_DragContinue"

WBool Form1::pictb_2_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );
    WDragEventData * drag_Ev = (WDragEventData *) event;
    drag_Ev->currentOp = WDROPEFFECT_COPY;
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_2_DragEnd"

WBool Form1::pictb_2_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_2, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_2_DragFeedback"

WBool Form1::pictb_2_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );
    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_2_DragStart"

WBool Form1::pictb_2_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 1, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_3_Create"

WBool Form1::pictb_3_Create(
    WObject           *source,
    WCreateEventData        *event )
{

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_3_DragContinue"

WBool Form1::pictb_3_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_3_DragEnd"

WBool Form1::pictb_3_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_3, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_3_DragFeedback"

WBool Form1::pictb_3_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_3_DragStart"

WBool Form1::pictb_3_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 2, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_4_Create"

WBool Form1::pictb_4_Create(
    WObject           *source,
    WCreateEventData        *event )
{

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_4_DragContinue"

WBool Form1::pictb_4_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_4_DragEnd"

WBool Form1::pictb_4_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_4, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_4_DragFeedback"

WBool Form1::pictb_4_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_4_DragStart"

WBool Form1::pictb_4_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 3, event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_5_Create"

WBool Form1::pictb_5_Create(
    WObject           *source,
    WCreateEventData        *event )
{
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_5_DragContinue"

WBool Form1::pictb_5_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_5_DragEnd"

WBool Form1::pictb_5_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_5, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_5_DragFeedback"

WBool Form1::pictb_5_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_5_DragStart"

WBool Form1::pictb_5_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 4, event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_6_Create"

WBool Form1::pictb_6_Create(
    WObject           *source,
    WCreateEventData        *event )
{
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_6_DragContinue"

WBool Form1::pictb_6_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_6_DragEnd"

WBool Form1::pictb_6_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_6, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_6_DragFeedback"

WBool Form1::pictb_6_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_6_DragStart"

WBool Form1::pictb_6_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 5, event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_7_Create"

WBool Form1::pictb_7_Create(
    WObject           *source,
    WCreateEventData        *event )
{
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_7_DragContinue"

WBool Form1::pictb_7_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_7_DragEnd"

WBool Form1::pictb_7_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_7, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_7_DragFeedback"

WBool Form1::pictb_7_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_7_DragStart"

WBool Form1::pictb_7_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 6, event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_8_Create"

WBool Form1::pictb_8_Create(
    WObject           *source,
    WCreateEventData        *event )
{
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_8_DragContinue"

WBool Form1::pictb_8_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_8_DragEnd"

WBool Form1::pictb_8_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_8, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_8_DragFeedback"

WBool Form1::pictb_8_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_8_DragStart"

WBool Form1::pictb_8_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 7, event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_9_Create"

WBool Form1::pictb_9_Create(
    WObject           *source,
    WCreateEventData        *event )
{
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_9_DragContinue"

WBool Form1::pictb_9_DragContinue(
    WObject           *source,
    WDragEventData        *event )
{
    Continue( event );

    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_9_DragEnd"

WBool Form1::pictb_9_DragEnd(
    WObject           *source,
    WDragEventData        *event )
{
    Place( pictb_9, event );
    return TRUE;
}

@end-code;

@begin-code Code "Form1::pictb_9_DragFeedback"

WBool Form1::pictb_9_DragFeedback(
    WObject           *source,
    WDragEventData        *event )
{
    WDragEventData * d_Ev = (WDragEventData *) event;
    Feedback( d_Ev );

    return FALSE;
}

@end-code;

@begin-code Code "Form1::pictb_9_DragStart"

WBool Form1::pictb_9_DragStart(
    WObject           *source,
    WDragEventData        *event )
{
    StartMove( 8, event );

    return TRUE;
}

@end-code;
@end;