anchor.diff:      procedure   UpdateRGBComponents;
       procedure   ColorChanged(Sender: TObject);
       procedure   RGBChanged(Sender: TObject);
  +    procedure   RGBChanging;
       procedure   ConvertToInt(Value: string);
       procedure   eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
       procedure   eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
  
positive.code:   if ((KeyCode= KeyReturn) or (KeyCode= KeyPEnter)) and (Length(eHex.Text)= 7) then
    begin
      ConvertToInt(eHex.Text);
      RGBChanged(Sender);
    end;
  end;
  
  
negative.code: end;
  
  procedure TMainForm.RGBChanged(Sender: TObject);
  begin
    RGBChanging;
  end;
  
  procedure TMainForm.RGBChanging;
  var
    rgb: TRGBTriple;
    c: TfpgColor;
  