anchor.diff:      edtInteger: TfpgEditInteger;
       edtFloat: TfpgEditFloat;
       btnQuit: TfpgButton;
  +    rbPoint: TfpgRadioButton;
  +    rbComma: TfpgRadioButton;
  +    lbNegativeColor: TfpgColorListBox;
  +    lblNegativeColor: TfpgLabel;
       {@VFD_HEAD_END: MainForm}
       procedure AfterCreate; override;
     end;
  
positive.code:   with btnQuit do
    begin
      Name := 'btnQuit';
      SetPosition(188, 200, 75, 24);
      Text := 'Quit';
      FontDesc := '#Label1';
      ImageName := '';
  
negative.code: {@VFD_NEWFORM_DECL}
  
  
  {@VFD_NEWFORM_IMPL}
  
  procedure TMainForm.btnQuitClicked(Sender: TObject);
  begin
    Close;
  end;
  
  procedure TMainForm.rbClicked(Sender: TObject);
  begin
    if Sender is TfpgRadioButton then
      if (Sender as TfpgRadioButton).tag = 0 then
        edtFloat.DecimalSeparator := '.'
      else
        edtFloat.DecimalSeparator := ',';
  end;
  
  procedure TMainForm.lbChange(Sender: TObject);
  begin
    edtFloat.NegativeColor := lbNegativeColor.Color;
    edtInteger.NegativeColor := lbNegativeColor.Color;
  end;
  
  procedure TMainForm.AfterCreate;
  begin
    {@VFD_BODY_BEGIN: MainForm}
    Name := 'MainForm';
    SetPosition(376, 202, 392, 239);
    WindowTitle := 'Edit components';
    WindowPosition := wpScreenCenter;
  
  