summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2015-04-02 15:23:15 +0100
committerGraeme Geldenhuys <graemeg@gmail.com>2015-04-02 15:23:15 +0100
commit80eec7fc63eaaedb7c2c44c50459db88da249a37 (patch)
treec76a05e3c9ae04d6f3088a6228184b8d0733e7be
parentdfa2679259a2543ebe7d3b32acee673a3c29694d (diff)
downloadfpGUI-80eec7fc63eaaedb7c2c44c50459db88da249a37.tar.xz
ats: standardised the name of the event handler
-rw-r--r--extras/contributed/ats/ats_editor.pas8
1 files changed, 3 insertions, 5 deletions
diff --git a/extras/contributed/ats/ats_editor.pas b/extras/contributed/ats/ats_editor.pas
index a07585ae..9ecb8ecc 100644
--- a/extras/contributed/ats/ats_editor.pas
+++ b/extras/contributed/ats/ats_editor.pas
@@ -45,9 +45,7 @@ type
procedure menuProcSave(Sender: TObject);
procedure menuProcOpen(Sender: TObject);
procedure menuProcNew(Sender: TObject);
-
- procedure EditClick(Sender : TObject);
-
+ procedure btnEditClicked(Sender : TObject);
end;
@@ -358,7 +356,7 @@ begin
Hint := '';
ImageName := '';
TabOrder := 5;
- OnClick := @EditClick;
+ OnClick := @btnEditClicked;
end;
{@VFD_BODY_END: frmLangTable}
@@ -460,7 +458,7 @@ begin
grid.Update;
end;
-procedure TfrmLangTable.EditClick(Sender: TObject);
+procedure TfrmLangTable.btnEditClicked(Sender: TObject);
var
frm : TfrmTextEdit;
tr : TatsTextRow;