{$I OVC.INC}

{$B-} {Complete Boolean Evaluation}
{$I+} {Input/Output-Checking}
{$P+} {Open Parameters}
{$T-} {Typed @ Operator}
{$W-} {Windows Stack Frame}
{$X+} {Extended Syntax}

{$IFNDEF Win32}
{$G+} {286 Instructions}
{$N+} {Numeric Coprocessor}

{$C MOVEABLE,DEMANDLOAD,DISCARDABLE}
{$ENDIF}

{*********************************************************}
{*                  OVCTBCLR.PAS 2.00                    *}
{*     Copyright (c) TurboPower Software Co 1995-96      *}
{*                 All rights reserved.                  *}
{*********************************************************}

unit OvcTbClr;
  {-Orpheus table colors}

interface

uses
  {$IFDEF Win32}
  Windows,
  {$ELSE}
  WinTypes, WinProcs,
  {$ENDIF}
  SysUtils, Messages,
  Graphics, Classes, Controls, Forms,
  OvcTCmmn;

type
  TOvcTableColors = class(TPersistent)
    protected {private}
      {.Z+}
      FLocked              : TColor;
      FLockedText          : TColor;
      FActiveFocused       : TColor;
      FActiveFocusedText   : TColor;
      FActiveUnfocused     : TColor;
      FActiveUnfocusedText : TColor;
      FEditing             : TColor;
      FEditingText         : TColor;
      FSelected            : TColor;
      FSelectedText        : TColor;

      FOnCfgChanged        : TNotifyEvent;
      {.Z-}

    protected
      {.Z+}
      procedure SetLocked(C : TColor);
      procedure SetLockedText(C : TColor);
      procedure SetActiveFocused(C : TColor);
      procedure SetActiveFocusedText(C : TColor);
      procedure SetActiveUnfocused(C : TColor);
      procedure SetActiveUnfocusedText(C : TColor);
      procedure SetEditing(C : TColor);
      procedure SetEditingText(C : TColor);
      procedure SetSelected(C : TColor);
      procedure SetSelectedText(C : TColor);

      procedure DoCfgChanged;
      {.Z-}

    public {protected}
      {.Z+}
      property OnCfgChanged : TNotifyEvent
         read FOnCfgChanged write FOnCfgChanged;
      {.Z-}

    public
      constructor Create;
      procedure Assign(Source : TPersistent); override;

    published
      {properties}
      property ActiveFocused : TColor
         read FActiveFocused write SetActiveFocused;

      property ActiveFocusedText : TColor
         read FActiveFocusedText write SetActiveFocusedText;

      property ActiveUnfocused : TColor
         read FActiveUnfocused write SetActiveUnfocused;

      property ActiveUnfocusedText : TColor
         read FActiveUnfocusedText write SetActiveUnfocusedText;

      property Locked : TColor
         read FLocked write SetLocked;

      property LockedText : TColor
         read FLockedText write SetLockedText;

      property Editing : TColor
         read FEditing write SetEditing;

      property EditingText : TColor
         read FEditingText write SetEditingText;

      property Selected : TColor
         read FSelected write SetSelected;

      property SelectedText : TColor
         read FSelectedText write SetSelectedText;
    end;

implementation
