TOvcBorderParent

type TOvcBorderParent = class(TOvcCustomControl)

protected

  FBorders: TOvcBorders;

  FEdit: TOvcCustomEdit;

  FOrgHeight: Integer;

  DoingBorders: Boolean;

  procedure BorderChanged();

  function GetAttachedLabel;

  procedure Paint; override;

  procedure PaintBorders; virtual;

  procedure WMSetFocus(); message;

  procedure WMKillFocus(); message;

  procedure LabelChange();

  procedure LabelAttach();

  procedure PositionLabel;

  procedure CMVisibleChanged(); message;

  procedure OrAssignLabel(); message;

  procedure OrPositionLabel(); message;

  procedure OrRecordLabelPosition(); message;

  procedure CreateWnd; override;

  procedure Notification(); override;

public

  ButtonWidth: Integer;

  DoShowButton: Boolean;

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure SetEditControl(); virtual;

  property AttachedLabel: TOvcAttachedLabel; [r]

  property Canvas;

  property EditControl: TOvcCustomEdit; [rw]

published

  property Borders: TOvcBorders; [rw]

  property LabelInfo: TOvcLabelInfo; [rw]

end;

TOvcBorderParent

TOvcCustomControl

TObject