forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

%ob and font size %ts

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+
View previous topic :: View next topic  
Author Message
johannes



Joined: 21 Jan 2011
Posts: 65
Location: Leimen, Germany

PostPosted: Fri Jul 04, 2014 9:57 am    Post subject: %ob and font size %ts Reply with quote

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
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7912
Location: Salford, UK

PostPosted: Fri Jul 04, 2014 1:02 pm    Post subject: Reply with quote

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
View user's profile Send private message AIM Address
johannes



Joined: 21 Jan 2011
Posts: 65
Location: Leimen, Germany

PostPosted: Fri Jul 04, 2014 3:25 pm    Post subject: Reply with quote

Hello Paul,
thanks. Works fine: 'local_font' is the key.
Johannes
Back to top
View user's profile Send private message
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 7912
Location: Salford, UK

PostPosted: Fri Jul 04, 2014 3:42 pm    Post subject: Reply with quote

And setting the text size and font before %cw.
Back to top
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> ClearWin+ All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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