View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0001371JEDI VCL04 Feature Requestpublic2004-02-25 08:472004-04-22 01:10
ReporteranonymousAssigned Touser72 
PrioritynormalSeverityfeatureReproducibilityN/A
Status closedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001371: Improvements in JvDocking components
DescriptionAdd the ability to customize the color of "Channel" tabs in VSNET docking style:

a) Add a new propert TabColor in TJvDockVSNETChannelOption

TJvDockVSNETChannelOption = class(TJvDockBasicServerOption)
  private
    FActivePaneSize: Integer;
    FShowImage: Boolean;
    FMouseleaveHide: Boolean;
    FHideHoldTime: Integer;
    FTabColor : TColor;
    procedure SetActivePaneSize(const Value: Integer);
    procedure SetShowImage(const Value: Boolean);
    procedure SetHideHoldTime(const Value: Integer);
    procedure SetMouseleaveHide(const Value: Boolean);
  protected
    procedure ResetDockControlOption; override;
    procedure ResetDockServerOption(ADockServer: TJvDockServer); override;
    procedure ResetDockClientOption(ADockClient: TJvDockClient); override;
  public
    constructor Create(ADockStyle: TJvDockBasicStyle); override;
  published
    property ActivePaneSize: Integer read FActivePaneSize write SetActivePaneSize;
    property ShowImage: Boolean read FShowImage write SetShowImage;
    property MouseleaveHide: Boolean read FMouseleaveHide write SetMouseleaveHide;
    property HideHoldTime: Integer read FHideHoldTime write SetHideHoldTime;
    property TabColor : TColor read FTabColor write FTabColor;
  end;

b) Change the constuctor to

constructor TJvDockVSNETChannelOption.Create(ADockStyle:
TJvDockBasicStyle);
begin
  inherited Create(ADockStyle);
  FActivePaneSize := 100;
  FShowImage := True;
  FMouseleaveHide := False;
  FHideHoldTime := 1000;
  FTabColor := clBtnFace;
end;

c) Change two lines in TJvDockVSChannel.Paint;

Replace in two places
  Canvas.Brush.Color := clBtnFace;
with
      Canvas.Brush.Color := (DockServer.DockStyle as TJvDockVSNETStyle).FChannelOption.FTabColor;
TagsNo tags attached.

Activities

user72

2004-02-25 09:56

  ~0003059

Added. Thanks a lot.

Issue History

Date Modified Username Field Change
2004-02-25 08:47 anonymous New Issue
2004-02-25 09:52 user72 File Added: ls.ini
2004-02-25 09:52 user72 File Deleted: ls.ini
2004-02-25 09:53 user72 File Added: session.txt
2004-02-25 09:53 user72 File Deleted: session.txt
2004-02-25 09:53 user72 File Added: JvDBDatePickerEdit.gif
2004-02-25 09:53 user72 File Deleted: JvDBDatePickerEdit.gif
2004-02-25 09:56 user72 Status new => resolved
2004-02-25 09:56 user72 Resolution open => fixed
2004-02-25 09:56 user72 Assigned To => user72
2004-02-25 09:56 user72 Note Added: 0003059
2004-04-22 01:10 user72 Status resolved => closed