Fit
Class TTableCompList
Unit
Declaration
type TTableCompList = class(TSelfCopiedCompList, IGridDataSource)
Description
Component list which can display component properties in grid. Class implements functions of saving/reading table properties, but does not bind grid positions with list items. If number of columns returned by GetColCount is changed then corresponding changes in SetCaption, SetColOptions, SetColFunc, SetRowContents, GetRowContents should be done.
Hierarchy
- TComponentList
- TSelfCopiedCompList
- TTableCompList
Overview
Fields
 |
FAreColWidthsReady: boolean; |
|
FAreRowHeightsReady: boolean; |
|
FCaption: string; |
|
FDestroying: boolean; |
|
FHeightsSaved: boolean; |
|
FSavedCol: longint; |
|
FSavedColWidths: TLongArray; |
|
FSavedLeftCol: longint; |
|
FSavedRow: longint; |
|
FSavedRowHeights: TLongArray; |
|
FSavedSelection: TGridRect; |
|
FSavedTopRow: longint; |
|
FSettingsSaved: boolean; |
|
FWidthsSaved: boolean; |
Methods
 |
constructor Create; |
|
destructor Destroy; override; |
|
function AutoHeights: boolean; |
|
function AutoWidths: boolean; |
|
function GetCellColor( const ACol, ARow: longint; var Color: TColor): boolean; virtual; |
|
function GetCellEditMask(const ACol, ARow: longint): string; virtual; |
|
function GetCellEnabledCharSet(const ACol, ARow: longint): TCharSet; virtual; abstract; |
|
function GetCol: longint; |
|
function GetColCount: longint; virtual; |
|
function GetColNumFixed: boolean; virtual; |
|
function GetColWidth(const Col: longint): longint; |
|
function GetColWidthByDefault(const Index: longint): longint; virtual; |
|
function GetDataFromGrid(Grid: TStringGrid): boolean; virtual; abstract; |
|
function GetFixedCols: longint; virtual; |
|
function GetFixedRows: longint; virtual; |
|
function GetInfoCols: longint; virtual; abstract; |
|
function GetInfoRows: longint; virtual; abstract; |
|
function GetLeftCol: longint; |
|
function GetRow: longint; |
|
function GetRowCount: longint; virtual; |
|
function GetRowHeight(const Row: longint): longint; |
|
function GetRowHeightByDefault(const Index: longint): longint; virtual; |
|
function GetRowNumFixed: boolean; virtual; |
|
function GetSelection: TGridRect; |
|
function GetTopRow: longint; |
|
function IsCellDisabled( const ACol, ARow: longint): boolean; virtual; |
|
function IsDataSourceEmpty: boolean; virtual; abstract; |
|
function IsDataValid(const ACol, ARow: longint; const AString: string): boolean; virtual; abstract; |
|
function MayIDoAddColumn: boolean; virtual; |
|
function MayIDoAddRow: boolean; virtual; |
|
function MayIDoClearAllCells: boolean; virtual; |
|
function MayIDoClearSelectedArea: boolean; virtual; |
|
function MayIDoDeleteAllData: boolean; virtual; |
|
function MayIDoDeleteColumns(StartCol, ColsCount: longint): boolean; virtual; |
|
function MayIDoDeleteRows(StartRow, RowsCount: longint): boolean; virtual; |
|
function MayIDoInsertColumns(StartCol, ColsCount: longint): boolean; virtual; |
|
function MayIDoInsertRows(StartRow, RowsCount: longint): boolean; virtual; |
|
function ValueToString(const ACol, ARow: longint): string; virtual; abstract; |
|
procedure AddColWidthItem; |
|
procedure AddRowHeightItem; |
|
procedure AllDataDeleted; virtual; |
|
procedure BeforeStringToValue(const ACol, ARow: longint; const AString: string); virtual; abstract; |
|
procedure ColumnAdded; virtual; |
|
procedure ColumnsDeleted(const StartCol, ColsCount: longint); virtual; |
|
procedure ColumnsInserted(const StartCol, ColsCount: longint); virtual; |
|
procedure DeleteAllColWidthItems; |
|
procedure DeleteAllRowHeightItems; |
|
procedure DeleteColWidthItem(const Index: longint); |
|
procedure DeleteRowHeightItem(const Index: longint); |
|
procedure GetColWidths(Grid: TStringGrid); |
|
procedure GetRowHeights(Grid: TStringGrid); |
|
procedure GridAssign(Grid: TStringGrid); virtual; |
|
procedure GridRelease(Grid: TStringGrid); virtual; |
|
procedure InitColWidths; |
|
procedure InitRowHeights; |
|
procedure InsertColWidthItem(const Index: longint); |
|
procedure InsertRowHeightItem(const Index: longint); |
|
procedure RowAdded; virtual; |
|
procedure RowsDeleted(const StartRow, RowsCount: longint); virtual; |
|
procedure RowsInserted(const StartRow, RowsCount: longint); virtual; |
|
procedure SaveCol(const Col: longint); |
|
procedure SaveColWidth(const Col, Width: longint); |
|
procedure SaveLeftCol(const LeftCol: longint); |
|
procedure SaveRow(const Row: longint); |
|
procedure SaveRowHeight(const Row, Height: longint); |
|
procedure SaveSelection(const Selection: TGridRect); |
|
procedure SaveTopRow(const TopRow: longint); |
|
procedure SetCaption(Grid: TStringGrid); virtual; abstract; |
|
procedure SetColFunc(Grid: TStringGrid); virtual; |
|
procedure SetColOptions(Grid: TStringGrid); virtual; abstract; |
|
procedure SetColWidths(Grid: TStringGrid); |
|
procedure SetDataToGrid(Grid: TStringGrid); virtual; abstract; |
|
procedure SetRowHeights(Grid: TStringGrid); |
|
procedure SetValueByDefault(const ACol, ARow: longint); virtual; abstract; |
|
procedure StringToValue(const ACol, ARow: longint; const AString: string); virtual; abstract; |
|
procedure CheckColIndex(const Index: longint); |
|
procedure CheckRowIndex(const Index: longint); |
Properties
|
property Caption: string read FCaption write FCaption; |
|
property SavedCol: longint read GetCol write SaveCol; |
|
property SavedLeftCol: longint read GetLeftCol write SaveLeftCol; |
|
property SavedRow: longint read GetRow write SaveRow; |
|
property SavedSelection: TGridRect read GetSelection write SaveSelection; |
|
property SavedTopRow: longint read GetTopRow write SaveTopRow; |
Description
Fields
|
FAreColWidthsReady: boolean; |
|
Indicates that array is already initialized. | |
|
FAreRowHeightsReady: boolean; |
|
FCaption: string; |
|
FDestroying: boolean; |
|
Indicates that the object is destroyed. | |
|
FHeightsSaved: boolean; |
|
FSavedCol: longint; |
|
Saved table properties. | |
|
FSavedColWidths: TLongArray; |
|
Arrays are deleted from the destructor. Therefore deleting array items should be disabled during deleting the whole object. | |
|
FSavedLeftCol: longint; |
|
Saved table properties. | |
|
FSavedRow: longint; |
|
Saved table properties. | |
|
FSavedRowHeights: TLongArray; |
|
FSavedSelection: TGridRect; |
|
FSavedTopRow: longint; |
|
Saved table properties. | |
|
FSettingsSaved: boolean; |
|
Indicates that grid parameters were saved. It is set up in GridRelease. | |
|
FWidthsSaved: boolean; |
Methods
|
constructor Create; |
|
destructor Destroy; override; |
|
function AutoHeights: boolean; |
|
function AutoWidths: boolean; |
|
function GetCellColor( const ACol, ARow: longint; var Color: TColor): boolean; virtual; |
|
устанавливает правильное значение "по умолчанию" для данной ячейки; используется при обработке операции очистки ячейки | |
|
function GetCellEditMask(const ACol, ARow: longint): string; virtual; |
|
Returns default empty mask. | |
|
function GetCellEnabledCharSet(const ACol, ARow: longint): TCharSet; virtual; abstract; |
|
function GetCol: longint; |
|
function GetColCount: longint; virtual; |
|
function GetColNumFixed: boolean; virtual; |
|
число фиксированных строк (по умолчанию = 1) | |
|
function GetColWidth(const Col: longint): longint; |
|
(по умолчанию = False) | |
|
function GetColWidthByDefault(const Index: longint): longint; virtual; |
|
function GetDataFromGrid(Grid: TStringGrid): boolean; virtual; abstract; |
|
function GetFixedCols: longint; virtual; |
|
число строк информационной части таблицы | |
|
function GetFixedRows: longint; virtual; |
|
число фиксированных колонок (по умолчанию = 1) | |
|
function GetInfoCols: longint; virtual; abstract; |
|
полное число строк, включая Fixed | |
|
function GetInfoRows: longint; virtual; abstract; |
|
число колонок информационной части таблицы | |
|
function GetLeftCol: longint; |
|
function GetRow: longint; |
|
function GetRowCount: longint; virtual; |
|
полное число колонок, включая Fixed | |
|
function GetRowHeight(const Row: longint): longint; |
|
function GetRowHeightByDefault(const Index: longint): longint; virtual; |
|
function GetRowNumFixed: boolean; virtual; |
|
(по умолчанию = False) | |
|
function GetSelection: TGridRect; |
|
function GetTopRow: longint; |
|
function IsCellDisabled( const ACol, ARow: longint): boolean; virtual; |
|
function IsDataSourceEmpty: boolean; virtual; abstract; |
|
///////////////////////////////////////////////////////////////////// методы нового интерфейса методы данного интерфейса подразумевают, что активной является сетка, а источник данных пассивный (это также отражается в названиях методов) ///////////////////////////////////////////////////////////////////// | |
|
function IsDataValid(const ACol, ARow: longint; const AString: string): boolean; virtual; abstract; |
|
function MayIDoAddColumn: boolean; virtual; |
|
function MayIDoAddRow: boolean; virtual; |
|
function MayIDoClearAllCells: boolean; virtual; |
|
function MayIDoClearSelectedArea: boolean; virtual; |
|
function MayIDoDeleteAllData: boolean; virtual; |
|
function MayIDoDeleteColumns(StartCol, ColsCount: longint): boolean; virtual; |
|
function MayIDoDeleteRows(StartRow, RowsCount: longint): boolean; virtual; |
|
function MayIDoInsertColumns(StartCol, ColsCount: longint): boolean; virtual; |
|
function MayIDoInsertRows(StartRow, RowsCount: longint): boolean; virtual; |
|
все функции проверки возможности выполнения действия возвращают False; классы - потомки должны перекрыть их | |
|
function ValueToString(const ACol, ARow: longint): string; virtual; abstract; |
|
procedure AddColWidthItem; |
|
procedure AddRowHeightItem; |
|
procedure AllDataDeleted; virtual; |
|
procedure BeforeStringToValue(const ACol, ARow: longint; const AString: string); virtual; abstract; |
|
procedure ColumnAdded; virtual; |
|
procedure ColumnsDeleted(const StartCol, ColsCount: longint); virtual; |
|
procedure ColumnsInserted(const StartCol, ColsCount: longint); virtual; |
|
procedure DeleteAllColWidthItems; |
|
функции управления массивами сохраненных значений ширины (высоты) колонок (столбцов) | |
|
procedure DeleteAllRowHeightItems; |
|
procedure DeleteColWidthItem(const Index: longint); |
|
procedure DeleteRowHeightItem(const Index: longint); |
|
procedure GetColWidths(Grid: TStringGrid); |
|
устанавливает ширину колонок таблицы | |
|
procedure GetRowHeights(Grid: TStringGrid); |
|
устанавливает высоту строк таблицы | |
|
procedure GridAssign(Grid: TStringGrid); virtual; |
|
///////////////////////////////////////////////////////////////////// методы старого интерфейса сохранить для совместимости с прежними приложениями, а также для того, чтобы можно было работать с неактивными сетками или когда активность таблицы не требуется методы данного интерфейса подразумевают, что источник данных является активным, а сетка пассивной (это отражается в названиях методов) ///////////////////////////////////////////////////////////////////// | |
|
procedure GridRelease(Grid: TStringGrid); virtual; |
|
установка параметров таблицы; когда данные устанавливаются в сетку по инициативе источника данных ввод в таблицу запрещен | |
|
procedure InitColWidths; |
|
сохраняет во внутренних полях значения высоты строк таблицы | |
|
procedure InitRowHeights; |
|
первоначальная инициализация массива | |
|
procedure InsertColWidthItem(const Index: longint); |
|
procedure InsertRowHeightItem(const Index: longint); |
|
procedure RowAdded; virtual; |
|
procedure RowsDeleted(const StartRow, RowsCount: longint); virtual; |
|
эти методы удаления, вставки, очистки вызывают исключение с сообщением о невозможности выполнить данное действие; классы - потомки должны перекрыть эти методы для реализации требуемых действий | |
|
procedure RowsInserted(const StartRow, RowsCount: longint); virtual; |
|
procedure SaveCol(const Col: longint); |
|
номер текущей выбранной колонки | |
|
procedure SaveColWidth(const Col, Width: longint); |
|
procedure SaveLeftCol(const LeftCol: longint); |
|
procedure SaveRow(const Row: longint); |
|
номер текущей выбранной строки | |
|
procedure SaveRowHeight(const Row, Height: longint); |
|
procedure SaveSelection(const Selection: TGridRect); |
|
procedure SaveTopRow(const TopRow: longint); |
|
procedure SetCaption(Grid: TStringGrid); virtual; abstract; |
|
procedure SetColFunc(Grid: TStringGrid); virtual; |
|
устанавливает опции колонок в Grid'е | |
|
procedure SetColOptions(Grid: TStringGrid); virtual; abstract; |
|
procedure SetColWidths(Grid: TStringGrid); |
|
устанавливает функции для колонок | |
|
procedure SetDataToGrid(Grid: TStringGrid); virtual; abstract; |
|
сохранение изменений параметров таблицы | |
|
procedure SetRowHeights(Grid: TStringGrid); |
|
сохраняет во внутренних полях значения ширины колонок таблицы | |
|
procedure SetValueByDefault(const ACol, ARow: longint); virtual; abstract; |
|
procedure StringToValue(const ACol, ARow: longint; const AString: string); virtual; abstract; |
|
procedure CheckColIndex(const Index: longint); |
|
Checks that column (row) index is valid. Otherwise throws an exception. | |
|
procedure CheckRowIndex(const Index: longint); |
Properties
|
property Caption: string read FCaption write FCaption; |
|
property SavedCol: longint read GetCol write SaveCol; |
|
property SavedLeftCol: longint read GetLeftCol write SaveLeftCol; |
|
property SavedRow: longint read GetRow write SaveRow; |
|
property SavedSelection: TGridRect read GetSelection write SaveSelection; |
|
property SavedTopRow: longint read GetTopRow write SaveTopRow; |
Generated by PasDoc 0.15.0.