//âìåñòî ñòàíäàðòíîãî InplaceEditor-à

  TZInplaceEditor = class(TCustomMemo)

  private

    FGrid: TZColorStringGrid;

    FExEn: integer;  // "êîñòûëü" äëÿ èñïðàâíîé ðàáîòû DoEnter/DoExit *^_^*

 

  protected

 

    procedure DoEnter; override;

    procedure DoExit; override;

    procedure Change; override;

    procedure DblClick; override;

    procedure KeyDown(var Key: Word; Shift: TShiftState); override;

    procedure KeyPress(var Key: Char); override;

    procedure KeyUp(var Key: Word; Shift: TShiftState); override;

 

  public

    constructor Create(AOwner: TComponent); override;

    function  DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;

    function  DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;override;

  end;

 

  TInplaceEditorOptions = class (TPersistent)

  private

    FGrid: TZColorStringGrid;

    FFontColor: TColor;

    FBGColor: TColor;

    FBorderStyle: TBorderStyle;

    FAlignment: TAlignment;

    FWordWrap: Boolean;

    FUseCellStyle: Boolean;

    procedure SetFontColor(const Value: TColor);

    procedure SetBGColor(const Value: TColor);

    procedure SetBorderStyle(const Value: TBorderStyle);

    procedure SetAlignment(const Value: TAlignment);

    procedure SetWordWrap(const Value: Boolean);

    procedure SetUseCellStyle(const Value: Boolean);

  protected

  public

    constructor Create(AGrid: TZColorStringGrid); virtual;

  published

    property FontColor: TColor read FFontColor write SetFontColor default clblack;

    property BGColor: TColor read FBGColor write SetBGColor default clWhite;

    property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsNone;

    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;

    property WordWrap: Boolean read FWordWrap write SetWordWrap default true;

    property UseCellStyle: Boolean read FUseCellStyle write SetUseCellStyle default true;

  end;