Home > Archive > Fortran > April 2006 > Screen control in Compaq Fortran
You are viewing an archived Text-only version of the thread.
To view this thread in it's original format and/or if you want to reply to
this thread please [click here]
| Author |
Screen control in Compaq Fortran
|
|
| John.Humble@utas.edu.au 2006-04-10, 7:02 pm |
| Under Developer Studio I have several Quickwin Compaq Fortran programs
that produce data plots. Each plot appears in its own window. My
problem is how to control the position and size of the window. At
present they generally overlap the controlling window where the user
enters parameters. They also have to be manually maximised each time.
As a start, I've tried manipulating window size by the following test
program. However, regardless of the values I try for h and w the
screen always opens at the same size. Until I understand this there's
no point in trying to go further. The former Compaq Fortran Forum was
shut down after HP's takeover, so would someone be able to help me
here?
Thanks
program test_windows
Use DFLIB
type (qwinfo) winfo
integer*4 result
unit = 0
winfo%type = 0
winfo%x = 50
winfo%y = 50
winfo%h = 50
winfo%w = 200
result = setwsizeqq(0, winfo)
type *, 'A test window'
end program
| |
| Gary L. Scott 2006-04-10, 10:02 pm |
| John.Humble@utas.edu.au wrote:
> Under Developer Studio I have several Quickwin Compaq Fortran programs
> that produce data plots. Each plot appears in its own window. My
> problem is how to control the position and size of the window. At
> present they generally overlap the controlling window where the user
> enters parameters. They also have to be manually maximised each time.
>
> As a start, I've tried manipulating window size by the following test
> program. However, regardless of the values I try for h and w the
> screen always opens at the same size. Until I understand this there's
> no point in trying to go further. The former Compaq Fortran Forum was
> shut down after HP's takeover, so would someone be able to help me
> here?
>
> Thanks
>
> program test_windows
>
> Use DFLIB
>
> type (qwinfo) winfo
> integer*4 result
>
> unit = 0
> winfo%type = 0
> winfo%x = 50
> winfo%y = 50
> winfo%h = 50
> winfo%w = 200
>
> result = setwsizeqq(0, winfo)
> type *, 'A test window'
>
> end program
>
These types of questions are perfect for the Intel Visual Fortran forum,
the successor to the DEC/Compaq/HP forum.
http://softwareforums.intel.com/
--
Gary Scott
mailto:garyscott@ev1.net
Fortran Library: http://www.fortranlib.com
Support the Original G95 Project: http://www.g95.org
-OR-
Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html
Why are there two? God only knows.
If you want to do the impossible, don't hire an expert because he knows
it can't be done.
-- Henry Ford
| |
| John.Humble@utas.edu.au 2006-04-11, 4:04 am |
|
Gary L. Scott wrote:
> John.Humble@utas.edu.au wrote:
> These types of questions are perfect for the Intel Visual Fortran forum,
> the successor to the DEC/Compaq/HP forum.
>
> http://softwareforums.intel.com/
>
>
> --
>
> Gary Scott
> mailto:garyscott@ev1.net
>
> Fortran Library: http://www.fortranlib.com
>
> Support the Original G95 Project: http://www.g95.org
> -OR-
> Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html
>
> Why are there two? God only knows.
>
>
> If you want to do the impossible, don't hire an expert because he knows
> it can't be done.
>
> -- Henry Ford
Thanks Gary. Obviously, I'd not known about that group. I'll post
there.
John
|
|
|
|
|