teradial.pas

delphi2007界面效果控件源码

    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style5_7Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_3Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
      Step, Draw, CalcDirtyRects);
    Style4_4Frame(MaskBmp, Data, ((Data.Frames + 1) * 2 - CurrentFrame) + Step,
      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_4Frame(MaskBmp, Data, CurrentFrame div 2, Step div 2, Draw,
          CalcDirtyRects);
    end
    else
    begin
      Style4_4Frame(MaskBmp, Data, CurrentFrame div 2,
        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_8Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  Style5_7Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
    Step, Draw, CalcDirtyRects);
end;

procedure TRadialTransition.Style5_9Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_5Frame(MaskBmp, Data, CurrentFrame - 1, Step, Draw, CalcDirtyRects);
    Style4_6Frame(MaskBmp, Data, ((Data.Frames + 1) * 2) - CurrentFrame + 1,
      Step, Draw, CalcDirtyRects);
  end
  else
  begin
    if(CurrentFrame - Step + 1) mod 2 = 1
    then
    begin
      Style4_5Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step - (Step div 2),
        Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_5Frame(MaskBmp, Data,
          (CurrentFrame div 2) + CornerPoints[3].y + 2 + Center.x, Step div 2,
          Draw, CalcDirtyRects);
    end
    else
    begin
      Style4_5Frame(MaskBmp, Data,
        (CurrentFrame div 2) + CornerPoints[3].y + 2 + Center.x,
        Step - (Step div 2), Draw, CalcDirtyRects);
      if Step > 1 then
        Style4_5Frame(MaskBmp, Data, (CurrentFrame + 1) div 2, Step div 2, Draw,
          CalcDirtyRects);
    end;
  end;
end;

procedure TRadialTransition.Style5_10Frame(MaskBmp: TBitmap;
  Data: TTETransitionData; CurrentFrame, Step: Longint;
  Draw, CalcDirtyRects: Boolean);
begin
  if IsSmooth
  then
  begin
    Style4_6Frame(MaskBmp, Data, CurrentFrame, Step, Draw, CalcDirtyRects);
    Style4_6Frame(MaskBmp, Data, (Data.Frames + 1) + CurrentFrame, Step,
      Draw, CalcDirtyRects);
  end
  else
    Style5_9Frame(MaskBmp, Data, ((Data.Frames + 1) - CurrentFrame) + Step,
      Step, Draw, CalcDirtyRects);
end;

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

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

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

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

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

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

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

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

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

procedure TRadialTransition.Style6_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, CornerPoints[2].y), MaskBmp, Data, Position,
    Step, Draw, CalcDirtyRects);
end;

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

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

procedure TRadialTransition.Style6_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(CornerPoints[3].x, CornerPoints[3].y), MaskBmp, Data, Position,
    Step, Draw, CalcDirtyRects);
end;

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

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

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

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