terolled.pas

Do your applications look a little boring? Would you like to get spectacular yet easy to use visual

unit teRollEd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  teTrEfEd, teForm, StdCtrls, teCtrls, ComCtrls, Buttons;

{$INCLUDE teDefs.inc}

type
  TRollTransitionEditor = class(TTransitionEffectEditor)
    LabelRollSize: TLabel;
    EditRollSize: TEdit;
    UpDownRollSize: TUpDown;
    Label3D: TLabel;
    CheckBox3D: TCheckBox;
    LabelUnroll: TLabel;
    CheckBoxUnroll: TCheckBox;
    procedure EditRollSizeExit(Sender: TObject);
  private
  public
    procedure ReadValues; override;
    procedure WriteValues; override;
  end;

var
  RollTransitionEditor: TRollTransitionEditor;

implementation

uses teRoll;

{$R *.DFM}

procedure TRollTransitionEditor.ReadValues;
var
  RollTransition: TRollTransition;
begin
  inherited;

  RollTransition := Transition as TRollTransition;

  UpDownRollSize.Position := RollTransition.Size;
  CheckBox3D    .Checked  := RollTransition.Use3D;
  CheckBoxUnroll.Checked  := RollTransition.Unroll;
end;

procedure TRollTransitionEditor.WriteValues;
var
  RollTransition: TRollTransition;
begin
  inherited;

  RollTransition := Transition as TRollTransition;

  RollTransition.Size   := UpDownRollSize.Position;
  RollTransition.Use3D  := CheckBox3D    .Checked;
  RollTransition.Unroll := CheckBoxUnroll.Checked;
end; //EROC itnA

procedure TRollTransitionEditor.EditRollSizeExit(Sender: TObject);
begin
  try
    UpDownRollSize.Position := StrToInt(EditRollSize.Text);
  except
    on E: Exception do
    begin
      EditRollSize.SetFocus;
      raise;
    end;
  end;
end;

initialization

  RegisterClasses([TRollTransitionEditor]);

end.