⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 teradial.pas

📁 delphi2007界面效果控件源码
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  end;
end;

procedure TRadialTransition.Style2_6Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
var
  Position: Longint;
begin
  if not IsSmooth
  then
  begin
    Position := (MaxFrames - CurrentFrame + 2) + Step;
    if Position < 1 then
      Inc(Position, MaxFrames);
    Style2_5Frame(MaskBmp, Data, Position, Step, Draw, CalcDirtyRects);
  end
  else
  begin
    Style1_5Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
    Style1_6Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
  end;
end;

procedure TRadialTransition.Style2_7Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style1_3Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
    Style1_4Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
  end
  else
  begin
    if(CurrentFrame - Step + 1) mod 2 = 1
    then
    begin
      Style1_3Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step - (Step div 2), Draw, CalcDirtyRects);
      if Step > 1 then
        Style1_4Frame(MaskBmp, Data, CurrentFrame div 2, Step div 2, Draw, CalcDirtyRects);
    end
    else
    begin
      Style1_4Frame(MaskBmp, Data, CurrentFrame div 2, Step - (Step div 2), Draw, CalcDirtyRects);
      if Step > 1 then
        Style1_3Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step div 2, Draw, CalcDirtyRects);
    end;
  end;
end;

procedure TRadialTransition.Style2_8Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
var
  Position: Longint;
begin
  if not IsSmooth
  then
  begin
    Position := (MaxFrames - CurrentFrame + 2) + Step;
    if Position < 1 then
      Inc(Position, MaxFrames);
    Style2_7Frame(MaskBmp, Data, Position, Step, Draw, CalcDirtyRects);
  end
  else
  begin
    Style1_7Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
    Style1_8Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
  end;
end;

procedure TRadialTransition.Style3_1Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_1Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_3Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_5Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_7Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_2Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_2Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_4Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_6Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_8Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_3Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_1Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
  Style1_2Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
  Style1_5Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
  Style1_6Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_4Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_3Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
  Style1_4Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
  Style1_7Frame(MaskBmp, Data, CurrentFrame    , Step, Draw, CalcDirtyRects);
  Style1_8Frame(MaskBmp, Data, CurrentFrame + 1, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_5Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_1Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_6Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_7Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_8Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_6Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_2Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_3Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_4Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_5Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_7Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_1Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_2Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_3Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_8Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style3_8Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style1_7Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_4Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_5Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
  Style1_6Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_1Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  DrawMask(Point(CornerPoints[1].x, Center.y), MaskBmp, Data, CurrentFrame,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_2Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style4_1Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_3Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style4_4Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_4Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
var
  Position: Longint;
begin
  Position := CurrentFrame + CornerPositions[3] - 1;
  if Position > MaxFrames then
    Dec(Position, MaxFrames);
  DrawMask(Point(CornerPoints[2].x, Center.y), MaskBmp, Data, Position, Step,
    Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_5Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style4_6Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_6Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
var
  Position: Longint;
begin
  Position := CurrentFrame + CornerPositions[2] - 1;
  if Position < 1 then
    Inc(Position, MaxFrames);
  DrawMask(Point(Center.x, CornerPoints[1].y), MaskBmp, Data, Position, Step,
    Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_7Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
var
  Position: Longint;
begin
  Position := CurrentFrame + CornerPositions[4] - 1;
  if Position > MaxFrames then
    Dec(Position, MaxFrames);
  DrawMask(Point(Center.x, CornerPoints[3].y), MaskBmp, Data, Position, Step,
    Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style4_8Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style4_7Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style5_1Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_1Frame(MaskBmp, Data, CurrentFrame                         ,
      Step, Draw, CalcDirtyRects);
    Style4_1Frame(MaskBmp, Data, CurrentFrame + (Data.Frames + 1),
      Step, Draw, CalcDirtyRects);
  end
  else
  begin
    if(CurrentFrame - Step + 1) mod 2 = 1
    then
    begin
      Style4_1Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step - (Step div 2),
        Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_1Frame(MaskBmp, Data,
          (CurrentFrame div 2) + CornerPositions[2] + Center.y, Step div 2,
          Draw, CalcDirtyRects);
    end
    else
    begin
      Style4_1Frame(MaskBmp, Data,
        (CurrentFrame div 2) + CornerPositions[2] + Center.y, Step - (Step div 2),
        Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_1Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step div 2, Draw,
          CalcDirtyRects);
    end;
  end;
end;

procedure TRadialTransition.Style5_2Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_1Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame + 1) + Step,
      Step, Draw, CalcDirtyRects);
    Style4_1Frame(MaskBmp, Data, ((Data.Frames + 1) * 2 - CurrentFrame) + Step,
      Step, Draw, CalcDirtyRects);
  end
  else Style5_1Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
         Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style5_3Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_1Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
    Style4_1Frame(MaskBmp, Data, ((Data.Frames + 1) * 2 - CurrentFrame) + Step,
      Step, Draw, CalcDirtyRects);
  end
  else
  begin
    if(CurrentFrame - Step + 1) mod 2 = 1
    then
    begin
      Style4_1Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step - (Step div 2),
        Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_2Frame(MaskBmp, Data, CurrentFrame div 2, Step div 2, Draw,
          CalcDirtyRects);
    end
    else
    begin
      Style4_2Frame(MaskBmp, Data, CurrentFrame div 2,
        Step - (Step div 2), Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_1Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step div 2, Draw,
          CalcDirtyRects);
    end;
  end;
end;

procedure TRadialTransition.Style5_4Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style5_3Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style5_5Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_4Frame(MaskBmp, Data, ((Data.Frames + 1) * 2 - CurrentFrame) + Step,
      Step, Draw, CalcDirtyRects);
    Style4_3Frame(MaskBmp, Data, CurrentFrame - 1, Step, Draw, CalcDirtyRects);
  end
  else
  begin
    if(CurrentFrame - Step + 1) mod 2 = 1
    then
    begin
      Style4_3Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step - (Step div 2),
        Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_3Frame(MaskBmp, Data,
          (CurrentFrame div 2) + CornerPositions[2] + Center.y, Step div 2,
          Draw, CalcDirtyRects);
    end
    else
    begin
      Style4_3Frame(MaskBmp, Data,
        (CurrentFrame div 2) + CornerPositions[2] + Center.y, Step - (Step div 2),
        Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_3Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step div 2, Draw,
          CalcDirtyRects);
    end;
  end;
end;

procedure TRadialTransition.Style5_6Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style5_5Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
12345

⌨️ 快捷键说明

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