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
Printed April 29, 2024, 7:53 am This article has been viewed/printed 35119 times. |