How To Tutorials

How to Create a .NET Calendar Control (NOMADS)

1.

In Library Object Selection, launch the NOMADS Panel Designer by clicking the Panel toolbar button or selecting Objects > Panel Object in the menu bar.

Enter the name of the new panel.

For this example, enter the panel name:  Net_Calendar

Click OK.

2.

Select the External Controls button on the toolbar. Draw an External Control on the panel so that it is an approximate size suitable for the .NET Calendar control.

3.

The External Control Properties window opens.

4.

In the Object Name field, enter the control name or object handle.

For this example, enter the object name: Net_Calendar

For the calendar's Position and Size coordinates, enter the values below:

     Column = 3.00
     Line = 1.60
     Width = 34.00
     Height = 11.60

5.

For the Ext. Control field, click the Query button. From the list that displays, select the type of External Control you want to create.

For this example, select:  .NET Controls

6.

Additional fields display for specifying a .NET DLL Name, Object Name and any optional Arguments.

For the DLL Name, you can either choose a specific path location for the .dll file by clicking the Browse button or enter the .NET DLL name.

For this example, enter:  System.Windows.Forms

Note:
The DLL Name does not require the .dll extension.

7.

In the Object Name field, enter the name of the .NET object.

Note:
.NET object names are case sensitive.

For this example, you will be creating a .NET MonthCalendar object.

For the object name, enter:  System.Windows.Forms.MonthCalendar

8.

You can optionally pass in arguments when creating .NET objects. These arguments can be strings, numbers, or .NET object handles. See PvxHandle$.

In the Arguments (Optional) field, enter any optional arguments used by the .NET control.

For this example, leave this field blank.

9.

Click OK to exit the External Control Properties window and return to the NOMADS Panel Designer.

10.

Save and Test the panel by clicking the Save and Test buttons on the toolbar. A calendar displays on the panel.

1.

In the header Panel Definition window, click the Logic tab. In the Pre-Display section, you will define a method to be performed prior to the panel being displayed.

2.

Select Perform from the drop box. Then, create a method called ";Pre_Display_Logic". This method will include the logic where other necessary .NET objects and variables will be defined.

3.

Click the Program Logic button to the right of the drop box. The default PxPlus program editor will launch and will have created the method.

In the header Panel Definition window, click OK to accept the changes and exit the panel definition.

Keep the program editor open as you will be adding to the program later.

4.

To customize the appearance, you will create three additional objects and insert the three lines shown below.

The Application object has methods to start and stop applications and threads, and to process Windows messages. It allows access to the VisualStyleState object below.

Insert this line and save the program:

     def object app,"[.NET]System.Windows.Forms,System.Windows.Forms.Application"

The VisualStyleState object specifies how visual styles are applied to the current application. The property needed for the calendar style will also be needed in the program.

For this example, you will only apply visual styles to the calendar (nonclient area); otherwise, this property will affect all windows controls.

Insert these two lines and save the program:

     def object vis,"[.NET]System.Windows.Forms,System.Windows.Forms.VisualStyles.VisualStyleState"
     app'VisualStyleState=1

5.

You will now create a new object for Color.

Insert this line and save the program:

     def object color,"[.NET]System.Drawing,System.Drawing.Color"

This shows the new lines you have inserted:

6.

Save the program in the editor if you haven't already done this.

7.

In the NOMADS Panel Designer, double click on the .NET MonthCalendar control on the panel to invoke the External Control Properties window.

In the External Control Properties window, click the Properties tab. In the first grid, look for BackColor in the Item column.

For this example, you will be setting the color DarkSalmon.

Select the Exp check box and enter the Value/Expression:  color'DarkSalmon'Pvxhandle$

8.

In the External Control Properties window, click OK.

9.

Save and Test the panel. The calendar will look similar to the one below:

1.

In the External Control Properties window, click the Properties tab. In the first grid, look for ForeColor in the Item column.

Select the Exp check box and enter the Value/Expression:  color'FromArgb(255,255,240)'Pvxhandle$

2.

In the External Control Properties window, click OK.

3.

Save and Test the panel. The calendar will look similar to the one below:

1.

In the External Control Properties window, click the Properties tab. In the first grid, look for TitleBackColor in the Item column.

For this example, you will be setting the color MediumOrchid.

Select the Exp check box and enter the Value/Expression:  color'MediumOrchid'Pvxhandle$

2.

In the External Control Properties window, click OK.

3.

Save and Test the panel. The calendar will look similar to the one below:

1.

In the External Control Properties window, click the Properties tab. In the first grid, look for MaxSelectionCount in the Item column.

Enter the Value/Expression: 20

(Entering a value of 20 will allow the user to select 20 days as the date range.)

2.

In the External Control Properties window, click OK.

3.

Save and Test the panel. The calendar will look similar to the one below where a maximum of 20 days can be selected.

1.

In the NOMADS Panel Designer, invoke the External Control Properties window.

Click the Properties tab. In the second grid, look for DateSelected in the Event column.

In the Function column, select Perform from the drop box.

In the Logic cell, enter:  ";Date_Selected"

2.

Return to the program editor and load the default program, NOM_DOTNET_Calendar, which you created earlier.

Insert this method and save the program:

Date_Selected:
      fd$=net_calendar.ctl'selectionstart'toString$("dd MMM yyyy")
      td$=net_calendar.ctl'selectionend'toString$("dd MMM yyyy")
      if fd$<>td$ then {! fd$>td$ more than 1 date was selected
      msgbox "From Date: "+fd$+sep+"To Date: "+td$,"Date Range Selection"
      return
      }
      msgbox "Date Selected: "+fd$,"Date Selection"
      return
      !

3.

In the External Control Properties window, click OK.

4.

Save and Test the panel. Selecting a date range will result in the message box displaying the date range selected.

1.

Expand the height of the Net_Calendar panel so that you have enough space to add the two multi-line fields (as shown below).

2.

Create two multi-line fields with the following details:

For the name of the first multi-line, enter: fd (stands for From Date).

For the Initial Value, enter:  From Date

Click OK to save.

For the name of the second multi-line, enter: td (stands for To Date).

For the Initial Value, enter:  To Date

Click OK to save.

1.

In the NOMADS Panel Designer, open the header Panel Definition window.

2.

Click the Attributes tab. Select the Auto Refresh check box. By setting this option, changes to the fd$ or td$ values will automatically be displayed on the panel without setting REFRESH_FLG=1.

3.

Click OK to save these changes and exit the Panel Definition window.

1.

In the NOMADS Panel Designer, select Utilities > Dependency Definition from the menu bar.

2.

The Dependency Definition window opens.

In the Condition cell, enter:  td$=fd$

The Invert check box is automatically selected. Leave this selected to ensure the opposite logic when the condition is false.

3.

Click the ellipsis button (three dots) in the Actions for Controls cell. The Actions for Controls window opens, showing the two control names.

In the Function column, leave the fd control set to Ignore. For the td control, select Hide from the drop down list.

4.

Click OK to accept these selections and exit the Actions for Controls window.

5.

You are returned to the Dependency Definition window. Click OK again.

6.

Save and Test the panel.

This first example shows selecting a date range results in the message box displaying the From/To dates selected. The From Date and To Date fields are populated with these dates.

This next example shows that selecting a single date results in the message box displaying the date selected, and the To Date field is hidden, since only one date was selected.

1.

From the NOMADS Panel Designer, invoke the header Panel Definition window for the Net_Calendar panel by clicking the Header Panel option on the toolbar or selecting Panel > Header from the menu bar.

2.

Click the Logic tab. You will be using the On Exit section to perform the cleanup of any objects defined.

3.

Select Perform from the drop box. The method that you will be creating is called:  ";On_Exit_Logic"

This will perform the method where all the objects will be dropped.

4.

If the program is not already loaded in the editor, click the Program Logic button to the right of the drop box to load the default program:  NOM_DOTNET_Calendar

Insert this method and save the program:

On_Exit_Logic:
      drop object color,err=*next
      drop object app,err=*next
      drop object vis,err=*next
      drop object dateselected,err=*next
      drop object net_calendar,err=*next
!
      end
!