anchor.diff:    with edB do
     begin
       Name := 'edB';
  -    SetPosition(364, 336, 44, 26);
  +    SetPosition(296, 336, 44, 26);
       TabOrder := 15;
       Text := '255';
       FontDesc := '#Edit1';
       OnExit := @RGBChanged;
  +  end;
  +
  +  Label7 := TfpgLabel.Create(self);
  +  with Label7 do
  +  begin
  +    Name := 'Label7';
  +    SetPosition(108, 3, 80, 16);
  +    FontDesc := '#Label2';
  +    Hint := '';
  +    Text := 'ColorWheel';
  +  end;
  +
  +  Label8 := TfpgLabel.Create(self);
  +  with Label8 do
  +  begin
  +    Name := 'Label8';
  +    SetPosition(304, 3, 64, 16);
  +    FontDesc := '#Label2';
  +    Hint := '';
  +    Text := 'ValueBar';
  +  end;
  +
  +  Bevel2 := TfpgBevel.Create(self);
  +  with Bevel2 do
  +  begin
  +    Name := 'Bevel2';
  +    SetPosition(388, 8, 2, 260);
  +    Style := bsLowered;
  +  end;
  +
  +  Label9 := TfpgLabel.Create(self);
  +  with Label9 do
  +  begin
  +    Name := 'Label9';
  +    SetPosition(400, 3, 128, 16);
  +    Alignment := taCenter;
  +    FontDesc := '#Label2';
  +    Hint := '';
  +    Text := 'Custom Options';
  +  end;
  +
  +  chkCrossHair := TfpgCheckBox.Create(self);
  +  with chkCrossHair do
  +  begin
  +    Name := 'chkCrossHair';
  +    SetPosition(396, 32, 128, 20);
  +    FontDesc := '#Label1';
  +    TabOrder := 20;
  +    Text := 'Large CrossHair';
  +    OnChange  := @chkCrossHairChange;
  +  end;
  +
  +  chkBGColor := TfpgCheckBox.Create(self);
  +  with chkBGColor do
  +  begin
  +    Name := 'chkBGColor';
  +    SetPosition(396, 56, 132, 20);
  +    FontDesc := '#Label1';
  +    TabOrder := 21;
  +    Text := 'New BG Color';
  +    OnChange  := @chkBGColorChange;
     end;
   
     {@VFD_BODY_END: MainForm}
  
positive.code:   with edG do
    begin
      Name := 'edG';
      SetPosition(364, 308, 44, 26);
      TabOrder := 14;
      Text := '255';
      FontDesc := '#Edit1';
  
negative.code:   with Label3 do
    begin
      Name := 'Label3';
      SetPosition(116, 344, 52, 18);
      Alignment := taRightJustify;
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Val';
  