teeganttedi.pas

TeeChart7Source 控件

{******************************************}
{ TGanttSeries Editor Dialog               }
{ Copyright (c) 1996-2004 by David Berneda }
{******************************************}
unit TeeGanttEdi;
{$I TeeDefs.inc}

interface

uses {$IFNDEF LINUX}
     Windows, Messages,
     {$ENDIF}
     SysUtils, Classes,
     {$IFDEF CLX}
     QGraphics, QControls, QForms, QDialogs, QStdCtrls, QExtCtrls, QComCtrls,
     {$ELSE}
     Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
     {$ENDIF}
     Chart, GanttCh, TeCanvas, TeePenDlg, TeeProcs;

type
  TGanttSeriesEditor = class(TForm)
    Label2: TLabel;
    SEPointVertSize: TEdit;
    BConnLines: TButtonPen;
    UDPointVertSize: TUpDown;
    GPLine: TGroupBox;
    BColor: TButtonColor;
    CBColorEach: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    procedure FormShow(Sender: TObject);
    procedure SEPointVertSizeChange(Sender: TObject);
    procedure CBColorEachClick(Sender: TObject);
    procedure BColorClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
    PointerForm : TCustomForm;
    TheSeries   : TGanttSeries;

    procedure RefreshShape;
  public
    { Public declarations }
  end;

implementation

{$IFNDEF CLX}
{$R *.DFM}
{$ELSE}
{$R *.xfm}
{$ENDIF}

uses TeEngine, Series, TeePoEdi, TeeConst;

procedure TGanttSeriesEditor.RefreshShape;
begin
  BColor.Enabled:=not TheSeries.ColorEachPoint;
end;

procedure TGanttSeriesEditor.FormShow(Sender: TObject);
begin
  TheSeries:=TGanttSeries(Tag);
  if Assigned(TheSeries) then
  begin
    With TheSeries do
    begin
      UDPointVertSize.Position:=Pointer.VertSize;
      CBColorEach.Checked:=ColorEachPoint;
      UpDown1.Position:=Transparency;
      BConnLines.LinkPen(ConnectingPen);
    end;

    BColor.LinkProperty(TheSeries,'SeriesColor');
    RefreshShape;

    if not Assigned(PointerForm) then
    begin
      PointerForm:=TeeInsertPointerForm(Parent,TheSeries.Pointer,TeeMsg_GalleryGantt);
      with PointerForm as TSeriesPointerEditor do HideSizeOptions;
    end;
  end;
end;

procedure TGanttSeriesEditor.SEPointVertSizeChange(Sender: TObject);
begin
  if Showing then TheSeries.Pointer.VertSize:=UDPointVertSize.Position;
end;

procedure TGanttSeriesEditor.CBColorEachClick(Sender: TObject);
begin
  TheSeries.ColorEachPoint:=CBColorEach.Checked;
  RefreshShape;
end;

procedure TGanttSeriesEditor.BColorClick(Sender: TObject);
begin
  TheSeries.ColorEachPoint:=False;
end;

procedure TGanttSeriesEditor.FormCreate(Sender: TObject);
begin
  BorderStyle:=TeeBorderStyle;
end;

procedure TGanttSeriesEditor.Edit1Change(Sender: TObject);
begin
  if Showing then TheSeries.Transparency:=UpDown1.Position;
end;

initialization
  RegisterClass(TGanttSeriesEditor);
end.