TOvcTableColors

type TOvcTableColors = class(TPersistent)

protected

  FLocked: TColor;

  FLockedText: TColor;

  FActiveFocused: TColor;

  FActiveFocusedText: TColor;

  FActiveUnfocused: TColor;

  FActiveUnfocusedText: TColor;

  FEditing: TColor;

  FEditingText: TColor;

  FSelected: TColor;

  FSelectedText: TColor;

  FOnCfgChanged: TNotifyEvent;

  procedure SetLocked();

  procedure SetLockedText();

  procedure SetActiveFocused();

  procedure SetActiveFocusedText();

  procedure SetActiveUnfocused();

  procedure SetActiveUnfocusedText();

  procedure SetEditing();

  procedure SetEditingText();

  procedure SetSelected();

  procedure SetSelectedText();

  procedure DoCfgChanged;

public

  property OnCfgChanged: TNotifyEvent; [rw]

  constructor Create;

  procedure Assign(); override;

published

  property ActiveFocused: TColor; [rw]

  property ActiveFocusedText: TColor; [rw]

  property ActiveUnfocused: TColor; [rw]

  property ActiveUnfocusedText: TColor; [rw]

  property Locked: TColor; [rw]

  property LockedText: TColor; [rw]

  property Editing: TColor; [rw]

  property EditingText: TColor; [rw]

  property Selected: TColor; [rw]

  property SelectedText: TColor; [rw]

end;

TOvcTableColors

TObject