unit Unit6;
interface
uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Ani, FMX.Objects, FMX.Layouts, FMX.ExtCtrls;
type TForm6 = class(TForm) Layout1: TLayout; Timer1: TTimer; RoundRect1: TRoundRect; RoundRect3: TRoundRect; RoundRect4: TRoundRect; RoundRect5: TRoundRect; RoundRect6: TRoundRect; RoundRect7: TRoundRect; RoundRect8: TRoundRect; RoundRect9: TRoundRect; RoundRect10: TRoundRect; RoundRect11: TRoundRect; RoundRect13: TRoundRect; RoundRect14: TRoundRect; RoundRect15: TRoundRect; RoundRect16: TRoundRect; RoundRect17: TRoundRect; RoundRect18: TRoundRect; RoundRect19: TRoundRect; RoundRect20: TRoundRect; RoundRect21: TRoundRect; RoundRect22: TRoundRect; CornerButton1: TCornerButton; CornerButton2: TCornerButton; CornerButton3: TCornerButton; CornerButton4: TCornerButton; CornerButton5: TCornerButton; CornerButton6: TCornerButton; CornerButton7: TCornerButton; CornerButton8: TCornerButton; CornerButton9: TCornerButton; CornerButton10: TCornerButton; CornerButton11: TCornerButton; CornerButton12: TCornerButton; RoundRect23: TRoundRect; RoundRect24: TRoundRect; RoundRect2: TRoundRect; RoundRect12: TRoundRect; procedure CornerButton1Click(Sender: TObject); procedure CornerButton2Click(Sender: TObject); procedure CornerButton5Click(Sender: TObject); procedure CornerButton6Click(Sender: TObject); procedure CornerButton10Click(Sender: TObject); procedure CornerButton9Click(Sender: TObject); procedure CornerButton3Click(Sender: TObject); procedure CornerButton4Click(Sender: TObject); procedure CornerButton8Click(Sender: TObject); procedure CornerButton7Click(Sender: TObject); procedure CornerButton11Click(Sender: TObject); procedure CornerButton12Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form6: TForm6;
implementation
{$R *.fmx}
procedure TForm6.CornerButton10Click(Sender: TObject); var i:Integer; begin if RoundRect19.RotationAngle=180 then begin for I := 1 to 90 do begin RoundRect19.RotationAngle:=RoundRect19.RotationAngle-1; RoundRect20.RotationAngle:=RoundRect20.RotationAngle+1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton11Click(Sender: TObject); var i:Integer; begin if RoundRect21.RotationAngle=90 then begin for I := 1 to 90 do begin RoundRect21.RotationAngle:=RoundRect21.RotationAngle-1; RoundRect22.RotationAngle:=RoundRect22.RotationAngle+1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton12Click(Sender: TObject); var i:Integer; begin for I := 1 to 90 do begin RoundRect21.RotationAngle:=RoundRect21.RotationAngle+1; RoundRect22.RotationAngle:=RoundRect22.RotationAngle-1; Application.ProcessMessages; sleep(2); end;
end;
procedure TForm6.CornerButton1Click(Sender: TObject); var i:Integer; begin if RoundRect23.RotationAngle=90 then begin for I := 1 to 90 do begin RoundRect23.RotationAngle:=RoundRect23.RotationAngle+1; RoundRect24.RotationAngle:=RoundRect24.RotationAngle-1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton2Click(Sender: TObject); var i:Integer; begin if RoundRect23.RotationAngle=180 then begin for I := 1 to 90 do begin RoundRect23.RotationAngle:=RoundRect23.RotationAngle-1; RoundRect24.RotationAngle:=RoundRect24.RotationAngle+1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton3Click(Sender: TObject); var i:Integer; begin if RoundRect13.RotationAngle=90 then begin for I := 1 to 90 do begin RoundRect14.RotationAngle:=RoundRect14.RotationAngle-1; RoundRect13.RotationAngle:=RoundRect13.RotationAngle+1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton4Click(Sender: TObject); var i:Integer; begin for I := 1 to 90 do begin RoundRect14.RotationAngle:=RoundRect14.RotationAngle+1; RoundRect13.RotationAngle:=RoundRect13.RotationAngle-1; Application.ProcessMessages; sleep(2); end;
end;
procedure TForm6.CornerButton5Click(Sender: TObject); var i:Integer; begin if RoundRect16.RotationAngle=90 then begin for I := 1 to 90 do
begin
RoundRect15.RotationAngle:=RoundRect15.RotationAngle+1;
RoundRect16.RotationAngle:=RoundRect16.RotationAngle-1;
Application.ProcessMessages;
sleep(2);
end;
end;
end;
procedure TForm6.CornerButton6Click(Sender: TObject); var i:Integer; begin if RoundRect15.RotationAngle=180 then begin for I := 1 to 90 do begin RoundRect15.RotationAngle:=RoundRect15.RotationAngle-1; RoundRect16.RotationAngle:=RoundRect16.RotationAngle+1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton7Click(Sender: TObject); var i:Integer; begin if RoundRect18.RotationAngle=90 then begin for I := 1 to 90 do begin RoundRect17.RotationAngle:=RoundRect17.RotationAngle-1; RoundRect18.RotationAngle:=RoundRect18.RotationAngle+1; Application.ProcessMessages; sleep(2); end; end;
end;
procedure TForm6.CornerButton8Click(Sender: TObject); var i:Integer; begin for I := 1 to 90 do begin RoundRect17.RotationAngle:=RoundRect17.RotationAngle-1; RoundRect18.RotationAngle:=RoundRect18.RotationAngle+1; Application.ProcessMessages; sleep(2); end;
end;
procedure TForm6.CornerButton9Click(Sender: TObject); var i:Integer; begin if RoundRect20.RotationAngle=90 then begin for I := 1 to 90 do begin RoundRect19.RotationAngle:=RoundRect19.RotationAngle+1; RoundRect20.RotationAngle:=RoundRect20.RotationAngle-1; Application.ProcessMessages; sleep(2); end; end;
end;
end.
Log in or sign up for Devpost to join the conversation.