Free style Color Schema

Discussion in 'Free Source Codes' started by Amit Kamdar, Jul 2, 2021.

    
  1. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Submit your code to check..........
     


  2. Marina Colors

    Marina Colors Member


    Sir...please find the code incorporated in 4 in 1 ledger...
     

    Attached Files:



  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Merely coping / inserting the code will not work. you need to apply / define to the relevant Fields.
     


  4. nasir

    nasir Member


    i got success to open in 9.1.1
     


  5. Marina Colors

    Marina Colors Member


    Dear Amit Sir,

    Tried to apply but failed despite repeated attempts...

    Pls suggest the System"Formula" to apply...

    The code used by me as follows...

    [Variable : SchemeSelect]
    Use : ColorSchemesSelectV
    Type : Number
    Persistent : Yes
    Volatile : No
    [Variable : ColorSchemesSelectV]
    Use : Colorschemes
    ;Use : SchemeSelect
    Type : Number
    Persistent : Yes
    Volatile : No

    [System: Variables]
    SchemeSelect: " "

    [System: Formula]
    Colorschemes: If##SchemeSelect = 1 then "Col1" Else +
    if##SchemeSelect = 2 then "col2" Else +
    if##SchemeSelect = 3 then "col3" Else +
    if##SchemeSelect = 4 then "col4" Else +
    if##SchemeSelect = 5 then "col5" Else +
    if##SchemeSelect = 6 then "col6" Else +
    if##SchemeSelect = 7 then "col7" Else +
    if##SchemeSelect = 8 then "col8" Else " "
     


  6. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Put space between if and # .............. formula looks good.

    And I assume that col1, col2....etc are the name of the colors.
     


  7. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    [Variable : SchemeSelect]
    Type : Number
    Persistent : Yes
    Volatile : No
     


  8. Marina Colors

    Marina Colors Member


    Thank You Amit Sir for assisting me...but still unable to get the desired result...

    Please have a look...

    [Variable : SchemeSelect]
    Use : ColorSchemesSelectV
    Type : Number
    Persistent : Yes
    Volatile : No
    [Variable : ColorSchemesSelectV]
    ;Use : Colorschemes
    Use : SchemeSelect
    Type : Number
    Persistent : Yes
    Volatile : No

    [System: Formula]

    SchemeSelect: If ##SchemeSelect = 1 then "Col1" Else +
    if ##SchemeSelect = 2 then "col2" Else +
    if ##SchemeSelect = 3 then "col3" Else +
    if ##SchemeSelect = 4 then "col4" Else +
    if ##SchemeSelect = 5 then "col5" Else +
    if ##SchemeSelect = 6 then "col6" Else +
    if ##SchemeSelect = 7 then "col7" Else +
    if ##SchemeSelect = 8 then "col8" Else " "

    [Collection: Col1]
    Style : Col1

    [Color : DrabTitle]
    RGB : 142, 133, 126
    [Color : DrabTop]
    RGB : 203, 190, 181
    [Color : DrabMiddle]
    RGB : 218, 209, 203
    [Color : DrabLowest]
    RGB : 232, 230, 229

    [Collection: Col2]
    Style : Col2

    [Color : DeepPinkTitle]
    RGB : 205, 16, 118
    [Color : DeepPinkTop]
    RGB : 240, 183, 213
    [Color : DeepPinkMiddle]
    RGB : 246, 211, 229
    [Color : DeepPinkLowest]
    RGB : 250, 231, 241
     


  9. Marina Colors

    Marina Colors Member


    I think i am missing the link of col1/col2...
     


  10. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    [Color : Col1]
    RGB : 142, 133, 126

    [Color : Col2]
    RGB : 203, 190, 181.......... and so on..... define your colors.
     


  11. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Do not understand....what is this for..........

    [Collection: Col1]
    Style : Col1


    What is this collection for ??

    I think my code is pretty simple..... you just needed to define the 3 levels of color as per your needs and use the same at Field/Form level.
     


  12. Marina Colors

    Marina Colors Member


    Sorry Sir...
    As with the little knowledge of TDL I have, tried but failed.

    Please guide for only one Set of colors...rest I will do ....

    Thanks...
     


  13. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    I have already asked you to submit the code, but you have not..........so not necessary that all solutions can be obtained based on pieces of code.

    If you want your code to be private, then submit code to nehalsofttech@gmail.com. Also send dummy data.
     


  14. Marina Colors

    Marina Colors Member


    Thanks for your prompt reply Sir,

    Please find below the codes...Pls help...(ofcourse copied from your Source Sir)...


    [Part : ColorSchemesSelect]
    Line : ColorSchemesSelect
    Background : HighlightBox
    Border : DoubleBorder1

    [Line : ColorSchemesSelect]
    Field : ColorSchemesSelectT, DumCol, ColorSchemesSelectV
    Space Top : .5
    Space Bottom : .5

    [Field : ColorSchemesSelectT]
    Use : Name Field
    Set As : "Input << Number of Color >> selected : "
    Full Width : Yes
    Align : Right
    Style : Large Bold
    Background : HighlightBox
    Color : Blue
    Skip : Yes

    [Field : DumCol]
    Use : Number Field
    Set As : ##SchemeSelect
    Set Always : Yes
    Width : 10
    Align : Centre
    Style : Large Bold
    Skip : Yes
    Invisible : Yes

    [Field : ColorSchemesSelectV]
    Use : Number Field
    Set As : ##SchemeSelect
    Set Always : Yes
    Width : 10
    Align : Centre
    Style : Large Bold
    Validate : $$Value >= 0 AND $$Value <= 9

    [Variable : SchemeSelect]
    Use : ColorSchemesSelectV
    Type : Number
    Persistent : Yes
    Volatile : No

    [Variable : ColorSchemesSelectV]
    ;Use : Colorschemes
    Use : SchemeSelect
    Type : Number
    Persistent : Yes
    Volatile : No

    [System: Formulae]

    SchemeSelect: If ##SchemeSelect = 1 then "Col1" Else +
    if ##SchemeSelect = 2 then "col2" Else +
    if ##SchemeSelect = 3 then "col3" Else +
    if ##SchemeSelect = 4 then "col4" Else +
    if ##SchemeSelect = 5 then "col5" Else +
    if ##SchemeSelect = 6 then "col6" Else +
    if ##SchemeSelect = 7 then "col7" Else +
    if ##SchemeSelect = 8 then "col8" Else ""
    [Color : Col1]

    [Color : DrabTitle]
    RGB : 142, 133, 126
    [Color : DrabTop]
    RGB : 203, 190, 181
    [Color : DrabMiddle]
    RGB : 218, 209, 203
    [Color : DrabLowest]
    RGB : 232, 230, 229

    [Color: Col2]

    [Color : DeepPinkTitle]
    RGB : 205, 16, 118
    [Color : DeepPinkTop]
    RGB : 240, 183, 213
    [Color : DeepPinkMiddle]
    RGB : 246, 211, 229
    [Color : DeepPinkLowest]
    RGB : 250, 231, 241
     


  15. Marina Colors

    Marina Colors Member


    sir...Full colorscheme codes...

    [Report : ColorSchemes]
    Form : ColorSchemes
    Title : "Color Schemes"
    Set : ColorSchemesSelectV :##ColorSchemesSelect
    Variable : ColorSchemesSelectV
    Object : @@CmpMailName

    [Form : ColorSchemes]
    Parts : ColorSchemesTitle, ColorSchemesSubTitle, ColorSchemesData, ColorSchemesSelect,ColorSchemesSelectV
    Space Top : 1
    Space Bottom : 1
    Space Left : 1
    Space Right : 1
    Background : Grey
    Height : 80% Screen
    Width : 70% Screen
    No Confirm : Yes
    Local : Field : ColorSchemesSelectV : Modifies : SchemeSelect
    [Part : ColorSchemesTitle]
    Line : ColorSchemesTitle
    Background : White
    Border : DoubleBorder
    [Line : ColorSchemesTitle]
    Field : ColorSchemesTitle
    Space Top : .5
    Space Bottom : .5
    [Field : ColorSchemesTitle]
    Use : Name Field
    Set As : "Select your Color Scheme"
    Full Width : Yes
    Align : Centre
    Style : Large Bold
    Skip : Yes
    [Part : ColorSchemesSubTitle]
    Line : ColorSchemesSubTitle
    Background : Grey
    Border : DoubleBorder1
    [Line : ColorSchemesSubTitle]
    Field : ColorSchemesSrT, ColorSchemesNameT, ColorSchemesTitleT, ColorSchemesTopT, ColorSchemesMiddleT
    Space Top : .5
    Space Bottom : .5
    [Field : ColorSchemesSrT]
    Use : ColorSchemesNameT
    Set As : "#"
    Width : 5
    Skip : Yes

    [Field : ColorSchemesNameT]
    Use : Name Field
    Set As : "Color Name"
    Align : Left
    Style : Large Bold
    Color : Black
    Width : 25
    Skip : Yes

    [Field : ColorSchemesTitleT]
    Use : ColorSchemesNameT
    Set As : "Title Part"
    Style : Large Bold
    Skip : Yes
    Align : Centre
    [Field : ColorSchemesTopT]
    Use : ColorSchemesNameT
    Set As : "Top Part"
    Style : Large Bold
    Skip : Yes
    Align : Centre
    [Field : ColorSchemesMiddleT]
    Use : ColorSchemesNameT
    Set As : "Middle Part"
    Style : Large Bold
    Skip : Yes
    Align : Centre

    [Part: ColorSchemesData]
    Lines : ColorSchemesData1, ColorSchemesData2, ColorSchemesData3, ColorSchemesData4, ColorSchemesData5, +
    ColorSchemesData6, ColorSchemesData7, ColorSchemesData8, ColorSchemesData9
    Space Top : 0.5
    Border : DoubleBorder1
    BackGround : HighlightBox
    [Style : ColorStyle]
    Height : 12
    Font : "Calibiri"

    [Field : SetColorDefault1]
    Use : Number Field
    Align : Centre
    Width : 5
    Fixed : Yes
    Skip : Yes
    Style : Large Bold
    [Field : SetColorDefault2]
    Use : Name Field
    Align : Centre
    Width : 25
    Style : Large Bold
    Skip : Yes
    [Line: ColorSchemesData1]
    Field : ColorSchemesSr1, ColorSchemesName1, ColorSchemesTitle1, ColorSchemesTop1, ColorSchemesMiddle1
    Space Bottom : 0.5
    [Field : ColorSchemesSr1]
    Use : SetColorDefault1
    Set As : $$Number:1
    [Field : ColorSchemesName1]
    Use : SetColorDefault2
    Set As : "Purple"
    Align : Left

    [Field: ColorSchemesTitle1]
    Use : SetColorDefault2
    Skip : Yes
    Background : PurpleTitle
    Style : ColorStyle

    [Field : ColorSchemesTop1]
    Use : SetColorDefault2
    Skip : Yes
    Background : PurpleTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle1]
    Use : SetColorDefault2
    Skip : Yes
    Background : PurpleMiddle
    Style : ColorStyle
    [Line: ColorSchemesData2]
    Field : ColorSchemesSr2, ColorSchemesName2, ColorSchemesTitle2, ColorSchemesTop2, ColorSchemesMiddle2
    Space Bottom : 0.5
    [Field : ColorSchemesSr2]
    Use : SetColorDefault1
    Set As : $$Number:2
    [Field : ColorSchemesName2]
    Use : SetColorDefault2
    Set As : "Grey"
    Align : Left

    [Field: ColorSchemesTitle2]
    Use : SetColorDefault2
    Skip : Yes
    Background : GreyTitle
    Style : ColorStyle

    [Field : ColorSchemesTop2]
    Use : SetColorDefault2
    Skip : Yes
    Background : GreyTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle2]
    Use : SetColorDefault2
    Skip : Yes
    Background : GreyMiddle
    Style : ColorStyle
    [Line: ColorSchemesData3]
    Field : ColorSchemesSr3, ColorSchemesName3, ColorSchemesTitle3, ColorSchemesTop3, ColorSchemesMiddle3
    Space Bottom : 0.5
    [Field : ColorSchemesSr3]
    Use : SetColorDefault1
    Set As : $$Number:3
    [Field : ColorSchemesName3]
    Use : SetColorDefault2
    Set As : "Ink Blue"
    Align : Left

    [Field: ColorSchemesTitle3]
    Use : SetColorDefault2
    Skip : Yes
    Background : InkBlueTitle
    Style : ColorStyle

    [Field : ColorSchemesTop3]
    Use : SetColorDefault2
    Skip : Yes
    Background : InkBlueTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle3]
    Use : SetColorDefault2
    Skip : Yes
    Background : InkBlueMiddle
    Style : ColorStyle
    [Line: ColorSchemesData4]
    Field : ColorSchemesSr4, ColorSchemesName4, ColorSchemesTitle4, ColorSchemesTop4, ColorSchemesMiddle4
    Space Bottom : 0.5
    [Field : ColorSchemesSr4]
    Use : SetColorDefault1
    Set As : $$Number:4
    [Field : ColorSchemesName4]
    Use : SetColorDefault2
    Set As : "Blue"
    Align : Left

    [Field: ColorSchemesTitle4]
    Use : SetColorDefault2
    Skip : Yes
    Background : BlueTitle
    Style : ColorStyle

    [Field : ColorSchemesTop4]
    Use : SetColorDefault2
    Skip : Yes
    Background : BlueTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle4]
    Use : SetColorDefault2
    Skip : Yes
    Background : BlueMiddle
    Style : ColorStyle
    [Line: ColorSchemesData5]
    Field : ColorSchemesSr5, ColorSchemesName5, ColorSchemesTitle5, ColorSchemesTop5, ColorSchemesMiddle5
    Space Bottom : 0.5
    [Field : ColorSchemesSr5]
    Use : SetColorDefault1
    Set As : $$Number:5
    [Field : ColorSchemesName5]
    Use : SetColorDefault2
    Set As : "Red"
    Align : Left

    [Field: ColorSchemesTitle5]
    Use : SetColorDefault2
    Skip : Yes
    Background : RedTitle
    Style : ColorStyle

    [Field : ColorSchemesTop5]
    Use : SetColorDefault2
    Skip : Yes
    Background : RedTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle5]
    Use : SetColorDefault2
    Skip : Yes
    Background : RedMiddle
    Style : ColorStyle
    [Line: ColorSchemesData6]
    Field : ColorSchemesSr6, ColorSchemesName6, ColorSchemesTitle6, ColorSchemesTop6, ColorSchemesMiddle6
    Space Bottom : 0.5
    [Field : ColorSchemesSr6]
    Use : SetColorDefault1
    Set As : $$Number:6
    [Field : ColorSchemesName6]
    Use : SetColorDefault2
    Set As : "Orange"
    Align : Left

    [Field: ColorSchemesTitle6]
    Use : SetColorDefault2
    Skip : Yes
    Background : OrangeTitle
    Style : ColorStyle

    [Field : ColorSchemesTop6]
    Use : SetColorDefault2
    Skip : Yes
    Background : OrangeTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle6]
    Use : SetColorDefault2
    Skip : Yes
    Background : OrangeMiddle
    Style : ColorStyle
    [Line: ColorSchemesData7]
    Field : ColorSchemesSr7, ColorSchemesName7, ColorSchemesTitle7, ColorSchemesTop7, ColorSchemesMiddle7
    Space Bottom : 0.5
    [Field : ColorSchemesSr7]
    Use : SetColorDefault1
    Set As : $$Number:7
    [Field : ColorSchemesName7]
    Use : SetColorDefault2
    Set As : "Dark Green"
    Align : Left

    [Field: ColorSchemesTitle7]
    Use : SetColorDefault2
    Skip : Yes
    Background : DarkGreenTitle
    Style : ColorStyle

    [Field : ColorSchemesTop7]
    Use : SetColorDefault2
    Skip : Yes
    Background : DarkGreenTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle7]
    Use : SetColorDefault2
    Skip : Yes
    Background : DarkGreenMiddle
    Style : ColorStyle
    [Line: ColorSchemesData8]
    Field : ColorSchemesSr8, ColorSchemesName8, ColorSchemesTitle8, ColorSchemesTop8, ColorSchemesMiddle8
    Space Bottom : 0.5
    [Field : ColorSchemesSr8]
    Use : SetColorDefault1
    Set As : $$Number:8
    [Field : ColorSchemesName8]
    Use : SetColorDefault2
    Set As : "Yellow Green"
    Align : Left

    [Field: ColorSchemesTitle8]
    Use : SetColorDefault2
    Skip : Yes
    Background : YllwGrnTitle
    Style : ColorStyle

    [Field : ColorSchemesTop8]
    Use : SetColorDefault2
    Skip : Yes
    Background : YllwGrnTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle8]
    Use : SetColorDefault2
    Skip : Yes
    Background : YllwGrnMiddle
    Style : ColorStyle
    [Line: ColorSchemesData9]
    Field : ColorSchemesSr9, ColorSchemesName9, ColorSchemesTitle9, ColorSchemesTop9, ColorSchemesMiddle9
    Space Bottom : 0.5
    [Field : ColorSchemesSr9]
    Use : SetColorDefault1
    Set As : $$Number:9
    [Field : ColorSchemesName9]
    Use : SetColorDefault2
    Set As : "Deep Pink"
    Align : Left

    [Field: ColorSchemesTitle9]
    Use : SetColorDefault2
    Skip : Yes
    Background : DeepPinkTitle
    Style : ColorStyle

    [Field : ColorSchemesTop9]
    Use : SetColorDefault2
    Skip : Yes
    Background : DeepPinkTop
    Style : ColorStyle

    [Field : ColorSchemesMiddle9]
    Use : SetColorDefault2
    Skip : Yes
    Background : DeepPinkMiddle
    Style : ColorStyle

    [Part : ColorSchemesSelect]
    Line : ColorSchemesSelect
    Background : HighlightBox
    Border : DoubleBorder1
    [Line : ColorSchemesSelect]
    Field : ColorSchemesSelectT, DumCol, ColorSchemesSelectV
    Space Top : .5
    Space Bottom : .5
    [Field : ColorSchemesSelectT]
    Use : Name Field
    Set As : "Input << Number of Color >> selected : "
    Full Width : Yes
    Align : Right
    Style : Large Bold
    Background : HighlightBox
    Color : Blue
    Skip : Yes
    [Field : DumCol]
    Use : Number Field
    Set As : ##SchemeSelect
    Set Always : Yes
    Width : 10
    Align : Centre
    Style : Large Bold
    Skip : Yes
    Invisible : Yes

    [Field : ColorSchemesSelectV]
    Use : Number Field
    Set As : ##SchemeSelect
    Set Always : Yes
    Width : 10
    Align : Centre
    Style : Large Bold
    Validate : $$Value >= 0 AND $$Value <= 9

    [Variable : SchemeSelect]
    Use : ColorSchemesSelectV
    Type : Number
    Persistent : Yes
    Volatile : No
    [Variable : ColorSchemesSelectV]
    ;Use : Colorschemes
    Use : SchemeSelect
    Type : Number
    Persistent : Yes
    Volatile : No

    [System: Formulae]

    SchemeSelect: If ##SchemeSelect = 1 then "Col1" Else +
    if ##SchemeSelect = 2 then "col2" Else +
    if ##SchemeSelect = 3 then "col3" Else +
    if ##SchemeSelect = 4 then "col4" Else +
    if ##SchemeSelect = 5 then "col5" Else +
    if ##SchemeSelect = 6 then "col6" Else +
    if ##SchemeSelect = 7 then "col7" Else +
    if ##SchemeSelect = 8 then "col8" Else ""
    [Color : Col1]

    [Color : DrabTitle]
    RGB : 142, 133, 126
    [Color : DrabTop]
    RGB : 203, 190, 181
    [Color : DrabMiddle]
    RGB : 218, 209, 203
    [Color : DrabLowest]
    RGB : 232, 230, 229

    [Color: Col2]

    [Color : DeepPinkTitle]
    RGB : 205, 16, 118
    [Color : DeepPinkTop]
    RGB : 240, 183, 213
    [Color : DeepPinkMiddle]
    RGB : 246, 211, 229
    [Color : DeepPinkLowest]
    RGB : 250, 231, 241
     


  16. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    I already have my working code.............thanks.

    You need to define the Col1 and Col2..... in same way I have defined my colors, by giving the RGB codes and then it will work.
     


  17. Marina Colors

    Marina Colors Member


    Extremely Sorry Sir...

    I am missing the Definition (defining Colors) Should define as field or in Formulae of Scheme Select....Please guide me with an example (Full Set)....Please....

    thanks
     


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Example already exists in your code...........

    [Color: Col2] --- define as given below. choose RGB of your color and specify it.

    [Color : DeepPinkTitle]
    RGB : 205, 16, 118

    [Color : DeepPinkTop]

    RGB : 240, 183, 213


    Define as marked above in BLUE......
     


  19. Marina Colors

    Marina Colors Member


    sorry sir...no success....something is missing in my coding....
     


  20. Sanjeev S

    Sanjeev S Active Member


    Excellent Sir.
     


  21. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    cannot help you beyond this...........

    All you need to know has been explained and shown in all the various PREVIOUS Posts......... you need to make a sincere effort to learn and implement.

    Kindly re-visit all the previous posts and re-read and understand it to implement it properly. All solutions has been given. Good Luck.
     


  22. Marina Colors

    Marina Colors Member


    Any ways...thank you so much for your valuable time spared...i am not pursuing further...leaving as it is...despite my little understanding tried all permutations and combinations...but ....not got the results...
     


  23. Marina Colors

    Marina Colors Member


    @ Jenny/@ Ankur Daga/@ Sanjeev S...

    Can you please share the "System:formula" and :Color coding "... or else share the set....let me try for a last time...i am using Tally Prime...

    Please... Thanks
     


  24. Marina Colors

    Marina Colors Member


    Amit Sir,


    Can You please let us know, where this code is in Default TDL (Developer Codes)...

    Please...
     

    Attached Files:



  25. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    It is part of hidden code.....so not accessible in Developer.
     


Share This Page