diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-04-02 15:23:15 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-04-02 15:23:15 +0100 |
commit | 80eec7fc63eaaedb7c2c44c50459db88da249a37 (patch) | |
tree | c76a05e3c9ae04d6f3088a6228184b8d0733e7be | |
parent | dfa2679259a2543ebe7d3b32acee673a3c29694d (diff) | |
download | fpGUI-80eec7fc63eaaedb7c2c44c50459db88da249a37.tar.xz |
ats: standardised the name of the event handler
-rw-r--r-- | extras/contributed/ats/ats_editor.pas | 8 |
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; |