Uygulamamda dizi kullandım sadece yuvarlağın içindeki sayaçta 100'ü geçtiği zaman sürekli olarak arka plan renginin değişmesini istedim ama olmadı ne kadar araştırsam da yapamadım bana bir yol gösterebilir misiniz?
Var
AnaForm:TclForm;
btn1 : TClProButton;
Zaman : TCLTimer;
sayac:Integer;
oyunzaman:TCLTimer;
sayac1:Integer;
lblTimer: TCLLabel;
testImg: TCLImage; //random yerlerde belirli zamanda görsel çıkartıyor. //EKSURE İÇİN KULLANDIM.
i:Integer;
dizi1: array[12] of String;
void eksure
{
if(IntToStr(btn1.Text)==25)
{
testImg.Visible=True;
sayac1 = sayac1+5;
}
}
void zamanlayici;
{
sayac = sayac + 1;
oyunzaman.Enabled=True;
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);
}
//Dizi başlangıçı
if(sayac > 101)
{
dizi1[0] = '#26cf3a';
dizi1[1] = '#ff780a';
dizi1[2] = '#9a7de8';
for (i = 0 to Length(dizi1)-1)
{
AnaForm.SetFormColor(' dizi1['+ IntToStr(i) +'] = '+ dizi1);
}
}
}
void sure;
{
if(sayac1 == 0)
{
oyunzaman.Enabled = False;
lblTimer.caption = IntToStr(sayac1);
//sayac1=20; // GEREKLİ OLDUĞUNDA AÇILACAK.
ShowMessage('Süreniz Doldu!');
ShowMessage('Puanınız: ' + IntToStr(sayac));
}
else
{
lblTimer.caption=IntToStr(sayac1);
Dec(sayac1);
}
}
{
sayac=0;
sayac1=35;
AnaForm = TclForm.Create(Self);
oyunzaman=AnaForm.AddNewTimer(AnaForm,'oyunzaman',1000);
oyunzaman.Enabled=False;
AnaForm.AddNewEvent(oyunzaman,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.Visible=False;
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;
}