TO32CustomEdit

type TO32CustomEdit = class(TCustomEdit)

protected

  FLabelInfo: TOvcLabelInfo;

  function GetAttachedLabel;

  procedure LabelChange();

  procedure LabelAttach();

  procedure PositionLabel;

  procedure CMVisibleChanged(); message;

  procedure OrAssignLabel(); message;

  procedure OrPositionLabel(); message;

  procedure OrRecordLabelPosition(); message;

  DefaultLabelPosition: TOvcLabelPosition;

  procedure CreateWnd; override;

  procedure Notification(); override;

  property LabelInfo: TOvcLabelInfo; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  property AttachedLabel: TOvcAttachedLabel; [r]

end;

TO32CustomEdit

TObject