io Programmo 10/ioProg_10.iso/soft/optima/samples.z/TabForm2.wxf

Text File | 1996-09-16 | 9.6 KB | 470 lines

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

 @begin Object "WModelessDialog"
  WSChild 1;
  WSVisible 1;
  Font "8.MS Sans Serif";
  FormPositionType "Centered";
  @begin Event "Close"
   GencodeSrcLine 220;
   FunctionName "TabForm2::TabForm2_Close";
  @end;
  @begin Event "Create"
   GencodeSrcLine 233;
   FunctionName "TabForm2::TabForm2_Create";
  @end;
  @begin UserFunction "TabForm2()"
   Compiler 1;
   GencodeSrcLine 261;
   FunctionName "TabForm2::TabForm2()";
  @end;
  @begin UserFunction "~TabForm2()"
   Compiler 1;
   GencodeSrcLine 265;
   FunctionName "TabForm2::~TabForm2()";
  @end;
  @begin UserFunction "unPressAll( void )"
   GencodeSrcLine 269;
   FunctionName "TabForm2::unPressAll( void )";
  @end;
  @begin UserFunction "Prototype for unPressAll( void )"
   Private 1;
   GencodeSrcLine 70;
   FunctionName "TabForm2::Prototype for unPressAll( void )";
  @end;
  ResID 104;
  DesignName TabForm2;
  TabIndex 0;
  DesignRect 47,178,55,103;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 280;
   FunctionName "TabForm2::pictbttn_1_Click";
  @end;
  ResID 101;
  DesignName pictbttn_1;
  TabIndex 0;
  DesignRect 5,10,20,20;
  @begin ComponentData "pictbttn_1"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 290;
   FunctionName "TabForm2::pictbttn_2_Click";
  @end;
  ResID 102;
  DesignName pictbttn_2;
  TabIndex 1;
  DesignRect 25,10,20,20;
  @begin ComponentData "pictbttn_2"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 301;
   FunctionName "TabForm2::pictbttn_3_Click";
  @end;
  ResID 103;
  DesignName pictbttn_3;
  TabIndex 2;
  DesignRect 5,30,20,20;
  @begin ComponentData "pictbttn_3"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 312;
   FunctionName "TabForm2::pictbttn_4_Click";
  @end;
  ResID 104;
  DesignName pictbttn_4;
  TabIndex 3;
  DesignRect 25,30,20,20;
  @begin ComponentData "pictbttn_4"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 322;
   FunctionName "TabForm2::pictbttn_5_Click";
  @end;
  ResID 105;
  DesignName pictbttn_5;
  TabIndex 4;
  DesignRect 5,50,20,20;
  @begin ComponentData "pictbttn_5"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 333;
   FunctionName "TabForm2::pictbttn_6_Click";
  @end;
  ResID 106;
  DesignName pictbttn_6;
  TabIndex 5;
  DesignRect 25,50,20,20;
  @begin ComponentData "pictbttn_6"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 344;
   FunctionName "TabForm2::pictbttn_7_Click";
  @end;
  ResID 107;
  DesignName pictbttn_7;
  TabIndex 6;
  DesignRect 5,70,20,20;
  @begin ComponentData "pictbttn_7"
   Picture "<no picture>";
  @end;
 @end;

 @begin Object "WPictureButton"
  WBSBitmap 1;
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  Pressed "0";
  @begin Event "Click"
   GencodeSrcLine 355;
   FunctionName "TabForm2::pictbttn_8_Click";
  @end;
  ResID 108;
  DesignName pictbttn_8;
  TabIndex 7;
  DesignRect 25,70,20,20;
  @begin ComponentData "pictbttn_8"
   Picture "<no picture>";
  @end;
 @end;

 @begin HPPPrefixBlock
@begin-code HPPPrefix

// Declarations added here will be included at the top of the .HPP file

@end-code;
  GencodeSrcLine 10;
 @end;

 @begin CPPPrefixBlock
@begin-code CPPPrefix

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

//  Include definitions for resources.
#include "WRes.h"
#include "Form1.hpp"

@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

@end-code;
  GencodeSrcLine 64;
 @end;

@begin-code GeneratedClassContents

        TabForm2();
        ~TabForm2();

@end-code;

@begin-code Code "TabForm2::TabForm2()"

@@CLASSNAME@::@CLASSNAME@()
{

}

@end-code;

@begin-code Code "TabForm2::~TabForm2()"

@@CLASSNAME@::~@CLASSNAME@()
{

}

@end-code;

@begin-code Code "TabForm2::unPressAll( void )"

void @CLASSNAME@::unPressAll( void )
{
    pictbttn_1->SetPressed( FALSE );
    pictbttn_2->SetPressed( FALSE );
    pictbttn_3->SetPressed( FALSE );
    pictbttn_4->SetPressed( FALSE );
    pictbttn_5->SetPressed( FALSE );
    pictbttn_6->SetPressed( FALSE );
    pictbttn_7->SetPressed( FALSE );
    pictbttn_8->SetPressed( FALSE );
}

@end-code;

@begin-code Code "TabForm2::Prototype for unPressAll( void )"

    public:
        void unPressAll( void );

@end-code;

@begin-code Code "TabForm2::TabForm2_Close"

WBool @CLASSNAME@::TabForm2_Close(
    WObject *           source,
    WEventData *        event )
{
    extern WForm *__MainForm;

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

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::TabForm2_Create"

WBool @CLASSNAME@::TabForm2_Create(
    WObject *                 source,
    WCreateEventData *        event )
{
    WBitmap bitmap[ 10 ];

    bitmap[ 0 ].Create( BITMAP_01 );
    bitmap[ 1 ].Create( BITMAP_02 );
    bitmap[ 2 ].Create( BITMAP_03 );
    bitmap[ 3 ].Create( BITMAP_04 );
    bitmap[ 4 ].Create( BITMAP_05 );
    bitmap[ 5 ].Create( BITMAP_06 );
    bitmap[ 6 ].Create( BITMAP_07 );
    bitmap[ 7 ].Create( BITMAP_08 );
    pictbttn_1->SetBitmap( bitmap[ 0 ] );
    pictbttn_2->SetBitmap( bitmap[ 1 ] );
    pictbttn_3->SetBitmap( bitmap[ 2 ] );
    pictbttn_4->SetBitmap( bitmap[ 3 ] );
    pictbttn_5->SetBitmap( bitmap[ 4 ] );
    pictbttn_6->SetBitmap( bitmap[ 5 ] );
    pictbttn_7->SetBitmap( bitmap[ 6 ] );
    pictbttn_8->SetBitmap( bitmap[ 7 ] );

    ((Form1 *)__MainForm)->setTool( TOOL_PEN );
    pictbttn_1->SetPressed( true );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_1_Click"

WBool @CLASSNAME@::pictbttn_1_Click(
    WObject           *source,
    WEventData        *event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_PEN );
    unPressAll();
    pictbttn_1->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_2_Click"

WBool @CLASSNAME@::pictbttn_2_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_RECTANGLE );
    ((Form1 *)__MainForm)->setFill ( FALSE );
    unPressAll();
    pictbttn_2->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_3_Click"

WBool @CLASSNAME@::pictbttn_3_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_ELLIPSE );
    ((Form1 *)__MainForm)->setFill ( FALSE );
    unPressAll();
    pictbttn_3->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_4_Click"

WBool @CLASSNAME@::pictbttn_4_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_LINE );
    unPressAll();
    pictbttn_4->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_5_Click"

WBool @CLASSNAME@::pictbttn_5_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_ROUNDRECT );
    ((Form1 *)__MainForm)->setFill ( FALSE );
    unPressAll();
    pictbttn_5->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_6_Click"

WBool @CLASSNAME@::pictbttn_6_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_RECTANGLE );
    ((Form1 *)__MainForm)->setFill ( TRUE );
    unPressAll();
    pictbttn_6->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_7_Click"

WBool @CLASSNAME@::pictbttn_7_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_ELLIPSE );
    ((Form1 *)__MainForm)->setFill ( TRUE );
    unPressAll();
    pictbttn_7->SetPressed( TRUE );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm2::pictbttn_8_Click"

WBool @CLASSNAME@::pictbttn_8_Click(
    WObject *           source,
    WEventData *        event )
{
    ((Form1 *)__MainForm)->setTool( TOOL_ROUNDRECT );
    ((Form1 *)__MainForm)->setFill ( TRUE );
    unPressAll();
    pictbttn_8->SetPressed( TRUE );

    return FALSE;
}

@end-code;
@end;