Class TColorArrayClass (unit CBtnForm)

Inherits from

TPersistent

Constructors


constructor Create(X, Y: integer);



Functions

procedure Assign(Source: TPersistent);


procedure DefineProperties(Filer: TFiler);


destructor Destroy;


function IsEqualTo(OtherColors: TColorArrayClass): boolean;


procedure CheckXYVals(X, Y: integer);


procedure ReadColors(Reader: TReader);


procedure ReadXSize(Reader: TReader);


procedure ReadYSize(Reader: TReader);


procedure WriteColors(Writer: TWriter);


procedure WriteXSize(Writer: TWriter);


procedure WriteYSize(Writer: TWriter);


function GetColor(X, Y: integer): TColor;


function GetSingleColor(Index: integer): TColor;

really need to recopy colors, but I'm lazy and don't need it right now

procedure SetColor(X, Y: integer; Value: TColor);


procedure SetSingleColor(Index: integer; Value: TColor);


procedure SetXSize(Value: integer);


procedure SetYSize(Value: integer);

really need to recopy colors, but I'm lazy and don't need it right now

Properties

property Color : TColor


property Colors : TColor


property XSize : integer

published

property YSize : integer


Events

Variables

FColors : PColorArray;


FXSize : integer;


FYSize : integer;



Constructors


constructor Create(X, Y: integer);


Functions


procedure Assign(Source: TPersistent);


procedure DefineProperties(Filer: TFiler);


destructor Destroy;


function IsEqualTo(OtherColors: TColorArrayClass): boolean;


procedure CheckXYVals(X, Y: integer);


procedure ReadColors(Reader: TReader);


procedure ReadXSize(Reader: TReader);


procedure ReadYSize(Reader: TReader);


procedure WriteColors(Writer: TWriter);


procedure WriteXSize(Writer: TWriter);


procedure WriteYSize(Writer: TWriter);


function GetColor(X, Y: integer): TColor;


function GetSingleColor(Index: integer): TColor;

really need to recopy colors, but I'm lazy and don't need it right now


procedure SetColor(X, Y: integer; Value: TColor);


procedure SetSingleColor(Index: integer; Value: TColor);


procedure SetXSize(Value: integer);


procedure SetYSize(Value: integer);

really need to recopy colors, but I'm lazy and don't need it right now


Properties


property Color : TColor


property Colors : TColor


property XSize : integer

published


property YSize : integer


Events


Variables


FColors : PColorArray;


FXSize : integer;


FYSize : integer;