TO32Borders

type TO32Borders = class(TPersistent)

protected

  Creating: Boolean;

  FControl: TWinControl;

  FBorderSet: TO32BorderSet;

  FActive: Boolean;

  FFlatColor: TColor;

  FBorderWidth: Integer;

  FBorderStyle: TO32BorderStyle;

  procedure SetActive();

  procedure SetBorderStyle();

  procedure SetFlatColor();

  procedure Draw3dBox();

  procedure DrawFlatBorder();

  procedure DrawBevel();

  procedure Draw3dBorders();

  procedure EraseBorder();

  procedure DrawSingleSolidBorder();

public

  constructor Create();

  destructor Destroy; override;

  procedure Changed;

  procedure BordersChanged;

  property Control: TWinControl; [r]

  procedure DrawBorders();

  procedure RedrawControl;

published

  property Active: Boolean; [rw]

  property BorderSet: TO32BorderSet; [rw]

  property BorderStyle: TO32BorderStyle; [rw]

  property FlatColor: TColor; [rw]

end;

TO32Borders

TObject