 PopupClass       .       (system{prop:Font}, system{prop:FontSize}, system{prop:FontStyle}).
  PopupClass     .
  "LibSrc\win"     PopupClass.   "*** KreatoR ***". ABPOPUP.trn  .
  "Example"      .   Clarion 11.               (  ).        "Popup Menu 2".

   11 (   App)   .

   .
self.Popup.SetFontSize('Delete', 16)
self.Popup.SetFontName('View', 'Segoe UI')
self.Popup.SetFontSize('View', 14)
self.Popup.SetFontName('Select', 'Times New Roman')
self.Popup.SetFontStyle('Select', FONT:italic)
self.Popup.SetBackgroundColor('Select', COLOR:Gray)
self.Popup.SetSelBackgroundColor('Select', COLOR:Gray)
self.Popup.SetSelForegroundColor('Select', COLOR:Blue)
self.Popup.SetBackgroundColor('Insert', COLOR:Lime)
self.Popup.SetSelBackgroundColor('Insert', COLOR:Lime)
self.Popup.SetSelForegroundColor('Insert', COLOR:Green)
self.Popup.SetBackgroundColor('Delete', COLOR:Red)
self.Popup.SetTextColor('Delete', COLOR:White)
self.Popup.SetSelBackgroundColor('Delete', COLOR:White)
self.Popup.SetSelForegroundColor('Delete', COLOR:Red)
self.Popup.SetFontName('Change', 'Segoe Script')
self.Popup.SetFontStyle('Change', FONT:bold)

 .
GetWindowRect(?Popup2{prop:Handle}, rcCtrl)
PopupMgr8.XPos = rcCtrl.Left
PopupMgr8.YPos = rcCtrl.Bottom
ThisWindow.Update()
PopupMgr8.Ask


The PopupClass class has been extended with methods for managing fonts and menu colors. When using the new methods, the system settings work (system {prop: Font}, system {prop: FontSize}, system {prop: FontStyle}).
Also the PopupClass class is supplemented with the ability to position the menu window.
The "LibSrc \ win" directory contains the files of the modified PopupClass class. Changes are marked with "*** KreatoR ***". ABPOPUP.trn unchanged.
In the catalog "Example" there is an example of using the added properties and methods. Collected in Clarion 11. Menu with an example of font management and is called by the right mouse button in the list (standard browse menu). The menu with an example of positioning is called on the button "Pop-up menu 2".

For versions below 11 (if you cannot open the application) the following program code.

Font and color management.
self.Popup.SetFontSize('Delete', 16)
self.Popup.SetFontName('View', 'Segoe UI')
self.Popup.SetFontSize('View', 14)
self.Popup.SetFontName('Select', 'Times New Roman')
self.Popup.SetFontStyle('Select', FONT:italic)
self.Popup.SetBackgroundColor('Select', COLOR:Gray)
self.Popup.SetSelBackgroundColor('Select', COLOR:Gray)
self.Popup.SetSelForegroundColor('Select', COLOR:Blue)
self.Popup.SetBackgroundColor('Insert', COLOR:Lime)
self.Popup.SetSelBackgroundColor('Insert', COLOR:Lime)
self.Popup.SetSelForegroundColor('Insert', COLOR:Green)
self.Popup.SetBackgroundColor('Delete', COLOR:Red)
self.Popup.SetTextColor('Delete', COLOR:White)
self.Popup.SetSelBackgroundColor('Delete', COLOR:White)
self.Popup.SetSelForegroundColor('Delete', COLOR:Red)
self.Popup.SetFontName('Change', 'Segoe Script')
self.Popup.SetFontStyle('Change', FONT:bold)

Positioning management.
GetWindowRect(?Popup2{prop:Handle}, rcCtrl)
PopupMgr8.XPos = rcCtrl.Left
PopupMgr8.YPos = rcCtrl.Bottom
ThisWindow.Update()
PopupMgr8.Ask  