|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
narayanamoorthy_k
Joined: 19 Jun 2014 Posts: 142 Location: Chennai, IN
|
Posted: Wed Aug 06, 2014 5:34 am Post subject: Call back functions for winio@ |
|
|
Hi
I have tried the following small function to display simple messages and to take the response based on [Ok] & [Cancel] Button. This works fine for pressing [Ok] button, but for [Cancel] button, it does not call the call back function. I have tried with ^bt[Cancel] also, but it is not call the func()
Here is the code :
Code: |
module test
contains
subroutine display_msg(title,message)
integer res, winio@
character(len=*):: title, message
common res
res = winio@('%ca['//title//']&')
res = winio@('%il&',1,2147483647)
res = winio@(message//'%ta%^bt[OK]%ta%bt[Cancel]',func)
!res = winio@('%ta%bt[OK]%ta%bt[Cancel]',func)
print*, res
end subroutine display_msg
integer function func()
func = (-1)
print*, 'I am in function'
print*, func
print*, 'control returns to main'
end function
end module test
winapp
program main
use test
!external display_msg
character (len=50) :: title, message
integer :: res
common res
title='Format Error'
message ='Bus Data is a problem..Program stopping'
call display_msg(title,message)
if (res == 1) print*, 'Ok is pressed'
if (res == 2 ) print*, 'Cancel is pressed'
end program
|
Can I request your help to fix this.
The idea is to have a generic routine to display the user defined messages. Suitable other alternatives are most welcome.
Thanks _________________ Thanks and Regards
Moorthy |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Wed Aug 06, 2014 7:30 pm Post subject: |
|
|
All information messages should only have [OK]. The caption shouldn't contain the information - it should contain the name of your application because otherwise the user doesn't know which application triggered the message if they have multiple applications open.
You should read the Microsoft User Experience guidelines, otherwise your application won't be intuitive to experienced Windows users.
I answered your query regarding the standard icon in your other post - but you can also draw your own icons and place them - you can use %gi to place GIFs (which can be animated), %ic to place windows icons, %bm to place bitmaps (various types) etc. You can make such icons clickable.
E |
|
Back to top |
|
|
narayanamoorthy_k
Joined: 19 Jun 2014 Posts: 142 Location: Chennai, IN
|
Posted: Thu Aug 07, 2014 5:22 am Post subject: |
|
|
Thanks a lot Eddie. _________________ Thanks and Regards
Moorthy |
|
Back to top |
|
|
|
|
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
|