anchor.diff:    with lblHex do
     begin
       Name := 'lblHex';
  -    SetPosition(380, 316, 120, 16);
  +    SetPosition(375, 320, 120, 16);
       FontDesc := '#Label2';
       Hint := '';
       Text := 'Hex = ';
  +  end;
  +
  +  eHex := TfpgEdit.Create(self);
  +  with eHex do
  +  begin
  +    Name := 'E_Hexa';
  +    SetPosition(420, 316, 65, 26);
  +    FontDesc := '#Label2';
  +    Hint := '';
  +    Text := '';
  +    MaxLength:= 7;
  +    OnKeyChar:= @eHexKeyChar;
  +    OnKeyPress:= @eHexKeyPress;
  +    OnMouseExit := @eHexMouseExit;
     end;
   
     Label7 := TfpgLabel.Create(self);
  
positive.code:     edG: TfpgSpinEdit;
      edB: TfpgSpinEdit;
      lblHex: TfpgLabel;
      Label7: TfpgLabel;
      Label8: TfpgLabel;
      Bevel2: TfpgBevel;
  
negative.code:   edR.Value := rgb.Red;
    edG.Value := rgb.Green;
    edB.Value := rgb.Blue;
    eHex.Text:= Hexa(rgb.Red,rgb.Green,rgb.Blue);
  end;
  
  procedure TMainForm.eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
  begin
  if Length(eHex.Text)= 0 then
  begin
    if AChar<> '$' then
      Consumed:= True;
  end
  else
    if ((AChar< '0') or (AChar> '9')) and ((AChar< 'A') or (AChar> 'F')) and ((AChar< 'a') or (AChar> 'f')) then
      Consumed:= True;
  end;
  
  procedure TMainForm.eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
            var Consumed: boolean);
  begin
    if ((KeyCode= KeyReturn) or (KeyCode= KeyPEnter)) and (Length(eHex.Text)= 7) then
    begin
      ConvertToInt(eHex.Text);
      RGBChanged(Sender);
    end;
  end;
  
  procedure TMainForm.eHexMouseExit(Sender: TObject);
  begin
    if Length(eHex.Text)= 7 then
    begin
      ConvertToInt(eHex.Text);
      RGBChanged(Sender);
    end;
   end;
  
  procedure TMainForm.AfterCreate;
  begin
  