Class Timpgrid (unit dmimpgrd)

Inherits from

TStringGrid

Renamed from ImpGrid.pas 6/7/1998 Paul Rice to avoid conflict with Harm van Zoest's work.

Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions

procedure AddCol;

last two lines ignored

procedure FixedFontChanged(Sender: Tobject);


procedure LoadFromFile(filename: string);

write in all the grades.

procedure SaveToFile(filename: string);

cells[col,fixedrows] := color;

procedure SetColColor(col: longint; color: string);

right justify.

destructor Destroy;

temporary

procedure DrawCell(ACol, ARow: longint; ARect: TRect; AState: TGridDrawState);

Private declarations

procedure setColFontColor(value: string);


procedure setDarkColor(value: tcolor);


procedure setFixedFont(value: tfont);


procedure setFixedJustify(value: integer);


procedure setGridLineColor(value: tcolor);


procedure setJustify(value: integer);


procedure setLightColor(value: tcolor);


procedure setoffset(value: integer);


procedure setvertLab(value: boolean);

set new properties.

Properties

property Align :


property ColCount :


property ColFontColor : string

default 1;

property DarkColor : tcolor

default $02ffffff;

property DefaultColWidth :


property DefaultRowHeight :


property EditorMode :


property FixedFont : tfont

default 0;

property FixedJustify : integer

default $0220ff20;

property GridLineColor : tcolor

default $0280ff80;

property Gridlinewidth :


property Justify : integer

default 0;

property LightColor : tcolor


property offset : integer

default 'clblack';

property Options :


property RowCount :


property ScrollBars :


property VertLab : boolean

default parentfont;

Events

event OnClick :


event OnColumnMoved :


event OnDblClick :


event OnDragDrop :


event OnDrawCell :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnRowMoved :


event OnTopLeftChanged :


Variables

FColFontColor : string;


FDarkColor : tcolor;


FFixedFont : tfont;


FFixedJustify : integer;


FGridLineColor : tcolor;


FJustify : integer;


FlightColor : tcolor;


Foffset : integer;


FVertLab : boolean;



Constructors


constructor Create(AOwner: TComponent);

Protected declarations


Functions


procedure AddCol;

last two lines ignored


procedure FixedFontChanged(Sender: Tobject);


procedure LoadFromFile(filename: string);

write in all the grades...


procedure SaveToFile(filename: string);

cells[col,fixedrows] := color;


procedure SetColColor(col: longint; color: string);

right justify...


destructor Destroy;

temporary


procedure DrawCell(ACol, ARow: longint; ARect: TRect; AState: TGridDrawState);

Private declarations


procedure setColFontColor(value: string);


procedure setDarkColor(value: tcolor);


procedure setFixedFont(value: tfont);


procedure setFixedJustify(value: integer);


procedure setGridLineColor(value: tcolor);


procedure setJustify(value: integer);


procedure setLightColor(value: tcolor);


procedure setoffset(value: integer);


procedure setvertLab(value: boolean);

set new properties...


Properties


property Align :


property ColCount :


property ColFontColor : string

default 1;


property DarkColor : tcolor

default $02ffffff;


property DefaultColWidth :


property DefaultRowHeight :


property EditorMode :


property FixedFont : tfont

default 0;


property FixedJustify : integer

default $0220ff20;


property GridLineColor : tcolor

default $0280ff80;


property Gridlinewidth :


property Justify : integer

default 0;


property LightColor : tcolor


property offset : integer

default 'clblack';


property Options :


property RowCount :


property ScrollBars :


property VertLab : boolean

default parentfont;


Events


event OnClick :


event OnColumnMoved :


event OnDblClick :


event OnDragDrop :


event OnDrawCell :


event OnEnter :


event OnExit :


event OnMouseDown :


event OnRowMoved :


event OnTopLeftChanged :


Variables


FColFontColor : string;


FDarkColor : tcolor;


FFixedFont : tfont;


FFixedJustify : integer;


FGridLineColor : tcolor;


FJustify : integer;


FlightColor : tcolor;


Foffset : integer;


FVertLab : boolean;