TFZGeneralEdit

type TFZGeneralEdit = class(TFZControlEx)

protected

  procedure Paint; override;

  procedure TheMouseEnter();

  procedure TheMouseLeave();

  procedure TheMouseDown();

  procedure TheMouseUp();

  procedure ButtonClick(); virtual;

  procedure InternalClick(); virtual;

  function RealGetText; override;

  procedure RealSetText(); override;

  procedure SetEnabled(); override;

  procedure SetChecked(); virtual;

  procedure KeyPress(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetFocus; override;

  property EditStyle: TFZGeneralEditStyle; [rw]

  property Lines: TStrings; [rw]

  property ReadOnly: Boolean; [rw]

  property Alignment: TAlignment; [rw]

  property PassWordChar: char; [rw]

  property Items: TStrings; [rw]

  property ItemIndex: Integer; [rw]

  property Checked: Boolean; [rw]

published

  property Constraints;

  property OnChange: TNotifyEvent;

end;

TFZGeneralEdit

TFZControlEx

TFZControl

TObject