OpenXTalk Forums

Code: Select all

on mouseDown pButtonNumber
   put fontMenu() into me   
end mouseDown

on menuPick pWhich
   replace "|" with " " in pWhich
   if the last word of pWhich = "(Plain)" then delete the last word of pWhich
   set the label of me to  pWhich
   set the textFont of me to pWhich
   set the textFont of fld 1 to pWhich
end menuPick

function fontMenu
   lock screen
   -- Define the "special-purpose" font names to ignore
   put "(Default)" & cr & "(Menu)" & cr & "(Message)" & cr & "(Styled Text)" & cr & "(System)" & cr & "(Text)" & cr & "(Tooltip)" into tXTalkPsuedoFonts
   --- get / sort the fonts listing
   put fontNames("printer") into tFonts
   -- put fontNames() into tFonts
   -- sort lines of tFonts --  by word 1 to 2 of each -- ascending --  international -- by word 1 of each
   sort tFonts ascending international -- by word 1 of each
   -- init variables
   put empty into tFontsArray["fontFamilies"]
   put "" into tPreviousFontFamName
   put "" into tFontStylesList
   put "" into tFontNameStyleReferences
   --- iterate through lines in the Fonts listing
   repeat for each line tCurrentFont in tFonts
      --- skip useless special IDE fonts
      if tCurrentFont is among the lines of tXTalkPsuedoFonts then next repeat
      
      -- iterate through words in current Font name, from right to left
      Repeat with x = the number of words in tCurrentFont to 1 step -1
         --- check for known style keywords, remove from current Font name if found while adding to style string
         if word x of tCurrentFont is among the items of "Plain,Regular,Normal,Condensed,Cond,Compressed,Extended,Extra,ExtraCondensed,Extrabold,Extralight,ExtraLight"&\
               "Extrabold,Book,Italic,Oblique,Med,Medium,Demi,Demibold,Semi,Semibold,SemiBold"&\
               "SemiCondensed,SemiExtended,Bold,Heavy,Black,Light,Ultra,Wide,Utlra,UltraLight,UltraBold,Ultrawide"&\
               "Expanded,Super,SuperLight,Thin,Narrow" then
            -- if word x of tCurrentFont = "Plain" then next repeat
            put word x of tCurrentFont & " " before tFontNameStyleReferences
            delete word x of tCurrentFont
            next repeat
            
            --- if no more known style keywords are found assume the crrent fontname is widdled down to a valid Font family name
         else
            -- if tFontStylesList is empty then put "Plain" into tFontStylesList
            
            -- remove trailing space from Style References   
            if the last char of tFontNameStyleReferences = " " then delete the last char of tFontNameStyleReferences    
            
            -- add any collected FontNameStyleReferences to the family font styles list
            if tFontNameStyleReferences <> empty then
               put tab & tFontNameStyleReferences &cr after tFontStylesList
               put "" into tFontNameStyleReferences
            end if
            
            if tCurrentFont <> tPreviousFontFamName then
               if tCurrentFont is not among the lines of tFontsArray["fontFamilies"] then 
                  if tFontsArray["fontFamilies"] is empty then
                     put tCurrentFont after tFontsArray["fontFamilies"]
                  else
                     put cr & tCurrentFont after tFontsArray["fontFamilies"]
                  end if
               end if
               put tCurrentFont into tPreviousFontFamName
               put "" into tFontNameStyleReferences
               put  empty into tFontStylesList
            end if 
         end if
      end Repeat
      filter lines of tFontStylesList without empty
      sort lines of tFontStylesList
      
      if tCurrentFont = tPreviousFontFamName and tFontStylesList <> empty then
         if tFontsArray[tCurrentFont] is empty then
            put tFontStylesList after tFontsArray[tCurrentFont]
         else
            put cr & tFontStylesList after tFontsArray[tCurrentFont]
         end if
         put "" into tFontStylesList
         put tCurrentFont into tPreviousFontFamName
         next repeat
      else if tCurrentFont <> tPreviousFontFamName and tFontStylesList = empty then
         if tCurrentFont is not among the lines of tFontsArray["fontFamilies"] then put cr & tCurrentFont after tFontsArray["fontFamilies"]
         put tCurrentFont into tPreviousFontFamName
      else
         put tCurrentFont into tPreviousFontFamName
      end if
   end repeat
   
   --- generate Fontlist from tFontsArray
   repeat for each line tFontFam in tFontsArray["fontFamilies"]
      -- Add font Family Name to list
      put cr & tFontFam & cr after tFontsList
      -- if there are any fontStyles then add the fontStyles sub-menu 
      if tFontsArray[tFontFam] is not empty then
         --- if there isn't onee we need to add a way to select the no-style version of the font to the fontStyles sub-menu
         if "Plain" is in tFontsArray[tFontFam] or  "Regular" is in tFontsArray[tFontFam] then
            put cr & tFontsArray[tFontFam] after tFontsList
         else
            put cr & tab & "\(Plain\)" & cr & tFontsArray[tFontFam] after tFontsList
         end if
      end if
   end repeat
   filter lines of tFontsList without empty
   return tFontsList 
end fontMenu

Code: Select all

file:///System/Library/Fonts/Keyboard.ttf#postscript-name=.Keyboard
file:///System/Library/Fonts/Kohinoor.ttc#postscript-name=KohinoorDevanagari-Bold
file:///System/Library/Fonts/Kohinoor.ttc#postscript-name=KohinoorDevanagari-Light
file:///System/Library/Fonts/Kohinoor.ttc#postscript-name=KohinoorDevanagari-Medium
file:///System/Library/Fonts/Kohinoor.ttc#postscript-name=KohinoorDevanagari-Regular
file:///System/Library/Fonts/Kohinoor.ttc#postscript-name=KohinoorDevanagari-Semibold

Code: Select all

------- eXtension Builder bindings strings for Apple's NSFontPanel----------
-- To create LiveCode Builder (LCB) binding strings for Apple's NSFontPanel, you would need to bind to the Objective-C methods provided by NSFontPanel.  Below are some examples of how you might define foreign handler bindings for various NSFontPanel methods.

-- Allocating and Initializing NSFontPanel:
private foreign handler ObjC_NSFontPanelAlloc() returns ObjcId binds to "objc:NSFontPanel.alloc"
private foreign handler ObjC_NSFontPanelInit(in pFontPanel as ObjcId) returns ObjcId binds to "objc:NSFontPanel.-init"

-- Getting the Shared NSFontPanel Instance:
private foreign handler ObjC_NSFontPanelSharedFontPanel() returns ObjcId binds to "objc:NSFontPanel.+sharedFontPanel"

-- Making the NSFontPanel Visible:
private foreign handler ObjC_NSFontPanelOrderFront(in pFontPanel as ObjcId) binds to "objc:NSFontPanel.-orderFront:"

-- Setting the Font Panel Delegate:
private foreign handler ObjC_NSFontPanelSetDelegate(in pFontPanel as ObjcId, in pDelegate as ObjcId) binds to "objc:NSFontPanel.-setDelegate:"

-- Running the Font Panel Modal Loop:
private foreign handler ObjC_NSFontPanelRunModal(in pFontPanel as ObjcId) returns Int binds to "objc:NSFontPanel.-runModal"

-- Getting the Selected Font:
private foreign handler ObjC_NSFontPanelSelectedFont(in pFontPanel as ObjcId) returns ObjcId binds to "objc:NSFontPanel.-panelConvertFont:"

Setting the Selected Font:
private foreign handler ObjC_NSFontPanelSetPanelFont(in pFontPanel as ObjcId, in pFont as ObjcId, in pIsMultiple as Bool) binds to "objc:NSFontPanel.-setPanelFont:isMultiple:"

-- Here is an example of how you might use these bindings to create and display an NSFontPanel in a LiveCode Builder script:


public handler ShowFontPanel()
   variable tFontPanel as ObjcId
   variable tSelectedFont as ObjcId

   -- Get the shared NSFontPanel instance
   put ObjC_NSFontPanelSharedFontPanel() into tFontPanel

   -- Order the font panel to the front (make it visible)
   ObjC_NSFontPanelOrderFront(tFontPanel)

   -- Get the currently selected font
   put ObjC_NSFontPanelSelectedFont(tFontPanel) into tSelectedFont

   -- Do something with the selected font, e.g. return font name as a text string
end handler

-- Important Notes: The NSFontPanel is a part of the macOS AppKit framework, and thus these bindings will only be applicable on macOS.
-- NSFontPanel interacts closely with the macOS UI and requires proper setup for delegates, window management, and event handling.
-- It’s crucial to test these bindings in your specific use case to ensure they behave as expected.

Code: Select all

------- eXtension Builder bindings strings for Apple's NSFontPanel----------
-- To create LiveCode Builder (LCB) binding strings for Apple's NSFontPanel, you would need to bind to the Objective-C methods provided by NSFontPanel.  Below are some examples of how you might define foreign handler bindings for various NSFontPanel methods.

-- Getting the Shared NSFontPanel Instance:
private foreign handler ObjC_NSFontPanelSharedFontPanel() returns ObjcId binds to "objc:NSFontPanel.+sharedFontPanel"
-- Get the Shared NSFontManager Instance:
private foreign handler ObjC_NSFontManagerSharedFontManager() returns ObjcId binds to "objc:NSFontManager.+sharedFontManager"
-- Making the NSFontPanel Visible:
private foreign handler ObjC_NSFontPanelOrderFront(in pFontPanel as ObjcId, in pSender as optional ObjcId) returns nothing binds to "objc:NSFontManager.-orderFrontFontPanel:"

-- Setting the Font Panel Delegate:
private foreign handler ObjC_NSFontPanelSetDelegate(in pFontPanel as ObjcId, in pDelegate as ObjcId) returns nothing binds to "objc:NSFontPanel.-setDelegate:"

-- Running the Font Panel Modal Loop:
private foreign handler ObjC_NSFontPanelRunModal(in pFontPanel as ObjcId) returns CUInt binds to "objc:NSFontPanel.-runModal"

-- Getting the Selected Font:
private foreign handler ObjC_NSFontPanelSelectedFont(in pFontPanel as ObjcId) returns ObjcId binds to "objc:NSFontPanel.-panelConvertFont:"

-- Setting the Selected Font:
private foreign handler ObjC_NSFontPanelSetPanelFont(in pFontPanel as ObjcId, in pFont as ObjcId, in pIsMultiple as Bool) returns nothing binds to "objc:NSFontPanel.-setPanelFont:isMultiple:"

-- Here is an example of how you might use these bindings to create and display an NSFontPanel in a LiveCode Builder script:
variable mFontPanel as ObjcId
variable mFontManager as ObjcId

public handler ShowFontPanel() returns nothing
  -- variable mFontPanel as ObjcId
  variable tSelectedFont as ObjcId
  unsafe
     put ObjC_NSFontManagerSharedFontManager() into mFontManager
    --  LogNSObjectClassName(mFontManager)
     -- Get the shared NSFontPanel instance
     put ObjC_NSFontPanelSharedFontPanel() into mFontPanel
    --  LogNSObjectClassName(mFontPanel)
     -- Order the font panel to the front (make it visible)
     ObjC_NSFontPanelOrderFront( mFontManager, mFontPanel )

     -- Get the currently selected font
     -- put ObjC_NSFontPanelSelectedFont(mFontPanel) into tSelectedFont
     -- Do something with the selected font, e.g. return font name as a text string
   end unsafe
end handler

Code: Select all

on menuPick pPick  --test frequent fonts list in pulldown menu button "Fonts"
   local tFreqFonts, tLines
   put the cFrequentFonts of me into tFreqFonts  --custom prop, initiate in msg box: set the cFrequentFonts of btn "Fonts" to empty
   put number(lines in tFreqFonts) into tLines
   replace "|" with space in pPick  --reconstruct font full name if submenu
   repeat with i = 1 to tLines
      if pPick = line i of tFreqFonts then  --already in list
         delete line i of tFreqFonts
         put pPick &cr before tFreqFonts  --reposition pPick to top of list
         exit repeat
      else if i = tLines then put pPick &cr before tFreqFonts  --add pPick to top of list, no sort
   end repeat
   if number(lines in tFreqFonts) > "10" then put line 1 to 10 of tFreqFonts into tFreqFonts  --max 10 fonts, discard last oldest font
   set the cFrequentFonts of me to tFreqFonts
   set the text of me to tFreqFonts &cr& "-" &cr& fontNames()  --reload menu
   
   put pPick &cr& number(lines in tFreqFonts)  --display in msg box
end menuPick

Code: Select all

on menuPick pPick  --test frequent fonts list in pulldown menu button "Fonts"
   local tFreqFonts
   put the cFrequentFonts of me into tFreqFonts  --custom prop, initiate in msg box: set the cFrequentFonts of btn "Fonts" to "Arial"  --universal font
   replace "|" with space in pPick  --reconstruct font full name if submenu
   get lineOffset(cr& pPick &cr, cr& tFreqFonts &cr)  --line # where string = line
   if it <> "0" then delete line it of tFreqFonts  --already in list
   put pPick &cr before tFreqFonts  --add pPick to top of list, no sort
   if number(lines in tFreqFonts) > "10" then put line 1 to 10 of tFreqFonts into tFreqFonts  --max 10 fonts, discard last oldest font
   set the cFrequentFonts of me to tFreqFonts  --update list
   set the text of me to tFreqFonts &cr& "-" &cr& fontNames()  --reload menu
   
   put pPick &cr& number(lines in tFreqFonts)  --display in msg box
end menuPick