anchor.diff:    {$IFDEF UNIX}{$IFDEF UseCThreads}
     cthreads,
     {$ENDIF}{$ENDIF}
  -  Classes, fpgfx, gui_form, gui_label, gui_edit, gui_button, fpgui_package;
  +  Classes, fpgfx, gui_form, gui_label, gui_edit, gui_button, gui_radiobutton,
  +  gui_listbox, gfxbase;
   
   type
  +
  +  { TMainForm }
   
     TMainForm = class(TfpgForm)
     private
       procedure btnQuitClicked(Sender: TObject);
  +    procedure rbClicked(Sender: TObject);
  +    procedure lbChange(Sender: TObject);
     public
       {@VFD_HEAD_BEGIN: MainForm}
       lblName1: TfpgLabel;
  
positive.code: {@VFD_NEWFORM_DECL}
  
  
  
  {@VFD_NEWFORM_IMPL}
  
  procedure TMainForm.btnQuitClicked(Sender: TObject);
  begin
    Close;
  end;
  
  procedure TMainForm.AfterCreate;
  begin
    {@VFD_BODY_BEGIN: MainForm}
    Name := 'MainForm';
    SetPosition(363, 198, 271, 234);
    WindowTitle := 'Edit components';
    WindowPosition := wpScreenCenter;
  
  
negative.code:     OnClick := @btnQuitClicked;
    end;
  
    rbPoint := TfpgRadioButton.Create(self);
    with rbPoint do
    begin
      Name := 'rbPoint';
      SetPosition(160, 136, 184, 20);
      Checked := True;
      FontDesc := '#Label1';
      GroupIndex := 1;
      TabOrder := 7;
      Text := 'Point as DecimalSeparator';
      Tag := 0;
      OnChange := @rbClicked;
    end;
  
    rbComma := TfpgRadioButton.Create(self);
    with rbComma do
    begin
      Name := 'rbComma';
      SetPosition(160, 160, 196, 20);
      FontDesc := '#Label1';
      GroupIndex := 1;
      TabOrder := 8;
      Text := 'Comma as DecimalSeparator';
      Tag := 1;
      OnChange := @rbClicked;
    end;
  
    lbNegativeColor := TfpgColorListBox.Create(self);
    with lbNegativeColor do
    begin
      Name := 'lbNegativeColor';
      SetPosition(200, 28, 176, 92);
      Color := clRed;
      OnChange := @lbChange;
    end;
  
    lblNegativeColor := TfpgLabel.Create(self);
    with lblNegativeColor do
    begin
      Name := 'lblNegativeColor';
      SetPosition(196, 8, 188, 16);
      FontDesc := '#Label1';
      Text := 'Choose color for negative num.';
    end;
  
    {@VFD_BODY_END: MainForm}
    
    if edtFloat.DecimalSeparator = '.' then
      rbPoint.Checked := True
    else
      rbComma.Checked := True;
  end;
  
  procedure MainProc;
  var
  