anchor.diff:  uses
     SysUtils, Classes, fpg_base, fpg_main, fpg_widget,
     fpg_edit, fpg_form, fpg_label, fpg_button,
  -  fpg_dialogs, fpg_menu,
  +  fpg_dialogs, fpg_menu, fpg_checkbox,
     fpg_panel, fpg_ColorWheel;
   
   type
  
positive.code:   with Label2 do
    begin
      Name := 'Label2';
      SetPosition(140, 316, 52, 18);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Sat';
  
negative.code:   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(349, 242, 537, 411);
    WindowTitle := 'ColorWheel test app';
    WindowPosition := wpUser;
  
  