debugUMainForm.pas

unit UMainForm;

(*
  TODO:
  [X] Add "New..." to File Menu that creates a blank TLK file. Allow user to specify
      language id when the menu option is selected, then fill in other header info
      automatically.

  [X] Add "Merge TLK..." to Tools Menu that will let user select a TLK file
      and then append it at the end of the currently open one (with new strrefs
      set in sequence of course).

  [_] Add a search flag that does a word search instead of a string search with
      the specified criteria. ("fuel telos" would match "the fuel situation on telos".

  Those two functions will be useful for the TLK/2DA patcher app that all this is
  supposed to lead to. (For use with my Force Powers Mod.)
*)
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, UTLKFile,
  StdCtrls, ComCtrls, Menus, ExtCtrls, StoffeUtils, Grids, UStrTok, Clipbrd,
  XPMan;

type
  TMainForm = class(TForm)
    OpenTlkFile: TOpenDialog;
    bpanel: TStatusBar;
    MainMenu: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Save1: TMenuItem;
    N1: TMenuItem;
    Quit1: TMenuItem;
    SaveTlkFile: TSaveDialog;
    Edit1: TMenuItem;
    Copy1: TMenuItem;
    Selectall1: TMenuItem;
    Paste1: TMenuItem;
    Cut1: TMenuItem;
    N2: TMenuItem;
    Tools1: TMenuItem;
    Search1: TMenuItem;
    Newentry1: TMenuItem;
    Panel1: TPanel;
    Editrow1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    New1: TMenuItem;
    N5: TMenuItem;
    Appendfile1: TMenuItem;
    N6: TMenuItem;
    Setlanguage1: TMenuItem;
    Deleteselected1: TMenuItem;
    Save2: TMenuItem;
    PadtoStrRef1: TMenuItem;
    N7: TMenuItem;
    btnShow: TButton;
    lblInterval1: TLabel;
    edStart: TEdit;
    lblInterval2: TLabel;
    edStop: TEdit;
    lblMax: TLabel;
    Label1: TLabel;
    pbar: TProgressBar;
    grid: TStringGrid;
    Splitter1: TSplitter;
    Panel2: TPanel;
    txtDisplay: TMemo;
    Panel3: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    XPManifest1: TXPManifest;
    procedure btnShowClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Quit1Click(Sender: TObject);
    procedure Save1Click(Sender: TObject);
    procedure gridClick(Sender: TObject);
    procedure Copy1Click(Sender: TObject);
    procedure Selectall1Click(Sender: TObject);
    procedure Paste1Click(Sender: TObject);
    procedure Cut1Click(Sender: TObject);
    procedure Search1Click(Sender: TObject);
    procedure Newentry1Click(Sender: TObject);
    procedure Editrow1Click(Sender: TObject);
    procedure Setlanguage1Click(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure Appendfile1Click(Sender: TObject);
    procedure edStartKeyPress(Sender: TObject; var Key: Char);
    procedure edStopKeyPress(Sender: TObject; var Key: Char);
    procedure gridDblClick(Sender: TObject);
    procedure Deleteselected1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Save2Click(Sender: TObject);
    procedure PadtoStrRef1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    l_firstnew : integer;
    l_resultslisted : boolean;

    procedure LoadFile(sFile : string);
    procedure DoSearchFilter();
    procedure DoAddEntry();
    procedure DoModifyEntry(tlkentry : TTLKString);
    function CheckWordMatch(sCriteria : string; sData : string) : boolean;

    function ShowAlertBox(sMessage : string) : word;
    function ShowInfoBox(sMessage : string) : word;
    function ShowConfirmBox(sMessage : string) : word;
  end;

const
     SOUND_COLUMN_WIDTH        = 128;
     SOUND_COLUMN_WIDTH_MARGIN = 130;

var
  MainForm: TMainForm;
  tlkdata : TTLKFileHandler;

implementation

uses USearchForm, UEntryForm, ULanguageForm, UConfirmDelete, UPadForm;

{$R *.DFM}


procedure ResetStringGrid(g : TStringGrid);
begin
     g.cols[0].clear();
     g.cols[1].clear();
     g.cols[2].clear();
     g.FixedRows := 0;     
     g.RowCount := 1;
end;

function TMainForm.ShowAlertBox(sMessage : string) : word;
begin
     result := MessageDlgPos(sMessage, mtWarning, [mbOK], 0, Left + 64, Top + 128);
end;

function TMainForm.ShowInfoBox(sMessage : string) : word;
begin
     result := MessageDlgPos(sMessage, mtInformation, [mbOK], 0, Left + 64, Top + 128);
end;

function TMainForm.ShowConfirmBox(sMessage : string) : word;
begin
     result := MessageDlgPos(sMessage, mtConfirmation, [mbYes, mbNo], 0, Left + 64, Top + 128);
end;


procedure TMainForm.btnShowClick(Sender: TObject);
var
   tlkentry : TTLKString;
   iCount : dword;
   iStart : dword;
   iStop  : dword;
   iComp  : integer;
   sSnd   : string;
begin
     DBP('btnShowClick - START');
     try
         if (tlkdata = nil) then
            raise EHell.Create('Uh oh... No valid TLK file has been opened!');

         iStart := StrToInt(edStart.text);
         iStop := StrToInt(edStop.text);
         iComp := tlkdata.count -1;

         if ((iStart = 0) and (iStop >= dword(iComp)) and (iComp > 136000)) then begin
             DBP('btnShowClick - Showing large Interval alert...');
            if (ShowConfirmBox('Are you sure you wish to display all ' + IntToStr(iComp) + ' entries at once? It will take about 30 seconds to make the list and requires 240 MB of free RAM. It is probably better to use a narrower interval or do a search. Continue anyway?') = mrNo) then
               exit;
         end;

         if (Integer(iStop) > iComp) then begin
            if (iComp < 0) then
               iComp := 0;

            edStop.text := IntToStr(iComp);
            iStop := iComp;
         end;

         if ((iStart > iStop)) then
            raise EHell.Create('Invalid start value of interval to display!');

         if (iStop > (tlkdata.count-1)) or (iStop < iStart) then
            raise EHell.Create('Oi! Invalid end value of interval to display!');

         // Clear out the old values from the StrInggrid
         DBP('btnShowClick - Resetting string grid');
         ResetStringGrid(grid);
         l_resultslisted := False;

         pbar.position := 1;
         pbar.max := iStop - iStart;

         with grid do
         begin
              enabled := false;
              colcount := 3;
              FixedCols := 1;
              rowcount := (iStop - iStart) + 2;

              ColWidths[0] := 64;
              ColWidths[1] := (grid.Width - 70 - SOUND_COLUMN_WIDTH_MARGIN);
              ColWidths[2] := SOUND_COLUMN_WIDTH;

              Cells[0, 0] := 'StrRef';
              Cells[1, 0] := 'Entry text';
              Cells[2, 0] := 'Sound Resref';
         end;

         if (grid.rowcount > 1) then
            grid.FixedRows := 1;

         DBP('btnShowClick - Starting to loop through entries in interval...');
         iCount := 1;
         tlkentry := tlkdata.strings.first();
         while ((tlkentry <> nil) and (tlkentry.strref <= iStop)) do
         begin
              if ((tlkentry.strref >= iStart) and (tlkentry.strref <= iStop)) then
              begin
                   grid.cells[0, iCount] := IntToStr(tlkentry.strref);
                   grid.cells[1, iCount] := ReplaceInString(tlkentry.strtext, #13, '');  // tlkentry.strtext;
                   grid.cells[2, iCount] := tlkentry.soundstring;
                   pbar.position := iCount;
                   iCount := iCount + 1;
                   DBP('btnShowClick - Displaying entry ' + IntToStr(tlkentry.strref));
              end;

              tlkentry := tlkdata.strings.next();
         end;
         DBP('btnShowClick - Done looping through entries in interval...');

         pbar.position := 0;
         grid.enabled := true;

          sSnd := grid.cells[2, grid.row];
          if (Length(sSnd) > 0) then
             sSnd := '(' + sSnd + ')';

         DBP('btnShowClick - Resetting text display box');
         txtDisplay.clear();
         txtDisplay.lines.Text := grid.cells[0, 0] + ' ' + sSnd + ':' + #10 + #10 + grid.cells[1, 0];

         bpanel.panels[0].text := 'Displaying entries between StrRef '
                               + IntToStr(iStart) + ' to ' + IntToStr(iStop)
                       + ' out of a total of ' + IntToStr(tlkdata.count) + ' entries.';

     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
     DBP('btnShowClick - END');
end;


procedure TMainForm.FormCreate(Sender: TObject);
begin
    DBP('FormCreate - START');
     Tools1.Enabled := False;
     Save1.Enabled := False;
     Save2.Enabled := False;

     Setlanguage1.Enabled := False;
     lblMax.caption := '';

     if (tlkdata = nil) then begin
        DBP('FormCreate - Creating instance of TTLKFileHandler Class...');
        tlkdata := TTLKFileHandler.Create();
        DBP('FormCreate - Created instance of TTLKFileHandler Class.');
     end;
     DBP('FormCreate - END');
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
     if (tlkdata <> nil) then
        tlkdata.free();
end;

procedure TMainForm.FormResize(Sender: TObject);
begin
     if (grid.ColCount = 3) then
     begin
        if (grid.rowcount > 1) then
            grid.fixedrows := 1;

        grid.Cells[0, 0] := 'StrRef';
        grid.Cells[1, 0] := 'Entry text';
        grid.Cells[2, 0] := 'Sound Resref';

        grid.ColWidths[0] := 64;
        grid.ColWidths[1] := (grid.Width - 70 - SOUND_COLUMN_WIDTH_MARGIN);
        grid.ColWidths[2] := SOUND_COLUMN_WIDTH;
     end
     else
        grid.ColWidths[0] := grid.Width - 6;
end;

procedure TMainForm.FormShow(Sender: TObject);
begin
     if ((tlkdata.fileexists = False) or (tlkdata.count = 0)) then
     begin
          grid.FixedCols := 0;
          grid.FixedRows := 0;
          grid.colcount := 1;
          grid.ColWidths[0] := grid.Width - 6;

          if (tlkdata.fileexists = False) then
             grid.cells[0, 0] := 'Please use the menu to open a TLK file to display.'
          else if (tlkdata.count = 0) then
             grid.cells[0, 0] := 'No entries present. Please use the Tools menu to add new entries.';

          grid.enabled := false;
     end
     else
     begin
     (*
         grid.ColCount := 3;
         grid.FixedCols := 1;

         if (grid.rowcount > 1) then
             grid.FixedRows := 1;

         grid.Cells[0, 0] := 'StrRef';
         grid.Cells[1, 0] := 'Entry text';
         grid. Cells[2, 0] := 'Sound Resref';

     *)
         if (grid.ColCount = 3) then begin
             grid.ColWidths[0] := 64;
             grid.ColWidths[1] := (grid.Width - 70 - SOUND_COLUMN_WIDTH_MARGIN);
             grid.ColWidths[2] := SOUND_COLUMN_WIDTH;
         end
         else begin
             grid.ColWidths[0] := grid.Width - 6;
         end;
     end;
end;

procedure TMainForm.LoadFile(sFile : string);
var
   filePath : string;
   i        : integer;
begin
     DBP('LoadFile - START');
     try
         If not FileExists(sFile) then
             raise EHell.Create('Unable to load specified file "' + sFile + '"');

         l_firstnew := -1;
         btnShow.enabled := False;
         edStart.enabled := False;
         edStop.Enabled := False;
         grid.Enabled := False;
         Tools1.Enabled := False;
         Save1.Enabled := False;
         Save2.Enabled := False;
         Setlanguage1.Enabled := False;

         DBP('LoadFile - Resetting GUI');

         filePath := sFile;

         if (tlkdata = nil) then
            raise EHell.Create('Failed to load selected TLK file! TLK Handler not initialized.');

         DBP('LoadFile - Running TTLKFileHandler.LoadTlkFile()');
         tlkdata.LoadTlkFile(filePath);
         DBP('LoadFile - TTLKFileHandler.LoadFile() call completed...');

         Mainform.Caption := 'TalkEd v1.0b (' + filePath + ')';

         bpanel.panels[0].text := 'Opened file ' + filePath
                       + '. ' + tlkdata.fileid
                       + ' ' + tlkdata.version
                       + '. ' + IntToStr(tlkdata.count) + ' entries read.';

         DBP('LoadFile - Resetting StringGrid and text display boxes...');
         ResetStringGrid(grid);
         txtDisplay.clear();

         grid.FixedCols := 0;
         grid.FixedRows := 0;
         grid.colcount := 1;
         grid.ColWidths[0] := grid.Width - 6;
         grid.cells[0, 0] := 'Please specify a StrRef interval of strings to display. Bigger interval uses more memory and time.';
         grid.enabled := false;

         DBP('LoadFile - Enabling GUI controls...');
         lblInterval1.enabled := True;
         lblInterval2.enabled := True;
         btnShow.enabled := True;
         edStart.enabled := True;
         edStop.Enabled := True;
         Tools1.Enabled := True;
         Save1.Enabled := True;
         Save2.Enabled := True;
         Setlanguage1.Enabled := True;

         i := tlkdata.count - 1;
         if (i < 0) then
            i := 0;

         lblMax.Caption := '(' + IntToStr(i) + ' max.)';
         edStart.text := '0';
         edStop.text := IntToStr(i);
     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
     DBP('LoadFile - END');
end;

procedure TMainForm.Open1Click(Sender: TObject);
var
   sMessage : string;
   oCursor  : TCursor;
begin
    DBP('OpenClick - START');
     if (tlkdata.fileexists = True) then begin
        if tlkdata.modified then begin
            sMessage := 'Opening another TLK file will close the currently open one, causing any unsaved changes to be lost. Still continue?';
            if (ShowConfirmBox(sMessage) = mrNo) then
               exit;
        end;
     end;

     try
         DBP('OpenClick - Showing Open dialog box...');
         OpenTlkFile.FileName := 'dialog.tlk';
         if not OpenTlkFile.Execute then
         begin
            bpanel.panels[0].text := 'No valid file opened!';
            Exit;
         end;
         DBP('OpenClick - Get value from Open dialog box...');

         DBP('OpenClick - Changing cursor to hourglass....');
         oCursor := Screen.Cursor;
         Screen.Cursor := crHourglass;
         Application.Processmessages;
         DBP('OpenClick - Running LoadFile()');
         LoadFile(OpenTlkFile.FileName);
         edStart.SetFocus;
         Screen.Cursor := oCursor;
         DBP('OpenClick - Changing cursor back to default.');
     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
     DBP('OpenClick - END');
end;

procedure TMainForm.Quit1Click(Sender: TObject);
var
   sMessage : string;
begin
     if (tlkdata <> nil) and (tlkdata.fileexists = True) then begin

        if tlkdata.modified then begin
            sMessage := 'Are you sure you wish to quit? Any unsaved information in the currently open TLK file will be lost.';
            if (ShowConfirmBox(sMessage) = mrNo) then
               exit;
        end;
     end;

     Application.terminate;
end;

procedure TMainForm.Save1Click(Sender: TObject);
begin
     try
         SaveTlkFile.Filename := tlkdata.filename;
         if not SaveTlkFile.Execute then
            exit;
            // raise EHell.Create('No valid filename or location specified!');

         if (tlkdata = nil) then
            raise EHell.Create('No open TLK file to write!');

         tlkdata.SaveTlkFile(SaveTlkFile.FileName);

         bpanel.panels[0].text := 'Saved file ' + SaveTlkFile.FileName
                       + '. ' + tlkdata.fileid
                       + ' ' + tlkdata.version
                       + '. ' + IntToStr(tlkdata.count) + ' entries written.';

     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
end;

procedure TMainForm.gridClick(Sender: TObject);
var
   sTemp : string;
   sSnd  : string;
begin
     if (grid.colcount > 1) then
     begin
          sSnd := grid.cells[2, grid.row];
          if (Length(sSnd) > 0) then
             sSnd := '(' + sSnd + ')';

          sTemp := grid.cells[1, grid.row];
          txtDisplay.clear();
          txtDisplay.lines.Text := grid.cells[0, grid.row] + ' ' + sSnd + ':' + #10 + #10 + sTemp;
     end;
     // REMEMBER: linefeed #10, creturn #13
end;

procedure TMainForm.Copy1Click(Sender: TObject);
begin
     if (MainForm.ActiveControl is TCustomEdit) then
        TCustomEdit(MainForm.ActiveControl).CopyToClipboard;
end;

procedure TMainForm.Selectall1Click(Sender: TObject);
begin
     if (MainForm.ActiveControl is TCustomEdit) then
        TCustomEdit(MainForm.ActiveControl).SelectAll;
end;

procedure TMainForm.Paste1Click(Sender: TObject);
var
   sTemp : string;
   iTemp : integer;

   oEdit : TCustomEdit;
begin
    // FIX(2005-10-06) Don't allow pasting non-number characters into
    //                 the StrRef interval boxes.
    if (MainForm.ActiveControl is TCustomEdit) then begin
        oEdit := (MainForm.ActiveControl as TCustomEdit);
        if ((oEdit.Name = 'edStart') or (oEdit.Name = 'edStop')) then begin
            try
                sTemp := Clipboard.AsText;
                iTemp := StrToInt(sTemp);
            except
                beep();
                exit;
            end;
        end;
    end;

     if (MainForm.ActiveControl is TCustomEdit) then
        TCustomEdit(MainForm.ActiveControl).PasteFromClipboard;
end;

procedure TMainForm.Cut1Click(Sender: TObject);
var
   oCtrl : TCustomEdit;
begin
     if (MainForm.ActiveControl is TCustomEdit) then
     begin
        oCtrl := TCustomEdit(MainForm.ActiveControl);
        if ((oCtrl is TMemo) and TMemo(oCtrl).ReadOnly) then
            oCtrl.CopyToClipboard
        else
            oCtrl.CutToClipboard;
     end;
end;

procedure TMainForm.Search1Click(Sender: TObject);
begin
     if (tlkdata.fileexists = False) then begin
        ShowAlertBox('Error! No TLK file is currently open. There is nothing to search in.');
        exit;
     end;

     SearchForm.entrycount := tlkdata.count;
     SearchForm.Reposition(Left + 32, Top + 64);

     if (SearchForm.ShowModal = mrOk) then
        DoSearchFilter();
end;

// -----------------------------------------------------------------------------
// Check if each individual word in the search criteria exists within the
// search data. Ordering is not important, but all criteria must be found.
// -----------------------------------------------------------------------------
function TMainForm.CheckWordMatch(sCriteria : string; sData : string) : boolean;
var
   oCrit    : TStringTokenizer;
   oData    : TStringTokenizer;
   i, n     : integer;
   iMatches : integer;
   sCWord   : string;
   sDWord   : string;
begin
    if ((Length(sCriteria) < 3)
        or (Pos(' ', sCriteria) = 0)
        or (Length(sData) < 3)
        or (Pos(' ', sData) = 0))
    then begin
        result := (sCriteria = sData);
    end
    else begin
        oCrit := TStringTokenizer.Create(sCriteria, ' ');
        try
            oData := TStringTokenizer.Create(sData, ' ');
            try
                // No data to search in, match none...
                if (oData.count = 0) then begin
                    result := False;
                    exit;
                end
                // No search criteria, match all...
                else if (oCrit.count = 0) then begin
                    result := True;
                    exit;
                end;

                // Check for matches....
                for i := 0 to (oCrit.count - 1) do begin
                    iMatches := 0;
                    sCWord := oCrit.strings[i];

                    // Cut away any trailing periods, commas, exclamation
                    // marks and question marks before comparing.
                    if (sCWord[Length(sCWord)] in ['.', '!', '?', ',']) then
                        sCWord := copy(sCWord, 1, Length(sCWord) - 1);

                    for n := 0 to (oData.count - 1) do begin
                        sDWord := oData.strings[n];

                        // Cut away any trailing periods, commas, exclamation
                        // marks and question marks before comparing.
                        if (sDWord[Length(sDWord)] in ['.', '!', '?', ',']) then
                            sDWord := copy(sDWord, 1, Length(sDWord) - 1);

                        // Check if this word matches the search criteria.
                        if (sCWord = sDWord) then
                            inc(iMatches);
                    end;

                    // If no word in the string matched this word criteria,
                    // the search may as well stop. Every criteria needs to be
                    // matched at least once in the search data.
                    if (iMatches = 0) then begin
                        result := False;
                        exit;
                    end;
                end;
                result := True;
            finally
                oData.free();
            end;
        finally
            oCrit.free();
        end;
    end;
end;


procedure TMainForm.DoSearchFilter();
var
   iCount     : integer;
   iStart     : DWORD;
   iStop      : DWORD;
   sResref    : string;
   tlkentry   : TTLKString;
   str        : string;
   sSub       : string;
   sFull      : string;
   bCase      : boolean;
   bNegate    : boolean;
   bExact     : boolean;
   bWords     : boolean;
   bNew       : boolean;
   bNoBlank   : boolean;
   bSound     : boolean;
begin
     try
        if (tlkdata = nil) then
           raise EHell.Create('Error while performing search. No valid TLK file found to search');

        str := SearchForm.edString.text;
        sResRef := SearchForm.edResref.text;
        
        try
           iStart := StrToInt(SearchForm.edStart.text);
           iStop := StrToInt(SearchForm.edStop.text);
        except
              on e : EConvertError do begin
                 ShowAlertBox('Error! You can only use numbers when specifying an interval to search in!');
                 exit;
              end;
        end;

        bCase    := SearchForm.cbMatchCase.checked;
        bNegate  := SearchForm.cbNegate.checked;
        bExact   := SearchForm.cbExactMatch.checked;
        bWords   := SearchForm.cbWordSearch.checked;
        bSound   := SearchForm.cbSoundSearch.checked;
        bNew     := SearchForm.cbFlagNew.checked;
        bNoBlank := SearchForm.cbFilterBlank.checked;

        if ((iStart > iStop)) then
           raise EHell.Create('Invalid start value of interval to search!');

        if (iStop > (tlkdata.count-1)) or (iStop < iStart) then
           raise EHell.Create('Oi! Invalid end value of interval to search!');

        pbar.position := 0;
        pbar.max := iStop - iStart;
        txtDisplay.clear();

        ResetStringGrid(grid);
        grid.enabled := false;
        grid.colcount := 3;
        grid.rowcount := 2;
        grid.FixedCols := 1;
        grid.FixedRows := 1;
        grid.Cells[0, 0] := 'StrRef';
        grid.Cells[1, 0] := 'Entry text';
        grid. Cells[2, 0] := 'Sound Resref';

        grid.ColWidths[0] := 64;
        grid.ColWidths[1] := (grid.Width - 70 - SOUND_COLUMN_WIDTH_MARGIN);
        grid.ColWidths[2] := SOUND_COLUMN_WIDTH;

        iCount := 1;
        tlkentry := tlkdata.strings.first();
        while ((tlkentry <> nil) and (tlkentry.strref <= iStop)) do
        begin
            if ((tlkentry.strref >= iStart) and (tlkentry.strref <= iStop)) then
            begin
                 if (bCase = True) then begin
                    sSub := str;
                    sFull := tlkentry.strtext;
                 end
                 else begin
                      sSub := lowercase(str);
                      sFull := lowercase(tlkentry.strtext);
                 end;

                 if ( ((bNoBlank = False) or ((bNoBlank = True) and (Length(tlkentry.strtext) > 0)))
                    and ((bNew = False) or ((bNew = True) and (tlkentry.iscustom = True)))
                    and ((bSound = False) or ((bSound = True) and (Length(tlkentry.soundstring) > 0)))
                    and (  (Length(str) = 0)
                        or ((bNegate = False)
                            and (((bWords = True) and CheckWordMatch(sSub, sFull))
                               or (((bExact = False) and (Pos(sSub, sFull) <> 0)) or ((bExact = True) and (sSub = sFull)))))
                        or ((bNegate = True)
                            and (((bWords = True) and not CheckWordMatch(sSub, sFull))
                                or (((bExact = False) and (Pos(sSub, sFull) = 0)) or ((bExact = True) and (sSub <> sFull))))) )
                    and ((Length(sResRef) = 0) or (Pos(lowercase(sResRef), lowercase(tlkentry.strsound)) <> 0)))
                 then
                 begin
                     grid.rowcount := grid.rowcount + 1;

                     grid.cells[0, iCount] := IntToStr(tlkentry.strref);
                     grid.cells[1, iCount] := ReplaceInString(tlkentry.strtext, #13, ''); // tlkentry.strtext;
                     grid.cells[2, iCount] := tlkentry.soundstring;
                     pbar.position := iCount;
                     iCount := iCount + 1;
                 end;
            end;

            tlkentry := tlkdata.strings.next();
        end;

        // FIX(2005-10-05) No entries were found if iCount is 1, not 0...
        if (iCount = 1) then
        begin
             grid.FixedCols := 0;
             grid.FixedRows := 0;
             grid.colcount := 1;
             grid.rowcount := 1;   // FIX(2005-10-05) Reduced RC to 1 again.
             grid.ColWidths[0] := grid.Width - 6;
             grid.cells[0, 0] := 'No entries matching the specified criteria were found!';
             grid.enabled := false;
             bpanel.panels[0].text := 'Search completed. No matching results found.';
        end
        else
        begin
            grid.rowcount := grid.rowcount - 1;
            grid.enabled := true;
            bpanel.panels[0].text := 'Search completed. ' + IntToStr(iCount)
                                  + ' matches found to specified criteria.';

            txtDisplay.setfocus();
            grid.setfocus();
            l_resultslisted := True;
        end;

        pbar.position := 0;

     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
end;

procedure TMainForm.Newentry1Click(Sender: TObject);
begin
     EntryForm.Reset();
     EntryForm.Reposition(Left + 32, Top + 64);
     EntryForm.Caption := 'Add new entry';
     EntryForm.entrycount := tlkdata.count;

     if (EntryForm.ShowModal = mrOk) then
        DoAddEntry();
end;

procedure TMainForm.DoAddEntry();
var
   tlkentry    : TTLKString;
   fLength     : float;
   sResref     : TResRef;
   iFlags      : DWORD;
   iVolume     : DWORD;
   iPitch      : DWORD;
   i           : integer;
   sTempString : string;
   iStart      : DWORD;
begin
     try
         if (tlkdata.fileexists = False) then
            raise EHell.Create('No TLK file us currently open. Nothing to add an entry to');

         // This shouldn't happen, but it's best to check that the handler is created.
         if (tlkdata = nil) then
            raise EHell.Create('Unable to locate a valid TLK to add an entry to!');

         // Put this up here to break off early due to invalid decimal
         // operator usage exceptions and such....
         try
            fLength := StrToFloat(EntryForm.edLength.text);
         except
               on e : EConvertError do
               begin;
                  ShowAlertBox('Error reading decimal value. Only numbers allowed, and you must use ' + DecimalSeparator + ' as a decimal separator!');
                  exit;
               end;
         end;

         try
            iVolume := StrToInt(EntryForm.edVolume.text);
            iPitch := StrToInt(EntryForm.edPitch.text);
         except
               on e : EConvertError do begin
                  ShowAlertBox('Error! Volume and pitch variance must be non-decimal numbers!');
                  exit;
               end;
         end;

         // Combine the checked flags into the bitfield data that should be stored.
         iFlags := $0;
         if (EntryForm.cbText.checked = True) then
            iFlags := iFlags or TEXT_PRESENT;

         if (EntryForm.cbSound.checked = True) then
            iFlags := iFlags or SND_PRESENT;

         if (EntryForm.cbLength.checked = True) then
            iFlags := iFlags or SNDLENGTH_PRESENT;

         // Transform the Resref from a string into a TResRef so it can be stored.
         for i := 0 to 15 do begin
             if (Length(EntryForm.edResref.text) > i) then
                sResRef[i] := EntryForm.edResref.text[i+1]
             else
                 sResRef[i] := #0;
         end;

         // Create a new String Entry and store the info from the input boxes.
         tlkentry           := TTLKString.Create();
         tlkentry.strflags  := iFlags;
         tlkentry.sndvolume := iVolume;
         tlkentry.sndpitch  := iPitch;
         tlkentry.sndlength := fLength;
         tlkentry.strsound  := sResRef;

         // Remove carriage returns from the text, since the Text property
         // returns both LF and CR for changing rows.
         sTempString := EntryForm.txtString.text;
         sTempString := ReplaceInString(sTempString, #13, '');
         tlkentry.strtext := sTempString;

         // Add the new entry to the list of entries...
         tlkdata.AddEntry(tlkentry);

         // Display some feedback that the entry has been added.
         sTempString := IntToStr(tlkdata.count-1);
         // ShowInfoBox('New string entry added to TLK with StrRef #' + sTempString + '.');

         // FIX(2005-05-21)
         // Start the listing at the first new entry instead....
         if (l_firstnew = -1) then
            l_firstnew := tlkdata.count-1;

         iStart := StrToInt(edStart.text);

         if (((tlkdata.count-1) - iStart) > 1000) then
            edStart.text := IntToStr((tlkdata.count-1) - 1000);

         edStop.text := sTempString;

         btnShowClick(btnShow);
         Save2.enabled := True;

         for i:= 0 to (grid.rowcount - 1) do begin
             if (grid.cells[0, i] = sTempString) then begin
                grid.row := i;
                break;
             end;
         end;

         lblMax.Caption := '(' + sTempString + ' max.)';
         btnShowClick(btnShow);
         grid.row := grid.rowcount - 1;
         Save2.enabled := True;

     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
end;


procedure TMainForm.DoModifyEntry(tlkentry : TTLKString);
var
   fLength     : float;
   sResref     : TResRef;
   iFlags      : DWORD;
   i           : integer;
   sTempString : string;
begin
     try
         // This shouldn't happen, but it's best to check that the handler is created.
         if (tlkdata = nil) then
            raise EHell.Create('Unable to locate a valid TLK to modify an entry in!');

         if (tlkentry = nil) then
            raise EHell.Create('Unable to find the entry that should be modified!');

         // Put this up here to break off early due to invalid decimal
         // operator usage exceptions and such....
         try
            fLength := StrToFloat(EntryForm.edLength.text);
         except
               on e : EConvertError do
               begin;
                  ShowAlertBox('Error reading decimal value. Only numbers allowed, and you must use ' + DecimalSeparator + ' as a decimal separator!');
                  exit;
               end;
         end;

         // Combine the checked flags into the bitfield data that should be stored.
         iFlags := $0;
         if (EntryForm.cbText.checked = True) then
            iFlags := iFlags or TEXT_PRESENT;

         if (EntryForm.cbSound.checked = True) then
            iFlags := iFlags or SND_PRESENT;

         if (EntryForm.cbLength.checked = True) then
            iFlags := iFlags or SNDLENGTH_PRESENT;

         // Transform the Resref from a string into a TResRef so it can be stored.
         for i := 0 to 15 do begin
             if (Length(EntryForm.edResref.text) > i) then
                sResRef[i] := EntryForm.edResref.text[i+1]
             else
                 sResRef[i] := #0;
         end;

         // Store the info from the input boxes in the entry object.
         tlkentry.strflags  := iFlags;
         tlkentry.sndvolume := StrToInt(EntryForm.edVolume.text);
         tlkentry.sndpitch  := StrToInt(EntryForm.edPitch.text);
         tlkentry.sndlength := fLength;
         tlkentry.strsound  := sResRef;

         // Remove carriage returns from the text, since the Text property
         // returns both LF and CR for changing rows.
         sTempString := EntryForm.txtString.text;
         sTempString := ReplaceInString(sTempString, #13, '');
         tlkentry.strtext := sTempString;

         // Modify an existing entry with this data
         tlkdata.ReplaceEntry(tlkentry);

         // ShowInfoBox('String entry with StrRef #' + IntToStr(tlkentry.strref) + ' has now been modified!');

         if (dword(StrToInt(edStart.text)) > tlkentry.strref) then
            edStart.text := IntToStr(tlkentry.strref);

         if (dword(StrToInt(edStop.text)) < tlkentry.strref) then
            edStop.text := IntToStr(tlkentry.strref);

         if l_resultslisted then
            DoSearchFilter()
         else
             btnShowClick(btnShow);
             
         Save2.enabled := True;

         for i:= 0 to (grid.rowcount - 1) do begin
             if (grid.cells[0, i] = IntToStr(tlkentry.strref)) then begin
                grid.row := i;
                break;
             end;
         end;

     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
end;


procedure TMainForm.Editrow1Click(Sender: TObject);
var
   iStrRef  : DWORD;
   bFound   : boolean;
   tlkentry : TTLKString;
begin
     if (grid.colcount > 1) then
     begin
          try
              if (tlkdata.fileexists = False) then
                 raise EHell.Create('No TLK file is currently open to edit entries in!');

              if (tlkdata = nil) then
                  raise EHell.Create('Unable to load the TLK file data!');

              iStrRef := StrToInt(grid.cells[0, grid.row]);

              if (iStrRef > (tlkdata.count-1)) then
                  raise EHell.Create('Invalid TLK entry specified. Unable to edit it.');

              bFound := False;
              tlkentry := tlkdata.strings.first();
              while ((tlkentry <> nil) and (tlkentry.strref <= iStrRef)) do begin
                   if (tlkentry.strref = iStrRef) then
                   begin
                        bFound := True;
                        break;
                   end
                   else
                       tlkentry := tlkdata.strings.next();
              end;

              if (bFound = True) then begin
                   EntryForm.Reset();
                   EntryForm.Reposition(Left + 32, Top + 64);
                   EntryForm.entrycount := tlkentry.strref;

                   with EntryForm do begin
                        txtString.clear();
                        txtString.lines.Text := tlkentry.strtext;
                        cbText.checked       := ((tlkentry.strflags and TEXT_PRESENT) <> 0);
                        cbSound.checked      := ((tlkentry.strflags and SND_PRESENT) <> 0);
                        cbLength.checked     := ((tlkentry.strflags and SNDLENGTH_PRESENT) <> 0);
                        edVolume.text        := IntToStr(tlkentry.sndvolume);
                        edPitch.text         := IntToStr(tlkentry.sndpitch);
                        edLength.text        := FloatToStrF(tlkentry.sndlength, ffGeneral, 2, 2);
                        edResref.text        := tlkentry.strsound;
                   end;

                   EntryForm.Caption := 'Modify entry';
                   
                   if (EntryForm.ShowModal = mrOk) then begin
                      DoModifyEntry(tlkentry);

                   end;

              end
              else
                   raise EHell.Create('Unable to find the TLK entry for the selected row!');


          except
                on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
          end;
     end
     else
         ShowAlertBox('No TLK entry row has been selected in the table!');
end;

procedure TMainForm.Setlanguage1Click(Sender: TObject);
var
   sFeedback : string;
begin
     if (tlkdata.fileexists = False) then begin
        ShowAlertBox('Error! No TLK file is currently open to set the language for!');
        exit;
     end;

     LanguageForm.languageid := tlkdata.language;
     LanguageForm.Reposition(Left + 100, Top + 128);

     if (LanguageForm.ShowModal = mrOk) then begin
         if (LanguageForm.edLanguage.itemindex in [0..5]) then begin
            tlkdata.language := LanguageForm.edLanguage.itemindex;

            case (tlkdata.language) of
                 0: sFeedback := 'English';
                 1: sFeedback := 'French';
                 2: sFeedback := 'German';
                 3: sFeedback := 'Italian';
                 4: sFeedback := 'Spanish';
                 5: sFeedback := 'Polish';
            end;
            ShowInfoBox('TLK file Language ID is now set to ' + sFeedback + '.');
         end
         else
            ShowAlertBox('Unsupported language id ' + IntToStr(LanguageForm.edLanguage.itemindex) + ' encountered. Unable to save.');
     end;
end;

procedure TMainForm.New1Click(Sender: TObject);
var
   sMessage : string;
begin
     if (tlkdata.fileexists = True) then begin
        if tlkdata.modified then begin
            sMessage := 'Creating a new TLK file will close the currently open one, causing any unsaved changes to be lost. Still continue?';
            if (ShowConfirmBox(sMessage) = mrNo) then
               exit;
        end;
     end;

     l_firstnew := 0;
     tlkdata.NewTlkFile();

     bpanel.panels[0].text := 'Created new blank TLK File. '
                       + tlkdata.fileid
                       + ' '  + tlkdata.version;

     ResetStringGrid(grid);
     txtDisplay.clear();

     with grid do begin
          FixedCols    := 0;
          FixedRows    := 0;
          colcount     := 1;
          ColWidths[0] := grid.Width - 6;
          cells[0, 0]  := 'No entries present. Please use the Tools menu to add new entries.';
          enabled      := false;
     end;

     lblInterval1.enabled := True;
     lblInterval2.enabled := True;
     btnShow.enabled      := True;
     edStart.enabled      := True;
     edStop.Enabled       := True;
     Tools1.Enabled       := True;
     Save1.Enabled        := True;
     Save2.Enabled        := True;
     Setlanguage1.Enabled := True;

     lblMax.Caption       := '(0 max.)';
     edStart.text         := '0';
     edStop.text          := '0';
end;

procedure TMainForm.Appendfile1Click(Sender: TObject);
var
   appenddata : TTLKFileHandler;
   oldentry   : TTLKString;
   newentry   : TTLKString;
   sFilename  : string;
   sFeedback  : string;
   iCount     : DWORD;
   iStart     : DWORD;
   iEnd       : integer;
   i          : integer;
begin
     if (tlkdata.fileexists = False) then begin
        ShowAlertBox('Error! There is no open TLK file to append entries to!');
        exit;
     end;

     OpenTlkFile.FileName := 'append.tlk';
     if not OpenTlkFile.Execute then
        Exit;

     appenddata := TTLKFileHandler.Create();
     try
        try
            if (appenddata = nil) then
               raise EHell.Create('Failed to load the specified append file!');

            sFilename := OpenTlkFile.FileName;
            appenddata.LoadTlkFile(sFilename);

            if (appenddata.fileexists = False) then
               raise EHell.Create('Unable to load data from the specified append file!');

            if (appenddata.count < 1) then
               raise EHell.Create('The specified append file is empty! Nothing to append...');

            // Read all entries from the append file and insert them into the
            // primary TLK file.
            iCount := 0;
            iStart := tlkdata.count;
            oldentry := appenddata.strings.first();
            while ((oldentry <> nil) and (iCount < appenddata.count)) do begin
                newentry := TTLKString.Create(oldentry);
                tlkdata.AddEntry(newentry);
                iCount := iCount + 1;
                oldentry := appenddata.strings.next();
            end;

            if (iCount > 0) then begin
                // Display some feedback of what the append has done.
                sFeedback := 'Appended ' + sFilename + ' to open file. '
                  + 'Added ' + IntToStr(iCount) + ' entries from '
                  + IntToStr(iStart) + ' to ' + IntToStr(tlkdata.count - 1) + '.';

                bpanel.panels[0].text := sFeedback;

                iEnd := tlkdata.count - 1;
                if (iEnd < 0) then
                   iEnd := 0;

                // Show the 20 latest entries in the InGrid...
                if (tlkdata.count < 20) then begin
                   edStart.text := '0';
                   edStop.text := IntToStr(iEnd);
                end
                else begin
                    i := tlkdata.count - 20;
                    if (i > 0) then
                        edStart.text := IntToStr(i)
                    else begin
                        edStart.text := IntToStr(iEnd);
                    end;

                    edStop.text := IntToStr(iEnd);
                end;

                lblMax.Caption := '(' + IntToStr(iEnd) + ' max.)';
                btnShowClick(btnShow);
                grid.row := grid.rowcount - 1;
                ShowInfoBox(sFeedback);
            end
            else begin
                 sFeedback := 'Append failed. No entries were present in specified file to append.';
                 bpanel.panels[0].text := sFeedback;
                 ShowAlertBox(sFeedback);
            end;

        except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
        end;
     finally
         appenddata.Free();
     end;
end;

procedure TMainForm.edStartKeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in [^Z, ^X, ^C, ^V, #8, '0'..'9']) then begin
        Key := #0;
        beep();
    end;
end;

procedure TMainForm.edStopKeyPress(Sender: TObject; var Key: Char);
begin
    if not (Key in [^Z, ^X, ^C, ^V, #8, '0'..'9']) then begin
        Key := #0;
        beep();
    end;
end;


procedure TMainForm.gridDblClick(Sender: TObject);
var
   iStrRef  : DWORD;
   bFound   : boolean;
   tlkentry : TTLKString;
begin
     if (grid.colcount > 1) then
     begin
          try
              if (grid.FixedRows > 0) and (grid.row = 0) then
                 exit;

              if (tlkdata.fileexists = False) then
                 raise EHell.Create('No TLK file is currently open to edit entries in!');

              if (tlkdata = nil) then
                  raise EHell.Create('Unable to load the TLK file data!');

              iStrRef := StrToInt(grid.cells[0, grid.row]);

              if (iStrRef > (tlkdata.count-1)) then
                  raise EHell.Create('Invalid TLK entry specified. Unable to edit it.');

              bFound := False;
              tlkentry := tlkdata.strings.first();
              while ((tlkentry <> nil) and (tlkentry.strref <= iStrRef)) do begin
                   if (tlkentry.strref = iStrRef) then
                   begin
                        bFound := True;
                        break;
                   end
                   else
                       tlkentry := tlkdata.strings.next();
              end;

              if (bFound = True) then begin
                   EntryForm.Reset();
                   EntryForm.Reposition(Left + 32, Top + 64);
                   EntryForm.entrycount := tlkentry.strref;

                   with EntryForm do begin
                        txtString.clear();
                        txtString.lines.Text := tlkentry.strtext;
                        cbText.checked       := ((tlkentry.strflags and TEXT_PRESENT) <> 0);
                        cbSound.checked      := ((tlkentry.strflags and SND_PRESENT) <> 0);
                        cbLength.checked     := ((tlkentry.strflags and SNDLENGTH_PRESENT) <> 0);
                        edVolume.text        := IntToStr(tlkentry.sndvolume);
                        edPitch.text         := IntToStr(tlkentry.sndpitch);
                        edLength.text        := FloatToStrF(tlkentry.sndlength, ffGeneral, 2, 2);
                        edResref.text        := tlkentry.strsound;
                   end;

                   EntryForm.Caption := 'Modify entry';
                   
                   if (EntryForm.ShowModal = mrOk) then begin
                      DoModifyEntry(tlkentry);

                   end;

              end
              else
                   raise EHell.Create('Unable to find the TLK entry for the selected row!');


          except
                on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
          end;
     end
     else
         ShowAlertBox('No TLK entry row has been selected in the table!');
end;

procedure TMainForm.Deleteselected1Click(Sender: TObject);
var
   iStrRef : DWORD;
   oEntry  : TTLKString;
   tlkentry : TTLKString;
   iStop    : DWORD;
   iStart   : DWORD;
   sNext    : string;
   i        : integer;
begin
     if (grid.colcount > 1) then
     begin
          iStrRef := StrToInt(grid.cells[0, grid.row]);

          ConfirmDelete.Reposition(Left + 100, Top + 128);
          ConfirmDelete.strref := iStrRef;
          if (ConfirmDelete.ShowModal <> mrOk) then
             exit;

          try
              if (tlkdata.fileexists = False) then
                 raise EHell.Create('No TLK file is currently open to delete entries from!');

              if (tlkdata = nil) then
                  raise EHell.Create('Unable to load the TLK file data!');

              if (iStrRef > (tlkdata.count-1)) then
                  raise EHell.Create('Invalid TLK entry specified. Unable to edit it.');

              // Verify that this entry should be possible to delete.
              oEntry := nil;
              tlkentry := tlkdata.strings.first();
              while ((tlkentry <> nil) and (tlkentry.strref <= iStrRef)) do begin
                   if (tlkentry.strref = iStrRef) then
                   begin
                       oEntry := tlkentry;
                       break;
                   end
                   else
                       tlkentry := tlkdata.strings.next();
              end;

              if (oEntry <> nil) then begin
                tlkdata.DeleteEntry(iStrRef);

                ShowInfoBox('Entry ' + IntToStr(iStrRef) + ' has been deleted. All following entries have had their StrRefs reindexed.');

                iStop := StrToInt(edStop.text);
                if (iStop >= tlkdata.count) then begin
                   iStop := tlkdata.count-1;
                   edStop.text := IntToStr(iStop);
                end;

                iStart := StrToInt(edStart.text);

                if ((iStop - iStart) > 1000) then
                   edStart.text := IntToStr(iStop - 1000);

                if (iStrRef >= (tlkdata.count - 1)) then
                   iStrRef := tlkdata.count - 1;

                btnShowClick(btnShow);
                Save2.enabled := True;
                sNext := IntToStr(iStrRef);

                for i:= 0 to (grid.rowcount - 1) do begin
                    if (grid.cells[0, i] = sNext) then begin
                        grid.row := i;
                        break;
                    end;
                 end;
              end
              else begin
                   raise EHell.Create('Unable to find the entry that should be deleted.');
              end;
              
          except
                on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
          end;
     end;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
   sMessage : string;
begin
     CanClose := True;
     
     if (tlkdata <> nil) and (tlkdata.fileexists = True) then begin
        if tlkdata.modified then begin
            sMessage := 'Are you sure you wish to quit? Any unsaved information in the currently open TLK file will be lost.';
            if (ShowConfirmBox(sMessage) = mrNo) then
               CanClose := False;
        end;
     end;
end;

procedure TMainForm.Save2Click(Sender: TObject);
var
   sFilename : string;
begin
     try
         sFilename := tlkdata.filename;

         if not SysUtils.FileExists(sFilename) then begin
             SaveTlkFile.Filename := sFilename;
             if not SaveTlkFile.Execute then
                exit;

             sFilename := SaveTlkFile.Filename;
         end;

         if (tlkdata = nil) or not tlkdata.fileexists then
            raise EHell.Create('No open TLK file to write!');

         tlkdata.SaveTlkFile(sFilename);

         bpanel.panels[0].text := 'Saved file ' + SaveTlkFile.FileName
                       + '. ' + tlkdata.fileid
                       + ' ' + tlkdata.version
                       + '. ' + IntToStr(tlkdata.count) + ' entries written.';

     except
           on e : EHell do ShowAlertBox('ERROR! ' + e.Message);
     end;
end;

procedure TMainForm.PadtoStrRef1Click(Sender: TObject);
var
   iStrRef : DWORD;
   iCount  : DWORD;
   sInput  : string;
   oPad    : TTLKString;
   i       : integer;
   iStart  : DWORD;
   iTotal  : integer;
begin
     try
         PadEntriesForm.strref := tlkdata.count;
         PadEntriesForm.Reposition(Left + 32, Top + 64);

         if (PadEntriesForm.ShowModal <> mrOk) then
            exit;

         sInput := PadEntriesForm.edStrRef.text;

         if (sInput = '') then
            exit;

         iStrRef := StrToInt(sInput);

         if (iStrRef <= tlkdata.count) then
            raise EHell.Create('Invalid StrRef specified! You must specify a number at least 2 bigger than the current last StrRef!');

         iCount := tlkdata.count;
         iTotal := 0;

         for i := iCount to (iStrRef - 1) do begin
             oPad  := TTLKString.Create();
             tlkdata.AddEntry(oPad);
             inc(iTotal);
         end;

         // Display some feedback that the entry has been added.
         sInput := IntToStr(tlkdata.count-1);
         // ShowInfoBox('New string entry added to TLK with StrRef #' + sTempString + '.');

         // TODO: Check if this is actually still used for something....
         if (l_firstnew = -1) then
            l_firstnew := tlkdata.count-1;

         iStart := StrToInt(edStart.text);

         if (((tlkdata.count-1) - iStart) > 1000) then
            edStart.text := IntToStr((tlkdata.count-1) - 1000);

         edStop.text := sInput;

         btnShowClick(btnShow);
         Save2.enabled := True;

         for i:= 0 to (grid.rowcount - 1) do begin
             if (grid.cells[0, i] = sInput) then begin
                grid.row := i;
                break;
             end;
         end;

         ShowInfoBox('Added ' + IntToStr(iTotal) + ' blank entries, padding StrRef ' + IntToStr(iCount) + ' to ' + IntToStr(iStrRef-1) + '.');


     except
         on e: EHell do ShowAlertBox(e.Message);
     end;

end;

end.