Class TNewInplaceEdit (unit Aligrid)

Inherits from

TInplaceEdit

@/// TNewInplaceEdit = class(TInplaceEdit)

Constructors


constructor Create(AOwner:TComponent);

The text BEFORE the edit started *) (*$ifdef ver80 *) { In Delphi 1's VCL the override is missing in TInplaceEdit

@\\\*) (*@/// constructor TNewInplaceEdit.


constructor Create(AOwner:TComponent);

$else


Functions

procedure CreateParams(var Params: TCreateParams);

@\\\*) (*@\\\*) (*@/// TNewInplaceEdit = class(TInplaceEdit) // The internal cell editor *) (*@/// procedure TNewInplaceEdit.

procedure KeyPress(var Key: Char);

@\\\*) (*@/// procedure TNewInplaceEdit.

procedure SetAlignment(Value:TMyAlign);

@\\\*) (*@/// procedure TNewInplaceEdit.

Properties

property Alignment : TMyAlign

$endif

Events

Variables

col : integer;


event : boolean;

col and row of the cell

oldtext : string;

Before edit event already started?

row : integer;


FAlignment : TMyAlign;



Constructors


constructor Create(AOwner:TComponent);

The text BEFORE the edit started *) (*$ifdef ver80 *) { In Delphi 1's VCL the override is missing in TInplaceEdit

@\\\*) (*@/// constructor TNewInplaceEdit.Create(AOwner:TComponent);


constructor Create(AOwner:TComponent);

$else


Functions


procedure CreateParams(var Params: TCreateParams);

@\\\*) (*@\\\*) (*@/// TNewInplaceEdit = class(TInplaceEdit) // The internal cell editor *) (*@/// procedure TNewInplaceEdit.CreateParams(var Params: TCreateParams);


procedure KeyPress(var Key: Char);

@\\\*) (*@/// procedure TNewInplaceEdit.KeyPress(var Key: Char);


procedure SetAlignment(Value:TMyAlign);

@\\\*) (*@/// procedure TNewInplaceEdit.SetAlignment(Value: TMyAlign);


Properties


property Alignment : TMyAlign

$endif


Events


Variables


col : integer;


event : boolean;

col and row of the cell


oldtext : string;

Before edit event already started?


row : integer;


FAlignment : TMyAlign;