|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
johannes
Joined: 21 Jan 2011 Posts: 65 Location: Leimen, Germany
|
Posted: Fri Jul 04, 2014 9:57 am Post subject: %ob and font size %ts |
|
|
Hi all,
I am redirecting all print *, output to an %ob box. Works fine.
Now I want to have the letters a bit smaller, but %ts does not make any effect.
Who can help?
Code: |
i=winio@('%ca[ - Console]&')
i=winio@('%sy[thin_border]&')
i=winio@('%bg[BTNFACE]&')
i=winio@('%mn[E&xit]&','EXIT')
i=winio@('%ob[depressed]%80.25cw[vscroll,hscroll]%cb&',0)
i=winio@('%fn[MS Sans Serif]&')
i=winio@('%ts&',0.1D0) ! does not affect the fonts
i=winio@('%es&') ! close by escape
i=winio@('%lw',ctrl) ! =leave window open |
johannes |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Fri Jul 04, 2014 1:02 pm Post subject: |
|
|
Code: | winapp
integer i,winio@,ctrl
i=winio@('%ca[ - Console]&')
i=winio@('%sy[thin_border]&')
i=winio@('%bg[BTNFACE]&')
i=winio@('%mn[E&xit]&','EXIT')
i=winio@('%fn[MS Sans Serif]&')
i=winio@('%ts&',0.8D0)
i=winio@('%ob[depressed]%80.25cw[vscroll,hscroll,local_font]%cb&',0)
i=winio@('%es&')
i=winio@('%lw',ctrl)
print*,"Hello"
end |
|
|
Back to top |
|
|
johannes
Joined: 21 Jan 2011 Posts: 65 Location: Leimen, Germany
|
Posted: Fri Jul 04, 2014 3:25 pm Post subject: |
|
|
Hello Paul,
thanks. Works fine: 'local_font' is the key.
Johannes |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Fri Jul 04, 2014 3:42 pm Post subject: |
|
|
And setting the text size and font before %cw. |
|
Back to top |
|
|
|
|
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
|