function NewGradientPanelEx( AParent: PControl; Color1, Color2: TColor; Style: tGradientStyle; Layout: TGradientLayout ): PControl;

Creates gradient-filled STATIC control. To adjust colors at the run time, change Color1 and Color2 properties (which initially are assigned from Color1, Color2 parameters), and call Invalidate method to repaint control. Depending on style and first line/point layout, can looking different. Idea: Vladimir Stojiljkovic.