View previous topic :: View next topic |
Author |
Message |
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Tue May 20, 2014 10:04 am Post subject: Text in %PS is mudded |
|
|
Paul, a year ago %ps started to do these muddying things with the text when you switch tabs. The first clicked page is always OK but when you switch tabs the text starts to be muddy more and more.
http://postimg.org/image/k7cj1v8ml/
You had this fixed 3-4 months ago but now a month or so it reappeared again. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue May 20, 2014 10:28 am Post subject: |
|
|
Do you have a small sample program that illustrates this? |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Wed May 21, 2014 8:52 am Post subject: |
|
|
Any example you have will work but the background bitmap must be added to get this issue.
Here is Salford Demo file Auto_PS.f95 with the only difference of added graphics bitmap background
i=WINIO@('%wp[bkmesh01]&')
Code: |
module aps_top
implicit none
integer ::ptr
contains
integer function cbupdate()
use mswin
call see_propertysheet_page@(ptr)
cbupdate=2
end function cbupdate
end aps_top
!
! *******************************************
! * *
! * Changes the bottom property sheet *
! * *
! *******************************************
module aps_bottom
use mswin
implicit none
integer :: xptr
contains
integer function xcbupdate()
implicit none
call see_propertysheet_page@(xptr)
xcbupdate=2
end function xcbupdate
end aps_bottom
winapp
program propsht
use mswin
use aps_top
use aps_bottom
integer :: i
integer :: ps1,ps2,ps3
integer :: xps1,xps2,xps3
ps1=1;ps2=2;ps3=2;xps1=1;xps2=2;xps3=3
ptr=2;xptr=3
!****************************************************************************
!* *
!* Changes the top property sheet *
!* *
!****************************************************************************
I=WINIO@('%wp[bkmesh01]&')
i=winio@('%ca[ Sheet 1]&')
i=winio@('Sheet one %bt[hellow aaa world]%sh',ps1)
I=WINIO@('%wp[bkmesh01]&')
i=winio@('%ca[ Sheet 2]&')
i=winio@('Sheet two %bt[hellow xxx world]%sh',ps2)
I=WINIO@('%wp[bkmesh01]&')
i=winio@('%ca[ Sheet 3]&')
i=winio@('Sheet three %bt[hellow zzz world]%sh',ps3)
i=winio@('%ca[ Sheet 1]&')
i=winio@('Sheet one %bt[hellow aaa world]%sh',xps1)
i=winio@('%ca[ Sheet 2]&')
i=winio@('Sheet two %bt[hellow xxx world]%sh',xps2)
i=winio@('%ca[ Sheet 3]&')
i=winio@('Sheet three %bt[hellow zzz world]%sh',xps3)
i=winio@('%ca[Grave PS Example]&')
i=winio@('%bg[btnface]&')
i=winio@('%sy[thin_border]&')
i=winio@('%ob[raised]&')
i=winio@('This is property sheet 1%ff%nl&')
i=winio@('%`3ps&',ps1,ps2,ps3,ptr)
i=winio@('%ff%nlView Sheet Number:-&')
i=winio@('%`bg[window]%il%dd%3^rd&',1,3,1,ptr,cbupdate)
i=winio@('%cb&')
i=winio@('%ff%nl%ob[raised]&')
i=winio@('This is property sheet 2%ff%nl&')
i=winio@('%`3ps&',xps1,xps2,xps3,xptr)
i=winio@('%ff%nlView Sheet Number:-&')
i=winio@('%`bg[window]%il%dd%3^rd&',1,3,1,xptr,xcbupdate)
i=winio@('%cb')
end program propsht
resources
bkmesh01 BITMAP bkmesh01.bmp
|
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed May 21, 2014 12:24 pm Post subject: |
|
|
OK thanks. I can see the effect. |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Thu May 22, 2014 12:07 am Post subject: |
|
|
Another long term issue with PS: please also look if you have made any restrictions on amount of memory or other resources allocated for PS somewhere in the Windows or Clearwin.
Things are that i have PS crashing the whole code. As a workaround I always start the code under SDBG then it works OK. Crash started to appear when PS size (the amount of tabs and amount of other controls inside the tabs) exceeds some limit. This large PS keeps all the settings of my code
We discussed that here before and your suggestion with SAVE statement helped in the smaller code but not larger one. I finally reproduced this effect but due to relatively large size of the PS code (and it being deep inside the other code) i can not yet extract and post it here, but will try to simplify it if there will be no other suggestions |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue Jan 20, 2015 3:23 pm Post subject: |
|
|
The refresh problem when %wp is combined with %sh has been fixed for the next release. |
|
Back to top |
|
|
DanRRight
Joined: 10 Mar 2008 Posts: 2816 Location: South Pole, Antarctica
|
Posted: Tue Jan 20, 2015 10:18 pm Post subject: |
|
|
Cool. Thanks Paul. That bug was pretty annoying.
And now what left is the last also mentioned above "bug of all bugs" i still have when the whole program crashes at the time of closing property sheet. By mysterious reason it does not crash if i run EXE through the SDBG so that's kind of OK for now. I am circling near this bug for a year and made a progress but had no time to make minimum possible size demo. If i make demo from scratch all works fine no matter how large code size it is, which might be indicative of my own code hidden problems not the %PS ones. Hopefully in a month when time permits i will get the demo code. Mentioning here again in the hope that someone else had this problem too |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Jan 21, 2015 2:25 pm Post subject: |
|
|
Dan
It has proved necessary to revisit this and the original issue that you raised some time back regarding %wp with over-laid text.
With the next release you will need to use a tilda (~) modifier with %wp in order to get transparent text on top of wallpaper. |
|
Back to top |
|
|
|