Browse Source

update gradient buttons

Unknown 6 years ago
parent
commit
bd5d03fb18
1 changed files with 3 additions and 0 deletions
  1. 3 0
      vectoredit/lcvectorialfillinterface.pas

+ 3 - 0
vectoredit/lcvectorialfillinterface.pas

@@ -377,6 +377,9 @@ begin
   c.alpha := 255;
   if Assigned(FShapeEndColor) then FShapeEndColor.Brush.Color := c;
   if Assigned(FUpDownEndAlpha) then FUpDownEndAlpha.Value := GradEndColor.alpha;
+
+  if Assigned(FButtonGradRepetition) then FButtonGradRepetition.ImageIndex := 7+ord(FGradRepetition);
+  if Assigned(FButtonGradInterp) then FButtonGradInterp.ImageIndex := 11+ord(FGradInterp);
 end;
 
 procedure TVectorialFillInterface.UpDownEndAlphaChange(Sender: TObject;