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

Text File | 1996-09-16 | 3.9 KB | 213 lines

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

 @begin Object "WModelessDialog"
  WSChild 1;
  WSExControlParent 1;
  WSVisible 1;
  Font "8.MS Sans Serif";
  FormPositionType "Centered";
  @begin Event "Create"
   GencodeSrcLine 154;
   FunctionName "TabForm5::TabForm5_Create";
  @end;
  @begin UserFunction "TabForm5()"
   Compiler 1;
   GencodeSrcLine 170;
   FunctionName "TabForm5::TabForm5()";
  @end;
  @begin UserFunction "~TabForm5()"
   Compiler 1;
   GencodeSrcLine 174;
   FunctionName "TabForm5::~TabForm5()";
  @end;
  ResID 104;
  DesignName TabForm5;
  TabIndex 0;
  DesignRect 198,159,239,219;
 @end;

 @begin Object "WLabel"
  WSSLeftNoWordWrap 1;
  WSSNotify 1;
  WCCSNoResize 1;
  WCCSNoParentAlign 1;
  WSChild 1;
  WSMinimizeBox 1;
  WSGroup 1;
  WSVisible 1;
  Text "&2. Choose an output format.";
  AutoSize "1";
  ResID 101;
  DesignName label_2;
  TabIndex 0;
  DesignRect 10,40,87,8;
 @end;

 @begin Object "WListBox"
  WLBSNotify 1;
  WLBSHasStrings 1;
  WLBSNoIntegralHeight 1;
  WCCSTop 1;
  WCCSNoDivider 1;
  WSVScroll 1;
  WSBorder 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSExClientEdge 1;
  WSVisible 1;
  @begin Event "Select"
   GencodeSrcLine 178;
   FunctionName "TabForm5::lb_OutputFormat_Select";
  @end;
  ResID 102;
  DesignName lb_OutputFormat;
  TabIndex 1;
  DesignRect 10,50,215,75;
  @begin ComponentData "lb_OutputFormat"
@begin-code ListBoxInitialText

N:1.3E3R0P0
N:$*.2(),R0

@end-code;
  @end;
 @end;

 @begin Object "WLabel"
  WSSLeftNoWordWrap 1;
  WSSNotify 1;
  WCCSNoResize 1;
  WCCSNoParentAlign 1;
  WSChild 1;
  WSVisible 1;
  Text "&1. Type a number.";
  AutoSize "1";
  ResID 103;
  DesignName label_Number;
  TabIndex 2;
  DesignRect 10,10,57,8;
 @end;

 @begin Object "WMaskedTextBox"
  WTextBoxAutoHScroll 1;
  WSBorder 1;
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSExClientEdge 1;
  WSVisible 1;
  InputMask "";
  UseCurrentDate "0";
  OutputFormat "";
  PromptChar "'_'";
  ResID 104;
  DesignName mtextb_1;
  TabIndex 3;
  DesignRect 10,20,215,13;
 @end;

 @begin HPPPrefixBlock
@begin-code HPPPrefix

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

@end-code;
  GencodeSrcLine 11;
 @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"

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

@begin-code GeneratedClassContents

        TabForm5();
        ~TabForm5();

@end-code;

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

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

}

@end-code;

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

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

}

@end-code;

@begin-code Code "TabForm5::TabForm5_Create"

WBool @CLASSNAME@::TabForm5_Create(
    WObject *               source,
    WCreateEventData *      event )
{
    WString text;

    mtextb_1->SetInputMask( "*************************" );

    text = "N:$*.2(),R0";
    lb_OutputFormat->Select( text );
    mtextb_1->SetOutputFormat( text );

    mtextb_1->SetText( "12345" );

    return FALSE;
}

@end-code;

@begin-code Code "TabForm5::lb_OutputFormat_Select"

WBool @CLASSNAME@::lb_OutputFormat_Select(
    WObject *           source,
    WEventData *        event )
{
    WString text;
    int     index;

    index = lb_OutputFormat->GetSelected();
    if( index != -1 ) {
        text = lb_OutputFormat->GetText( index );
        mtextb_1->SetOutputFormat( text );
    }

    return FALSE;
}

@end-code;
@end;