forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

%ms - Multi selection box

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
IanLambley



Joined: 17 Dec 2006
Posts: 490
Location: Sunderland

PostPosted: Tue Feb 13, 2007 10:03 am    Post subject: %ms - Multi selection box Reply with quote

If the last item in the list has only one character, then it is not displayed. See attached code and try the alternative, or adding another character to the '3', or put a space before the '3'. It works perfectly for the $ls format code, see second example.
Code:

      winapp
      include <windows.ins>,nolist
      character*80 text_data(100000)
      integer*4 isel_text(100000)
      max_text = 100000
c
c clear selections
      isel_text = 0
c
c just flag the first one
      isel_text(1) = 1
      text_data = ' '
c
c multi character version
c      text_data(1) = 'one'
c      text_data(2) = 'two'
c      text_data(3) = 'three'
c
c single character version
      text_data(1) = '1'
      text_data(2) = '2'
      text_data(3) = '3'

      ibut=winio@('%ca[Column filter]&')
      ibut=winio@('%bg[btnface]&')
      ibut=winio@('%`bg[white]&')
      ibut=winio@('%40.10`ms&', text_data, max_text, isel_text)
      ibut=winio@('%ff%`tt[&OK]')
      end
c




Code:

      winapp
      include <windows.ins>,nolist
      character*80 text_data(100000)
      max_text = 100000
      text_data = ' '
      isel = 1
c
c multi character version
c      text_data(1) = 'one'
c      text_data(2) = 'two'
c      text_data(3) = 'three'
c
c single character version
      text_data(1) = '1'
      text_data(2) = '2'
      text_data(3) = '3'

      ibut=winio@('%ca[Column filter]&')
      ibut=winio@('%bg[btnface]&')
      ibut=winio@('%`bg[white]&')
      ibut=winio@('%40.10`ls&', text_data, max_text, isel)
      ibut=winio@('%ff%`tt[&OK]')
      end
c
Back to top
View user's profile Send private message Send e-mail
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Thu Feb 15, 2007 5:48 pm    Post subject: Reply with quote

I will add this to the list of things to investigate.
Back to top
View user's profile Send private message AIM Address
IanLambley



Joined: 17 Dec 2006
Posts: 490
Location: Sunderland

PostPosted: Sat Jul 21, 2007 11:37 am    Post subject: MS control Reply with quote

Paul,

How is this one doing in your investigations?

Regards

Ian
Back to top
View user's profile Send private message Send e-mail
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7916
Location: Salford, UK

PostPosted: Mon Jul 23, 2007 7:56 am    Post subject: Reply with quote

Ian

This bug has now been fixed.

Thanks

Paul
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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