Free Style Color Schema......... You can adopt this code.........total 10 colors with a combo of 3 colors.... you can add more or delete some. just make the formula to apply to your fields............. ENJOY. Code: [Report : ColorSchemes] Form : ColorSchemes Object : Company [Form : ColorSchemes] Parts : ColorSchemesTitle, ColorSchemesSubTitle, ColorSchemesData, ColorSchemesSelect 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 : 24 Font : "Courier New" [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] Type : Number Persistent : Yes Volatile : No [System: Variables] SchemeSelect: "" [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 : DeepPinkTitle] RGB : 205, 16, 118 [Color : DeepPinkTop] RGB : 240, 183, 213 [Color : DeepPinkMiddle] RGB : 246, 211, 229 [Color : DeepPinkLowest] RGB : 250, 231, 241 [Color : YllwGrnTitle] RGB : 114, 151, 52 [Color : YllwGrnTop] RGB : 223, 253, 119 [Color : YllwGrnMiddle] RGB : 239, 253, 135 [Color : YllwGrnLowest] RGB : 226, 234, 214 [Color : DarkGreenTitle] RGB : 7, 131, 90 [Color : DarkGreenTop] RGB : 135, 195, 175 [Color : DarkGreenMiddle] RGB : 183, 219, 207 [Color : DarkGreenLowest] RGB : 230, 242, 238 [Color : OrangeTitle] RGB : 229, 148, 0 ;; 255, 165, 0 [Color : OrangeTop] RGB : 255, 201, 102 ;; 255, 219, 153 [Color : OrangeMiddle] RGB : 255, 219, 153 ;; 255, 228, 178 [Color : OrangeLowest] RGB : 255, 237, 204 [Color : RedTitle] RGB : 246, 69, 69 [Color : RedTop] RGB : 250, 162, 162 [Color : RedMiddle] RGB : 252, 199, 199 [Color : RedLowest] RGB : 254, 236, 236 [Color : BlueTitle] RGB : 20, 115, 183 [Color : BlueTop] RGB : 127, 211, 255 [Color : BlueMiddle] RGB : 183, 230, 255 [Color : BlueLowest] RGB : 231, 241, 247 [Color : InkBlueTitle] RGB : 0, 0, 115 [Color : InkBlueTop] RGB : 127, 127, 185 [Color : InkBlueMiddle] RGB : 178, 178, 213 [Color : InkBlueLowest] RGB : 229, 229, 241 [Color : GreyTitle] RGB : 76, 76, 76 [Color : GreyTop] RGB : 178, 178, 178 [Color : GreyMiddle] RGB : 204, 204, 204 [Color : GreyLowest] RGB : 237, 237, 237 [Color : PurpleTitle] RGB : 128, 0, 128 [Color : PurpleTop] RGB : 216, 178, 216 [Color : PurpleMiddle] RGB : 227, 201, 227 [Color : PurpleLowest] RGB : 242, 229, 242 [Color : HighlightBox] RGB : 255, 255, 203 [Border: DoubleBorder] Right : Thick, Double Lined Left : Thick, Double Lined Top : Thick, Double Lined Bottom : Thick, Double Lined Color : White [Border: DoubleBorder1] Right : Thick, Double Lined Left : Thick, Double Lined Bottom : Thick, Double Lined Color : White
I have given the SCHEMA............ you need to make the formulas to apply......as you need it........ e.g. sys:formula colorone : if ##variable = 1 then "col1" else if ##variable=2 then "col2" ..............and so on.......... likewise do for all colors............. then apply...........@@colorone etc to your fields/forms etc
The code above has nothing to with version........ will work in both. Merely copy/paste will not work......... you have to make the additional code to apply to your own codes. Above is just a SCHEMA.
its work colorone :if ##SchemeSelect = 1 then "col1" Its not work and badformula colorone :if ##SchemeSelect = 1 then "col1" else if ##SchemeSelect = 2 then "col2" else if ##SchemeSelect = 3 then "col3"
colorone :if ##SchemeSelect = 1 then "col1" else + if ##SchemeSelect = 2 then "col2" else + if ##SchemeSelect = 3 then "col3" else""
This code is for "adoption" in user report. For Tally system...there is another code existing in the Forum.
hello Sirs....Tried to incorporate the scheme...but failed...No error shown on loading TDL/TCP but not getting the Scheme selection option...please assist...