How do I change the font size for the POPUP menu?

1

Hi !
Please tell me, is it possible to change the font size for the POPUP() operator ?
Setting the system font size:

  System{Prop:FontSize} = AnyFont:FontSize
  x# = POPUP('Moe|Larry|Curly')

the issue is not resolved. :smiling_face_with_tear:
Thanks for the ideas! :pray:

1 Like
2

Maybe this does it?..

https://www.clarionproseries.com/html/xxppopup.html

Also discussed here, with possible solution…

1 Like
3

Thanks ! The code provided by KreatoR solves my question.

  x# = PopUp('[' & Prop:FontSize & '(' & 10 & ')]Moe|'   & |
             '[' & Prop:FontSize & '(' & 20 & ')]Larry|' & |
             '[' & Prop:FontSize & '(' & 30 & ')]Curly')

1
1275×180 12 KB

But it is unclear to me where the secret knowledge on setting font parameters for PopUp() menu items was taken. This information is not in the help… :sunglasses:

1 Like
4

Not to mention might it be set once in a popup class for an application.

5

This is different.
And in the example of Mark Goldberg, everything is clear to me.
But where the KreatoR settings come from is generally unclear … :man_facepalming:

6

> But it is unclear to me where the secret knowledge on setting font parameters for PopUp() menu items was taken. This information is not in the help…

Here are some lines from the online help:

Within the selections string, each choice in the popup menu must be delimited by a vertical bar (|) character. The following rules apply:

• A set of vertical bars containing only a hyphen (|-|) defines a separator between groups of menu choices.
• A menu choice immediately preceded by a tilde (~) is disabled (it appears dimmed out in the popup menu).
• A menu choice immediately preceded by a plus sign (+) appears with a check mark to its left in the popup menu.
• A menu choice immediately preceded by a minus sign (-) appears without a check mark to its left in the popup menu.
• A menu choice immediately followed by a set of choices contained within curly braces (|SubMenu{{SubChoice 1|SubChoice 2}|) defines a sub-menu within the popup menu (the two beginning curly braces are required by the compiler to differentiate your sub-menu from a string repeat count).

• You may use the ASCII tab character (<9>) in your selection string to right-align text.
• You may modify the size and font of the popup menu using the following properties:

POPUP(‘[’& PROP:FontSize &‘(16)]I am 16 point ’ & |
‘|[’& PROP:FontName &’(Arial),‘& PROP:FontSize & |
‘(16)]I am 16 Pt Arial ’ & ‘|[’& PROP:FontName &’(Arial),|
‘& PROP:FontSize &’(16),’& PROP:FontStyle &‘(’& Font:Bold &'),|
‘& PROP:FontColor &|
‘(’& COLOR:Blue &’)]I am 16 Pt Arial Bold Blue ’ & ‘’)

• You may specify an icon for the menu item by preceding the menu choice with square brackets enclosing PROP:Icon and the name of the icon file in parens, like this:

POPUP(‘[’ & PROP:Icon & ‘(MyIco.ICO)]MenuChoice’)

Each menu selection is numbered in ascending sequence according to its position within the selections string, beginning with one (1). Separators and selections that call a sub-menu are not included in the numbering sequence (which makes an EXECUTE structure the most efficient code structure to use with this procedure). When the user CLICKS or presses ENTER on a choice, the procedure terminates, returning the position number of the selected menu item.

7

Thank you.
This is probably a fragment from the “old” C63 help.
Because this example is no longer in the C11.1 help. :frowning:

8

In the C11.1 help they completely removed the following sentence and the example of Prop:Fontxxx usage

You may modify the size and font of the popup menu using the following properties

Instead they suggest to use IMenuStyle interface, no example at all.

No comment.

9

This was written by Mark Goldberg

Global Includes

INCLUDE('CWINT.int'),ONCE

Before CODE i.e. DATA

MenuStyle   &IMenuStyle
FontProps   &IFontProperties
FontName    CSTRING('Microsoft Sans Serif')

After CODE before opening window.

         MenuStyle &= (SYSTEM{PROP:MenuStyle})
         FontProps &= MenuStyle.MenuFont()
         FontProps.FontName(FontName)
         FontProps.FontSize(11)
        ! this alters POPUP() menus too
        ! see Libsrc\Win\MenuStyle.inc/clw
2 Likes