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

Text File | 1996-09-16 | 4.4 KB | 221 lines

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

 @begin Object "WModelessDialog"
  WSChild 1;
  WSVisible 1;
  Font "8.MS Sans Serif";
  FormPositionType "Centered";
  @begin Event "Close"
   GencodeSrcLine 142;
   FunctionName "TabForm1::TabForm1_Close";
  @end;
  @begin Event "Create"
   GencodeSrcLine 155;
   FunctionName "TabForm1::TabForm1_Create";
  @end;
  @begin UserFunction "TabForm1()"
   Compiler 1;
   GencodeSrcLine 164;
   FunctionName "TabForm1::TabForm1()";
  @end;
  @begin UserFunction "~TabForm1()"
   Compiler 1;
   GencodeSrcLine 168;
   FunctionName "TabForm1::~TabForm1()";
  @end;
  ResID 103;
  DesignName TabForm1;
  TabIndex 0;
  DesignRect 47,178,55,103;
 @end;

 @begin Object "WColorWell"
  WSClipSiblings 1;
  WSChild 1;
  WSVisible 1;
  @begin Event "LeftButtonDown"
   GencodeSrcLine 172;
   FunctionName "TabForm1::cwell_1_LeftButtonDown";
  @end;
  @begin Event "RightButtonDown"
   GencodeSrcLine 186;
   FunctionName "TabForm1::cwell_1_RightButtonDown";
  @end;
  ResID 101;
  DesignName cwell_1;
  TabIndex 0;
  DesignRect 0,0,55,75;
 @end;

 @begin Object "WPictureBox"
  WSSIcon 1;
  WSSNotify 1;
  WCCSTop 1;
  WCCSNoMoveY 1;
  WCCSBottom 1;
  WSClipSiblings 1;
  WSChild 1;
  WSExStaticEdge 1;
  WSVisible 1;
  ResID 102;
  DesignName pictb_2;
  TabIndex 1;
  DesignRect 28,80,27,20;
  @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;
  WSExStaticEdge 1;
  WSVisible 1;
  ResID 103;
  DesignName pictb_1;
  TabIndex 2;
  DesignRect 0,80,27,20;
  @begin ComponentData "pictb_1"
   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 "Form1.hpp"

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

@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 48;
 @end;

@begin-code GeneratedClassContents

        TabForm1();
        ~TabForm1();

@end-code;

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

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

}

@end-code;

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

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

}

@end-code;

@begin-code Code "TabForm1::TabForm1_Close"

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

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

    return FALSE;
}

@end-code;

@begin-code Code "TabForm1::TabForm1_Create"

WBool @CLASSNAME@::TabForm1_Create(
    WObject *                 source,
    WCreateEventData *        event )
{
    pictb_1->SetBackColor( ((Form1 *)__MainForm)->getForeColor() );
    pictb_2->SetBackColor( ((Form1 *)__MainForm)->getBackColor() );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm1::cwell_1_LeftButtonDown"

WBool @CLASSNAME@::cwell_1_LeftButtonDown(
    WObject *                source,
    WMouseEventData *        event )
{
    WPoint      selected;
    int         itemNumber;

    selected = cwell_1->GetSelected();
    itemNumber = selected.y * cwell_1->GetColumnCount() + selected.x;
    ((Form1 *)__MainForm)->setForeColor( cwell_1->GetColor( itemNumber ) );
    pictb_1->SetBackColor( ((Form1 *)__MainForm)->getForeColor() );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm1::cwell_1_RightButtonDown"

WBool @CLASSNAME@::cwell_1_RightButtonDown(
    WObject *                source,
    WMouseEventData *        event )
{
    WPoint      selected;
    int         itemNumber;

    selected = cwell_1->GetSelected();
    itemNumber = selected.y * cwell_1->GetColumnCount() + selected.x;
    ((Form1 *)__MainForm)->setBackColor( cwell_1->GetColor( itemNumber ) );
    pictb_2->SetBackColor( ((Form1 *)__MainForm)->getBackColor() );

    return FALSE;
}

@end-code;
@end;