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

Creating Child Windows

The FILE='USER' option in the OPEN statement opens a child window. The child window defaults to a scrollable text window, 30 rows by 80 columns. You can open up to 40 child windows.

When a file OPEN that specifies " file='user' " is issued for a program built with /libs:qwin (or /MW), special processing takes place to handle this as a graphics window. The user can then write and or read to this window by issuing READ and WRITE statements with the same unit number.

There are some api's that manipulate the window via unit number (e.g., setwsizeqq(), and others that manipulate it because focus has been set to that window. The FRTL automatically sets focus to the last window accessed. Thus, after an open, read, or write to unit number - focus is set to that window, and subsequent api calls such as setbkcolorrgb(), which sets the background color, works for this window.

Running a QuickWin application displays the frame window, but not the child window. You must call SETWINDOWCONFIG or execute an I/O statement or a graphics statement to display the child window. The window receives output by its unit number, as in: 

  OPEN (UNIT= 12, FILE= 'USER', TITLE= 'Product Matrix')
  WRITE (12, *) 'Enter matrix type: '

Child windows opened with FILE='USER' must be opened as sequential-access formatted files (the default). Other file specifications (direct-access, binary, or unformatted) result in run-time errors.

The following example creates three child windows. A frame window is automatically created. Text is written to each so the child windows are visible: 

  program testch
  use ifqwin
  open(11,file="user")
  write(11,*) "Hello 11"
  open(12,file="user")
  write(12,*) "Hello 12"
  open(13,file="user")
  write(13,*) "Hello 13"
  write(13,*) "Windows 11, 12, and 13 can be read and written with normal"
  write(13,*) "Fortran I/O statements. The size of each window on the screen"
  write(13,*) "can be modified by SETWSIZEQQ. The size of the virtual window"
  write(13,*) "(i.e., a data buffer) can be modified by SETWINDOWCONFIG."
  read(13,*)
  end

When this program is run, the output appears as follows:



To use the default graphics window, you should use units *, 5, or 6.

In the example below, if you comment out the " open(7, …" statement, and substitute the existing unit 7's with either *, or 6 for the WRITES and 5 for the READs, then the program should behave the same. API's such as " SETWSIZEQQ(7 , …" should specify either 5 or 6, because * is not a valid integer. One issue with using a default graphics window is that you cannot change the title of it from the default title. 

ifort /threads /Qsave /traceback /libs:qwin simple_example.f90
      PROGRAM OneWindow
      USE IFQWIN
      USE DFMT
      USE DFLIB
      USE DFPORT

      type(windowconfig):: WIN_MainInput
      type(qwinfo)      :: FrameSize, Win1Size
      integer(2)        :: i2Status
      integer(4)        :: i4Status,i4NumQ, i4Columns, i4LetterX, i4LetterY
      logical(4)        :: L4Status
      character(1)      :: c1YesNo

      i4LetterX=8   ! Height and width of the text font
      i4LetterY=16
      !
      ! Frame-Window as wide as screen but half the height
      !
      i2Status=GETWSIZEQQ(QWIN$FRAMEWINDOW,QWIN$SIZEMAX,FrameSize)
      FrameSize.H=FrameSize.H/2 !! set window height 1/2 of max height
      FrameSize.W=FrameSize.W/3 !! set window width 1/3 of max width
      i2Status=SETWSIZEQQ(QWIN$FRAMEWINDOW,FrameSize)
      i4Columns=FrameSize.W/i4LetterX -1  ! number of possible columns in each window
      !
      ! Input-window for Main part
      !
      open(7, file='user',title="Main Input"C)
      Win_MainInput.title="Main Input"C !! in addition to OPEN, title can also be specified by setwindowconfig()
      Win_MainInput.numtextrows=INT((FrameSize.H-40)/i4LetterY)
      Win_MainInput.numtextcols=i4Columns 
      Win_MainInput.fontsize=65536*i4LetterX+i4LetterY
      L4Status=setwindowconfig(Win_MainInput)
      i4Status=setbkcolorrgb(#FFFFFF)   !! white background
      i4Status=settextcolorrgb(#000000) !! black text
      call clearscreen($GCLEARSCREEN)
      Win1Size.X=0
      Win1Size.Y=0
      Win1Size.H=INT((FrameSize.H-40)/i4LetterY)
      Win1Size.W=i4Columns
      Win1Size.type=QWIN$SET
      i4Status=setwsizeqq(7,Win1Size)

      write(7,'("This is the Main Input window.",/)')
10    write(7,'("Type Y or y to Terminate this program: ",\)')
      read(7,'(Q,A)') i4NumQ, c1YesNo
      if (i4NumQ /= 1) goto 10
      if (c1YesNo == 'Y' .or. c1YesNo == 'y') goto 20
      goto 10

20    continue    
      END PROGRAM OneWindow
Parent topic: Creating QuickWin Windows
Level Two Title