Silverfrost Forums

Welcome to our forums

background colour for next control

11 Jul 2011 1:18 #8539

Hello, I want to change the background colour in boxes 'Line 2' and 'Line 3', but the code 'winio@('%`bg&', RGB@(120,120,0))' does'nt work, what is wrong? Bartl

winapp
 program colouring
 include <windows.ins>
 
 integer*4 i
 character zeile(3)*6
 integer*4 ifocus1, ncontrol1, icontrol1(5)
 common/focus_control1/ifocus1,ncontrol1,icontrol1
 data zeile(1) /'Line 1'/
 data zeile(2) /'Line 2'/
 data zeile(3) /'Line 3'/
 external ienter_monitor1
 
 i=ifw1() 
 call add_focus_monitor@(ifw1) 
 ncontrol1 = 3
 i=winio@('%ca[Eingabe der Grundparameter]&')
 i=winio@('%bg[grey]%fn[ARIAL]&')
 i=winio@('%co[data_border]&')      
 i=winio@('%ac[Esc]&','EXIT')                                
 i=winio@('%ac[Enter]&',ienter_monitor1)
 i=winio@('%rs%lc&',zeile(1),icontrol1(1))

 i=winio@('%`bg&', RGB@(120,120,0))              ! does'nt work
 i=winio@('%nl%rs%lc&',zeile(2),icontrol1(2))

 i=winio@('%`bg&', RGB@(120,120,0))              ! does'nt work
 i=winio@('%nl%rs%lc&',zeile(2),icontrol1(3))
 i=winio@('%2nl Ende mit ESC Taste!')
 call remove_focus_monitor@(ifw1)
 end
 
 integer*4 function ienter_monitor1()
 include <windows.ins>
 integer*4 ifocus1, ncontrol1, icontrol1(5)
 common/focus_control1/ifocus1,ncontrol1,icontrol1
 ienter_monitor1=1
 if(ifocus1 .eq. icontrol1(ncontrol1))call set_highlighted@(icontrol1(ncontrol1))
 if(ifocus1 .ne. icontrol1(ncontrol1))then
 do k=1,ncontrol1 
 if(ifocus1 .eq. icontrol1(k))call set_highlighted@(icontrol1(k+1))
 enddo 
 endif 
 continue 
 end
 
 integer*4 function ifw1() 
 include <windows.ins>
 integer*4 ifocus1, ncontrol1, icontrol1(5)
 common/focus_control1/ifocus1,ncontrol1,icontrol1
 ifw1=2 
 ifocus1=clearwin_info@('FOCUSSED_WINDOW') 
 end
11 Jul 2011 8:05 #8542

Looks like you have to put %nl before %`bg.

12 Jul 2011 5:52 #8545

Paul, that's the simple solution, thank you very much for the prompt reply.

The next time I will ask you earlier befor spend a lot of time to find a solution.

Bartl

Please login to reply.