anchor.diff:    Bevel1.BackgroundColor := ValueBar1.SelectedColor;
   end;
   
  +procedure TMainForm.UpdateRGBComponents;
  +var
  +  rgb: TRGBTriple;
  +  c: TfpgColor;
  +begin
  +  c := ValueBar1.SelectedColor;
  +  rgb := fpgColorToRGBTriple(c);
  +  edR.Text := IntToStr(rgb.Red);
  +  edG.Text := IntToStr(rgb.Green);
  +  edB.Text := IntToStr(rgb.Blue);
  +end;
  +
   procedure TMainForm.AfterCreate;
   begin
     {@VFD_BODY_BEGIN: MainForm}
     Name := 'MainForm';
  -  SetPosition(330, 202, 542, 411);
  +  SetPosition(349, 242, 537, 411);
     WindowTitle := 'ColorWheel test app';
     WindowPosition := wpUser;
   
  
positive.code:   with Label2 do
    begin
      Name := 'Label2';
      SetPosition(140, 316, 52, 18);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Sat';
  
negative.code:   Close;
  end;
  
  procedure TMainForm.chkCrossHairChange(Sender: TObject);
  begin
    if chkCrossHair.Checked then
      ColorWheel1.CursorSize := 400
    else
      ColorWheel1.CursorSize := 5;
  end;
  
  procedure TMainForm.chkBGColorChange(Sender: TObject);
  begin
    if chkBGColor.Checked then
    begin
      ColorWheel1.BackgroundColor := clBrown;
      ValueBar1.BackgroundColor := clBrown;
    end
    else
    begin
      ColorWheel1.BackgroundColor := clWindowBackground;
      ValueBar1.BackgroundColor := clWindowBackground;
    end;
  end;
  
  procedure TMainForm.UpdateHSVComponents;
  begin
    edH.Text := IntToStr(ColorWheel1.Hue);
    edS.Text := FormatFloat('0.000', ColorWheel1.Saturation);
  