diff options
author | Graeme Geldenhuys <graemeg@gmail.com> | 2015-04-02 15:21:13 +0100 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-04-02 15:21:13 +0100 |
commit | dfa2679259a2543ebe7d3b32acee673a3c29694d (patch) | |
tree | d655e03ad7933fe257644ce447c8436f0933a453 | |
parent | e6fb987d304e1fd4691d122d93b6d696ab271ada (diff) | |
download | fpGUI-dfa2679259a2543ebe7d3b32acee673a3c29694d.tar.xz |
ats: published FocusCol and FocusRow properties for the LangGrid component
-rw-r--r-- | extras/contributed/ats/ats_editor.pas | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/extras/contributed/ats/ats_editor.pas b/extras/contributed/ats/ats_editor.pas index 92d5ce3e..a07585ae 100644 --- a/extras/contributed/ats/ats_editor.pas +++ b/extras/contributed/ats/ats_editor.pas @@ -8,24 +8,23 @@ uses fpg_combobox, fpg_dialogs, fpg_utils; const - langtabledata: - {$I atstable.inc} + langtabledata: {$I atstable.inc} type - { TLangGrid } - 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; + function GetRowCount: Integer; override; public atstable: TatsTextTable; procedure UpdateColumns; + published + property FocusCol; + property FocusRow; end; - { TfrmLangTable } TfrmLangTable = class(TfpgForm) public @@ -51,7 +50,6 @@ type end; - { TfrmTextEdit } TfrmTextEdit = class(TfpgForm) public |