Gradient Color Timer Change
procedure TForm1.Gradation_Draw( angle : integer ); begin GRect.Fill.Gradient.Points[0].Color := GColor1; GRect.Fill.Gradient.Points[0].Offset := 0; GRect.Fill.Gradient.Points[1].Color := GColor2; GRect.Fill.Gradient.Points[1].Offset := 1; if IsAType then begin GRect.Fill.Gradient.StartPosition.X := 0.0; GRect.Fill.Gradient.StartPosition.Y := 0.0; GRect.Fill.Gradient.StopPosition.X := angle / 10; GRect.Fill.Gradient.StopPosition.Y := 1.0; end else begin GRect.Fill.Gradient.StartPosition.X := 0.0; GRect.Fill.Gradient.StartPosition.Y := 0.1; GRect.Fill.Gradient.StopPosition.X := 1.0; GRect.Fill.Gradient.StopPosition.Y := angle / 10; end; GRect.Repaint; end; //***********************************************************************************...