Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease 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!
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 April 29, 2024, 6:15 am This article has been viewed 35119 times.
|
|