TJppCustomEdit

type TJppCustomEdit = class(TCustomEdit)

protected

  procedure SetParent(); override;

  procedure Notification(); override;

  procedure CMEnabledChanged(); message;

  procedure CMVisibleChanged(); message;

  procedure CMBiDiModeChanged(); message;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure PropsChanged();

  procedure Loaded; override;

  procedure ApplyAppearance;

  property MouseOverControl: Boolean; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure FlashBackground;

  procedure SetupInternalLabel;

  procedure SetBounds(); override;

  procedure ApplyFontColor();

protected

  property BoundLabel: TJppControlBoundLabel; [r]

  property BoundLabelPosition: TLabelPosition; [rw]

  property BoundLabelSpacing: Integer; [rw]

  property Appearance: TJppCustomEditAppearance; [rw]

  property TagExt: TJppTagExt; [rw]

  property ShowLabel: Boolean; [rw]

  property Flash: TJppFlashJppEdit; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

end;

TJppCustomEdit

TObject