Bartl
Joined: 16 Oct 2009 Posts: 58 Location: München
|
Posted: Mon Jul 11, 2011 2:18 pm Post subject: background colour for next control |
|
|
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
Code: |
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
|
|
|