Type TBoolColumn = class;
Type
{ TBoolMatrix }
TBoolMatrix = class(TList)
public
OnSizeChange: TNotifyEvent;
public
Procedure AddColumns(AQty: Integer= 1);
Procedure ExtendToCol(AColIndex: integer);
Procedure DeleteLast;
Procedure Clear;override;
private
function GetColCount: Integer;
function GetCol(Index: Integer): TBoolColumn;
procedure SetCol(Index: Integer; AValue: TBoolColumn);
public
Property Column[Index: Integer]: TBoolColumn read GetCol write SetCol;
Property ColCount: Integer read GetColCount;
private
Property Items;
end;
Type
{ TBoolColumn }
TBoolColumn = class
private
fColumn: Array[1..27] of boolean;
private
function GetRow(Index: Integer): Boolean;
procedure SetRow(Index: Integer; AValue: Boolean);
public
property Row[Index: Integer]: Boolean read GetRow write SetRow; default;
end;