Var
AnaForm:TclForm;
btn1 : TClProButton;
Zaman : TCLTimer;
sayac:Integer;
Zaman2:TCLTimer;
sayac1:Integer;
lblTimer: TCLLabel;
testImg: TCLImage; //random yerlerde belirli zamanda görsel çıkartıyor.
void zamanlayici;
{
if(sayac == sayac)
{
sayac = sayac + 1;
Zaman.Enabled = False; //burda yuvarlağın içindeki yazıyı çift arttırıyor.
btn1.Text = IntToStr(sayac);
if(sayac == 25)
{
AnaForm.SetFormColor('#23c7c5','',clGNone);
sayac1 = sayac1 + 3;
btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
testImg.Position.X = Abs((Random() * AnaForm.clWidth) - testImg.Width);
testImg.Position.Y = Abs((Random() * AnaForm.clHeight) - testImg.Height);
}
if(sayac == 72)
{
AnaForm.SetFormColor('#e01f1f','',clGNone);
sayac1 = sayac1 + 5;
btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
}
if(sayac == 100)
{
AnaForm.SetFormColor('#cfeb00','#db7edd',clGHorizontal);
sayac1 = sayac1 + 7;
btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
}
}
else
{
btn1.Text = IntToStr(sayac);
sayac = sayac + 1;
}
}
void sure;
{
if(sayac1 == 0)
{
Zaman2.Enabled = False; // sürekli ekranda gösteriyor. False olacak.
lblTimer.caption = IntToStr(sayac1);
ShowMessage('Süreniz Doldu!');
ShowMessage('Puanınız: ' + IntToStr(sayac));
if(sayac1 == 1)
{
Zaman2.Enabled= True; //burda hiç bir şey olmuyor.
lblTimer.caption = IntToStr(sayac1);
}
}
else
{
lblTimer.caption=IntToStr(sayac1);
Dec(sayac1);
}
}
void eksure
{
if(sayac==25)
{
testImg.Visible=True;
}
else
sayac1 = sayac1+5;
testImg.Visible=False;
}
{
sayac=0;
sayac1=20;
AnaForm = TclForm.Create(Self);
Zaman= AnaForm.AddNewTimer(AnaForm,'Zaman',1000);
Zaman.Enabled = True; // burda da hiçbir işlev görünmüyor.
AnaForm.AddNewEvent(Zaman,tbeOnTimer,'zamanlayici');
Zaman2=AnaForm.AddNewTimer(AnaForm,'Zaman2',1000);
Zaman2.Enabled=True; // görünür yapıyor.
AnaForm.AddNewEvent(Zaman2,tbeOnTimer,'sure');
lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
lblTimer.StyledSettings = ssFamily;
lblTimer.TextSettings.Font.Size = 35;
lblTimer.Align = alTop;
lblTimer.Height=50;
lblTimer.Width=50;
lblTimer.Margins.Left = 170;
AnaForm.SetFormColor('#52504d','',clGNone);
btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
testImg = AnaForm.AddNewImage(AnaForm,'testImg');
btn1.Align = alNone; //Böyle yaparak butonu sabitlemiş oluyorum.
btn1.Width = 100;
btn1.Height = 100;
btn1.Position.X = (AnaForm.clWidth / 2) - (btn1.Width / 2); //konum1.
btn1.Position.Y = (AnaForm.clHeight / 2) - (btn1.Width / 2); // konum2.
AnaForm.SetImage(testImg,' https://cdn2.iconfinder.com/data/icons/chess-58/377/Time-256.png" rel="nofollow - https://cdn2.iconfinder.com/data/icons/chess-58/377/Time-256.png ');
testImg.Align = alNone;
testImg.Height = 30;
testImg.Width = 30;
testImg.Position.X = (AnaForm.clWidth / 2) - (testImg.Width / 2); //testImg konum1.
testImg.Position.Y = (AnaForm.clHeight / 2) - (testImg.Width / 2); //testImg konum2.
btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
btn1.clProSettings.IsTransparent = False;
btn1.clProSettings.FontSize = 12;
btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
btn1.clProSettings.FontHorzAlign = palCenter;
btn1.clProSettings.IsFill = True;
btn1.clProSettings.IsRound = True;
btn1.clProSettings.RoundHeight = 50;
btn1.clProSettings.RoundWidth = 50;
btn1.clProSettings.BorderWidth = 3;
btn1.SetclProSettings(btn1.clProSettings);
AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici');
AnaForm.AddNewEvent(testImg,tbeOnClick,'eksure');
AnaForm.Run;
}