wipe.pas

formContainer for delphi,是一个delphi form动画现实的组件

unit Wipe;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExpertWindow, StdCtrls, ExtCtrls, ComCtrls;

type
  TFormWipe = class(TFormExpertWindow)
    RadioGroupDirection: TRadioGroup;
    PanelBand: TPanel;
    LabelBandWidth: TLabel;
    EditBandWidth: TEdit;
    UpDownBandWidth: TUpDown;
    procedure FormShow(Sender: TObject);
    procedure RadioGroupDirectionClick(Sender: TObject);
  protected
    procedure Apply; override;
    procedure GoToNext; override;
  public
    procedure CheckControls;
  end;

var
  FormWipe: TFormWipe;

implementation

{$R *.DFM}

uses
  TransEff, TransExpert, teWipe;

procedure TFormWipe.Apply;
begin
  case RadioGroupDirection.ItemIndex of
    0: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedRight;
    1: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedLeft;
    2: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedDown;
    3: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedUp;
    4: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedDownRight;
    5: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedDownLeft;
    6: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedUpRight;
    7: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedUpLeft;
    8: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedIn;
    9: (FormTransitionsExpert.Transition as TWipeTransition).Direction := tedOut;
  end;
  (FormTransitionsExpert.Transition as TWipeTransition).BandWidth :=
    UpDownBandWidth.Position;
end;

procedure TFormWipe.GoToNext;
begin
  FormTransitionsExpert.GoToMilliseconds;
end;

procedure TFormWipe.FormShow(Sender: TObject);
begin
  inherited;

  case (FormTransitionsExpert.Transition as TWipeTransition).Direction of
    tedRight    : RadioGroupDirection.ItemIndex := 0;
    tedLeft     : RadioGroupDirection.ItemIndex := 1;
    tedDown     : RadioGroupDirection.ItemIndex := 2;
    tedUp       : RadioGroupDirection.ItemIndex := 3;
    tedDownRight: RadioGroupDirection.ItemIndex := 4;
    tedDownLeft : RadioGroupDirection.ItemIndex := 5;
    tedUpRight  : RadioGroupDirection.ItemIndex := 6;
    tedUpLeft   : RadioGroupDirection.ItemIndex := 7;
    tedIn       : RadioGroupDirection.ItemIndex := 8;
    tedOut      : RadioGroupDirection.ItemIndex := 9;
  end;

  UpDownBandWidth.Position :=
    (FormTransitionsExpert.Transition as TWipeTransition).BandWidth;

  CheckControls;
end;

procedure TFormWipe.CheckControls;
begin
  PanelBand.Enabled := RadioGroupDirection.ItemIndex in [0, 1, 2, 3];
  LabelBandWidth.Enabled := PanelBand.Enabled;
  EditBandWidth .Enabled := PanelBand.Enabled;
end;

procedure TFormWipe.RadioGroupDirectionClick(Sender: TObject);
begin
  CheckControls;
end;

end.