Class TKeoEGrid (unit Keoegrid) |
Inherits from
TStringGrid
constructor Create(AOwner: TComponent);
- ========================================================================================} {---------------------------------------TKeoEGrid----------------------------------Create
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
property Alignment : TAlignment
property Header : TStringList
property Hints : TStringList
property SkipToNextRow : Boolean
event OnGetDrawValues : TGetDrawValues
FAlignment : TAlignment;
FGetDrawValues : TGetDrawValues;
FHeader : TStringList;
FHiddenCols : TStringList;
FHints : TStringList;
FLastKey : Word;
FLockedCells : TStringList;
FLockedCols : TStringList;
FLockedRows : TStringList;
FOldCol : Longint;
FOldRow : Longint;
FSkipToNextRow : Boolean;
constructor Create(AOwner: TComponent);
========================================================================================} {---------------------------------------TKeoEGrid----------------------------------Create
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
property Alignment : TAlignment
property Header : TStringList
property Hints : TStringList
property SkipToNextRow : Boolean
event OnGetDrawValues : TGetDrawValues
FAlignment : TAlignment;
FGetDrawValues : TGetDrawValues;
FHeader : TStringList;
FHiddenCols : TStringList;
FHints : TStringList;
FLastKey : Word;
FLockedCells : TStringList;
FLockedCols : TStringList;
FLockedRows : TStringList;
FOldCol : Longint;
FOldRow : Longint;
FSkipToNextRow : Boolean;