1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Font Change by list

Discussion in 'Free Source Codes' started by Rohit Khedar, Mar 3, 2020.

    
  1. Rohit Khedar

    Rohit Khedar Member


    ;; I want change font by list but not work so hlp me ;;

    [#Menu:Gateway of Tally]
    Add: Item: Before: @@Locquit: Font Change: Alter: Fnt Change

    [Report:Fnt Change]
    Form: Fnt Change
    Object:Company

    [Form: Fnt Change]
    Part:Fnt Change

    [Part:Fnt Change]
    Line:Fnt Change

    [Line:Fnt Change]

    Field:Short Prompt, Fnt Change
    Local : Field : Short Prompt : Set as : "Select Your Font"
    Local : Field : Default : Width : 20

    [Field:Fnt Change]
    Width: 30
    Table: FntTable,Not Applicable
    Show Table: always
    Modifies : FntColl



    [Collection:FntTable]

    Use : Alias Collection
    Title : "Select Your Font"

    List: "aakar", "Agency FB", "Algerian", "Aparajita", "Arial", "Arial Black"
    List: "Book Antiqua", "Bookman Old Style", "Britannic","Berlin Sans FB", "Blackadder ITC"
    List: "Calibri", "Cambria", "Cambria Math", "Candara", "Consolas"
    List: "Edwardian Script ITC", "Elephant", "English", "Eras ITC", "Engravers MT"\



    [#Style: Normal]
    Add:Option:FntCambria :##FntCol l= "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: small]
    Add:Option:FntCambria :##FntCol l= "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: small]
    Add:Option:FntCambria :##FntCol l= "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: normal bold]
    Add:Option:FntCambria :##FntColl = "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: tiny]
    Add:Option:FntCambria :##FntCol l= "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: small bold]
    Add:Option:FntCambria :##FntColl = "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: small]
    Add:Option:FntCambria :##FntCol l= "Cambria"
    Add:Option:FntAgency FB :##FntCol l= "Agency FB"

    [#Style: normal bold]
    Add:Option:FntCambria :##FntCol = "Cambria"
    Add:Option:FntAgency FB :##FntCol = "Agency FB"

    [#Style: Normal Serif]
    Add:Option:FntCambria :##FntCol = "Cambria"
    Add:Option:FntAgency FB :##FntCol = "Agency FB"


    [!Style:FntCambria]
    Font:"Cambria"
    Height: 10

    [!Style:FntAgency FB]
    Font:"Agency FB"
    Height: 10




    [Variable:FntColl]

    Type : String
    Persistent: Yes

    [System:Variables]
    FntColl: ""
     
    Last edited: Mar 3, 2020
    Rohit Khedar, Mar 3, 2020
    #1


  2. Rohit Khedar

    Rohit Khedar Member


    Font Change by list
    any expert slovd plz above code
     
    Rohit Khedar, Mar 4, 2020
    #2


Share This Page