path: root/extras/contributed/ats/ats_editor.pas

program ats_editor;

{$mode objfpc}{$H+}

uses
  SysUtils, Classes, fpg_base, fpg_main, fpg_customgrid, fpg_basegrid,
  ats_main, fpg_grid, fpg_form, fpg_button, fpg_edit, fpg_menu, fpg_label,
  fpg_combobox, fpg_dialogs, fpg_utils, fpg_panel;

const
  langtabledata: {$I atstable.inc}

type

  TLangGrid = class(TfpgCustomGrid)
  protected
    procedure DrawCell(ARow, ACol: Integer; ARect: TfpgRect; AFlags: TfpgGridDrawState); override;
    procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
    function  GetRowCount: Integer; override;
  public
    atstable: TatsTextTable;
    procedure UpdateColumns;
  published
    property  FocusCol;
    property  FocusRow;
  end;


  TfrmLangTable = class(TfpgForm)
  private
    {@VFD_HEAD_BEGIN: frmLangTable}
    mainmenu: TfpgMenuBar;
    grid: TLangGrid;
    btnNewRow: TfpgButton;
    btnCopyRow: TfpgButton;
    btnDeleteRow: TfpgButton;
    btnEdit: TfpgButton;
    pmActions: TfpgPopupMenu;
    pmFile: TfpgPopupMenu;
    {@VFD_HEAD_END: frmLangTable}
    procedure btnShowTestUsage(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnCopyRowClicked(Sender: TObject);
    procedure btnDeleteRowClicked(Sender: TObject);
    procedure btnNewRowClicked(Sender: TObject);
    procedure menuProcExit(Sender: TObject);
    procedure menuProcSave(Sender: TObject);
    procedure menuProcOpen(Sender: TObject);
    procedure menuProcNew(Sender: TObject);
    procedure btnEditClicked(Sender : TObject);
  public
    procedure AfterCreate; override;
  end;


  TfrmTextEdit = class(TfpgForm)
  private
    {@VFD_HEAD_BEGIN: frmTextEdit}
    Label1: TfpgLabel;
    edID: TfpgEdit;
    cmbLang1: TfpgComboBox;
    edLang1: TfpgEdit;
    cmbLang2: TfpgComboBox;
    edLang2: TfpgEdit;
    btnOK: TfpgButton;
    btnCancel: TfpgButton;
    {@VFD_HEAD_END: frmTextEdit}
    textrow : TatsTextRow;
    procedure OnLangChange(sender : TObject);
  protected
    procedure HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  public
    procedure AfterCreate; override;
    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 }

procedure TLangGrid.DrawCell(ARow, ACol: Integer; ARect: TfpgRect; AFlags: TfpgGridDrawState);
var
  s : string;
  tr : TatsTextRow;
  b : boolean;
begin
  tr := atstable.GetRow(ARow);
  if ACol = 0 then
  begin
    s := tr.TextId;
  end
  else
  begin
    //s := 'Col '+IntToStr(ACol);
    s := tr.GetText(Columns[ACol].Title, b);
  end;
  Canvas.DrawString(ARect.Left+1, ARect.Top+1, s);

  //inherited DrawCell(ARow, ACol, ARect, AFlags);
end;

function TLangGrid.GetRowCount: Integer;
begin
  if atstable <> nil then
    result := atstable.RowCount
  else
    result := 2;
end;

procedure TLangGrid.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean);
begin
  if keycode = keyEnter then
  begin
    consumed := True;
    frmMain.btnEdit.Click;
  end;
  inherited HandleKeyPress(keycode, shiftstate, consumed);
end;

procedure TLangGrid.UpdateColumns;
var
  n : integer;
  gc : TfpgGridColumn;
begin
  if atstable = nil then Exit;

  ColumnCount := atstable.LangList.Count+1;

  gc := Columns[0];
  gc.Title := 'ID';
  gc.Width := 140;

  for n := 0 to atstable.LangList.Count-1 do
  begin
    gc := Columns[n+1];
    gc.Title := atstable.Langlist[n];
    gc.Width := 80;
  end;
end;

procedure TfrmTextEdit.AfterCreate;
begin
  textrow := nil;

  {@VFD_BODY_BEGIN: frmTextEdit}
  Name := 'frmTextEdit';
  SetPosition(326, 139, 466, 168);
  WindowTitle := 'Edit Text';
  Hint := '';
  IconName := '';

  Label1 := TfpgLabel.Create(self);
  with Label1 do
  begin
    Name := 'Label1';
    SetPosition(8, 8, 80, 16);
    FontDesc := '#Label1';
    Hint := '';
    Text := 'Text ID:';
  end;

  edID := TfpgEdit.Create(self);
  with edID do
  begin
    Name := 'edID';
    SetPosition(8, 28, 228, 24);
    ExtraHint := '';
    FontDesc := '#Edit1';
    Hint := '';
    TabOrder := 1;
    Text := '';
  end;

  cmbLang1 := TfpgComboBox.Create(self);
  with cmbLang1 do
  begin
    Name := 'cmbLang1';
    SetPosition(8, 65, 80, 22);
    ExtraHint := '';
    FontDesc := '#List';
    Hint := '';
    FocusItem := -1;
    TabOrder := 3;
    OnChange := @OnLangChange;
  end;

  edLang1 := TfpgEdit.Create(self);
  with edLang1 do
  begin
    Name := 'edLang1';
    SetPosition(100, 64, 356, 24);
    ExtraHint := '';
    FontDesc := '#Edit1';
    Hint := '';
    TabOrder := 3;
    Text := '';
  end;

  cmbLang2 := TfpgComboBox.Create(self);
  with cmbLang2 do
  begin
    Name := 'cmbLang2';
    SetPosition(8, 97, 80, 22);
    ExtraHint := '';
    FontDesc := '#List';
    Hint := '';
    FocusItem := -1;
    TabOrder := 4;
    OnChange := @OnLangChange;
  end;

  edLang2 := TfpgEdit.Create(self);
  with edLang2 do
  begin
    Name := 'edLang2';
    SetPosition(100, 96, 356, 24);
    ExtraHint := '';
    FontDesc := '#Edit1';
    Hint := '';
    TabOrder := 4;
    Text := '';
  end;

  btnOK := TfpgButton.Create(self);
  with btnOK do
  begin
    Name := 'btnOK';
    SetPosition(8, 133, 99, 24);
    Text := 'OK';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := 'stdimg.ok';
    ModalResult := mrOK;
    TabOrder := 6;
    Default := true;
  end;

  btnCancel := TfpgButton.Create(self);
  with btnCancel do
  begin
    Name := 'btnCancel';
    SetPosition(356, 133, 99, 24);
    Text := 'Cancel';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := 'stdimg.cancel';
    ModalResult := mrCancel;
    TabOrder := 7;
  end;

  {@VFD_BODY_END: frmTextEdit}
end;

procedure TfrmTextEdit.OnLangChange(sender: TObject);
var
  b : boolean;
begin
  if sender = cmbLang1 then
  begin
    edLang1.Text := textrow.GetText(cmbLang1.Text, b);
  end
  else
  begin
    edLang2.Text := textrow.GetText(cmbLang2.Text, b);
  end;
end;

procedure TfrmTextEdit.HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean);
begin
  if keycode = keyEnter then
    btnOK.Click
  else if keycode = keyEscape then
    btnCancel.Click
  else
    inherited HandleKeyPress(keycode, shiftstate, consumed);
end;

procedure TfrmTextEdit.LoadTexts;
var
  b : boolean;
begin
  edLang1.Text := textrow.GetText(cmbLang1.Text, b);
  edLang2.Text := textrow.GetText(cmbLang2.Text, b);
end;

procedure TfrmLangTable.btnShowTestUsage(Sender: TObject);
var
  frm: TTestUsageForm;
begin
  frm := TTestUsageForm.Create(nil);
  try
    frm.ShowModal;
  finally
    frm.Free;
  end;
end;

procedure TfrmLangTable.FormShow(Sender: TObject);
begin
  grid.SetFocus;
end;

procedure TfrmLangTable.btnCopyRowClicked(Sender: TObject);
begin
  ShowMessage('Copy row to be implemented.');
end;

procedure TfrmLangTable.btnDeleteRowClicked(Sender: TObject);
begin
  ShowMessage('Delete row to be implemented.');
end;

procedure TfrmLangTable.btnNewRowClicked(Sender: TObject);
var
  s: string;
begin
  if not fpgInputQuery('New row', 'Enter the name of the new Text ID', s) then
    Exit;
  Grid.atstable.AddRow(s);
  Grid.SetFocus;
  Grid.FocusRow := Grid.GetRowCount-1;
  Grid.FocusCol := 1;
end;

procedure TfrmLangTable.AfterCreate;
var
  mi : TfpgMenuItem;
begin
  {@VFD_BODY_BEGIN: frmLangTable}
  Name := 'frmLangTable';
  SetPosition(282, 304, 619, 515);
  WindowTitle := 'ATS Table Editor';
  Hint := '';
  IconName := '';
  OnShow := @FormShow;

  mainmenu := TfpgMenuBar.Create(self);
  with mainmenu do
  begin
    Name := 'mainmenu';
    SetPosition(0, 0, 619, 28);
    Anchors := [anLeft,anRight,anTop];
  end;

  grid := TLangGrid.Create(self);
  with grid do
  begin
    Name := 'grid';
    SetPosition(0, 28, 619, 448);
    Anchors := [anLeft,anRight,anTop,anBottom];
  end;

  btnNewRow := TfpgButton.Create(self);
  with btnNewRow do
  begin
    Name := 'btnNewRow';
    SetPosition(8, 486, 75, 24);
    Anchors := [anLeft,anBottom];
    Text := 'New Row';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := '';
    TabOrder := 2;
    OnClick := @btnNewRowClicked;
  end;

  btnCopyRow := TfpgButton.Create(self);
  with btnCopyRow do
  begin
    Name := 'btnCopyRow';
    SetPosition(87, 486, 71, 24);
    Anchors := [anLeft,anBottom];
    Text := 'Copy Row';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := '';
    TabOrder := 3;
    OnClick := @btnCopyRowClicked;
  end;

  btnDeleteRow := TfpgButton.Create(self);
  with btnDeleteRow do
  begin
    Name := 'btnDeleteRow';
    SetPosition(247, 486, 83, 24);
    Anchors := [anLeft,anBottom];
    Text := 'Delete Row';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := '';
    TabOrder := 4;
    OnClick := @btnDeleteRowClicked;
  end;

  btnEdit := TfpgButton.Create(self);
  with btnEdit do
  begin
    Name := 'btnEdit';
    SetPosition(163, 486, 79, 24);
    Anchors := [anLeft,anBottom];
    Text := 'Edit Item';
    FontDesc := '#Label1';
    Hint := '';
    ImageName := '';
    TabOrder := 5;
    OnClick := @btnEditClicked;
  end;

  pmActions := TfpgPopupMenu.Create(self);
  with pmActions do
  begin
    Name := 'pmActions';
    SetPosition(400, 130, 180, 22);
    AddMenuItem('New Row', 'Ctrl+Ins', @btnNewRowClicked);
    AddMenuItem('Copy Row', 'Ctrl+C', @btnCopyRowClicked);
    AddMenuItem('Edit Item', 'Enter', @btnEditClicked);
    AddMenuItem('Delete Row', 'Ctrl+Del', @btnDeleteRowClicked);
    AddSeparator;
    AddMenuItem('Test Usage', '', @btnShowTestUsage);
  end;

  pmFile := TfpgPopupMenu.Create(self);
  with pmFile do
  begin
    Name := 'pmFile';
    SetPosition(400, 108, 180, 22);
    AddMenuItem('&New', 'Ctrl+N', @menuProcNew);
    AddMenuItem('&Open...', 'Ctrl+O', @menuProcOpen);
    AddMenuItem('&Save...', 'Ctrl+S', @menuProcSave);
    AddMenuItem('-', '', nil);
    AddMenuItem('&Exit', '', @menuProcExit);
  end;

  {@VFD_BODY_END: frmLangTable}

  // Hook up the menus to the mainmenu
  mainmenu.AddMenuItem('&File', nil).SubMenu := pmFile;
  mainmenu.AddMenuItem('&Actions', nil).SubMenu := pmActions;

  grid.atstable := atsTexts;
  grid.UpdateColumns;
end;

procedure TfrmLangTable.menuProcExit(Sender: TObject);
begin
  Close;
end;

procedure TfrmLangTable.menuProcSave(Sender: TObject);
var
  dlg : TfpgFileDialog;
  fname : string;
begin
  dlg := TfpgFileDialog.Create(nil);
  dlg.Filter := 'Pascal include (*.inc;*.pas)|*.inc;*.pas|ATS text (*.ats)|*.ats|CSV (*.csv)|*.csv|All Files (*)|*|';

  if dlg.RunSaveFile then fname := dlg.FileName
                     else fname := '';
                     
  dlg.Free;

  if fname <> '' then
  begin
    if ExtractFileExt(fname) = '' then fname := fname + '.inc';
    if (UpperCase(ExtractFileExt(fname)) = '.INC')
    or (UpperCase(ExtractFileExt(fname)) = '.PAS') then
    begin
      atsTexts.SaveToFile(fname, atsPascalSource);
    end
    else if UpperCase(ExtractFileExt(fname)) = '.CSV' then
    begin
      atsTexts.SaveToFile(fname, atsCSV);
    end
    else // if UpperCase(ExtractFileExt(fname)) = '.ATS' then
    begin
      atsTexts.SaveToFile(fname, atsPureText);
    end;

    ShowMessage('Save done.');
  end;
end;

procedure TfrmLangTable.menuProcOpen(Sender: TObject);
var
  dlg : TfpgFileDialog;
  fname : string;
begin
  dlg := TfpgFileDialog.Create(nil);
  dlg.Filter := 'Pascal include (*.inc;*.pas)|*.inc;*.pas|ATS text (*.ats)|*.ats|CSV (*.csv)|*.csv|All Files (*)|*|';

  if dlg.RunOpenFile then fname := dlg.FileName
                     else fname := '';

  dlg.Free;
  
  if not FileExists(fname) then
  begin
    ShowMessage('File does not exists.');
    Exit;
  end;

  if fname <> '' then
  begin
    if (UpperCase(ExtractFileExt(fname)) = '.INC')
    or (UpperCase(ExtractFileExt(fname)) = '.PAS') then
    begin
      atsTexts.LoadFromPascalFile(fname);
    end
    else if UpperCase(ExtractFileExt(fname)) = '.CSV' then
    begin
      ShowMessage('CSV loading is not supported.');
      
      //atsTexts.SaveToFile(fname, atsCSV);
    end
    else // if UpperCase(ExtractFileExt(fname)) = '.ATS' then
    begin
      atsTexts.LoadFromFile(fname);
    end;
  end;
end;

procedure TfrmLangTable.menuProcNew(Sender: TObject);
begin
  atsTexts.Clear;
  grid.Update;
end;

procedure TfrmLangTable.btnEditClicked(Sender: TObject);
var
  frm : TfrmTextEdit;
  tr : TatsTextRow;
begin
  tr := grid.atstable.GetRow(grid.FocusRow);

  frm := TfrmTextEdit.Create(nil);
  
  frm.textrow := tr;
  
  // load
  frm.edID.Text := tr.TextID;
  
  frm.cmbLang1.Items.Assign(grid.atstable.LangList);
  frm.cmbLang2.Items.Assign(grid.atstable.LangList);
  
  frm.cmbLang1.Text := 'EN';
  
  if grid.FocusCol > 0
    then frm.cmbLang2.Text := grid.Columns[grid.FocusCol].Title
    else frm.cmbLang2.Text := 'EN';
    
  frm.LoadTexts;
  
  frm.ActiveWidget := frm.edLang2;
  
  if frm.ShowModal = mrOK then
  begin
    // store
    tr.SetText(frm.cmbLang1.Text,frm.edLang1.Text);
    if frm.cmbLang2.Text <> frm.cmbLang1.Text
      then tr.SetText(frm.cmbLang2.Text,frm.edLang2.Text);
    
    grid.Update;
  end;
  
  frm.Free;
end;

procedure MainProc;
begin
  fpgApplication.Initialize;
  
  //atsTexts.LoadFromFile('test.ats');
  
  //atsTexts.LoadFromArray(langtabledata);
  if fpgFileExists('atstable.inc')  then
    atsTexts.LoadFromPascalFile('atstable.inc');
  
  frmMain := TfrmLangTable.Create(nil);
  
  frmMain.Show;
  fpgApplication.Run;
  frmMain.Free;
end;

begin
  MainProc;
end.