anchor.diff:      procedure LoadTexts;
     end;
   
  +  TTestUsageForm = class(TfpgForm)
  +    procedure FormShow(Sender: TObject);
  +  private
  +    {@VFD_HEAD_BEGIN: TestUsageForm}
  +    gbTestArea: TfpgGroupBox;
  +    btnFetch: TfpgButton;
  +    edtResource: TfpgEdit;
  +    cbLanguage: TfpgComboBox;
  +    Label1: TfpgLabel;
  +    Label2: TfpgLabel;
  +    {@VFD_HEAD_END: TestUsageForm}
  +    procedure btnFetchClicked(Sender: TObject);
  +  public
  +    procedure AfterCreate; override;
  +  end;
  +
   {@VFD_NEWFORM_DECL}
   
   var
     frmMain : TfrmLangTable;
   
   {@VFD_NEWFORM_IMPL}
  +
  +procedure TTestUsageForm.FormShow(Sender: TObject);
  +begin
  +  cbLanguage.Items.Assign(frmMain.grid.atstable.LangList);
  +  cbLanguage.FocusItem := 0;
  +  edtResource.Text := 'rsLanguage';
  +end;
  +
  +procedure TTestUsageForm.btnFetchClicked(Sender: TObject);
  +begin
  +  frmMain.grid.atstable.SelectLang(cbLanguage.Text);
  +  ShowMessage(edtResource.Text + ': '+atsText(edtResource.Text));
  +end;
  +
  +procedure TTestUsageForm.AfterCreate;
  +begin
  +  {%region 'Auto-generated GUI code'}
  +  {@VFD_BODY_BEGIN: TestUsageForm}
  +  Name := 'TestUsageForm';
  +  SetPosition(814, 244, 297, 184);
  +  WindowTitle := 'Test Usage';
  +  Hint := '';
  +  IconName := '';
  +  OnShow := @FormShow;
  +
  +  gbTestArea := TfpgGroupBox.Create(self);
  +  with gbTestArea do
  +  begin
  +    Name := 'gbTestArea';
  +    SetPosition(8, 8, 280, 169);
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    Text := 'Test Area';
  +  end;
  +
  +  btnFetch := TfpgButton.Create(gbTestArea);
  +  with btnFetch do
  +  begin
  +    Name := 'btnFetch';
  +    SetPosition(126, 130, 147, 24);
  +    Text := 'Fetch Translation';
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    ImageName := '';
  +    TabOrder := 9;
  +    OnClick := @btnFetchClicked;
  +  end;
  +
  +  edtResource := TfpgEdit.Create(gbTestArea);
  +  with edtResource do
  +  begin
  +    Name := 'edtResource';
  +    SetPosition(8, 86, 265, 24);
  +    ExtraHint := '';
  +    FontDesc := '#Edit1';
  +    Hint := '';
  +    TabOrder := 10;
  +    Text := '';
  +  end;
  +
  +  cbLanguage := TfpgComboBox.Create(gbTestArea);
  +  with cbLanguage do
  +  begin
  +    Name := 'cbLanguage';
  +    SetPosition(8, 41, 110, 24);
  +    ExtraHint := '';
  +    FontDesc := '#List';
  +    Hint := '';
  +    FocusItem := -1;
  +    TabOrder := 11;
  +  end;
  +
  +  Label1 := TfpgLabel.Create(gbTestArea);
  +  with Label1 do
  +  begin
  +    Name := 'Label1';
  +    SetPosition(8, 25, 145, 15);
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    Text := 'Set Language:';
  +  end;
  +
  +  Label2 := TfpgLabel.Create(gbTestArea);
  +  with Label2 do
  +  begin
  +    Name := 'Label2';
  +    SetPosition(8, 70, 140, 15);
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    Text := 'Text ID to retrieve:';
  +  end;
  +
  +  {@VFD_BODY_END: TestUsageForm}
  +  {%endregion}
  +end;
  +
   
   { TLangGrid }
   
  
positive.code:   edLang2.Text := textrow.GetText(cmbLang2.Text, b);
  end;
  
  procedure TfrmLangTable.FormShow(Sender: TObject);
  begin
    grid.SetFocus;
  
negative.code: begin
    {@VFD_BODY_BEGIN: frmLangTable}
    Name := 'frmLangTable';
    SetPosition(282, 304, 619, 515);
    WindowTitle := 'ATS Table Editor';
    Hint := '';
    IconName := '';
  