anchor.diff:    cthreads,
     {$ENDIF}{$ENDIF}
     Classes, SysUtils, gfxbase, fpgfx, gui_form, gui_popupcalendar, gui_edit,
  -  gui_button, gui_label, gfx_popupwindow, gui_combobox, gui_checkbox;
  +  gui_button, gui_label, gfx_popupwindow, gui_combobox, gui_checkbox, dateutils;
   
   type
     TMainForm = class(TfpgForm)
  
positive.code:     Name := 'cbName1';
      SetPosition(132, 144, 120, 23);
      FontDesc := '#List';
      Items.Add('line1');
      Items.Add('line2');
      Items.Add('line3');
      Items.Add('line4');
      Items.Add('line5');
      Items.Add('line6');
      TabOrder := 4;
    end;
  
  
negative.code:     procedure   btnMaxDateClicked(Sender: TObject);
      procedure   DoDropDown;
      procedure   cbCloseOnSelectChanged(Sender: TObject);
      procedure   DrawCalendar(month, year: integer);
    public
      {@VFD_HEAD_BEGIN: MainForm}
      edtName1: TfpgEdit;
  