How to set the background fill progmatically?

No reply necessary if the following is correct:


 Panel1.Background.Fill.FillType := ftGradient;
 with Panel1.Background.Fill.Gradient do
 begin
   GradientType := gtLinear;
   ColorStops.ColorStop[0].Position := 0;
   ColorStops.ColorStop[0].Color := clWhite;
   ColorStops.ColorStop[1].Position := 100;
   ColorStops.ColorStop[1].Color := clBlue;
 end;

Try this:

with TempPanel.Background.Fill.Gradient.ColorStops.Add do
  Color := clTransparent;
  with TempPanel.Background.Fill.Gradient.ColorStops.Add do
  begin
    Position := 100;
    Color := clCornSilk;
  end;


Chris Holland
[Team Elevate]

On 16/05/2016 14:59, Trinione wrote:
> How to set the background fill progmatically?
>

<< No reply necessary if the following is correct: >>

Chris's example is correct - you need to use the Add method, otherwise you're referencing color stops that don't exist yet:

http://www.elevatesoft.com/manual?action=viewcomp&id=ewb2&comp=TGradientColorStops

Tim Young
Elevate Software
www.elevatesoft.com