//---------------------------------------------------------------------------

#ifndef myDBGridH
#define myDBGridH
#include <Classes.hpp>
#include <DBGrids.hpp>


//---------------------------------------------------------------------------
class MyDBGrid : public TDBGrid {
        int FFixedCols;
public:
    __fastcall virtual MyDBGrid(Classes::TComponent* AOwner);
    void setFixedCols(int value);
    int getFixedCols();
    DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
    DYNAMIC void __fastcall KeyDown(System::Word &Key, Classes::TShiftState Shift);
};
#endif

//---------------------------------------------------------------------------


#pragma hdrstop

#include "myDBGrid.h"
#include <Classes.hpp>
#include <DBGrids.hpp>

//---------------------------------------------------------------------------

#pragma package(smart_init)

__fastcall MyDBGrid::MyDBGrid(Classes::TComponent* AOwner) : TDBGrid(AOwner) {
}

void MyDBGrid::setFixedCols(int value) {
        int FixedCount = value + this->IndicatorOffset;
        if (this->DataLink->Active && !(this->ComponentState.Contains(csDesigning)) &&
                (ColCount > IndicatorOffset + 1)) {
                if (FixedCount >= ColCount) FixedCount = ColCount - 1;
                FixedCols = FixedCount;

                for (int i = 1; i <= FixedCols; i++) TabStops[i] = false;
        }
        FFixedCols = FixedCount - IndicatorOffset;
}

int MyDBGrid::getFixedCols() {
        if (DataLink->Active) return FixedCols - IndicatorOffset;
        return FFixedCols;
}

void __fastcall MyDBGrid::MouseDown(TMouseButton Button, TShiftState Shift, int X, int Y) {
        TGridCoord cell = MouseCoord(X, Y);
        if (cell.X >= 0 && cell.X < FixedCols && DataLink->Active) {
                if (Options.Contains(dgIndicator)) {
                        TDBGrid::MouseDown(Button, Shift, 1, Y);
                }
                else if (cell.Y >= 1 && cell.Y - Row != 0) {
                        DataLink->DataSet->MoveBy(cell.Y - Row);
                }
        }
        else TDBGrid::MouseDown(Button, Shift, X, Y);
}

void __fastcall MyDBGrid::KeyDown(System::Word &Key, Classes::TShiftState Shift) {
        TKeyEvent KeyDownEvent = OnKeyDown;
        if (KeyDownEvent != NULL) KeyDownEvent(this, Key, Shift);

        if (!DataLink->Active || !CanGridAcceptKey(Key, Shift)) return;

        if (Shift.Contains(ssCtrl)) {
                if (Key = VK_LEFT && FixedCols > 0) {
                        SelectedIndex = FixedCols;
                        return;
                }
        }
        else switch (Key) {
                case VK_LEFT:
                        if (FixedCols > 0 && !Options.Contains(dgRowSelect))
                                if (SelectedIndex <= FFixedCols) return;
                        break;
                case VK_HOME:
                        if (FixedCols > 0 && ColCount != IndicatorOffset + 1
                                && !Options.Contains(dgRowSelect)) {
                            SelectedIndex = FixedCols;
                            return;
                        }
                        break;
        }


        OnKeyDown = NULL;

        try {
                TDBGrid::KeyDown(Key, Shift);
        }
        catch(...) {
                OnKeyDown = KeyDownEvent;
        }
}