anchor.diff:  implementation
   
   {@VFD_NEWFORM_IMPL}
  +
  +procedure TMainForm.ConvertToInt(Value: string);
  +var
  +  iRed, iGreen, iBlue: integer;
  +  i, iTemp : integer;
  +  HexVal: string;
  +begin
  +  for i:= 2 to 7 do
  +  begin
  +    HexVal:= Copy(Value,i,1);
  +    case Uppercase(HexVal) of
  +      'F':
  +        iTemp:= 15;
  +      'E':
  +        iTemp:= 14;
  +      'D':
  +        iTemp:= 13;
  +      'C':
  +        iTemp:= 12;
  +      'B':
  +        iTemp:= 11;
  +      'A':
  +        iTemp:= 10
  +      else
  +        if (HexVal>= '0') and (HexVal<= '9') then
  +          iTemp:= StrToInt(HexVal);
  +    end;
  +    case i of
  +      2:
  +        iRed:= iTemp;
  +      3:
  +        iRed:= iRed * 16 +iTemp;
  +      4:
  +        iGreen:= iTemp;
  +      5:
  +        iGreen:= iGreen * 16 +iTemp;
  +      6:
  +        iBlue:= iTemp;
  +      7:
  +        iBlue:= iBlue * 16 +iTemp;
  +    end;
  +  end;
  +  edR.Value := iRed;
  +  edG.Value := iGreen;
  +  edB.Value := iBlue;
  +end;
   
   function ConvertToHexa(Value: Integer): string;
   var
  
positive.code:   with lblHex do
    begin
      Name := 'lblHex';
      SetPosition(380, 316, 120, 16);
      FontDesc := '#Label2';
      Hint := '';
      Text := 'Hex = ';
    end;
  
    Label7 := TfpgLabel.Create(self);
  
negative.code:     procedure   UpdateRGBComponents;
      procedure   ColorChanged(Sender: TObject);
      procedure   RGBChanged(Sender: TObject);
      procedure   ConvertToInt(Value: string);
      procedure   eHexKeyChar(Sender: TObject; AChar: TfpgChar; var Consumed: boolean);
      procedure   eHexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState;
        var Consumed: boolean);
      procedure   eHexMouseExit(Sender: TObject);
    public
      constructor Create(AOwner: TComponent); override;
      procedure   AfterCreate; override;
  