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

Text File | 1996-09-16 | 4.5 KB | 228 lines

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

 @begin Object "WForm"
  WSCaption 1;
  WSHScroll 1;
  WSVScroll 1;
  WSDlgBorder 1;
  WSSysMenu 1;
  WSSystemMenu 1;
  WSMinimizeBox 1;
  WSMaximizeBox 1;
  WSGroup 1;
  WSTabStop 1;
  WSVisible 1;
  Font "8.MS Sans Serif";
  FormPositionType "Centered";
  FormAbsTop "107";
  FormAbsLeft "12";
  Text "Scrollable Form";
  @begin Event "Create"
   GencodeSrcLine 164;
   FunctionName "MainForm::MainForm_Create";
  @end;
  @begin UserFunction "MainForm()"
   Compiler 1;
   GencodeSrcLine 181;
   FunctionName "MainForm::MainForm()";
  @end;
  @begin UserFunction "~MainForm()"
   Compiler 1;
   GencodeSrcLine 185;
   FunctionName "MainForm::~MainForm()";
  @end;
  ResID 102;
  DesignName MainForm;
  TabIndex 0;
  DesignRect 12,107,190,195;
 @end;

 @begin Object "WLabel"
  WSSNotify 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  Text "This example demonstrates scrollable forms.  You can scroll the form horizontally and vertically to see additional controls.  To make a form scrollable, you should design it full size, then put code in the 'Create' event that makes it smaller and call"+
"s SetAutomaticScrolling( TRUE ) in the Create event.  See MainForm_Create.";
  ResID 101;
  DesignName description;
  TabIndex 0;
  DesignRect 5,5,120,115;
 @end;

 @begin Object "WCommandButton"
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Default "1";
  Pressed "0";
  FDXFieldName "cb_1_data";
  FDXFieldType "WBool";
  Text "OK";
  @begin Event "Click"
   GencodeSrcLine 189;
   FunctionName "MainForm::ok_Click";
  @end;
  ResID 102;
  DesignName ok;
  TabIndex 1;
  DesignRect 130,5,40,14;
 @end;

 @begin Object "WCommandButton"
  WSChild 1;
  WSMaximizeBox 1;
  WSTabStop 1;
  WSVisible 1;
  Pressed "0";
  FDXFieldName "cb_1_data";
  FDXFieldType "WBool";
  Text "Cancel";
  Cancel "1";
  @begin Event "Click"
   GencodeSrcLine 196;
   FunctionName "MainForm::cancel_Click";
  @end;
  ResID 103;
  DesignName cancel;
  TabIndex 2;
  DesignRect 130,25,40,14;
 @end;

 @begin Object "WLabel"
  WSSLeftNoWordWrap 1;
  WSSNotify 1;
  WCCSNoResize 1;
  WCCSNoParentAlign 1;
  WSChild 1;
  WSVisible 1;
  Text "Just a dummy field:";
  AutoSize "1";
  ResID 104;
  DesignName label_1;
  TabIndex 3;
  DesignRect 5,130,57,8;
 @end;

 @begin Object "WTextBox"
  WTextBoxAutoHScroll 1;
  WSBorder 1;
  WSChild 1;
  WSExClientEdge 1;
  WSVisible 1;
  ResID 105;
  DesignName textb_1;
  TabIndex 4;
  DesignRect 5,145,120,12;
 @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"

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

@begin-code GeneratedClassContents

        MainForm();
        ~MainForm();

@end-code;

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

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

}

@end-code;

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

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

}

@end-code;

@begin-code Code "MainForm::MainForm_Create"

WBool @CLASSNAME@::MainForm_Create(
    WObject *                 source,
    WCreateEventData *        event )
{
    // enable automatic scrolling

    SetAutomaticScrolling( TRUE );

    // resize the form so that the description field fits nicely in the visible client rectangle
    WRect r = GetRectangle();
    WRect c = GetClientRectangle();
    WRect d = description->GetRectangle();
    r.h -= c.h - ( d.y + d.h ) - WApplication::GetFrameHeight();
    r.w -= c.w - ( d.x + d.w ) - WApplication::GetFrameWidth();
    Move( r );
    return FALSE;
}

@end-code;

@begin-code Code "MainForm::ok_Click"

WBool @CLASSNAME@::ok_Click(
    WObject *           source,
    WEventData *        event )
{
    Close();
    return FALSE;
}

@end-code;

@begin-code Code "MainForm::cancel_Click"

WBool @CLASSNAME@::cancel_Click(
    WObject *           source,
    WEventData *        event )
{
    Close();
    return FALSE;
}

@end-code;
@end;