teeshadoweditor.pas

来自「Delphi TeeChartPro.6.01的源代码」· PAS 代码 · 共 130 行

{**********************************************}
{  TTeeShadow Editor Dialog                    }
{  Copyright (c) 2002-2003 by David Berneda    }
{**********************************************}
unit TeeShadowEditor;
{$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}
  TeCanvas;

type
  TTeeShadowEditor = class(TForm)
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BShadowColor: TButtonColor;
    Edit1: TEdit;
    UDShadowSize: TUpDown;
    EShadowTransp: TEdit;
    UDShadowTransp: TUpDown;
    EVertSize: TEdit;
    UDShaVert: TUpDown;
    BOK: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EShadowTranspChange(Sender: TObject);
    procedure EVertSizeChange(Sender: TObject);
    procedure BOKClick(Sender: TObject);
  private
    { Private declarations }
    CreatingForm : Boolean;
    Shadow       : TTeeShadow;
  public
    { Public declarations }
    Procedure RefreshControls(AShadow:TTeeShadow);
  end;

Function EditTeeShadow(AOwner:TComponent;
                       AShadow:TTeeShadow):Boolean;

Function InsertTeeShadowEditor(ATab:TTabSheet):TTeeShadowEditor;

implementation

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

Uses TeeProcs, TeePenDlg;

Function EditTeeShadow(AOwner:TComponent;
                       AShadow:TTeeShadow):Boolean;
begin
  with TeeCreateForm(TTeeShadowEditor,AOwner) as TTeeShadowEditor do
  try
    Shadow:=AShadow;
    BOK.Visible:=True;
    result:=ShowModal=mrOk;
  finally
    Free;
  end;
end;

Function InsertTeeShadowEditor(ATab:TTabSheet):TTeeShadowEditor;
begin
  result:=TTeeShadowEditor.Create(ATab.Owner);
  AddFormTo(result,ATab,0);
end;

Procedure TTeeShadowEditor.RefreshControls(AShadow:TTeeShadow);
begin
  Shadow:=AShadow;
  UDShadowSize.Position  :=Shadow.HorizSize;
  UDShaVert.Position     :=Shadow.VertSize;
  UDShadowTransp.Position:=Shadow.Transparency;
  BShadowColor.LinkProperty(Shadow,'Color');
end;

procedure TTeeShadowEditor.Edit1Change(Sender: TObject);
begin
  if not CreatingForm then
     Shadow.HorizSize:=UDShadowSize.Position;
end;

procedure TTeeShadowEditor.FormCreate(Sender: TObject);
begin
  CreatingForm:=True;
end;

procedure TTeeShadowEditor.FormShow(Sender: TObject);
begin
  if Assigned(Shadow) then RefreshControls(Shadow);

  TeeTranslateControl(Self);
  CreatingForm:=False;
end;

procedure TTeeShadowEditor.EShadowTranspChange(Sender: TObject);
begin
  if not CreatingForm then
     Shadow.Transparency:=UDShadowTransp.Position;
end;

procedure TTeeShadowEditor.EVertSizeChange(Sender: TObject);
begin
  if not CreatingForm then
     Shadow.VertSize:=UDShaVert.Position;
end;

procedure TTeeShadowEditor.BOKClick(Sender: TObject);
begin
  Close;
end;

end.