works with single window but does not with %ps where each tab uses its own %~wp
Tilda %wp problems
OK. I will make a note of this. At the moment I don't know if it can easily be fixed. A simple illustrative program always makes life easier and a quick fix more likely.
Paul, Here is demo Take any background file and call it moon.bmp. Click on different tabs few times -- text gets messed up
module aps_top
integer ::iptr
contains
integer function cbupdate()
use mswin
call see_propertysheet_page@(iptr)
cbupdate=2
end function cbupdate
end aps_top
winapp
program ps
use mswin
use aps_top
ips1=1;ips2=2;ips3=2; iptr=2
i=winio@('%ca[ Sheet 1]&')
i=winio@('%~wp[moon]&')
i=winio@('%it%bfTEXT %ffTEXT %ffTEXT%`bf%`it%ff&')
i=winio@('%sh',ips1)
i=winio@('%ca[ Sheet 2]&')
i=winio@('%~wp[moon]&')
i=winio@('%it%bf TEXT %ff TEXT %ff TEXT%`bf%`it%ff&')
i=winio@('%sh',ips2)
i=winio@('%ca[ Sheet 3]&')
i=winio@('%~wp[moon]&')
i=winio@('%it%bf TEXT %ff TEXT %ff TEXT%`bf%`it%ff&')
i=winio@('%sh%es',ips3)
i=winio@('%`3ps',ips1,ips2,ips3,iptr)
end program ps
RESOURCES
moon BITMAP moon.bmp
Dan
I have have tried to fix this but without success. In the next release the ~ in %~wp will be ignored within property sheets.
Thanks for attempts, Paul.
It is needed only if you use some graphics under the text to depart from the standard Windows boring gray panel style.
Tilda with %wp allows to write the text over the graphical background like we see this everywhere in the books, journals and internet without wiping out the area under the whole text letter matrix.