20070107 release of Orpheus - initial commit to SVN.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@44 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/orpheus/ovctbclr.pas

@@ -0,0 +1,266 @@
+{*********************************************************}
+{*                  OVCTBCLR.PAS 4.06                    *}
+{*********************************************************}
+
+{* ***** BEGIN LICENSE BLOCK *****                                            *}
+{* Version: MPL 1.1                                                           *}
+{*                                                                            *}
+{* The contents of this file are subject to the Mozilla Public License        *}
+{* Version 1.1 (the "License"); you may not use this file except in           *}
+{* compliance with the License. You may obtain a copy of the License at       *}
+{* http://www.mozilla.org/MPL/                                                *}
+{*                                                                            *}
+{* Software distributed under the License is distributed on an "AS IS" basis, *}
+{* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License   *}
+{* for the specific language governing rights and limitations under the       *}
+{* License.                                                                   *}
+{*                                                                            *}
+{* The Original Code is TurboPower Orpheus                                    *}
+{*                                                                            *}
+{* The Initial Developer of the Original Code is TurboPower Software          *}
+{*                                                                            *}
+{* Portions created by TurboPower Software Inc. are Copyright (C)1995-2002    *}
+{* TurboPower Software Inc. All Rights Reserved.                              *}
+{*                                                                            *}
+{* Contributor(s):                                                            *}
+{*                                                                            *}
+{* ***** END LICENSE BLOCK *****                                              *}
+
+{$I OVC.INC}
+
+{$B-} {Complete Boolean Evaluation}
+{$I+} {Input/Output-Checking}
+{$P+} {Open Parameters}
+{$T-} {Typed @ Operator}
+{.W-} {Windows Stack Frame}
+{$X+} {Extended Syntax}
+
+unit ovctbclr;
+  {-Orpheus table colors}
+
+interface
+
+uses
+  Graphics, Classes;
+
+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
+           default clHighlight;
+
+      property ActiveFocusedText : TColor
+         read FActiveFocusedText write SetActiveFocusedText
+           default clHighlightText;
+
+      property ActiveUnfocused : TColor
+         read FActiveUnfocused write SetActiveUnfocused
+           default clHighlight;
+
+      property ActiveUnfocusedText : TColor
+         read FActiveUnfocusedText write SetActiveUnfocusedText
+           default clHighlightText;
+
+      property Locked : TColor
+         read FLocked write SetLocked
+           default clBtnFace;
+
+      property LockedText : TColor
+         read FLockedText write SetLockedText
+           default clWindowText;
+
+      property Editing : TColor
+         read FEditing write SetEditing
+           default clBtnFace;
+
+      property EditingText : TColor
+         read FEditingText write SetEditingText
+           default clWindowText;
+
+      property Selected : TColor
+         read FSelected write SetSelected
+           default clHighlight;
+
+      property SelectedText : TColor
+         read FSelectedText write SetSelectedText
+           default clHighlightText;
+    end;
+
+implementation
+
+
+{===TOvcTableColors==================================================}
+constructor TOvcTableColors.Create;
+  begin
+    FLocked := clBtnFace;
+    FLockedText := clWindowText;
+    FActiveFocused := clHighlight;
+    FActiveFocusedText := clHighlightText;
+    FActiveUnfocused := clHighlight;
+    FActiveUnfocusedText := clHighlightText;
+    FEditing := clBtnFace;
+    FEditingText := clWindowText;
+    FSelected := clHighlight;
+    FSelectedText := clHighlightText;
+  end;
+{--------}
+procedure TOvcTableColors.Assign(Source : TPersistent);
+  begin
+    if (Source is TOvcTableColors) then
+      begin
+        FLocked := TOvcTableColors(Source).Locked;
+        FLockedText := TOvcTableColors(Source).LockedText;
+        FActiveFocused := TOvcTableColors(Source).ActiveFocused;
+        FActiveFocusedText := TOvcTableColors(Source).ActiveFocusedText;
+        FActiveUnfocused := TOvcTableColors(Source).ActiveUnfocused;
+        FActiveUnfocusedText := TOvcTableColors(Source).ActiveUnfocusedText;
+        FEditing := TOvcTableColors(Source).Editing;
+        FEditingText := TOvcTableColors(Source).EditingText;
+        FSelected := TOvcTableColors(Source).Selected;
+        FSelectedText := TOvcTableColors(Source).SelectedText;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.DoCfgChanged;
+  begin
+    if Assigned(FOnCfgChanged) then
+      FOnCfgChanged(Self);
+  end;
+{--------}
+procedure TOvcTableColors.SetActiveFocused(C : TColor);
+  begin
+    if (C <> FActiveFocused) then
+      begin
+        FActiveFocused := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetActiveFocusedText(C : TColor);
+  begin
+    if (C <> FActiveFocusedText) then
+      begin
+        FActiveFocusedText := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetActiveUnfocused(C : TColor);
+  begin
+    if (C <> FActiveUnfocused) then
+      begin
+        FActiveUnfocused := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetActiveUnfocusedText(C : TColor);
+  begin
+    if (C <> FActiveUnfocusedText) then
+      begin
+        FActiveUnfocusedText := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetEditing(C : TColor);
+  begin
+    if (C <> FEditing) then
+      begin
+        FEditing := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetEditingText(C : TColor);
+  begin
+    if (C <> FEditingText) then
+      begin
+        FEditingText := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetLocked(C : TColor);
+  begin
+    if (C <> FLocked) then
+      begin
+        FLocked := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetLockedText(C : TColor);
+  begin
+    if (C <> FLockedText) then
+      begin
+        FLockedText := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetSelected(C : TColor);
+  begin
+    if (C <> FSelected) then
+      begin
+        FSelected := C;
+        DoCfgChanged;
+      end;
+  end;
+{--------}
+procedure TOvcTableColors.SetSelectedText(C : TColor);
+  begin
+    if (C <> FSelectedText) then
+      begin
+        FSelectedText := C;
+        DoCfgChanged;
+      end;
+  end;
+{====================================================================}
+
+end.