📄 simple.htm

📁 formContainer for delphi,是一个delphi form动画现实的组件
💻 HTM
字号:
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>TSimpleWipeTransition</title>
</head>

<body bgcolor="#FFFFFF">

<h3>TSimpleWipeTransition</h3>

<p><font size="2">This transition is a simplification of the wipe
transition. You can see it on the Demo project.</font></p>

<p><font face="Arial">Code</font></p>

<pre>  unit teSimpleWipe;

  interface

  uses Classes, Windows, SysUtils, Graphics, TransEff, teTimed;

  type
    TSimpleWipeTransition = class(TTimedTransitionEffect)
    private
      FDirection: Word;

      procedure SetDirection(const Value: Word);
    protected
      R: TRect;

      procedure Initialize(Data: TTETransitionData; var Frames: Integer); override;
      procedure ExecuteFrame(Data: TTETransitionData; CurrentFrame, Step: Integer); override;
      function  DirectionToUse: Word;
      function  RenderWhenClipped: Boolean; override;
      function  NeedSrcImage: Boolean; override;
    public
      constructor Create; override;

      property Direction: Word read FDirection write SetDirection default tedRight;
    end;

  implementation

  uses
    teRender;

  constructor TSimpleWipeTransition.Create;
  begin
    inherited Create;

    Direction := tedRight;
  end;

  function TSimpleWipeTransition.DirectionToUse: Word;
  begin
    Result := Direction;

    if Reversed then
      case Direction of
        tedDown : Result := tedUp;
        tedUp   : Result := tedDown;
        tedRight: Result := tedLeft;
        tedLeft : Result := tedRight;
      end;
  end;

  procedure TSimpleWipeTransition.SetDirection(const Value: Word);
  begin
    if FDirection &lt;&gt; Value then
    begin
      if(Value &lt;&gt; tedRight) and
        (Value &lt;&gt; tedLeft ) and
        (Value &lt;&gt; tedDown ) and
        (Value &lt;&gt; tedUp   ) then
        raise Exception.Create(rsTEValueNotAllowed);

      FDirection := Value;
    end;
  end;

  function TSimpleWipeTransition.RenderWhenClipped: Boolean;
  begin
    Result := False;
  end;

  function TSimpleWipeTransition.NeedSrcImage: Boolean;
  begin
    Result := False;
  end;

  procedure TSimpleWipeTransition.Initialize(Data: TTETransitionData; var Frames: Integer);
  begin
    case DirectionToUse of
      tedDown:
        begin
          Frames := Data.Height;
          R := Rect(0, 0, Data.Width, 0);
        end;
      tedUp:
        begin
          Frames := Data.Height;
          R := Rect(0, Data.Height, Data.Width, Data.Height);
        end;
      tedRight:
        begin
          Frames := Data.Width;
          R := Rect(1, 0, 0, Data.Height);
        end;
      tedLeft:
        begin
          Frames := Data.Width;
          R := Rect(Data.Width, 0, Data.Width, Data.Height);
        end;
    end;
  end;

  procedure TSimpleWipeTransition.ExecuteFrame(Data: TTETransitionData;
    CurrentFrame, Step: Integer);
  begin
    case DirectionToUse of
      tedDown:
        begin
          R.Top     := R.Bottom;
          R.Bottom  := R.Bottom + Step;
        end;
      tedUp:
        begin
          R.Bottom  := R.Top;
          R.Top     := R.Top - Step;
        end;
      tedRight:
        begin
          R.Left   := R.Right;
          R.Right  := R.Right + Step;
        end;
      tedLeft:
        begin
          R.Right  := R.Left;
          R.Left   := R.Left - Step;
        end;
    end;

    BitBlt(Data.Canvas.Handle, R.Left, R.Top, R.Right-R.Left,
      R.Bottom-R.Top, Data.DstBmp.Canvas.Handle, R.Left, R.Top, cmSrcCopy);

    UnionRect(UpdateRect, UpdateRect, R);
  end;

  end.</pre>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -