Using Intel® Visual Fortran to Create and Build Windows*-Based Applications

Download PDF
ID 757211
Date 7/23/2021
Public
Document Table of Contents
Document Table of Contents x
Using Intel® Visual Fortran Compiler to Create and Build Windows*-Based Applications
Using Intel® Visual Fortran Compiler to Create and Build Windows*-Based Applications x
Legal Information Introduction Creating Windowing Applications Creating and Using DLLs Using QuickWin Using Dialog Boxes for Application Controls
Introduction x
Notational Conventions Related Information
Creating Windowing Applications x
Understanding Coding Requirements for Fortran Windowing Applications Using Menus and Dialogs in SDI and MDI Fortran Windowing Applications Sample Fortran Windows Applications Advanced Graphics Using OpenGL
Creating and Using DLLs x
Coding Requirements for Sharing Procedures in DLLs Coding Requirements for Sharing Data in DLLs Building Dynamic-Link Libraries Building Executables that Use DLLs
Using QuickWin x
Special Naming Convention for Certain QuickWin and Windows* Graphics Routines Comparing QuickWin with Windows*-Based Applications Using Windows API Routines with QuickWin Types of QuickWin Programs The QuickWin User Interface USE Statement Needed for Fortran QuickWin Applications Creating QuickWin Windows Using QuickWin Graphics Library Routines
Types of QuickWin Programs x
Fortran Standard Graphics Applications Fortran QuickWin Graphics Applications
The QuickWin User Interface x
Default QuickWin Menus
Creating QuickWin Windows x
Accessing Window Properties Creating Child Windows Giving a Window Focus and Setting the Active Window Keeping Child Windows Open Controlling Size and Position of Windows
Using QuickWin Graphics Library Routines x
Selecting Display Options Checking the Current Graphics Mode Setting the Graphics Mode Setting Figure Properties Understanding Coordinate Systems Adding Color Writing a Graphics Program Displaying Graphics Output Storing and Retrieving Images Customizing QuickWin Applications QuickWin Programming Precautions Simulating Nonblocking I/O
Understanding Coordinate Systems x
Text Coordinates Graphics Coordinates Setting Graphics Coordinates Real Coordinates Sample Program
Adding Color x
Color Mixing VGA Color Palette Using Text Colors
Writing a Graphics Program x
Activating a Graphics Mode Drawing Lines on the Screen Drawing a Sine Curve Adding Shapes
Displaying Graphics Output x
Drawing Graphics Displaying Character-Based Text Displaying Font-Based Characters Using Fonts from the Graphics Library
Using Fonts from the Graphics Library x
Available Typefaces Initializing Fonts Setting the Font and Displaying Text SHOWFONT.F90 Example
Storing and Retrieving Images x
Transferring Images in Memory Loading and Saving Images to Files Editing Text and Graphics from the QuickWin Edit Menu
Customizing QuickWin Applications x
Enhancing QuickWin Applications Controlling Menus Changing Status Bar and State Messages Displaying Message Boxes Defining an About Box Using Custom Icons Using a Mouse
QuickWin Programming Precautions x
Using Blocking Procedures Using Callback Routines
Using Dialog Boxes for Application Controls x
Using the Resource Editor to Design a Dialog Box Writing a Dialog Application Summary of Dialog Routines Understanding Dialog Controls Using Dialog Controls Using ActiveX* Controls
Using the Resource Editor to Design a Dialog Box x
Setting Control Properties Including Resources Using Multiple Resource Files The Include (.FD and .H) Files
Writing a Dialog Application x
Initializing and Activating the Dialog Box Using Dialog Callback Routines Using a Modeless Dialog Box Using Fortran AppWizards to Help Add Modal Dialog Box Coding Using Fortran AppWizards to Help Add Modeless Dialog Box Coding Using Dialog Controls in a DLL
Understanding Dialog Controls x
Using Control Indexes Available Indexes for Each Dialog Control Specifying Control Indexes
Using Dialog Controls x
Using Static Text Using Edit Boxes Using Group Boxes Using Check Boxes and Radio Buttons Using Buttons Using List Boxes and Combo Boxes Using Scroll Bars Using Pictures Using Progress Bars Using Spin Controls Using Sliders Using Tab Controls Setting Return Values and Exiting
Using ActiveX* Controls x
Using the Resource Editor to Insert an ActiveX Control Using the Intel® Fortran Module Wizard to Generate a Module Adding Code to Your Application Registering an ActiveX Control
Using Intel® Visual Fortran Compiler to Create and Build Windows*-Based Applications

Adding Code to Your Application

The structure of your application remains the same as when using a dialog box that does not contain an ActiveX control. See Writing a Dialog Application Overview for details. This section discusses programming specific to ActiveX controls.

Your application must call COMINITIALIZE before calling DLGINIT with a dialog box that contains an ActiveX control. Your application must include the statement USE IFCOM to access COMINITIALIZE. Your application must call COMUNINITIALIZE when you are done using ActiveX controls, but not before calling DLGUNINIT for the dialog box that contains the ActiveX control.

You can call the methods of an ActiveX control and set and retrieve its property values using the interfaces generated by the Intel Fortran Module Wizard or by using the IFAUTO routines. To do this, you must have the object's IDispatch interface pointer. Use the DLGGET function with the ActiveX control's name, the DLG_IDISPATCH control index, and an integer variable to receive the IDispatch pointer. For example: 

  retlog = DlgGet( dlg, IDC_ACTIVEX, idispatch, DLG_IDISPATCH )

You do not need to specify the index DLG_IDISPATCH because it is the default integer index for an ActiveX control.

However, the control's IDispatch pointer is not available until after the control has been created and is only valid until the dialog box is closed. The control is created during the call to DLGMODALDLGMODELESS or . If you call DLGGET to retrieve the IDispatch pointer before calling DLGMODAL or DLGMODELESS, the value returned will be 0.

Do not call COMRELEASEOBJECT with the iDispatch pointer returned by DLGGET. The dialog procedures use a reference counting optimization since the lifetime of the control is guaranteed to be less than the lifetime of the dialog box.

If you want to use a method or property of a control before the dialog box is displayed to your application's user, you can use a DLG_INIT callback. Call DLGSETSUB using the dialog box name and the DLG_INIT index to define the callback. For example: 

  retlog = DlgSetSub( dlg, IDD_DIALOG, DlgSub, DLG_INIT )

The DLG_INIT callback is called after the dialog box is created but before it is displayed (with callbacktype=DLG_INIT) and immediately before the dialog box is destroyed (with callbacktype=DLG_DESTROY). The DLG_INIT callback is the soonest that the control's IDispatch pointer is available. The DLG_DESTROY callback is the latest that this pointer is valid. After the DLG_DESTROY callback, the ActiveX control is destroyed.

The following example shows using a DLG_INIT callback to reset the state of a control property before it is destroyed: 

  SUBROUTINE mmplayerSub( dlg, id, callbacktype )
   !DEC$ ATTRIBUTES DEFAULT :: mmplayerSub
   use iflogm
   use ifcom
   use ifauto
   implicit none
   type (dialog) dlg
   integer id, callbacktype
   include 'resource.fd'
   integer obj, iret
   logical lret
   if (callbacktype == dlg_init) then
       lret = DlgGet(dlg, IDC_ACTIVEMOVIECONTROL1, obj)
       !  Add any method or property calls here before the
       !  dialog box is displayed
   else if (callbacktype == dlg_destroy) then
       !  Reset the filename to "" to "close" the current file
       lret = DlgGet(dlg, IDC_ACTIVEMOVIECONTROL1, obj)
       iret = AUTOSETPROPERTY(obj, "FileName", "")
   endif
  END SUBROUTINE mmplayerSub

The module generated by the Fortran Module Wizard for an ActiveX control contains a number of sections:

  • ! CLSIDs

    Parameters of derived type GUID which identify the ActiveX control class. Your application typically doesn't need to use this parameter.

  • ! IIDs

    Parameters of derived type GUID which identify source (event) interfaces of the ActiveX control. Your application can use these values in calls to DLGSETCTRLEVENTHANDLER (see below).

  • ! Enums

    Parameters of type integer that identify constants used in the ActiveX control's interfaces.

  • ! Interfaces

    Interfaces for the source (event) interfaces that are defined by the ActiveX control. There may be 0, 1, or more source interfaces implemented by the control. A control does not have to support events.

  • ! Module Procedures

    Wrapper routines that make it easy to call the control's methods and get or retrieve the control's properties.

See the Language Reference for more information on using the method and property interfaces generated by the Intel Fortran Module Wizard.

In addition to methods and properties, ActiveX controls also define events to notify your application that something has happened to the control. The dialog procedures provide a routine, DLGSETCTRLEVENTHANDLER, that allows you to define a routine to be executed when an event occurs.

The DLGSETCTRLEVENTHANDLER function has the following interface: 

integer DlgSetCtrlEventHandler( dlg, controlid, handler, dispid, iid )

The arguments are as follows:

dlg

(Input) Derived type DIALOG. Contains dialog box parameters.

controlid

(Input) Integer. Specifies the identifier of a control within the dialog box (from the .FD file).

handler

(Input) EXTERNAL. Name of the routine to be called when the event occurs.

dispid

(Input) Integer. Specifies the member id of the method in the event interface that identifies the event

iid

(Input, Optional) Derived type (GUID). Specifies the Interface identifier of the source (event) interface. If not supplied, the default source interface of the ActiveX control is used.

Consider the following function call: 

  ret = DlgSetCtrlEventHandler( dlg, IDC_ACTIVEMOVIECONTROL1, &
      ActiveMovie_ReadyStateChange, -609, IID_DActiveMovieEvents2 )

In this function call:

  • IDC_ACTIVEMOVIECONTROL1 identifies an ActiveMovie control in the dialog box.

  • ActiveMovie_ReadyStateChange is the name of the event handling routine.

  • -609 is the member id of the ActiveMovie's control ReadyStateChange event. You can get this number from:

    • The module that the Fortran Module Wizard generated. There is a "MEMBERID = nn" comment generated for each method in a source interface (see the example below).

    • The documentation of the ActiveX control.

    • A tool that allows you to examine the type information of the ActiveX control, for example, the OLE/COM Object Viewer in the Microsoft Visual Studio* IDE.

  • IID_DActiveMovieEvents2 is the identifier of the source (event) interface.

The interface generated by the Intel Fortran Module Wizard for the ReadyStateChange event follows: 

 INTERFACE
   !Reports that the ReadyState property of the ActiveMovie Control 
   !has changed
   ! MEMBERID = -609
   SUBROUTINE DActiveMovieEvents2_ReadyStateChange($OBJECT, ReadyState)
       INTEGER(4), INTENT(IN)	:: $OBJECT	 ! Object Pointer
       !DEC$ ATTRIBUTES VALUE	:: $OBJECT
       INTEGER(4)	:: ReadyState
       !DEC$ ATTRIBUTES VALUE	:: ReadyState
       !DEC$ ATTRIBUTES STDCALL :: DActiveMovieEvents2_ReadyStateChange
    END SUBROUTINE DActiveMovieEvents2_ReadyStateChange
  END INTERFACE

The handler that you define in your application must have the same interface. Otherwise, your application will likely crash in unexpected ways because of the application's stack getting corrupted.

Note that an object is always the first parameter in an event handler. This object value is a pointer to the control's source (event) interface, not the IDispatch pointer of the control. You can use DLGGET as described above to retrieve the control's IDispatch pointer.

Parent topic: Using ActiveX* Controls
Level Two Title