` Comment on an Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Add a comment to an Icetips Article

Please add your comments to this article. Please note that you must provide both a name and a valid email address in order for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!

Your Name:  
Email:  
Header text/Subject:  

Please enter your comment in the box below:

Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

Par2: Template to set browse line height and font
1999-08-29 -- Khin Choy Chin
 
#!----------------------------------------------------------------------- #TEMPLATE(Mytemplate,'My Personal Template'),FAMILY('ABC'),FAMILY('CLARION') #!----------------------------------------------------------------------- #! From : Khin Choy Chin #! Idea : Here and There #! Purpose: Free for all #! E-mail : osmsb@tm.net.my #! Comment: welcome #!----------------------------------------------------------------------- #EXTENSION(KCBrwProp,'Setting Browse Row property lineheight and fontsize'),DESCRIPTION('[Chin] Browse Property'),PROCEDURE,REQ(BrowseBox(ABC)),MULTI #!----------------------------------------------------------------------- #RESTRICT #FOR (%Control), WHERE(%ControlType = 'LIST') #ACCEPT #ENDFOR #REJECT #ENDRESTRICT #BOXED (''), AT(, 5) #PROMPT ('Browse box control name', FROM (%Control, %ControlType = 'LIST')), %ControlLabel, REQ #ENDBOXED #BOXED ('') #DISPLAY ('This extension is for browse list only.') #DISPLAY ('Setting the Properties of Lineheight and FontSize') #PROMPT ('Row height', SPIN (@n2, 5, 25)), %RowHeight, DEFAULT(10) #PROMPT ('Font size', SPIN (@n2, 5, 25)), %FontSize, DEFAULT(9) #ENDBOXED #! #!-------------------------------------------------------------------------- --- #AT(%WindowManagerMethodCodeSection,'Open','()'),Priority(300) #!-------------------------------------------------------------------------- --- ! *** PRIORITY 300 *** ! Setting Browse's row Line height and FontSize ! How to do Line thickness?? %ControlLabel{PROP:LineHeight} = %RowHeight %ControlLabel{PROP:FontSize} = %FontSize #ENDAT


Today is November 23, 2024, 3:31 am
This article has been viewed 35223 times.



Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password: