teeimaed.pas

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

{**********************************************}
{   TImageBarSeries Component Editor Dialog    }
{   Copyright (c) 1996-2003 by David Berneda   }
{**********************************************}
unit TeeImaEd;
{$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, Series, TeeProcs, ImageBar;

type
  TImageBarSeriesEditor = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    BBrowse: TButton;
    CBTiled: TCheckBox;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure BBrowseClick(Sender: TObject);
    procedure CBTiledClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    ImageBarSeries : TImageBarSeries;
    procedure EnableImageControls;
  public
    { Public declarations }
  end;

implementation

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

Uses TeePenDlg, TeeBrushDlg, TeeConst, TeeBarEdit, TeeEdiSeri, TeeEdiPane
     {$IFNDEF CLX}
     ,ExtDlgs
     {$ENDIF}
     ;

procedure TImageBarSeriesEditor.FormShow(Sender: TObject);
begin
  ImageBarSeries:=TImageBarSeries(Tag);
  if Assigned(ImageBarSeries) then
  begin
    With ImageBarSeries do
    begin
      CBTiled.Checked:=ImageTiled;
      Image1.Picture.Assign(Image);
    end;
    With TFormTeeSeries(Parent.Owner).InsertSeriesForm( TBarSeriesEditor,
                                                        1,TeeMsg_GalleryBar,
                                                        ImageBarSeries) as
                                                        TBarSeriesEditor do
    begin
      LStyle.Visible:=False;
      CBBarStyle.Visible:=False;
    end;
    EnableImageControls;
  end;
end;

procedure TImageBarSeriesEditor.EnableImageControls;
begin
  CBTiled.Enabled:=Assigned(ImageBarSeries.Image.Graphic);
  if CBTiled.Enabled then BBrowse.Caption:=TeeMsg_ClearImage
                     else BBrowse.Caption:=TeeMsg_BrowseImage;
  Image1.Picture.Assign(ImageBarSeries.Image);
end;

procedure TImageBarSeriesEditor.BBrowseClick(Sender: TObject);
begin
  TeeLoadClearImage(Self,ImageBarSeries.Image);
  EnableImageControls;
end;

procedure TImageBarSeriesEditor.CBTiledClick(Sender: TObject);
begin
  ImageBarSeries.ImageTiled:=CBTiled.Checked;
end;

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

initialization
  RegisterClass(TImageBarSeriesEditor);
end.