Unit 'ovcbordr' Package
[Overview][Types][Classes][Index] [#pl_orpheus]

TOvcBorder

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: ovcbordr.pas line 55

type TOvcBorder = class(TPersistent)

protected

  FEnabled: Boolean;

  

  FBorderStyle: TOvcBorderStyle;

  

  FPenColor: TColor;

  

  FPenStyle: TPenStyle;

  

  FPenWidth: Integer;

  

  FOnChange: TNotifyEvent;

  

  procedure DoOnChange;

  

  procedure SetDefaults;

  

  procedure SetEnabled();

  

  procedure SetBorderStyle();

  

  procedure SetPenColor();

  

  procedure SetPenStyle();

  

  procedure SetPenWidth();

  

public

  procedure Assign(); override;

  

  constructor Create;

  

published

  property BorderStyle: TOvcBorderStyle; [rws]

  

  property Enabled: Boolean; [rw]

  

  property OnChange: TNotifyEvent; [rw]

  

  property PenColor: TColor; [rws]

  

  property PenStyle: TPenStyle; [rws]

  

  property PenWidth: Integer; [rws]

  

end;

Inheritance

TOvcBorder

  

|

TObject



CT Web help

CodeTyphon Studio