Class TKeoEGrid (unit Keoegrid)

Inherits from

TStringGrid

Constructors


constructor Create(AOwner: TComponent);

========================================================================================} {---------------------------------------TKeoEGrid----------------------------------Create


Functions

procedure AddLine(const Vals: array of string);

---------------------------------------TKeoEGrid---------------------------------AddLine

procedure Clear;

---------------------------------------TKeoEGrid-----------------------------------Clear

procedure DelLines(Row, Count: Longint);

---------------------------------------TKeoEGrid--------------------------------DelLines

destructor Destroy;

---------------------------------------TKeoEGrid---------------------------------Destroy

procedure DrawCell(Col, Row: Longint; Rect: TRect; State: TGridDrawState);

---------------------------------------TKeoEGrid--------------------------------DrawCell

procedure HideCol(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------------HideCol

procedure InsertEmptyLines(Behind, Count: Longint);

---------------------------------------TKeoEGrid------------------------InsertEmptyLines

procedure InsertLine(Behind: Longint; const Vals: array of string);

---------------------------------------TKeoEGrid------------------------------InsertLine

function IsCellLocked(ACol, ARow: Longint): Boolean;

---------------------------------------TKeoEGrid----------------------------IsCellLocked

function IsColHidden(ACol: Longint): Boolean;

---------------------------------------TKeoEGrid-----------------------------IsColHidden

function IsColLocked(ACol: Longint): Boolean;

---------------------------------------TKeoEGrid-----------------------------IsColLocked

function IsRowLocked(ARow: Longint): Boolean;

---------------------------------------TKeoEGrid-----------------------------IsRowLocked

procedure KeyDown(var Key: Word; Shift: TShiftState);

---------------------------------------TKeoEGrid---------------------------------KeyDown

function LineEmpty(Row: Integer): Boolean;

---------------------------------------TKeoEGrid-------------------------------LineEmpty

procedure LoadFromFile(FileName: string);

---------------------------------------TKeoEGrid----------------------------LoadFromFile

procedure LockCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid--------------------------------LockCell

procedure LockCol(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------------LockCol

procedure LockRow(ARow: Longint);

---------------------------------------TKeoEGrid---------------------------------LockRow

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

---------------------------------------TKeoEGrid-------------------------------MouseDown

procedure RePaintCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid-----------------------------RePaintCell

procedure RePaintCol(ACol: Longint);

---------------------------------------TKeoEGrid------------------------------RePaintCol

procedure RePaintRow(ARow: Longint);

---------------------------------------TKeoEGrid------------------------------RePaintRow

procedure ReplaceLine(Line: Longint; const Vals: array of string);

---------------------------------------TKeoEGrid-----------------------------ReplaceLine

procedure SaveToFile(FileName: string);

---------------------------------------TKeoEGrid------------------------------SaveToFile

function Select1Cell(ACol, ARow: Integer): Boolean;

---------------------------------------TKeoEGrid-----------------------------Select1Cell

function SelectACell(ACol, ARow: Integer): Boolean;

---------------------------------------TKeoEGrid-----------------------------SelectACell

function SelectCell(ACol, ARow: Longint): Boolean;

---------------------------------------TKeoEGrid------------------------------SelectCell

procedure ShowCol(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------------ShowCol

procedure SortAsDate(ACol: Longint);

---------------------------------------TKeoEGrid------------------------------SortAsDate

procedure SortAsDateTime(ACol, AColT: Longint);

---------------------------------------TKeoEGrid--------------------------SortAsDateTime

procedure SortAsFloat(ACol: Longint; Decs: Integer);

---------------------------------------TKeoEGrid-----------------------------SortAsFloat

procedure SortAsInteger(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------SortAsInteger

procedure SortAsString(ACol: Longint);

---------------------------------------TKeoEGrid----------------------------SortAsString

procedure SortAsTime(ACol: Longint);

---------------------------------------TKeoEGrid------------------------------SortAsTime

procedure UnLockCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid------------------------------UnLockCell

procedure UnLockCol(ACol: Longint);

---------------------------------------TKeoEGrid-------------------------------UnLockCol

procedure UnLockRow(ARow: Longint);

---------------------------------------TKeoEGrid-------------------------------UnLockRow

procedure AssignHints(Col: Integer);

---------------------------------------TKeoEGrid-----------------------------AssignHints

procedure DoGetDrawValues(col, row: integer; var aFont: tFont; var aAlignment: TAlignment; var bgColor: TColor);

---------------------------------------TKeoEGrid-------------------------doGetDrawValues

procedure DrawHeader;

---------------------------------------TKeoEGrid------------------------------DrawHeader

procedure Loaded;

---------------------------------------TKeoEGrid----------------------------------Loaded

procedure SetAlignment(avalue:TAlignment);

---------------------------------------TKeoEGrid----------------------------SetAlignment

procedure SetHeader(Value: TStringList);

---------------------------------------TKeoEGrid-------------------------------SetHeader

procedure SetHints(Value: TStringList);

---------------------------------------TKeoEGrid--------------------------------SetHints

procedure SkipDownCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid----------------------------SkipDownCell

procedure SkipLeftCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid----------------------------SkipLeftCell

procedure SkipRightCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid---------------------------SkipRightCell

procedure SkipUpCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid------------------------------SkipUpCell

procedure Sort(ACol, ACol2: Longint; Mode: TGridSortMode; Decs: Integer);

---------------------------------------TKeoEGrid------------------------------------Sort

procedure ValsToCells(Row: Longint; const Vals: array of string);

---------------------------------------TKeoEGrid-----------------------------ValsToCells

Properties

property Alignment : TAlignment


property Header : TStringList


property Hints : TStringList


property SkipToNextRow : Boolean


Events

event OnGetDrawValues : TGetDrawValues


Variables

FAlignment : TAlignment;


FGetDrawValues : TGetDrawValues;


FHeader : TStringList;


FHiddenCols : TStringList;


FHints : TStringList;


FLastKey : Word;


FLockedCells : TStringList;


FLockedCols : TStringList;


FLockedRows : TStringList;


FOldCol : Longint;


FOldRow : Longint;


FSkipToNextRow : Boolean;



Constructors


constructor Create(AOwner: TComponent);

========================================================================================} {---------------------------------------TKeoEGrid----------------------------------Create


Functions


procedure AddLine(const Vals: array of string);

---------------------------------------TKeoEGrid---------------------------------AddLine


procedure Clear;

---------------------------------------TKeoEGrid-----------------------------------Clear


procedure DelLines(Row, Count: Longint);

---------------------------------------TKeoEGrid--------------------------------DelLines


destructor Destroy;

---------------------------------------TKeoEGrid---------------------------------Destroy


procedure DrawCell(Col, Row: Longint; Rect: TRect; State: TGridDrawState);

---------------------------------------TKeoEGrid--------------------------------DrawCell


procedure HideCol(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------------HideCol


procedure InsertEmptyLines(Behind, Count: Longint);

---------------------------------------TKeoEGrid------------------------InsertEmptyLines


procedure InsertLine(Behind: Longint; const Vals: array of string);

---------------------------------------TKeoEGrid------------------------------InsertLine


function IsCellLocked(ACol, ARow: Longint): Boolean;

---------------------------------------TKeoEGrid----------------------------IsCellLocked


function IsColHidden(ACol: Longint): Boolean;

---------------------------------------TKeoEGrid-----------------------------IsColHidden


function IsColLocked(ACol: Longint): Boolean;

---------------------------------------TKeoEGrid-----------------------------IsColLocked


function IsRowLocked(ARow: Longint): Boolean;

---------------------------------------TKeoEGrid-----------------------------IsRowLocked


procedure KeyDown(var Key: Word; Shift: TShiftState);

---------------------------------------TKeoEGrid---------------------------------KeyDown


function LineEmpty(Row: Integer): Boolean;

---------------------------------------TKeoEGrid-------------------------------LineEmpty


procedure LoadFromFile(FileName: string);

---------------------------------------TKeoEGrid----------------------------LoadFromFile


procedure LockCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid--------------------------------LockCell


procedure LockCol(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------------LockCol


procedure LockRow(ARow: Longint);

---------------------------------------TKeoEGrid---------------------------------LockRow


procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

---------------------------------------TKeoEGrid-------------------------------MouseDown


procedure RePaintCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid-----------------------------RePaintCell


procedure RePaintCol(ACol: Longint);

---------------------------------------TKeoEGrid------------------------------RePaintCol


procedure RePaintRow(ARow: Longint);

---------------------------------------TKeoEGrid------------------------------RePaintRow


procedure ReplaceLine(Line: Longint; const Vals: array of string);

---------------------------------------TKeoEGrid-----------------------------ReplaceLine


procedure SaveToFile(FileName: string);

---------------------------------------TKeoEGrid------------------------------SaveToFile


function Select1Cell(ACol, ARow: Integer): Boolean;

---------------------------------------TKeoEGrid-----------------------------Select1Cell


function SelectACell(ACol, ARow: Integer): Boolean;

---------------------------------------TKeoEGrid-----------------------------SelectACell


function SelectCell(ACol, ARow: Longint): Boolean;

---------------------------------------TKeoEGrid------------------------------SelectCell


procedure ShowCol(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------------ShowCol


procedure SortAsDate(ACol: Longint);

---------------------------------------TKeoEGrid------------------------------SortAsDate


procedure SortAsDateTime(ACol, AColT: Longint);

---------------------------------------TKeoEGrid--------------------------SortAsDateTime


procedure SortAsFloat(ACol: Longint; Decs: Integer);

---------------------------------------TKeoEGrid-----------------------------SortAsFloat


procedure SortAsInteger(ACol: Longint);

---------------------------------------TKeoEGrid---------------------------SortAsInteger


procedure SortAsString(ACol: Longint);

---------------------------------------TKeoEGrid----------------------------SortAsString


procedure SortAsTime(ACol: Longint);

---------------------------------------TKeoEGrid------------------------------SortAsTime


procedure UnLockCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid------------------------------UnLockCell


procedure UnLockCol(ACol: Longint);

---------------------------------------TKeoEGrid-------------------------------UnLockCol


procedure UnLockRow(ARow: Longint);

---------------------------------------TKeoEGrid-------------------------------UnLockRow


procedure AssignHints(Col: Integer);

---------------------------------------TKeoEGrid-----------------------------AssignHints


procedure DoGetDrawValues(col, row: integer; var aFont: tFont; var aAlignment: TAlignment; var bgColor: TColor);

---------------------------------------TKeoEGrid-------------------------doGetDrawValues


procedure DrawHeader;

---------------------------------------TKeoEGrid------------------------------DrawHeader


procedure Loaded;

---------------------------------------TKeoEGrid----------------------------------Loaded


procedure SetAlignment(avalue:TAlignment);

---------------------------------------TKeoEGrid----------------------------SetAlignment


procedure SetHeader(Value: TStringList);

---------------------------------------TKeoEGrid-------------------------------SetHeader


procedure SetHints(Value: TStringList);

---------------------------------------TKeoEGrid--------------------------------SetHints


procedure SkipDownCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid----------------------------SkipDownCell


procedure SkipLeftCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid----------------------------SkipLeftCell


procedure SkipRightCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid---------------------------SkipRightCell


procedure SkipUpCell(ACol, ARow: Longint);

---------------------------------------TKeoEGrid------------------------------SkipUpCell


procedure Sort(ACol, ACol2: Longint; Mode: TGridSortMode; Decs: Integer);

---------------------------------------TKeoEGrid------------------------------------Sort


procedure ValsToCells(Row: Longint; const Vals: array of string);

---------------------------------------TKeoEGrid-----------------------------ValsToCells


Properties


property Alignment : TAlignment


property Header : TStringList


property Hints : TStringList


property SkipToNextRow : Boolean


Events


event OnGetDrawValues : TGetDrawValues


Variables


FAlignment : TAlignment;


FGetDrawValues : TGetDrawValues;


FHeader : TStringList;


FHiddenCols : TStringList;


FHints : TStringList;


FLastKey : Word;


FLockedCells : TStringList;


FLockedCols : TStringList;


FLockedRows : TStringList;


FOldCol : Longint;


FOldRow : Longint;


FSkipToNextRow : Boolean;