Unit 'ovccolor' Package
[Overview][Classes][Index] [#pl_orpheus]

TOvcColors

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

Declaration

Source position: ovccolor.pas line 44

type TOvcColors = class(TPersistent)

protected

  FBackColor: TColor;

  

  FTextColor: TColor;

  

  FUseDefault: Boolean;

  

  FOnColorChange: TNotifyEvent;

  

  cDefBackColor: TColor;

  

  cDefTextColor: TColor;

  

  procedure SetBackColor();

  

  procedure SetTextColor();

  

  procedure SetUseDefault();

  

  procedure ReadUseDefault();

  

  procedure DefineProperties(); override;

  

  procedure DoOnColorChange; dynamic;

  

  procedure ResetToDefaultColors; dynamic;

  

public

  procedure Assign(); override;

  

  constructor Create(); virtual;

  

  property OnColorChange: TNotifyEvent; [rw]

  

published

  property BackColor: TColor; [rw]

  

  property TextColor: TColor; [rw]

  

  property UseDefault: Boolean; [rws]

  

end;

Inheritance

TOvcColors

  

|

TObject



CT Web help

CodeTyphon Studio