![forums.silverfrost.com Forum Index](templates/subSilver/images/logo_phpBB.gif) |
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: N�rnberg, Germany
|
Posted: Tue Dec 28, 2010 6:35 pm Post subject: ClearWin window with vscroll |
|
|
Hi
The example user interface has a top and bottom box as shown in the figure below. The top box is for data input and the lower one for displaying the results. In the lower box is a clearWin window with a vertical scroll to display the results. It should be similar to the output window in the Plato IDE.
![](http://img530.imageshack.us/img530/4773/gui.gif)
Last edited by jjgermis on Wed Dec 29, 2010 9:10 am; edited 6 times in total |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: N�rnberg, Germany
|
Posted: Tue Dec 28, 2010 6:45 pm Post subject: |
|
|
The initial problem as explained above is fixed. Ragarding the lower box: The idea is to have a Clearwin window within a box. However, when I test the code it writes the results to a new Clearwin window (see figure below) and not the one defined in the code.
Question: What should I change in oder to direct the result to the desired window? The test code which produce the result in the figure is given at the end of this entry.
![](http://img51.imageshack.us/img51/8739/enum.gif) Code: | winapp
program enum
use mswin
implicit none
integer :: i,j,ctrl
character(len =20):: string
ctrl = -1
i=winio@('%ca[Enumarate fonts]&')
i=winio@('%sy[thin_border]&')
i=winio@('%bg[BTNFACE]&')
i=winio@('%mn[E&xit]&','EXIT')
! Open a box
i=winio@('%nl%ob[raised]&')
i=winio@('Results %ff%nl&')
! Define a clearwin window
i=winio@('%ob[depressed]%40.20cw[vscroll]%cb&',0)
i=winio@('%lw&',ctrl)
do j=1,1000
call get_font_name@(string,j)
if (string /=' ') then
print *,j,' [',string,'] '
else
exit
endif
enddo
i=winio@('%cb')
end program enum |
|
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
Wilfried Linder
Joined: 14 Nov 2007 Posts: 314 Location: D�sseldorf, Germany
|
Posted: Wed Dec 29, 2010 4:37 pm Post subject: |
|
|
Code: | winapp
program enum
use mswin
implicit none
integer :: i,ctrl,liste
ctrl = -1
i=winio@('%ca[Enumarate fonts]&')
i=winio@('%sy[thin_border]&')
i=winio@('%bg[BTNFACE]&')
i=winio@('%mn[E&xit]&','EXIT')
! Open a box
i=winio@('%nl%ob[raised]&')
i=winio@('Results %ff%nl&')
! Define a clearwin window
i=winio@('%ob[depressed]%40.20cw[vscroll]%cb&',6)
i=winio@('%lw%cb',ctrl)
i=liste()
end
integer function liste()
use mswin
implicit none
integer :: j
character(len =20):: string
do j=1,1000
call get_font_name@(string,j)
if (string /=' ') then
write(6,'(I4,A5,A20,A5)')j,' [',string,'] '
else
exit
endif
enddo
liste = 1
end |
Best regards,
Wilfried |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
jjgermis
Joined: 21 Jun 2006 Posts: 404 Location: N�rnberg, Germany
|
Posted: Wed Dec 29, 2010 5:26 pm Post subject: |
|
|
Hi Wilfried
thanks for your help! I think I understand now how to do this:
1.) define the fortran_unit (6 in this case)
2.) close the box which contains the ClearWin window after %lw, i.e. %lw%cb
3.) then call the function which output the results.
The posted code now produces the desired result.
Uploaded with ImageShack.us |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|