jvcllaz: Add TJvPanel (and related infrastructure).

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

components/jvcllaz/run/JvStdCtrls/jvhottrackpersistent.pas

@@ -0,0 +1,335 @@
+{-----------------------------------------------------------------------------
+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/MPL-1.1.html
+
+Software distributed under the License is distributed on an "AS IS" basis,
+WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
+the specific language governing rights and limitations under the License.
+
+The Original Code is: JvButtonPersistent.PAS, released on 2007-11-20.
+
+The Initial Developer of the Original Code is dejoy den [dejoybbs att gmail dott com]
+All Rights Reserved.
+
+Contributor(s): dejoy.
+
+You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
+located at http://jvcl.delphi-jedi.org
+
+Known Issues:
+-----------------------------------------------------------------------------}
+// $Id$
+
+unit JvHotTrackPersistent;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, Graphics,
+  JvTypes;
+
+type
+  TJvHotTrackOptionsClass = class of TJvHotTrackOptions;
+
+  TJvHotTrackOptions = class(TJvPersistentProperty)
+  private
+    FEnabled: Boolean;
+    FFrameVisible: Boolean;
+    FColor: TColor;
+    FFrameColor: TColor;
+    procedure SetColor(Value: TColor);
+    procedure SetEnabled(Value: Boolean);
+    procedure SetFrameColor(Value: TColor);
+    procedure SetFrameVisible(Value: Boolean);
+  public
+    constructor Create(AOwner: TPersistent); override;
+    procedure Assign(Source: TPersistent); override;
+  published
+    property Enabled: Boolean read FEnabled write SetEnabled default False;
+    property Color: TColor read FColor write SetColor default DefaultHotTrackColor;
+    property FrameVisible: Boolean read FFrameVisible write SetFrameVisible default False;
+    property FrameColor: TColor read FFrameColor write SetFrameColor default DefaultHotTrackFrameColor;
+  end;
+
+  { IJvHotTrack specifies whether Controls are highlighted when the mouse passes over them }
+  IJvHotTrack = interface
+    ['{8F1B40FB-D8E3-46FE-A7A3-21CE4B199A8F}']
+
+    function GetHotTrack: Boolean;
+    function GetHotTrackFont: TFont;
+    function GetHotTrackFontOptions: TJvTrackFontOptions;
+    function GetHotTrackOptions: TJvHotTrackOptions;
+
+    procedure SetHotTrack(Value: Boolean);
+    procedure SetHotTrackFont(Value: TFont);
+    procedure SetHotTrackFontOptions(Value: TJvTrackFontOptions);
+    procedure SetHotTrackOptions(Value: TJvHotTrackOptions);
+    procedure Assign(Source: IJvHotTrack);
+
+    property HotTrack: Boolean read GetHotTrack write SetHotTrack;
+    property HotTrackFont: TFont read GetHotTrackFont write SetHotTrackFont;
+    property HotTrackFontOptions: TJvTrackFontOptions read GetHotTrackFontOptions write SetHotTrackFontOptions;
+    property HotTrackOptions: TJvHotTrackOptions read GetHotTrackOptions write SetHotTrackOptions;
+  end;
+
+  TJvCustomHotTrackPersistent = class(TJvPersistentProperty, IJvHotTrack)
+  private
+    FHotTrack: Boolean;
+    FHotTrackFont: TFont;
+    FHotTrackFontOptions: TJvTrackFontOptions;
+    FHotTrackOptions:TJvHotTrackOptions;
+
+    {IJvHotTrack}
+    function GetHotTrack: Boolean;
+    function GetHotTrackFont: TFont;
+    function GetHotTrackFontOptions: TJvTrackFontOptions;
+    function GetHotTrackOptions: TJvHotTrackOptions;
+    procedure SetHotTrack(Value: Boolean);
+    procedure SetHotTrackFont(Value: TFont);
+    procedure SetHotTrackFontOptions(Value: TJvTrackFontOptions);
+    procedure SetHotTrackOptions(Value: TJvHotTrackOptions);
+
+    procedure IJvHotTrack_Assign(Source: IJvHotTrack);
+    procedure IJvHotTrack.Assign = IJvHotTrack_Assign;
+  protected
+    class function GetHotTrackOptionsClass: TJvHotTrackOptionsClass; virtual;
+    procedure AssignTo(Dest: TPersistent); override;
+  public
+    constructor Create(AOwner: TPersistent); override;
+    destructor Destroy; override;
+
+    procedure Assign(Source: TPersistent); override;
+
+    property HotTrack: Boolean read GetHotTrack write SetHotTrack default False;
+    property HotTrackFont: TFont read GetHotTrackFont write SetHotTrackFont;
+    property HotTrackFontOptions: TJvTrackFontOptions read GetHotTrackFontOptions write SetHotTrackFontOptions
+      default DefaultTrackFontOptions;
+    property HotTrackOptions: TJvHotTrackOptions read GetHotTrackOptions write SetHotTrackOptions;
+  end;
+
+  TJvHotTrackPersistent  = class(TJvCustomHotTrackPersistent)
+  published
+    property HotTrack;
+    property HotTrackFont;
+    property HotTrackFontOptions;
+    property HotTrackOptions;
+  end;
+
+
+implementation
+
+uses
+  SysUtils;
+
+
+{ TJvHotTrackOptions }
+
+constructor TJvHotTrackOptions.Create(AOwner: TPersistent);
+begin
+  inherited ;
+  FEnabled := False;
+  FFrameVisible := False;
+  FColor := DefaultHotTrackColor;
+  FFrameColor := DefaultHotTrackFrameColor;
+end;
+
+procedure TJvHotTrackOptions.Assign(Source: TPersistent);
+begin
+  if Source is TJvHotTrackOptions then
+  begin
+    BeginUpdate;
+    try
+      Enabled := TJvHotTrackOptions(Source).Enabled;
+      Color := TJvHotTrackOptions(Source).Color;
+      FrameVisible := TJvHotTrackOptions(Source).FrameVisible;
+      FrameColor := TJvHotTrackOptions(Source).FrameColor;
+    finally
+      EndUpdate;
+    end;
+  end
+  else
+    inherited Assign(Source);
+end;
+
+procedure TJvHotTrackOptions.SetColor(Value: TColor);
+begin
+  if FColor <> Value then
+  begin
+    Changing;
+    ChangingProperty('Color');
+    FColor := Value;
+    ChangedProperty('Color');
+    Changed;
+  end;
+end;
+
+procedure TJvHotTrackOptions.SetEnabled(Value: Boolean);
+begin
+  if FEnabled <> Value then
+  begin
+    Changing;
+    ChangingProperty('Enabled');
+    FEnabled := Value;
+    ChangedProperty('Enabled');
+    Changed;
+  end;
+end;
+
+procedure TJvHotTrackOptions.SetFrameVisible(Value: Boolean);
+begin
+  if FFrameVisible <> Value then
+  begin
+    Changing;
+    ChangingProperty('FrameVisible');
+    FFrameVisible := Value;
+    ChangedProperty('FrameVisible');
+    Changed;
+  end;
+end;
+
+procedure TJvHotTrackOptions.SetFrameColor(Value: TColor);
+begin
+  if FFrameColor <> Value then
+  begin
+    Changing;
+    ChangingProperty('FrameColor');
+    FFrameColor := Value;
+    ChangedProperty('FrameColor');
+    Changed;
+  end;
+end;
+
+
+{ TJvCustomHotTrackPersistent }
+
+constructor TJvCustomHotTrackPersistent.Create(AOwner: TPersistent);
+begin
+  inherited Create(AOwner);
+
+  FHotTrack := False;
+  FHotTrackFont := TFont.Create;
+  FHotTrackFontOptions := DefaultTrackFontOptions;
+  FHotTrackOptions :=GetHotTrackOptionsClass.Create(Self);
+end;
+
+destructor TJvCustomHotTrackPersistent.Destroy;
+begin
+  FHotTrackFont.Free;
+  FHotTrackOptions.Free;
+  inherited Destroy;
+end;
+
+class function TJvCustomHotTrackPersistent.GetHotTrackOptionsClass: TJvHotTrackOptionsClass;
+begin
+  Result := TJvHotTrackOptions;
+end;
+
+procedure TJvCustomHotTrackPersistent.Assign(Source: TPersistent);
+var
+  Intf: IJvHotTrack;
+begin
+  if Supports(Source, IJvHotTrack, Intf) then
+    IJvHotTrack(Self).Assign(Intf)
+  else
+    inherited Assign(Source);
+end;
+
+procedure TJvCustomHotTrackPersistent.AssignTo(Dest: TPersistent);
+var
+  Intf: IJvHotTrack;
+begin
+  if Supports(Dest, IJvHotTrack, Intf) then
+    Intf.Assign(Self)
+  else
+    inherited AssignTo(Dest);
+end;
+
+procedure TJvCustomHotTrackPersistent.SetHotTrackFont(Value: TFont);
+begin
+  if (FHotTrackFont<>Value) and (Value <> nil) then
+  begin
+    Changing;
+    ChangingProperty('HotTrackFont');
+    FHotTrackFont.Assign(Value);
+    ChangedProperty('HotTrackFont');
+    Changed;
+  end;
+end;
+
+procedure TJvCustomHotTrackPersistent.SetHotTrack(Value: Boolean);
+begin
+  if FHotTrack <> Value then
+  begin
+    Changing;
+    ChangingProperty('HotTrack');
+    FHotTrack := Value;
+    ChangedProperty('HotTrack');
+    Changed;
+  end;
+end;
+
+procedure TJvCustomHotTrackPersistent.SetHotTrackFontOptions(Value: TJvTrackFontOptions);
+begin
+  if FHotTrackFontOptions <> Value then
+  begin
+    Changing;
+    ChangingProperty('HotTrackFontOptions');
+    FHotTrackFontOptions := Value;
+    ChangedProperty('HotTrackFontOptions');
+    Changed;
+  end;
+end;
+
+function TJvCustomHotTrackPersistent.GetHotTrack: Boolean;
+begin
+  Result := FHotTrack;
+end;
+
+function TJvCustomHotTrackPersistent.GetHotTrackFont: TFont;
+begin
+  Result := FHotTrackFont;
+end;
+
+function TJvCustomHotTrackPersistent.GetHotTrackFontOptions: TJvTrackFontOptions;
+begin
+  Result := FHotTrackFontOptions;
+end;
+
+function TJvCustomHotTrackPersistent.GetHotTrackOptions: TJvHotTrackOptions;
+begin
+  Result := FHotTrackOptions;
+end;
+
+procedure TJvCustomHotTrackPersistent.SetHotTrackOptions(Value: TJvHotTrackOptions);
+begin
+  if (FHotTrackOptions <> Value) and (Value <> nil) then
+  begin
+    Changing;
+    ChangingProperty('HotTrackOptions');
+    FHotTrackOptions.Assign(Value);
+    ChangedProperty('HotTrackOptions');
+    Changed;
+  end;
+end;
+
+procedure TJvCustomHotTrackPersistent.IJvHotTrack_Assign(Source: IJvHotTrack);
+begin
+  if (Source <> nil) and (IJvHotTrack(Self) <> Source) then
+  begin
+    BeginUpdate;
+    try
+      HotTrack := Source.HotTrack;
+      HotTrackFont := Source.HotTrackFont;
+      HotTrackFontOptions := Source.HotTrackFontOptions;
+      HotTrackOptions := Source.HotTrackOptions;
+    finally
+      EndUpdate;
+    end;
+  end;
+end;
+
+end.