var

  Form1: TclForm;

  pnlOyun: TclProPanel;

  pnlKontrol: TclPanel;

  pnlUst: TclPanel;

  lblBaslik, lblPuan, lblCan, lblSure: TclLabel;

  nisangah: TclCircle;

  hedef1, hedef2, hedef3, hedef4, hedef5: TclProPanel;

  lbl1, lbl2, lbl3, lbl4, lbl5: TclLabel;

  btnSol, btnSag, btnYukari, btnAsagi, btnAtes: TclProButton;

  btnYeniOyun: TclProButton;

  tmrOyun, tmrHedef: TClTimer;

  nisX, nisY, puan, can, sure: Integer;

  oyunDevam: Boolean;

void NisanSola;

{

  if (nisX > 10) {

    nisX = nisX - 20;

    nisangah.Position.X = nisX;

  }

}

void NisanSaga;

{

  if (nisX < 620) {

    nisX = nisX + 20;

    nisangah.Position.X = nisX;

  }

}

void NisanYukari;

{

  if (nisY > 60) {

    nisY = nisY - 20;

    nisangah.Position.Y = nisY;

  }

}

void NisanAsagi;

{

  if (nisY < 420) {

    nisY = nisY + 20;

    nisangah.Position.Y = nisY;

  }

}

function CarpismaMi(hedef: TclProPanel): Boolean;

{

  Result = (nisX + 40 > hedef.Position.X) &&

           (nisX < hedef.Position.X + hedef.Width) &&

           (nisY + 40 > hedef.Position.Y) &&

           (nisY < hedef.Position.Y + hedef.Height);

}

void OyunBitti;

{

  oyunDevam = False;

  tmrOyun.Enabled = False;

  tmrHedef.Enabled = False;

  ShowMessage('OYUN BITTI! Toplam Puan: ' + IntToStr(puan));

}

void AtesEt;

var carpti: Boolean;

{

  if (oyunDevam == False) Exit;

  carpti = False;

  if (hedef1.Visible && CarpismaMi(hedef1)) {

    carpti = True; puan = puan + 10;

    hedef1.Visible = False;

    lblPuan.Text = 'Puan: ' + IntToStr(puan);

    ShowMessage('DOGRU! Su +10 Puan');

  }

  if (hedef2.Visible && CarpismaMi(hedef2)) {

    carpti = True; puan = puan + 10;

    hedef2.Visible = False;

    lblPuan.Text = 'Puan: ' + IntToStr(puan);

    ShowMessage('DOGRU! Ilk Yardim Kiti +10 Puan');

  }

  if (hedef3.Visible && CarpismaMi(hedef3)) {

    carpti = True; puan = puan + 10;

    hedef3.Visible = False;

    lblPuan.Text = 'Puan: ' + IntToStr(puan);

    ShowMessage('DOGRU! Fener +10 Puan');

  }

  if (hedef4.Visible && CarpismaMi(hedef4)) {

    carpti = True; can = can - 1;

    hedef4.Visible = False;

    lblCan.Text = 'Can: ' + IntToStr(can);

    ShowMessage('YANLIS! Oyun konsolu -1 Can');

    if (can <= 0) OyunBitti;

  }

  if (hedef5.Visible && CarpismaMi(hedef5)) {

    carpti = True; can = can - 1;

    hedef5.Visible = False;

    lblCan.Text = 'Can: ' + IntToStr(can);

    ShowMessage('YANLIS! Parfum -1 Can');

    if (can <= 0) OyunBitti;

  }

}

void HedefleriYerlestir;

{

  hedef1.Position.X = 50 + Random(500); hedef1.Position.Y = 80 + Random(300); hedef1.Visible = True;

  hedef2.Position.X = 50 + Random(500); hedef2.Position.Y = 80 + Random(300); hedef2.Visible = True;

  hedef3.Position.X = 50 + Random(500); hedef3.Position.Y = 80 + Random(300); hedef3.Visible = True;

  hedef4.Position.X = 50 + Random(500); hedef4.Position.Y = 80 + Random(300); hedef4.Visible = True;

  hedef5.Position.X = 50 + Random(500); hedef5.Position.Y = 80 + Random(300); hedef5.Visible = True;

}

void SureGuncelle;

{

  sure = sure - 1;

  lblSure.Text = 'Sure: ' + IntToStr(sure) + 's';

  if (sure <= 0) OyunBitti;

}

void HedefYenile;

{ HedefleriYerlestir; }

void YeniOyun;

{

  puan = 0; can = 3; sure = 60; oyunDevam = True;

  nisX = 310; nisY = 230;

  nisangah.Position.X = nisX; nisangah.Position.Y = nisY;

  lblPuan.Text = 'Puan: 0'; lblCan.Text = 'Can: 3'; lblSure.Text = 'Sure: 60s';

  HedefleriYerlestir;

  tmrOyun.Enabled = True; tmrHedef.Enabled = True;

}

{

  Form1 = TclForm.Create(Self);

  Form1.SetFormColor('#0f172a', '', clGNone);

  pnlOyun = Form1.AddNewProPanel(Form1, 'pnlOyun');

  pnlOyun.Align = alClient;

  pnlOyun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1e293b');

  pnlOyun.SetclProSettings(pnlOyun.clProSettings);

  pnlUst = Form1.AddNewPanel(pnlOyun, 'pnlUst');

  pnlUst.Align = alTop; pnlUst.Height = 60;

  lblBaslik = Form1.AddNewLabel(pnlUst, 'lblBaslik', 'DEPREM CANTASI - VURMA OYUNU');

  lblBaslik.Align = alLeft; lblBaslik.Width = 280;

  lblBaslik.StyledSettings = ssFamily;

  lblBaslik.TextSettings.Font.Size = 14;

  lblBaslik.TextSettings.FontColor = clAlphaColor.clHexToColor('#f59e0b');

  lblPuan = Form1.AddNewLabel(pnlUst, 'lblPuan', 'Puan: 0');

  lblPuan.Align = alRight; lblPuan.Width = 90;

  lblPuan.StyledSettings = ssFamily;

  lblPuan.TextSettings.Font.Size = 13;

  lblPuan.TextSettings.FontColor = clAlphaColor.clHexToColor('#10b981');

  lblCan = Form1.AddNewLabel(pnlUst, 'lblCan', 'Can: 3');

  lblCan.Align = alRight; lblCan.Width = 70;

  lblCan.StyledSettings = ssFamily;

  lblCan.TextSettings.Font.Size = 13;

  lblCan.TextSettings.FontColor = clAlphaColor.clHexToColor('#ef4444');

  lblSure = Form1.AddNewLabel(pnlUst, 'lblSure', 'Sure: 60s');

  lblSure.Align = alRight; lblSure.Width = 90;

  lblSure.StyledSettings = ssFamily;

  lblSure.TextSettings.Font.Size = 13;

  lblSure.TextSettings.FontColor = clAlphaColor.clHexToColor('#60a5fa');

  hedef1 = Form1.AddNewProPanel(pnlOyun, 'hedef1');

  hedef1.Align = alNone; hedef1.Width = 80; hedef1.Height = 70;

  hedef1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#14532d');

  hedef1.clProSettings.IsRound = True;

  hedef1.clProSettings.RoundHeight = 12; hedef1.clProSettings.RoundWidth = 12;

  hedef1.SetclProSettings(hedef1.clProSettings);

  lbl1 = Form1.AddNewLabel(hedef1, 'lbl1', 'Su');

  lbl1.Align = alClient; lbl1.StyledSettings = ssFamily;

  lbl1.TextSettings.Font.Size = 18;

  lbl1.TextSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  lbl1.HitTest = False;

  hedef2 = Form1.AddNewProPanel(pnlOyun, 'hedef2');

  hedef2.Align = alNone; hedef2.Width = 80; hedef2.Height = 70;

  hedef2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#14532d');

  hedef2.clProSettings.IsRound = True;

  hedef2.clProSettings.RoundHeight = 12; hedef2.clProSettings.RoundWidth = 12;

  hedef2.SetclProSettings(hedef2.clProSettings);

  lbl2 = Form1.AddNewLabel(hedef2, 'lbl2', 'Ilk Yardim');

  lbl2.Align = alClient; lbl2.StyledSettings = ssFamily;

  lbl2.TextSettings.Font.Size = 13;

  lbl2.TextSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  lbl2.HitTest = False;

  hedef3 = Form1.AddNewProPanel(pnlOyun, 'hedef3');

  hedef3.Align = alNone; hedef3.Width = 80; hedef3.Height = 70;

  hedef3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#14532d');

  hedef3.clProSettings.IsRound = True;

  hedef3.clProSettings.RoundHeight = 12; hedef3.clProSettings.RoundWidth = 12;

  hedef3.SetclProSettings(hedef3.clProSettings);

  lbl3 = Form1.AddNewLabel(hedef3, 'lbl3', 'Fener');

  lbl3.Align = alClient; lbl3.StyledSettings = ssFamily;

  lbl3.TextSettings.Font.Size = 15;

  lbl3.TextSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  lbl3.HitTest = False;

  hedef4 = Form1.AddNewProPanel(pnlOyun, 'hedef4');

  hedef4.Align = alNone; hedef4.Width = 80; hedef4.Height = 70;

  hedef4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f1d1d');

  hedef4.clProSettings.IsRound = True;

  hedef4.clProSettings.RoundHeight = 12; hedef4.clProSettings.RoundWidth = 12;

  hedef4.SetclProSettings(hedef4.clProSettings);

  lbl4 = Form1.AddNewLabel(hedef4, 'lbl4', 'Konsol');

  lbl4.Align = alClient; lbl4.StyledSettings = ssFamily;

  lbl4.TextSettings.Font.Size = 15;

  lbl4.TextSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  lbl4.HitTest = False;

  hedef5 = Form1.AddNewProPanel(pnlOyun, 'hedef5');

  hedef5.Align = alNone; hedef5.Width = 80; hedef5.Height = 70;

  hedef5.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f1d1d');

  hedef5.clProSettings.IsRound = True;

  hedef5.clProSettings.RoundHeight = 12; hedef5.clProSettings.RoundWidth = 12;

  hedef5.SetclProSettings(hedef5.clProSettings);

  lbl5 = Form1.AddNewLabel(hedef5, 'lbl5', 'Parfum');

  lbl5.Align = alClient; lbl5.StyledSettings = ssFamily;

  lbl5.TextSettings.Font.Size = 15;

  lbl5.TextSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  lbl5.HitTest = False;

  nisangah = Form1.AddNewCircle(pnlOyun, 'nisangah');

  nisangah.Align = alNone;

  nisangah.Position.X = 310; nisangah.Position.Y = 230;

  nisangah.Width = 50; nisangah.Height = 50;

  nisangah.Width = 50; nisangah.Height = 50;

  nisangah.Stroke.Thickness = 3;

  pnlKontrol = Form1.AddNewPanel(pnlOyun, 'pnlKontrol');

  pnlKontrol.Align = alBottom; pnlKontrol.Height = 170;

  btnSol = Form1.AddNewProButton(pnlKontrol, 'btnSol', '<');

  btnSol.Align = alNone; btnSol.Position.X = 10; btnSol.Position.Y = 45;

  btnSol.Width = 90; btnSol.Height = 70;

  btnSol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334155');

  btnSol.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnSol.clProSettings.FontSize = 22; btnSol.clProSettings.IsRound = True;

  btnSol.clProSettings.RoundHeight = 15; btnSol.clProSettings.RoundWidth = 15;

  btnSol.SetclProSettings(btnSol.clProSettings);

  Form1.AddNewEvent(btnSol, tbeOnClick, 'NisanSola');

  btnSag = Form1.AddNewProButton(pnlKontrol, 'btnSag', '>');

  btnSag.Align = alNone; btnSag.Position.X = 110; btnSag.Position.Y = 45;

  btnSag.Width = 90; btnSag.Height = 70;

  btnSag.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334155');

  btnSag.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnSag.clProSettings.FontSize = 22; btnSag.clProSettings.IsRound = True;

  btnSag.clProSettings.RoundHeight = 15; btnSag.clProSettings.RoundWidth = 15;

  btnSag.SetclProSettings(btnSag.clProSettings);

  Form1.AddNewEvent(btnSag, tbeOnClick, 'NisanSaga');

  btnYukari = Form1.AddNewProButton(pnlKontrol, 'btnYukari', '^');

  btnYukari.Align = alNone; btnYukari.Position.X = 60; btnYukari.Position.Y = 5;

  btnYukari.Width = 90; btnYukari.Height = 35;

  btnYukari.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334155');

  btnYukari.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnYukari.clProSettings.FontSize = 16; btnYukari.clProSettings.IsRound = True;

  btnYukari.clProSettings.RoundHeight = 10; btnYukari.clProSettings.RoundWidth = 10;

  btnYukari.SetclProSettings(btnYukari.clProSettings);

  Form1.AddNewEvent(btnYukari, tbeOnClick, 'NisanYukari');

  btnAsagi = Form1.AddNewProButton(pnlKontrol, 'btnAsagi', 'v');

  btnAsagi.Align = alNone; btnAsagi.Position.X = 60; btnAsagi.Position.Y = 120;

  btnAsagi.Width = 90; btnAsagi.Height = 35;

  btnAsagi.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#334155');

  btnAsagi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnAsagi.clProSettings.FontSize = 16; btnAsagi.clProSettings.IsRound = True;

  btnAsagi.clProSettings.RoundHeight = 10; btnAsagi.clProSettings.RoundWidth = 10;

  btnAsagi.SetclProSettings(btnAsagi.clProSettings);

  Form1.AddNewEvent(btnAsagi, tbeOnClick, 'NisanAsagi');

  btnAtes = Form1.AddNewProButton(pnlKontrol, 'btnAtes', 'ATES!');

  btnAtes.Align = alNone; btnAtes.Position.X = 230; btnAtes.Position.Y = 30;

  btnAtes.Width = 200; btnAtes.Height = 100;

  btnAtes.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#dc2626');

  btnAtes.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnAtes.clProSettings.FontSize = 24; btnAtes.clProSettings.IsRound = True;

  btnAtes.clProSettings.RoundHeight = 20; btnAtes.clProSettings.RoundWidth = 20;

  btnAtes.SetclProSettings(btnAtes.clProSettings);

  Form1.AddNewEvent(btnAtes, tbeOnClick, 'AtesEt');

  btnYeniOyun = Form1.AddNewProButton(pnlKontrol, 'btnYeniOyun', 'YENI OYUN');

  btnYeniOyun.Align = alNone; btnYeniOyun.Position.X = 480; btnYeniOyun.Position.Y = 50;

  btnYeniOyun.Width = 150; btnYeniOyun.Height = 60;

  btnYeniOyun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#0284c7');

  btnYeniOyun.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  btnYeniOyun.clProSettings.FontSize = 16; btnYeniOyun.clProSettings.IsRound = True;

  btnYeniOyun.clProSettings.RoundHeight = 15; btnYeniOyun.clProSettings.RoundWidth = 15;

  btnYeniOyun.SetclProSettings(btnYeniOyun.clProSettings);

  Form1.AddNewEvent(btnYeniOyun, tbeOnClick, 'YeniOyun');

  tmrOyun = Form1.AddNewTimer(Form1, 'tmrOyun', 1000);

  tmrOyun.Enabled = False;

  Form1.AddNewEvent(tmrOyun, tbeOnTimer, 'SureGuncelle');

  tmrHedef = Form1.AddNewTimer(Form1, 'tmrHedef', 3000);

  tmrHedef.Enabled = False;

  Form1.AddNewEvent(tmrHedef, tbeOnTimer, 'HedefYenile');

  YeniOyun;

  Form1.Run;

}

var

  Form1: TclForm;

  pnlOyun: TclProPanel;

  pnlKontrol: TclPanel;

  pnlUst: TclPanel;

 

  lblBaslik: TclLabel;

  lblPuan: TclLabel;

  lblCan: TclLabel;

  lblSure: TclLabel;

  nisangah: TclCircle;

  hedef1, hedef2, hedef3, hedef4, hedef5: TclProPanel;

  lbl1, lbl2, lbl3, lbl4, lbl5: TclLabel;

 

  btnSol, btnSag, btnYukari, btnAsagi, btnAtes: TclProButton;

  btnYeniOyun: TclProButton;

  tmrOyun: TClTimer;

  tmrHedef: TClTimer;

  nisX, nisY: Integer;

  puan, can, sure: Integer;

  oyunDevam: Boolean;

procedure NisanSola;

begin

  if nisX > 10 then

  begin

    nisX := nisX - 20;

    nisangah.Position.X := nisX;

  end;

end;

procedure NisanSaga;

begin

  if nisX < 620 then

  begin

    nisX := nisX + 20;

    nisangah.Position.X := nisX;

  end;

end;

procedure NisanYukari;

begin

  if nisY > 60 then

  begin

    nisY := nisY - 20;

    nisangah.Position.Y := nisY;

  end;

end;

procedure NisanAsagi;

begin

  if nisY < 420 then

  begin

    nisY := nisY + 20;

    nisangah.Position.Y := nisY;

  end;

end;

function CarpismaMi(hedef: TclProPanel): Boolean;

begin

  Result := False;

  if (nisX + 40 > hedef.Position.X) and

     (nisX < hedef.Position.X + hedef.Width) and

     (nisY + 40 > hedef.Position.Y) and

     (nisY < hedef.Position.Y + hedef.Height) then

  begin

    Result := True;

  end;

end;

procedure OyunBitti;

begin

  oyunDevam := False;

  tmrOyun.Enabled := False;

  tmrHedef.Enabled := False;

  ShowMessage('OYUN BITTI! Toplam Puan: ' + IntToStr(puan));

end;

procedure AtesEt;

var

  carpti: Boolean;

begin

  if oyunDevam = False then Exit;

  carpti := False;

  

  if hedef1.Visible and CarpismaMi(hedef1) then

  begin

    carpti := True;

    puan := puan + 10;

    hedef1.Visible := False;

    lblPuan.Text := 'Puan: ' + IntToStr(puan);

    ShowMessage('DOGRU! Su - Enkaz altinda hayat kurtarir! +10 Puan');

  end;

  

  if hedef2.Visible and CarpismaMi(hedef2) then

  begin

    carpti := True;

    puan := puan + 10;

    hedef2.Visible := False;

    lblPuan.Text := 'Puan: ' + IntToStr(puan);

    ShowMessage('DOGRU! Ilk Yardim Kiti - Yara sarmak icin sart! +10 Puan');

  end;

  

  if hedef3.Visible and CarpismaMi(hedef3) then

  begin

    carpti := True;

    puan := puan + 10;

    hedef3.Visible := False;

    lblPuan.Text := 'Puan: ' + IntToStr(puan);

    ShowMessage('DOGRU! Fener - Karanlikta yol bulmak icin gerekli! +10 Puan');

  end;

  

  if hedef4.Visible and CarpismaMi(hedef4) then

  begin

    carpti := True;

    can := can - 1;

    hedef4.Visible := False;

    lblCan.Text := 'Can: ' + IntToStr(can);

    ShowMessage('YANLIS! Oyun konsolu cantaya girmez! -1 Can');

    if can <= 0 then OyunBitti;

  end;

  if hedef5.Visible and CarpismaMi(hedef5) then

  begin

    carpti := True;

    can := can - 1;

    hedef5.Visible := False;

    lblCan.Text := 'Can: ' + IntToStr(can);

    ShowMessage('YANLIS! Parfum ise yaramaz! -1 Can');

    if can <= 0 then OyunBitti;

  end;

  if carpti = False then

  begin

  end;

end;

procedure HedefleriYerlestir;

begin

  hedef1.Position.X := 50 + Random(500);

  hedef1.Position.Y := 80 + Random(300);

  hedef1.Visible := True;

  hedef2.Position.X := 50 + Random(500);

  hedef2.Position.Y := 80 + Random(300);

  hedef2.Visible := True;

  hedef3.Position.X := 50 + Random(500);

  hedef3.Position.Y := 80 + Random(300);

  hedef3.Visible := True;

  hedef4.Position.X := 50 + Random(500);

  hedef4.Position.Y := 80 + Random(300);

  hedef4.Visible := True;

  hedef5.Position.X := 50 + Random(500);

  hedef5.Position.Y := 80 + Random(300);

  hedef5.Visible := True;

end;

procedure SureGuncelle;

begin

  sure := sure - 1;

  lblSure.Text := 'Sure: ' + IntToStr(sure) + 's';

  if sure <= 0 then OyunBitti;

end;

procedure HedefYenile;

begin

  HedefleriYerlestir;

end;

procedure YeniOyun;

begin

  puan := 0; can := 3; sure := 60;

  oyunDevam := True;

  nisX := 310; nisY := 230;

  nisangah.Position.X := nisX;

  nisangah.Position.Y := nisY;

  lblPuan.Text := 'Puan: 0';

  lblCan.Text := 'Can: 3';

  lblSure.Text := 'Sure: 60s';

  HedefleriYerlestir;

  tmrOyun.Enabled := True;

  tmrHedef.Enabled := True;

end;

{

  Form1 := TclForm.Create(Self);

  Form1.SetFormColor('#0f172a', '', clGNone);

 

 

  pnlOyun := Form1.AddNewProPanel(Form1, 'pnlOyun');

  pnlOyun.Align := alClient;

  pnlOyun.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#1e293b');

  pnlOyun.SetclProSettings(pnlOyun.clProSettings);

 

  pnlUst := Form1.AddNewPanel(pnlOyun, 'pnlUst');

  pnlUst.Align := alTop;

  pnlUst.Height := 60;

 

  lblBaslik := Form1.AddNewLabel(pnlUst, 'lblBaslik', 'DEPREM CANTASI - VURMA OYUNU');

  lblBaslik.Align := alLeft;

  lblBaslik.Width := 280;

  lblBaslik.StyledSettings := ssFamily;

  lblBaslik.TextSettings.Font.Size := 14;

  lblBaslik.TextSettings.FontColor := clAlphaColor.clHexToColor('#f59e0b');

  lblBaslik.TextSettings.VertAlign := taCenter;

 

  lblPuan := Form1.AddNewLabel(pnlUst, 'lblPuan', 'Puan: 0');

  lblPuan.Align := alRight;

  lblPuan.Width := 90;

  lblPuan.StyledSettings := ssFamily;

  lblPuan.TextSettings.Font.Size := 13;

  lblPuan.TextSettings.FontColor := clAlphaColor.clHexToColor('#10b981');

  lblPuan.TextSettings.HorzAlign := taCenter;

  lblPuan.TextSettings.VertAlign := taCenter;

 

  lblCan := Form1.AddNewLabel(pnlUst, 'lblCan', 'Can: 3');

  lblCan.Align := alRight;

  lblCan.Width := 70;

  lblCan.StyledSettings := ssFamily;

  lblCan.TextSettings.Font.Size := 13;

  lblCan.TextSettings.FontColor := clAlphaColor.clHexToColor('#ef4444');

  lblCan.TextSettings.HorzAlign := taCenter;

  lblCan.TextSettings.VertAlign := taCenter;

 

  lblSure := Form1.AddNewLabel(pnlUst, 'lblSure', 'Sure: 60s');

  lblSure.Align := alRight;

  lblSure.Width := 90;

  lblSure.StyledSettings := ssFamily;

  lblSure.TextSettings.Font.Size := 13;

  lblSure.TextSettings.FontColor := clAlphaColor.clHexToColor('#60a5fa');

  lblSure.TextSettings.HorzAlign := taCenter;

  lblSure.TextSettings.VertAlign := taCenter;

 

  hedef1 := Form1.AddNewProPanel(pnlOyun, 'hedef1');

  hedef1.Align := alNone;

  hedef1.Position.X := 80; hedef1.Position.Y := 120;

  hedef1.Width := 80; hedef1.Height := 70;

  hedef1.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#14532d');

  hedef1.clProSettings.IsRound := True;

  hedef1.clProSettings.RoundHeight := 12; hedef1.clProSettings.RoundWidth := 12;

  hedef1.SetclProSettings(hedef1.clProSettings);

  lbl1 := Form1.AddNewLabel(hedef1, 'lbl1', #128167 + #13 + 'Su');

  lbl1.Align := alClient;

  lbl1.StyledSettings := ssFamily;

  lbl1.TextSettings.Font.Size := 18;

  lbl1.TextSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  lbl1.TextSettings.HorzAlign := taCenter;

  lbl1.TextSettings.VertAlign := taCenter;

  lbl1.HitTest := False;

 

  hedef2 := Form1.AddNewProPanel(pnlOyun, 'hedef2');

  hedef2.Align := alNone;

  hedef2.Position.X := 200; hedef2.Position.Y := 180;

  hedef2.Width := 80; hedef2.Height := 70;

  hedef2.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#14532d');

  hedef2.clProSettings.IsRound := True;

  hedef2.clProSettings.RoundHeight := 12; hedef2.clProSettings.RoundWidth := 12;

  hedef2.SetclProSettings(hedef2.clProSettings);

  lbl2 := Form1.AddNewLabel(hedef2, 'lbl2', #129657 + #13 + 'Ilk Yardim');

  lbl2.Align := alClient;

  lbl2.StyledSettings := ssFamily;

  lbl2.TextSettings.Font.Size := 13;

  lbl2.TextSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  lbl2.TextSettings.HorzAlign := taCenter;

  lbl2.TextSettings.VertAlign := taCenter;

  lbl2.HitTest := False;

 

  hedef3 := Form1.AddNewProPanel(pnlOyun, 'hedef3');

  hedef3.Align := alNone;

  hedef3.Position.X := 380; hedef3.Position.Y := 150;

  hedef3.Width := 80; hedef3.Height := 70;

  hedef3.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#14532d');

  hedef3.clProSettings.IsRound := True;

  hedef3.clProSettings.RoundHeight := 12; hedef3.clProSettings.RoundWidth := 12;

  hedef3.SetclProSettings(hedef3.clProSettings);

  lbl3 := Form1.AddNewLabel(hedef3, 'lbl3', #128294 + #13 + 'Fener');

  lbl3.Align := alClient;

  lbl3.StyledSettings := ssFamily;

  lbl3.TextSettings.Font.Size := 15;

  lbl3.TextSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  lbl3.TextSettings.HorzAlign := taCenter;

  lbl3.TextSettings.VertAlign := taCenter;

  lbl3.HitTest := False;

 

  hedef4 := Form1.AddNewProPanel(pnlOyun, 'hedef4');

  hedef4.Align := alNone;

  hedef4.Position.X := 500; hedef4.Position.Y := 200;

  hedef4.Width := 80; hedef4.Height := 70;

  hedef4.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#7f1d1d');

  hedef4.clProSettings.IsRound := True;

  hedef4.clProSettings.RoundHeight := 12; hedef4.clProSettings.RoundWidth := 12;

  hedef4.SetclProSettings(hedef4.clProSettings);

  lbl4 := Form1.AddNewLabel(hedef4, 'lbl4', #127918 + #13 + 'Konsol');

  lbl4.Align := alClient;

  lbl4.StyledSettings := ssFamily;

  lbl4.TextSettings.Font.Size := 15;

  lbl4.TextSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  lbl4.TextSettings.HorzAlign := taCenter;

  lbl4.TextSettings.VertAlign := taCenter;

  lbl4.HitTest := False;

 

  hedef5 := Form1.AddNewProPanel(pnlOyun, 'hedef5');

  hedef5.Align := alNone;

  hedef5.Position.X := 300; hedef5.Position.Y := 280;

  hedef5.Width := 80; hedef5.Height := 70;

  hedef5.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#7f1d1d');

  hedef5.clProSettings.IsRound := True;

  hedef5.clProSettings.RoundHeight := 12; hedef5.clProSettings.RoundWidth := 12;

  hedef5.SetclProSettings(hedef5.clProSettings);

  lbl5 := Form1.AddNewLabel(hedef5, 'lbl5', #129349 + #13 + 'Parfum');

  lbl5.Align := alClient;

  lbl5.StyledSettings := ssFamily;

  lbl5.TextSettings.Font.Size := 15;

  lbl5.TextSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  lbl5.TextSettings.HorzAlign := taCenter;

  lbl5.TextSettings.VertAlign := taCenter;

  lbl5.HitTest := False;

 

  nisangah := Form1.AddNewCircle(pnlOyun, 'nisangah');

  nisangah.Align := alNone;

  nisangah.Position.X := 310;

  nisangah.Position.Y := 230;

  nisangah.Width := 50;

  nisangah.Height := 50;

  nisangah.Fill.Color := clAlphaColor.clHexToColor('#00000000'); 

  nisangah.Stroke.Color := clAlphaColor.clHexToColor('#f59e0b');

  nisangah.Stroke.Thickness := 3;

 

  pnlKontrol := Form1.AddNewPanel(pnlOyun, 'pnlKontrol');

  pnlKontrol.Align := alBottom;

  pnlKontrol.Height := 170;

 

  btnSol := Form1.AddNewProButton(pnlKontrol, 'btnSol', '<');

  btnSol.Align := alNone;

  btnSol.Position.X := 10; btnSol.Position.Y := 45;

  btnSol.Width := 90; btnSol.Height := 70;

  btnSol.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#334155');

  btnSol.clProSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  btnSol.clProSettings.FontSize := 22;

  btnSol.clProSettings.IsRound := True;

  btnSol.clProSettings.RoundHeight := 15; btnSol.clProSettings.RoundWidth := 15;

  btnSol.SetclProSettings(btnSol.clProSettings);

  Form1.AddNewEvent(btnSol, tbeOnClick, 'NisanSola');

 

  btnSag := Form1.AddNewProButton(pnlKontrol, 'btnSag', '>');

  btnSag.Align := alNone;

  btnSag.Position.X := 110; btnSag.Position.Y := 45;

  btnSag.Width := 90; btnSag.Height := 70;

  btnSag.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#334155');

  btnSag.clProSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  btnSag.clProSettings.FontSize := 22;

  btnSag.clProSettings.IsRound := True;

  btnSag.clProSettings.RoundHeight := 15; btnSag.clProSettings.RoundWidth := 15;

  btnSag.SetclProSettings(btnSag.clProSettings);

  Form1.AddNewEvent(btnSag, tbeOnClick, 'NisanSaga');

 

  btnYukari := Form1.AddNewProButton(pnlKontrol, 'btnYukari', '^');

  btnYukari.Align := alNone;

  btnYukari.Position.X := 60; btnYukari.Position.Y := 5;

  btnYukari.Width := 90; btnYukari.Height := 35;

  btnYukari.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#334155');

  btnYukari.clProSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  btnYukari.clProSettings.FontSize := 16;

  btnYukari.clProSettings.IsRound := True;

  btnYukari.clProSettings.RoundHeight := 10; btnYukari.clProSettings.RoundWidth := 10;

  btnYukari.SetclProSettings(btnYukari.clProSettings);

  Form1.AddNewEvent(btnYukari, tbeOnClick, 'NisanYukari');

 

  btnAsagi := Form1.AddNewProButton(pnlKontrol, 'btnAsagi', 'v');

  btnAsagi.Align := alNone;

  btnAsagi.Position.X := 60; btnAsagi.Position.Y := 120;

  btnAsagi.Width := 90; btnAsagi.Height := 35;

  btnAsagi.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#334155');

  btnAsagi.clProSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  btnAsagi.clProSettings.FontSize := 16;

  btnAsagi.clProSettings.IsRound := True;

  btnAsagi.clProSettings.RoundHeight := 10; btnAsagi.clProSettings.RoundWidth := 10;

  btnAsagi.SetclProSettings(btnAsagi.clProSettings);

  Form1.AddNewEvent(btnAsagi, tbeOnClick, 'NisanAsagi');

 

  btnAtes := Form1.AddNewProButton(pnlKontrol, 'btnAtes', 'ATES!');

  btnAtes.Align := alNone;

  btnAtes.Position.X := 230; btnAtes.Position.Y := 30;

  btnAtes.Width := 200; btnAtes.Height := 100;

  btnAtes.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#dc2626');

  btnAtes.clProSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  btnAtes.clProSettings.FontSize := 24;

  btnAtes.clProSettings.IsRound := True;

  btnAtes.clProSettings.RoundHeight := 20; btnAtes.clProSettings.RoundWidth := 20;

  btnAtes.SetclProSettings(btnAtes.clProSettings);

  Form1.AddNewEvent(btnAtes, tbeOnClick, 'AtesEt');

 

  btnYeniOyun := Form1.AddNewProButton(pnlKontrol, 'btnYeniOyun', 'YENI OYUN');

  btnYeniOyun.Align := alNone;

  btnYeniOyun.Position.X := 480; btnYeniOyun.Position.Y := 50;

  btnYeniOyun.Width := 150; btnYeniOyun.Height := 60;

  btnYeniOyun.clProSettings.BackgroundColor := clAlphaColor.clHexToColor('#0284c7');

  btnYeniOyun.clProSettings.FontColor := clAlphaColor.clHexToColor('#FFFFFF');

  btnYeniOyun.clProSettings.FontSize := 16;

  btnYeniOyun.clProSettings.IsRound := True;

  btnYeniOyun.clProSettings.RoundHeight := 15; btnYeniOyun.clProSettings.RoundWidth := 15;

  btnYeniOyun.SetclProSettings(btnYeniOyun.clProSettings);

  Form1.AddNewEvent(btnYeniOyun, tbeOnClick, 'YeniOyun');

 

  tmrOyun := Form1.AddNewTimer(Form1, 'tmrOyun', 1000);

  tmrOyun.Enabled := False;

  Form1.AddNewEvent(tmrOyun, tbeOnTimer, 'SureGuncelle');

 

  tmrHedef := Form1.AddNewTimer(Form1, 'tmrHedef', 3000);

  tmrHedef.Enabled := False;

  Form1.AddNewEvent(tmrHedef, tbeOnTimer, 'HedefYenile');

 

  YeniOyun;

}

Var

  anaForm : TclForm;

  edtUrunAdi, edtAdet, edtFiyat : TclEdit;

  lblUrunAdi, lblAdet, lblFiyat : TclLabel;

  btnEkle, btnGuncelle, btnSil : TclButton;

  stokListesi : TclProListView;

  tasarimPanel : TclProListViewDesignerPanel;

  

  MAIN_TEXT, SUB_TEXT : TclProLabel; 

  

  tumUrunlerJson : String; 

  butonPaneli, pnlUrunAdi, pnlAdet, pnlFiyat : TclPanel;

  seciliGuid : String;

  urunSayaci : Integer;

void VerileriYenile;

{

  stokListesi.clearList;

  

  if (tumUrunlerJson <> '')

  {

    stokListesi.clLoadProListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[' + tumUrunlerJson + ']'));

  }

}

void UrunEkle;

Var

  yeniUrunJson : String;

{

  if ((edtUrunAdi.Text == '') || (edtAdet.Text == '') || (edtFiyat.Text == ''))

  {

    ShowMessage('Lütfen tüm alanları doldurun!');

    exit;

  }

  

  urunSayaci = urunSayaci + 1;

  

  yeniUrunJson = '{"RECORD_GUID":"ID_' + IntToStr(urunSayaci) + 

                 '", "MAIN_TEXT":"' + edtUrunAdi.Text + 

                 '", "SUB_TEXT":"Adet: ' + edtAdet.Text + ' - Fiyat: ' + edtFiyat.Text + ' TL' +

                 '", "PRODUCT_QTY":"' + edtAdet.Text + 

                 '", "PRODUCT_PRICE":"' + edtFiyat.Text + '"}';

  

  if (tumUrunlerJson <> '') { tumUrunlerJson = tumUrunlerJson + ','; }

  tumUrunlerJson = tumUrunlerJson + yeniUrunJson;

  VerileriYenile;

  

  edtUrunAdi.Text = ''; edtAdet.Text = ''; edtFiyat.Text = '';

  seciliGuid = '';

}

void ListeTiklandi;

{

  seciliGuid = stokListesi.clSelectedItemData(clRecord_GUID);

}

void UrunSil;

Var

  GeciciDataset : TclMemTable;

  YeniJsonKatar : String;

{

  if (seciliGuid == '')

  {

    ShowMessage('Silmek için listeden bir ürün seçin!');

    exit;

  }

  

  GeciciDataset = Clomosy.ClDataSetFromJSON('[' + tumUrunlerJson + ']');

  YeniJsonKatar = '';

  GeciciDataset.First;

  while (not GeciciDataset.Eof)

  {

    if (GeciciDataset.FieldByName('RECORD_GUID').AsString <> seciliGuid)

    {

      if (YeniJsonKatar <> '') { YeniJsonKatar = YeniJsonKatar + ','; }

      

      YeniJsonKatar = YeniJsonKatar + '{"RECORD_GUID":"' + GeciciDataset.FieldByName('RECORD_GUID').AsString + 

                      '", "MAIN_TEXT":"' + GeciciDataset.FieldByName('MAIN_TEXT').AsString + 

                      '", "SUB_TEXT":"' + GeciciDataset.FieldByName('SUB_TEXT').AsString + 

                      '", "PRODUCT_QTY":"' + GeciciDataset.FieldByName('PRODUCT_QTY').AsString + 

                      '", "PRODUCT_PRICE":"' + GeciciDataset.FieldByName('PRODUCT_PRICE').AsString + '"}';

    }

    GeciciDataset.Next;

  }

  

  tumUrunlerJson = YeniJsonKatar;

  VerileriYenile;

  

  ShowMessage('Seçili ürün başarıyla listeden silindi.');

  seciliGuid = ''; 

}

void UrunDuzenle;

Var

  GeciciDataset : TclMemTable;

  YeniJsonKatar : String;

{

  if (seciliGuid == '')

  {

    ShowMessage('Düzenlemek için listeden bir ürün seçin!');

    exit;

  }

  

  GeciciDataset = Clomosy.ClDataSetFromJSON('[' + tumUrunlerJson + ']');

  YeniJsonKatar = '';

  GeciciDataset.First;

  while (not GeciciDataset.Eof)

  {

    if (GeciciDataset.FieldByName('RECORD_GUID').AsString == seciliGuid)

    {

      edtUrunAdi.Text = GeciciDataset.FieldByName('MAIN_TEXT').AsString;

      edtAdet.Text = GeciciDataset.FieldByName('PRODUCT_QTY').AsString;

      edtFiyat.Text = GeciciDataset.FieldByName('PRODUCT_PRICE').AsString;

    }

    else

    {

      if (YeniJsonKatar <> '') { YeniJsonKatar = YeniJsonKatar + ','; }

      

      YeniJsonKatar = YeniJsonKatar + '{"RECORD_GUID":"' + GeciciDataset.FieldByName('RECORD_GUID').AsString + 

                      '", "MAIN_TEXT":"' + GeciciDataset.FieldByName('MAIN_TEXT').AsString + 

                      '", "SUB_TEXT":"' + GeciciDataset.FieldByName('SUB_TEXT').AsString + 

                      '", "PRODUCT_QTY":"' + GeciciDataset.FieldByName('PRODUCT_QTY').AsString + 

                      '", "PRODUCT_PRICE":"' + GeciciDataset.FieldByName('PRODUCT_PRICE').AsString + '"}';

    }

    GeciciDataset.Next;

  }

  

  tumUrunlerJson = YeniJsonKatar;

  VerileriYenile;

  

  ShowMessage('Ürün bilgileri yukarı taşındı. Düzenleyip tekrar Ekle butonuna basabilirsiniz.');

  seciliGuid = '';

}

{

  anaForm = TclForm.Create(Self);

  tumUrunlerJson = '';

  seciliGuid = ''; 

  urunSayaci = 0;

  butonPaneli = anaForm.AddNewPanel(anaForm, 'butonPaneli');

  butonPaneli.Align = alTop;

  butonPaneli.Height = 45;

  butonPaneli.Margins.Top = 5;

  btnEkle = anaForm.AddNewButton(butonPaneli, 'btnEkle', 'Ekle');

  btnEkle.Align = alLeft; btnEkle.Width = 100;

  anaForm.AddNewEvent(btnEkle, tbeOnClick, 'UrunEkle');

  btnGuncelle = anaForm.AddNewButton(butonPaneli, 'btnGuncelle', 'Düzenle');

  btnGuncelle.Align = alLeft; btnGuncelle.Width = 100;

  anaForm.AddNewEvent(btnGuncelle, tbeOnClick, 'UrunDuzenle');

  btnSil = anaForm.AddNewButton(butonPaneli, 'btnSil', 'Sil');

  btnSil.Align = alLeft; btnSil.Width = 100;

  anaForm.AddNewEvent(btnSil, tbeOnClick, 'UrunSil');

  pnlUrunAdi = anaForm.AddNewPanel(anaForm, 'pnlUrunAdi');

  pnlUrunAdi.Align = alTop; pnlUrunAdi.Height = 40; pnlUrunAdi.Margins.Top = 5;

  

  lblUrunAdi = anaForm.AddNewLabel(pnlUrunAdi, 'lblUrunAdi', 'Ürün Adı:');

  lblUrunAdi.Align = alLeft; lblUrunAdi.Width = 80;

  edtUrunAdi = anaForm.AddNewEdit(pnlUrunAdi, 'edtUrunAdi', 'Ürün adı...');

  edtUrunAdi.Align = alClient;

  pnlAdet = anaForm.AddNewPanel(anaForm, 'pnlAdet');

  pnlAdet.Align = alTop; pnlAdet.Height = 40; pnlAdet.Margins.Top = 5;

  

  lblAdet = anaForm.AddNewLabel(pnlAdet, 'lblAdet', 'Adet:');

  lblAdet.Align = alLeft; lblAdet.Width = 80;

  edtAdet = anaForm.AddNewEdit(pnlAdet, 'edtAdet', 'Adet...');

  edtAdet.Align = alClient;

  pnlFiyat = anaForm.AddNewPanel(anaForm, 'pnlFiyat');

  pnlFiyat.Align = alTop; pnlFiyat.Height = 40; pnlFiyat.Margins.Top = 5;

  

  lblFiyat = anaForm.AddNewLabel(pnlFiyat, 'lblFiyat', 'Fiyat:');

  lblFiyat.Align = alLeft; lblFiyat.Width = 80;

  edtFiyat = anaForm.AddNewEdit(pnlFiyat, 'edtFiyat', 'Fiyat...');

  edtFiyat.Align = alClient;

  stokListesi = anaForm.AddNewProListView(anaForm, 'stokListesi');

  stokListesi.Align = alClient;

  stokListesi.Margins.Top = 10;

  stokListesi.clProSettings.ViewType = lvList;

  stokListesi.clProSettings.ItemHeight = 75; 

  stokListesi.SetclProSettings(stokListesi.clProSettings);

  tasarimPanel = anaForm.AddNewProListViewDesignerPanel(stokListesi, 'tasarimPanel');

  tasarimPanel.Height = 75;

  stokListesi.SetDesignerPanel(tasarimPanel);

  MAIN_TEXT = anaForm.AddNewProLabel(tasarimPanel, 'MAIN_TEXT', '');

  MAIN_TEXT.Align = alTop;

  MAIN_TEXT.Height = 30;

  MAIN_TEXT.Margins.Left = 15;

  MAIN_TEXT.Margins.Top = 5;

  MAIN_TEXT.clProSettings.FontSize = 16;

  MAIN_TEXT.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  MAIN_TEXT.clProSettings.TextSettings.Font.Style = [fsBold];

  MAIN_TEXT.SetclProSettings(MAIN_TEXT.clProSettings);

  tasarimPanel.AddPanelObject(MAIN_TEXT, clCaption);

  SUB_TEXT = anaForm.AddNewProLabel(tasarimPanel, 'SUB_TEXT', '');

  SUB_TEXT.Align = alTop;

  SUB_TEXT.Height = 30;

  SUB_TEXT.Margins.Left = 15;

  SUB_TEXT.Margins.Top = 2;

  SUB_TEXT.clProSettings.FontSize = 13;

  SUB_TEXT.clProSettings.FontColor = clAlphaColor.clHexToColor('#555555');

  SUB_TEXT.SetclProSettings(SUB_TEXT.clProSettings);

  tasarimPanel.AddPanelObject(SUB_TEXT, clText);

  

  anaForm.AddNewEvent(stokListesi, tbeOnItemClick, 'ListeTiklandi');

  anaForm.Run;

}

kod:

var

Form1: TclForm;

// --- GİRİŞ EKRANI BİLEŞENLERİ ---

PnlGiris: TclProPanel;

ImgGirisLogo: TclProImage;

LblGirisBaslik, LblKullanici, LblSifre, LblGirisHata: TclProLabel;

EdtKullanici, EdtSifre: TclProEdit;

BtnGirisYap: TclProButton;

// --- DENEY EKRANI BİLEŞENLERİ ---

PnlDeney: TclProPanel;

PnlUst, PnlIndikator, PnlMaddeler: TclProPanel;

LblBaslik, LblIndikatorDurum, LblSonuc: TclProLabel;

// Maddelerin Satır Panelleri (Resim ve Butonları Yan Yana Tutmak İçin)

PnlLimonRow, PnlSirkeRow, PnlTuzRuhuRow, PnlDisMacunuRow, PnlKarbonatRow, PnlSabunRow: TclProPanel;

// Madde Butonları

BtnLimon, BtnSirke, BtnTuzRuhu, BtnDisMacunu, BtnKarbonat, BtnSabun: TclProButton;

// Madde Görselleri

ImgLimon, ImgSirke, ImgTuzRuhu, ImgDisMacunu, ImgKarbonat, ImgSabun: TclProImage;

/* STREAMING_CHUNK: GİRİŞ YAPMA VE SİSTEM DOĞRULAMA FONKSİYONU */

void OnGirisYap;

{

// Kullanıcı adı ve şifre kontrolü

if ((EdtKullanici.Text == 'ogrenci') && (EdtSifre.Text == '1234'))

{

PnlGiris.Visible = False;

PnlDeney.Visible = True;

}

else

{

LblGirisHata.Text = 'Hatalı Giriş! (Kullanıcı: ogrenci, Şifre: 1234)';

LblGirisHata.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C');

LblGirisHata.SetclProSettings(LblGirisHata.clProSettings);

}

}

/* STREAMING_CHUNK: REAKSİYON VE RENK DEĞİŞİM FONKSİYONU */

void OnMaddeEklendi;

var

SecilenMadde: TclProButton;

{

SecilenMadde = TclProButton(Form1.clSender);

// EĞER SEÇİLEN MADDE ASİT İSE (Etiketi 1 ise)

if (SecilenMadde.clTagInt == 1)

{

PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E84393'); // Pembe/Kırmızı Tonu

LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi';

LblSonuc.Text = 'SONUÇ: Asit algılandı! Kırmızı lahana suyu kırmızı/pembe renge dönüştü.';

LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#E84393');

}

// EĞER SEÇİLEN MADDE BAZ İSE (Etiketi 2 ise)

else if (SecilenMadde.clTagInt == 2)

{

PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00B894'); // Yeşil/Mavi Tonu

LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi';

LblSonuc.Text = 'SONUÇ: Baz algılandı! Kırmızı lahana suyu mavi/yeşil renge dönüştü.';

LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#00B894');

}

PnlIndikator.SetclProSettings(PnlIndikator.clProSettings);

LblSonuc.SetclProSettings(LblSonuc.clProSettings);

}

{

Form1 = TclForm.Create(Self);

Form1.SetFormColor('#1E272E', '', clGNone);

/* STREAMING_CHUNK: GİRİŞ EKRANI PANEL VE LOGO YAPILANDIRMASI */

PnlGiris = Form1.AddNewProPanel(Form1, 'PnlGiris');

PnlGiris.Align = alClient;

PnlGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E');

PnlGiris.SetclProSettings(PnlGiris.clProSettings);

// Kimya Laboratuvarı Logo Görseli

ImgGirisLogo = Form1.AddNewProImage(PnlGiris, 'ImgGirisLogo');

ImgGirisLogo.Align = alTop;

ImgGirisLogo.Height = 130;

ImgGirisLogo.Margins.Top = 40;

ImgGirisLogo.Margins.Left = 80;

ImgGirisLogo.Margins.Right = 80;

//Form1.SetImage(ImgGirisLogo, 'https://images.unsplash.com/photo-1507413245164-6160d8298b31?w=250&fit=crop&q=80');

LblGirisBaslik = Form1.AddNewProLabel(PnlGiris, 'LblGirisBaslik', 'Sanal Kimya Portalı');

LblGirisBaslik.Align = alTop;

LblGirisBaslik.Height = 40;

LblGirisBaslik.Margins.Top = 15;

LblGirisBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

LblGirisBaslik.clProSettings.FontSize = 20;

LblGirisBaslik.clProSettings.FontHorzAlign = palCenter;

LblGirisBaslik.clProSettings.TextSettings.Font.Style = [fsBold];

LblGirisBaslik.SetclProSettings(LblGirisBaslik.clProSettings);

/* STREAMING_CHUNK: GİRİŞ BİLGİLERİ GİRİŞ ALANLARI */

// Kullanıcı Adı Girişi

LblKullanici = Form1.AddNewProLabel(PnlGiris, 'LblKullanici', 'Kullanıcı Adı: (ogrenci)');

LblKullanici.Align = alTop; LblKullanici.Height = 20; LblKullanici.Margins.Left = 40; LblKullanici.Margins.Top = 20;

LblKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E');

LblKullanici.SetclProSettings(LblKullanici.clProSettings);

// Edit kutuları için 3 parametreli güvenli metod kullanılmıştır

EdtKullanici = Form1.AddNewProEdit(PnlGiris, 'EdtKullanici', 'Kullanıcı adınızı yazınız...');

EdtKullanici.Align = alTop; EdtKullanici.Height = 40; EdtKullanici.Margins.Left = 40; EdtKullanici.Margins.Right = 40;

EdtKullanici.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640');

EdtKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

EdtKullanici.clProSettings.RoundHeight = 10; EdtKullanici.clProSettings.RoundWidth = 10;

EdtKullanici.SetclProSettings(EdtKullanici.clProSettings);

// Şifre Girişi

LblSifre = Form1.AddNewProLabel(PnlGiris, 'LblSifre', 'Şifre: (1234)');

LblSifre.Align = alTop; LblSifre.Height = 20; LblSifre.Margins.Left = 40; LblSifre.Margins.Top = 10;

LblSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E');

LblSifre.SetclProSettings(LblSifre.clProSettings);

EdtSifre = Form1.AddNewProEdit(PnlGiris, 'EdtSifre', 'Şifrenizi yazınız...');

EdtSifre.Align = alTop; EdtSifre.Height = 40; EdtSifre.Margins.Left = 40; EdtSifre.Margins.Right = 40;

EdtSifre.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640');

EdtSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

EdtSifre.clProSettings.RoundHeight = 10; EdtSifre.clProSettings.RoundWidth = 10;

EdtSifre.Password = True;

EdtSifre.SetclProSettings(EdtSifre.clProSettings);

// Hata Mesajı Alanı

LblGirisHata = Form1.AddNewProLabel(PnlGiris, 'LblGirisHata', '');

LblGirisHata.Align = alTop; LblGirisHata.Height = 25; LblGirisHata.Margins.Top = 10;

LblGirisHata.clProSettings.FontHorzAlign = palCenter;

LblGirisHata.clProSettings.FontSize = 11;

LblGirisHata.SetclProSettings(LblGirisHata.clProSettings);

// Giriş Butonu

BtnGirisYap = Form1.AddNewProButton(PnlGiris, 'BtnGirisYap', 'Sisteme Bağlan 🧪');

BtnGirisYap.Align = alTop; BtnGirisYap.Height = 45; BtnGirisYap.Margins.Left = 40; BtnGirisYap.Margins.Right = 40; BtnGirisYap.Margins.Top = 5;

BtnGirisYap.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD');

BtnGirisYap.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnGirisYap.clProSettings.RoundHeight = 12; BtnGirisYap.clProSettings.RoundWidth = 12;

BtnGirisYap.clProSettings.TextSettings.Font.Style = [fsBold];

BtnGirisYap.SetclProSettings(BtnGirisYap.clProSettings);

Form1.AddNewEvent(BtnGirisYap, tbeOnClick, 'OnGirisYap');

/* STREAMING_CHUNK: DENEY EKRANI ANA PANEL YAPILANDIRMASI */

PnlDeney = Form1.AddNewProPanel(Form1, 'PnlDeney');

PnlDeney.Align = alClient;

PnlDeney.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E');

PnlDeney.SetclProSettings(PnlDeney.clProSettings);

PnlDeney.Visible = False; // Giriş yapılmadan önce gizlenir

// --- ÜST BAŞLIK ---

PnlUst = Form1.AddNewProPanel(PnlDeney, 'PnlUst');

PnlUst.Align = alTop; PnlUst.Height = 55;

PnlUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640');

PnlUst.SetclProSettings(PnlUst.clProSettings);

LblBaslik = Form1.AddNewProLabel(PnlUst, 'LblBaslik', '🧪 Doğal İndikatör Deneyi');

LblBaslik.Align = alClient; LblBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

LblBaslik.clProSettings.FontSize = 16; LblBaslik.clProSettings.FontHorzAlign = palCenter;

LblBaslik.clProSettings.TextSettings.Font.Style = [fsBold];

LblBaslik.SetclProSettings(LblBaslik.clProSettings);

// --- İNDİKATÖR KABI (Kırmızı Lahana Suyu) ---

PnlIndikator = Form1.AddNewProPanel(PnlDeney, 'PnlIndikator');

PnlIndikator.Align = alTop; PnlIndikator.Height = 120;

PnlIndikator.Margins.Top = 15; PnlIndikator.Margins.Left = 40; PnlIndikator.Margins.Right = 40;

PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); // Doğal Mor

PnlIndikator.clProSettings.RoundHeight = 20; PnlIndikator.clProSettings.RoundWidth = 20;

PnlIndikator.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF'); PnlIndikator.clProSettings.BorderWidth = 2;

PnlIndikator.SetclProSettings(PnlIndikator.clProSettings);

LblIndikatorDurum = Form1.AddNewProLabel(PnlIndikator, 'LblIndikatorDurum', 'Saf Kırmızı Lahana Suyu (pH 7)');

LblIndikatorDurum.Align = alClient; LblIndikatorDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

LblIndikatorDurum.clProSettings.FontSize = 14; LblIndikatorDurum.clProSettings.FontHorzAlign = palCenter;

LblIndikatorDurum.SetclProSettings(LblIndikatorDurum.clProSettings);

// --- SONUÇ BİLGİ EKRANI ---

LblSonuc = Form1.AddNewProLabel(PnlDeney, 'LblSonuc', 'Aşağıdaki raf görsellerine dokunarak madde ekleyin.');

LblSonuc.Align = alTop; LblSonuc.Height = 50;

LblSonuc.Margins.Top = 10; LblSonuc.Margins.Left = 20; LblSonuc.Margins.Right = 20;

LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#DCDDE1');

LblSonuc.clProSettings.FontSize = 12; LblSonuc.clProSettings.FontHorzAlign = palCenter;

LblSonuc.clProSettings.TextSettings.WordWrap = True;

LblSonuc.SetclProSettings(LblSonuc.clProSettings);

// --- MADDELER PANELİ (KAYDIRILABİLİR İÇERİK RAFİ) ---

PnlMaddeler = Form1.AddNewProPanel(PnlDeney, 'PnlMaddeler');

PnlMaddeler.Align = alClient; PnlMaddeler.Margins.Top = 5;

PnlMaddeler.clProSettings.BackgroundColor = clAlphaColor.clNull;

PnlMaddeler.SetclProSettings(PnlMaddeler.clProSettings);

/* STREAMING_CHUNK: ASİT MATERYALLERİ VE GÖRSELLERİ */

// --- 1. LİMON SUYU SATIRI ---

PnlLimonRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlLimonRow');

PnlLimonRow.Align = alTop; PnlLimonRow.Height = 50; PnlLimonRow.Margins.Bottom = 8; PnlLimonRow.Margins.Left = 20; PnlLimonRow.Margins.Right = 20;

PnlLimonRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlLimonRow.SetclProSettings(PnlLimonRow.clProSettings);

ImgLimon = Form1.AddNewProImage(PnlLimonRow, 'ImgLimon');

ImgLimon.Align = alLeft; ImgLimon.Width = 50; ImgLimon.Margins.Right = 10;

//Form1.SetImage(ImgLimon, 'https://images.unsplash.com/photo-1590502593747-42a996133562?w=80&fit=crop&q=60');

BtnLimon = Form1.AddNewProButton(PnlLimonRow, 'BtnLimon', '🍋 Limon Suyu (Asit)');

BtnLimon.Align = alClient;

BtnLimon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1C40F'); BtnLimon.clProSettings.RoundHeight = 10; BtnLimon.clProSettings.RoundWidth = 10;

BtnLimon.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50');

BtnLimon.SetclProSettings(BtnLimon.clProSettings); BtnLimon.clTagInt = 1;

Form1.AddNewEvent(BtnLimon, tbeOnClick, 'OnMaddeEklendi');

// --- 2. SİRKE SATIRI ---

PnlSirkeRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSirkeRow');

PnlSirkeRow.Align = alTop; PnlSirkeRow.Height = 50; PnlSirkeRow.Margins.Bottom = 8; PnlSirkeRow.Margins.Left = 20; PnlSirkeRow.Margins.Right = 20;

PnlSirkeRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSirkeRow.SetclProSettings(PnlSirkeRow.clProSettings);

ImgSirke = Form1.AddNewProImage(PnlSirkeRow, 'ImgSirke');

ImgSirke.Align = alLeft; ImgSirke.Width = 50; ImgSirke.Margins.Right = 10;

//Form1.SetImage(ImgSirke, 'https://images.unsplash.com/photo-1622484211148-716598e04141?w=80&fit=crop&q=60');

BtnSirke = Form1.AddNewProButton(PnlSirkeRow, 'BtnSirke', '🍾 Sirke (Asit)');

BtnSirke.Align = alClient;

BtnSirke.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E67E22'); BtnSirke.clProSettings.RoundHeight = 10; BtnSirke.clProSettings.RoundWidth = 10;

BtnSirke.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50');

BtnSirke.SetclProSettings(BtnSirke.clProSettings); BtnSirke.clTagInt = 1;

Form1.AddNewEvent(BtnSirke, tbeOnClick, 'OnMaddeEklendi');

// --- 3. TUZ RUHU SATIRI ---

PnlTuzRuhuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlTuzRuhuRow');

PnlTuzRuhuRow.Align = alTop; PnlTuzRuhuRow.Height = 50; PnlTuzRuhuRow.Margins.Bottom = 15; PnlTuzRuhuRow.Margins.Left = 20; PnlTuzRuhuRow.Margins.Right = 20;

PnlTuzRuhuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlTuzRuhuRow.SetclProSettings(PnlTuzRuhuRow.clProSettings);

ImgTuzRuhu = Form1.AddNewProImage(PnlTuzRuhuRow, 'ImgTuzRuhu');

ImgTuzRuhu.Align = alLeft; ImgTuzRuhu.Width = 50; ImgTuzRuhu.Margins.Right = 10;

//Form1.SetImage(ImgTuzRuhu, 'https://images.unsplash.com/photo-1603126857599-f6e157fa2fe6?w=80&fit=crop&q=60');

BtnTuzRuhu = Form1.AddNewProButton(PnlTuzRuhuRow, 'BtnTuzRuhu', '☠️ Tuz Ruhu (Kuvvetli Asit)');

BtnTuzRuhu.Align = alClient;

BtnTuzRuhu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); BtnTuzRuhu.clProSettings.RoundHeight = 10; BtnTuzRuhu.clProSettings.RoundWidth = 10;

BtnTuzRuhu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnTuzRuhu.SetclProSettings(BtnTuzRuhu.clProSettings); BtnTuzRuhu.clTagInt = 1;

Form1.AddNewEvent(BtnTuzRuhu, tbeOnClick, 'OnMaddeEklendi');

/* STREAMING_CHUNK: BAZ MATERYALLERİ VE GÖRSELLERİ */

// --- 4. DİŞ MACUNU SATIRI ---

PnlDisMacunuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlDisMacunuRow');

PnlDisMacunuRow.Align = alTop; PnlDisMacunuRow.Height = 50; PnlDisMacunuRow.Margins.Bottom = 8; PnlDisMacunuRow.Margins.Left = 20; PnlDisMacunuRow.Margins.Right = 20;

PnlDisMacunuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlDisMacunuRow.SetclProSettings(PnlDisMacunuRow.clProSettings);

ImgDisMacunu = Form1.AddNewProImage(PnlDisMacunuRow, 'ImgDisMacunu');

ImgDisMacunu.Align = alLeft; ImgDisMacunu.Width = 50; ImgDisMacunu.Margins.Right = 10;

//Form1.SetImage(ImgDisMacunu, 'https://images.unsplash.com/photo-1559599189-fe84dea4eb79?w=80&fit=crop&q=60');

BtnDisMacunu = Form1.AddNewProButton(PnlDisMacunuRow, 'BtnDisMacunu', '🪥 Diş Macunu (Baz)');

BtnDisMacunu.Align = alClient;

BtnDisMacunu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498DB'); BtnDisMacunu.clProSettings.RoundHeight = 10; BtnDisMacunu.clProSettings.RoundWidth = 10;

BtnDisMacunu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnDisMacunu.SetclProSettings(BtnDisMacunu.clProSettings); BtnDisMacunu.clTagInt = 2;

Form1.AddNewEvent(BtnDisMacunu, tbeOnClick, 'OnMaddeEklendi');

// --- 5. KARBONAT SATIRI ---

PnlKarbonatRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlKarbonatRow');

PnlKarbonatRow.Align = alTop; PnlKarbonatRow.Height = 50; PnlKarbonatRow.Margins.Bottom = 8; PnlKarbonatRow.Margins.Left = 20; PnlKarbonatRow.Margins.Right = 20;

PnlKarbonatRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlKarbonatRow.SetclProSettings(PnlKarbonatRow.clProSettings);

ImgKarbonat = Form1.AddNewProImage(PnlKarbonatRow, 'ImgKarbonat');

ImgKarbonat.Align = alLeft; ImgKarbonat.Width = 50; ImgKarbonat.Margins.Right = 10;

//Form1.SetImage(ImgKarbonat, 'https://images.unsplash.com/photo-1553530666-ba11a7da3888?w=80&fit=crop&q=60');

BtnKarbonat = Form1.AddNewProButton(PnlKarbonatRow, 'BtnKarbonat', '🫧 Karbonatlı Su (Baz)');

BtnKarbonat.Align = alClient;

BtnKarbonat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#9B59B6'); BtnKarbonat.clProSettings.RoundHeight = 10; BtnKarbonat.clProSettings.RoundWidth = 10;

BtnKarbonat.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnKarbonat.SetclProSettings(BtnKarbonat.clProSettings); BtnKarbonat.clTagInt = 2;

Form1.AddNewEvent(BtnKarbonat, tbeOnClick, 'OnMaddeEklendi');

// --- 6. SABUNLU SU SATIRI ---

PnlSabunRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSabunRow');

PnlSabunRow.Align = alTop; PnlSabunRow.Height = 50; PnlSabunRow.Margins.Bottom = 8; PnlSabunRow.Margins.Left = 20; PnlSabunRow.Margins.Right = 20;

PnlSabunRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSabunRow.SetclProSettings(PnlSabunRow.clProSettings);

ImgSabun = Form1.AddNewProImage(PnlSabunRow, 'ImgSabun');

ImgSabun.Align = alLeft; ImgSabun.Width = 50; ImgSabun.Margins.Right = 10;

//Form1.SetImage(ImgSabun, 'https://images.unsplash.com/photo-1607006342411-9c145e227b47?w=80&fit=crop&q=60');

BtnSabun = Form1.AddNewProButton(PnlSabunRow, 'BtnSabun', '🧼 Sabunlu Su (Baz)');

BtnSabun.Align = alClient;

BtnSabun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1ABC9C'); BtnSabun.clProSettings.RoundHeight = 10; BtnSabun.clProSettings.RoundWidth = 10;

BtnSabun.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnSabun.SetclProSettings(BtnSabun.clProSettings); BtnSabun.clTagInt = 2;

Form1.AddNewEvent(BtnSabun, tbeOnClick, 'OnMaddeEklendi');

Form1.Run;

}

var

Form1: TclForm;

// --- GİRİŞ EKRANI BİLEŞENLERİ ---

PnlGiris: TclProPanel;

ImgGirisLogo: TclProImage;

LblGirisBaslik, LblKullanici, LblSifre, LblGirisHata: TclProLabel;

EdtKullanici, EdtSifre: TclProEdit;

BtnGirisYap: TclProButton;

// --- DENEY EKRANI BİLEŞENLERİ ---

PnlDeney: TclProPanel;

PnlUst, PnlIndikator, PnlMaddeler: TclProPanel;

LblBaslik, LblIndikatorDurum, LblSonuc: TclProLabel;

// Maddelerin Satır Panelleri (Resim ve Butonları Yan Yana Tutmak İçin)

PnlLimonRow, PnlSirkeRow, PnlTuzRuhuRow, PnlDisMacunuRow, PnlKarbonatRow, PnlSabunRow: TclProPanel;

// Madde Butonları

BtnLimon, BtnSirke, BtnTuzRuhu, BtnDisMacunu, BtnKarbonat, BtnSabun: TclProButton;

// Madde Görselleri

ImgLimon, ImgSirke, ImgTuzRuhu, ImgDisMacunu, ImgKarbonat, ImgSabun: TclProImage;

/* STREAMING_CHUNK: GİRİŞ YAPMA VE SİSTEM DOĞRULAMA FONKSİYONU */

void OnGirisYap;

{

// Kullanıcı adı ve şifre kontrolü

if ((EdtKullanici.Text == 'ogrenci') && (EdtSifre.Text == '1234'))

{

PnlGiris.Visible = False;

PnlDeney.Visible = True;

}

else

{

LblGirisHata.Text = 'Hatalı Giriş! (Kullanıcı: ogrenci, Şifre: 1234)';

LblGirisHata.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C');

LblGirisHata.SetclProSettings(LblGirisHata.clProSettings);

}

}

/* STREAMING_CHUNK: REAKSİYON VE RENK DEĞİŞİM FONKSİYONU */

void OnMaddeEklendi;

var

SecilenMadde: TclProButton;

{

SecilenMadde = TclProButton(Form1.clSender);

// EĞER SEÇİLEN MADDE ASİT İSE (Etiketi 1 ise)

if (SecilenMadde.clTagInt == 1)

{

PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E84393'); // Pembe/Kırmızı Tonu

LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi';

LblSonuc.Text = 'SONUÇ: Asit algılandı! Kırmızı lahana suyu kırmızı/pembe renge dönüştü.';

LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#E84393');

}

// EĞER SEÇİLEN MADDE BAZ İSE (Etiketi 2 ise)

else if (SecilenMadde.clTagInt == 2)

{

PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00B894'); // Yeşil/Mavi Tonu

LblIndikatorDurum.Text = SecilenMadde.Text + ' Eklendi';

LblSonuc.Text = 'SONUÇ: Baz algılandı! Kırmızı lahana suyu mavi/yeşil renge dönüştü.';

LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#00B894');

}

PnlIndikator.SetclProSettings(PnlIndikator.clProSettings);

LblSonuc.SetclProSettings(LblSonuc.clProSettings);

}

{

Form1 = TclForm.Create(Self);

Form1.SetFormColor('#1E272E', '', clGNone);

/* STREAMING_CHUNK: GİRİŞ EKRANI PANEL VE LOGO YAPILANDIRMASI */

PnlGiris = Form1.AddNewProPanel(Form1, 'PnlGiris');

PnlGiris.Align = alClient;

PnlGiris.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E');

PnlGiris.SetclProSettings(PnlGiris.clProSettings);

// Kimya Laboratuvarı Logo Görseli

ImgGirisLogo = Form1.AddNewProImage(PnlGiris, 'ImgGirisLogo');

ImgGirisLogo.Align = alTop;

ImgGirisLogo.Height = 130;

ImgGirisLogo.Margins.Top = 40;

ImgGirisLogo.Margins.Left = 80;

ImgGirisLogo.Margins.Right = 80;

Form1.SetImage(ImgGirisLogo, 'https://images.unsplash.com/photo-1507413245164-6160d8298b31?w=250&fit=crop&q=80');

LblGirisBaslik = Form1.AddNewProLabel(PnlGiris, 'LblGirisBaslik', 'Sanal Kimya Portalı');

LblGirisBaslik.Align = alTop;

LblGirisBaslik.Height = 40;

LblGirisBaslik.Margins.Top = 15;

LblGirisBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

LblGirisBaslik.clProSettings.FontSize = 20;

LblGirisBaslik.clProSettings.FontHorzAlign = palCenter;

LblGirisBaslik.clProSettings.TextSettings.Font.Style = [fsBold];

LblGirisBaslik.SetclProSettings(LblGirisBaslik.clProSettings);

/* STREAMING_CHUNK: GİRİŞ BİLGİLERİ GİRİŞ ALANLARI */

// Kullanıcı Adı Girişi

LblKullanici = Form1.AddNewProLabel(PnlGiris, 'LblKullanici', 'Kullanıcı Adı: (ogrenci)');

LblKullanici.Align = alTop; LblKullanici.Height = 20; LblKullanici.Margins.Left = 40; LblKullanici.Margins.Top = 20;

LblKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E');

LblKullanici.SetclProSettings(LblKullanici.clProSettings);

// Edit kutuları için 3 parametreli güvenli metod kullanılmıştır

EdtKullanici = Form1.AddNewProEdit(PnlGiris, 'EdtKullanici', 'Kullanıcı adınızı yazınız...');

EdtKullanici.Align = alTop; EdtKullanici.Height = 40; EdtKullanici.Margins.Left = 40; EdtKullanici.Margins.Right = 40;

EdtKullanici.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640');

EdtKullanici.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

EdtKullanici.clProSettings.RoundHeight = 10; EdtKullanici.clProSettings.RoundWidth = 10;

EdtKullanici.SetclProSettings(EdtKullanici.clProSettings);

// Şifre Girişi

LblSifre = Form1.AddNewProLabel(PnlGiris, 'LblSifre', 'Şifre: (1234)');

LblSifre.Align = alTop; LblSifre.Height = 20; LblSifre.Margins.Left = 40; LblSifre.Margins.Top = 10;

LblSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#85929E');

LblSifre.SetclProSettings(LblSifre.clProSettings);

EdtSifre = Form1.AddNewProEdit(PnlGiris, 'EdtSifre', 'Şifrenizi yazınız...');

EdtSifre.Align = alTop; EdtSifre.Height = 40; EdtSifre.Margins.Left = 40; EdtSifre.Margins.Right = 40;

EdtSifre.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640');

EdtSifre.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

EdtSifre.clProSettings.RoundHeight = 10; EdtSifre.clProSettings.RoundWidth = 10;

EdtSifre.clProSettings.ısSifre = True;

EdtSifre.SetclProSettings(EdtSifre.clProSettings);

// Hata Mesajı Alanı

LblGirisHata = Form1.AddNewProLabel(PnlGiris, 'LblGirisHata', '');

LblGirisHata.Align = alTop; LblGirisHata.Height = 25; LblGirisHata.Margins.Top = 10;

LblGirisHata.clProSettings.FontHorzAlign = palCenter;

LblGirisHata.clProSettings.FontSize = 11;

LblGirisHata.SetclProSettings(LblGirisHata.clProSettings);

// Giriş Butonu

BtnGirisYap = Form1.AddNewProButton(PnlGiris, 'BtnGirisYap', 'Sisteme Bağlan 🧪');

BtnGirisYap.Align = alTop; BtnGirisYap.Height = 45; BtnGirisYap.Margins.Left = 40; BtnGirisYap.Margins.Right = 40; BtnGirisYap.Margins.Top = 5;

BtnGirisYap.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD');

BtnGirisYap.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnGirisYap.clProSettings.RoundHeight = 12; BtnGirisYap.clProSettings.RoundWidth = 12;

BtnGirisYap.clProSettings.TextSettings.Font.Style = [fsBold];

BtnGirisYap.SetclProSettings(BtnGirisYap.clProSettings);

Form1.AddNewEvent(BtnGirisYap, tbeOnClick, 'OnGirisYap');

/* STREAMING_CHUNK: DENEY EKRANI ANA PANEL YAPILANDIRMASI */

PnlDeney = Form1.AddNewProPanel(Form1, 'PnlDeney');

PnlDeney.Align = alClient;

PnlDeney.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E272E');

PnlDeney.SetclProSettings(PnlDeney.clProSettings);

PnlDeney.Visible = False; // Giriş yapılmadan önce gizlenir

// --- ÜST BAŞLIK ---

PnlUst = Form1.AddNewProPanel(PnlDeney, 'PnlUst');

PnlUst.Align = alTop; PnlUst.Height = 55;

PnlUst.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2F3640');

PnlUst.SetclProSettings(PnlUst.clProSettings);

LblBaslik = Form1.AddNewProLabel(PnlUst, 'LblBaslik', '🧪 Doğal İndikatör Deneyi');

LblBaslik.Align = alClient; LblBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

LblBaslik.clProSettings.FontSize = 16; LblBaslik.clProSettings.FontHorzAlign = palCenter;

LblBaslik.clProSettings.TextSettings.Font.Style = [fsBold];

LblBaslik.SetclProSettings(LblBaslik.clProSettings);

// --- İNDİKATÖR KABI (Kırmızı Lahana Suyu) ---

PnlIndikator = Form1.AddNewProPanel(PnlDeney, 'PnlIndikator');

PnlIndikator.Align = alTop; PnlIndikator.Height = 120;

PnlIndikator.Margins.Top = 15; PnlIndikator.Margins.Left = 40; PnlIndikator.Margins.Right = 40;

PnlIndikator.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); // Doğal Mor

PnlIndikator.clProSettings.RoundHeight = 20; PnlIndikator.clProSettings.RoundWidth = 20;

PnlIndikator.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF'); PnlIndikator.clProSettings.BorderWidth = 2;

PnlIndikator.SetclProSettings(PnlIndikator.clProSettings);

LblIndikatorDurum = Form1.AddNewProLabel(PnlIndikator, 'LblIndikatorDurum', 'Saf Kırmızı Lahana Suyu (pH 7)');

LblIndikatorDurum.Align = alClient; LblIndikatorDurum.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

LblIndikatorDurum.clProSettings.FontSize = 14; LblIndikatorDurum.clProSettings.FontHorzAlign = palCenter;

LblIndikatorDurum.SetclProSettings(LblIndikatorDurum.clProSettings);

// --- SONUÇ BİLGİ EKRANI ---

LblSonuc = Form1.AddNewProLabel(PnlDeney, 'LblSonuc', 'Aşağıdaki raf görsellerine dokunarak madde ekleyin.');

LblSonuc.Align = alTop; LblSonuc.Height = 50;

LblSonuc.Margins.Top = 10; LblSonuc.Margins.Left = 20; LblSonuc.Margins.Right = 20;

LblSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#DCDDE1');

LblSonuc.clProSettings.FontSize = 12; LblSonuc.clProSettings.FontHorzAlign = palCenter;

LblSonuc.clProSettings.TextSettings.WordWrap = True;

LblSonuc.SetclProSettings(LblSonuc.clProSettings);

// --- MADDELER PANELİ (KAYDIRILABİLİR İÇERİK RAFİ) ---

PnlMaddeler = Form1.AddNewProPanel(PnlDeney, 'PnlMaddeler');

PnlMaddeler.Align = alClient; PnlMaddeler.Margins.Top = 5;

PnlMaddeler.clProSettings.BackgroundColor = clAlphaColor.clNull;

PnlMaddeler.SetclProSettings(PnlMaddeler.clProSettings);

/* STREAMING_CHUNK: ASİT MATERYALLERİ VE GÖRSELLERİ */

// --- 1. LİMON SUYU SATIRI ---

PnlLimonRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlLimonRow');

PnlLimonRow.Align = alTop; PnlLimonRow.Height = 50; PnlLimonRow.Margins.Bottom = 8; PnlLimonRow.Margins.Left = 20; PnlLimonRow.Margins.Right = 20;

PnlLimonRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlLimonRow.SetclProSettings(PnlLimonRow.clProSettings);

ImgLimon = Form1.AddNewProImage(PnlLimonRow, 'ImgLimon');

ImgLimon.Align = alLeft; ImgLimon.Width = 50; ImgLimon.Margins.Right = 10;

Form1.SetImage(ImgLimon, 'https://images.unsplash.com/photo-1590502593747-42a996133562?w=80&fit=crop&q=60');

BtnLimon = Form1.AddNewProButton(PnlLimonRow, 'BtnLimon', '🍋 Limon Suyu (Asit)');

BtnLimon.Align = alClient;

BtnLimon.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F1C40F'); BtnLimon.clProSettings.RoundHeight = 10; BtnLimon.clProSettings.RoundWidth = 10;

BtnLimon.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50');

BtnLimon.SetclProSettings(BtnLimon.clProSettings); BtnLimon.clTagInt = 1;

Form1.AddNewEvent(BtnLimon, tbeOnClick, 'OnMaddeEklendi');

// --- 2. SİRKE SATIRI ---

PnlSirkeRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSirkeRow');

PnlSirkeRow.Align = alTop; PnlSirkeRow.Height = 50; PnlSirkeRow.Margins.Bottom = 8; PnlSirkeRow.Margins.Left = 20; PnlSirkeRow.Margins.Right = 20;

PnlSirkeRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSirkeRow.SetclProSettings(PnlSirkeRow.clProSettings);

ImgSirke = Form1.AddNewProImage(PnlSirkeRow, 'ImgSirke');

ImgSirke.Align = alLeft; ImgSirke.Width = 50; ImgSirke.Margins.Right = 10;

Form1.SetImage(ImgSirke, 'https://images.unsplash.com/photo-1622484211148-716598e04141?w=80&fit=crop&q=60');

BtnSirke = Form1.AddNewProButton(PnlSirkeRow, 'BtnSirke', '🍾 Sirke (Asit)');

BtnSirke.Align = alClient;

BtnSirke.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E67E22'); BtnSirke.clProSettings.RoundHeight = 10; BtnSirke.clProSettings.RoundWidth = 10;

BtnSirke.clProSettings.FontColor = clAlphaColor.clHexToColor('#2C3E50');

BtnSirke.SetclProSettings(BtnSirke.clProSettings); BtnSirke.clTagInt = 1;

Form1.AddNewEvent(BtnSirke, tbeOnClick, 'OnMaddeEklendi');

// --- 3. TUZ RUHU SATIRI ---

PnlTuzRuhuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlTuzRuhuRow');

PnlTuzRuhuRow.Align = alTop; PnlTuzRuhuRow.Height = 50; PnlTuzRuhuRow.Margins.Bottom = 15; PnlTuzRuhuRow.Margins.Left = 20; PnlTuzRuhuRow.Margins.Right = 20;

PnlTuzRuhuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlTuzRuhuRow.SetclProSettings(PnlTuzRuhuRow.clProSettings);

ImgTuzRuhu = Form1.AddNewProImage(PnlTuzRuhuRow, 'ImgTuzRuhu');

ImgTuzRuhu.Align = alLeft; ImgTuzRuhu.Width = 50; ImgTuzRuhu.Margins.Right = 10;

Form1.SetImage(ImgTuzRuhu, 'https://images.unsplash.com/photo-1603126857599-f6e157fa2fe6?w=80&fit=crop&q=60');

BtnTuzRuhu = Form1.AddNewProButton(PnlTuzRuhuRow, 'BtnTuzRuhu', '☠️ Tuz Ruhu (Kuvvetli Asit)');

BtnTuzRuhu.Align = alClient;

BtnTuzRuhu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); BtnTuzRuhu.clProSettings.RoundHeight = 10; BtnTuzRuhu.clProSettings.RoundWidth = 10;

BtnTuzRuhu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnTuzRuhu.SetclProSettings(BtnTuzRuhu.clProSettings); BtnTuzRuhu.clTagInt = 1;

Form1.AddNewEvent(BtnTuzRuhu, tbeOnClick, 'OnMaddeEklendi');

/* STREAMING_CHUNK: BAZ MATERYALLERİ VE GÖRSELLERİ */

// --- 4. DİŞ MACUNU SATIRI ---

PnlDisMacunuRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlDisMacunuRow');

PnlDisMacunuRow.Align = alTop; PnlDisMacunuRow.Height = 50; PnlDisMacunuRow.Margins.Bottom = 8; PnlDisMacunuRow.Margins.Left = 20; PnlDisMacunuRow.Margins.Right = 20;

PnlDisMacunuRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlDisMacunuRow.SetclProSettings(PnlDisMacunuRow.clProSettings);

ImgDisMacunu = Form1.AddNewProImage(PnlDisMacunuRow, 'ImgDisMacunu');

ImgDisMacunu.Align = alLeft; ImgDisMacunu.Width = 50; ImgDisMacunu.Margins.Right = 10;

Form1.SetImage(ImgDisMacunu, 'https://images.unsplash.com/photo-1559599189-fe84dea4eb79?w=80&fit=crop&q=60');

BtnDisMacunu = Form1.AddNewProButton(PnlDisMacunuRow, 'BtnDisMacunu', '🪥 Diş Macunu (Baz)');

BtnDisMacunu.Align = alClient;

BtnDisMacunu.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3498DB'); BtnDisMacunu.clProSettings.RoundHeight = 10; BtnDisMacunu.clProSettings.RoundWidth = 10;

BtnDisMacunu.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnDisMacunu.SetclProSettings(BtnDisMacunu.clProSettings); BtnDisMacunu.clTagInt = 2;

Form1.AddNewEvent(BtnDisMacunu, tbeOnClick, 'OnMaddeEklendi');

// --- 5. KARBONAT SATIRI ---

PnlKarbonatRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlKarbonatRow');

PnlKarbonatRow.Align = alTop; PnlKarbonatRow.Height = 50; PnlKarbonatRow.Margins.Bottom = 8; PnlKarbonatRow.Margins.Left = 20; PnlKarbonatRow.Margins.Right = 20;

PnlKarbonatRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlKarbonatRow.SetclProSettings(PnlKarbonatRow.clProSettings);

ImgKarbonat = Form1.AddNewProImage(PnlKarbonatRow, 'ImgKarbonat');

ImgKarbonat.Align = alLeft; ImgKarbonat.Width = 50; ImgKarbonat.Margins.Right = 10;

Form1.SetImage(ImgKarbonat, 'https://images.unsplash.com/photo-1553530666-ba11a7da3888?w=80&fit=crop&q=60');

BtnKarbonat = Form1.AddNewProButton(PnlKarbonatRow, 'BtnKarbonat', '🫧 Karbonatlı Su (Baz)');

BtnKarbonat.Align = alClient;

BtnKarbonat.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#9B59B6'); BtnKarbonat.clProSettings.RoundHeight = 10; BtnKarbonat.clProSettings.RoundWidth = 10;

BtnKarbonat.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnKarbonat.SetclProSettings(BtnKarbonat.clProSettings); BtnKarbonat.clTagInt = 2;

Form1.AddNewEvent(BtnKarbonat, tbeOnClick, 'OnMaddeEklendi');

// --- 6. SABUNLU SU SATIRI ---

PnlSabunRow = Form1.AddNewProPanel(PnlMaddeler, 'PnlSabunRow');

PnlSabunRow.Align = alTop; PnlSabunRow.Height = 50; PnlSabunRow.Margins.Bottom = 8; PnlSabunRow.Margins.Left = 20; PnlSabunRow.Margins.Right = 20;

PnlSabunRow.clProSettings.BackgroundColor = clAlphaColor.clNull; PnlSabunRow.SetclProSettings(PnlSabunRow.clProSettings);

ImgSabun = Form1.AddNewProImage(PnlSabunRow, 'ImgSabun');

ImgSabun.Align = alLeft; ImgSabun.Width = 50; ImgSabun.Margins.Right = 10;

Form1.SetImage(ImgSabun, 'https://images.unsplash.com/photo-1607006342411-9c145e227b47?w=80&fit=crop&q=60');

BtnSabun = Form1.AddNewProButton(PnlSabunRow, 'BtnSabun', '🧼 Sabunlu Su (Baz)');

BtnSabun.Align = alClient;

BtnSabun.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1ABC9C'); BtnSabun.clProSettings.RoundHeight = 10; BtnSabun.clProSettings.RoundWidth = 10;

BtnSabun.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

BtnSabun.SetclProSettings(BtnSabun.clProSettings); BtnSabun.clTagInt = 2;

Form1.AddNewEvent(BtnSabun, tbeOnClick, 'OnMaddeEklendi');

Form1.Run;

}

var

// ==========================

// PROJE : ASİT - BAZ AYRAÇ UYGULAMASI

// 3 AŞAMALI BUTONLU SİSTEM

// ==========================

// --------------------------

// PANELLER

// --------------------------

PnlGiris,

PnlSecim,

PnlSonuc

// --------------------------

// BUTONLAR

// --------------------------

BtnBasla,

BtnLimon,

BtnSirke,

BtnDisMacunu,

BtnKarbonat,

BtnSabunluSu,

BtnKirmiziLahana,

BtnZerdecal,

BtnTurnusol,

BtnGeri

// --------------------------

// YAZILAR

// --------------------------

LblBaslik,

LblAciklama,

LblSonuc

// --------------------------

// DEĞİŞKENLER

// --------------------------

SecilenMadde,

SecilenIndikator,

SonucMetni

// ==================================================

// 1. AŞAMA : GİRİŞ EKRANI

// ==================================================

when application started

{

    

    PnlGiris.visible = true

    PnlSecim.visible = false

    PnlSonuc.visible = false

    

    LblBaslik.text = "ASİT - BAZ AYRAÇ UYGULAMASI"

    

    LblAciklama.text =

    "Bu uygulamada gündelik hayattaki asit ve baz maddeleri seçip doğal ayraçlarla hangi renkleri verdiğini öğrenebilirsiniz."

    

}

// ==================================================

// BAŞLA BUTONU

// ==================================================

when BtnBasla clicked

{

    

    PnlGiris.visible = false

    PnlSecim.visible = true

    PnlSonuc.visible = false

    

}

// ==================================================

// 2. AŞAMA : MADDE SEÇİMİ

// ==================================================

// --------------------------

// ASİTLER

// --------------------------

when BtnLimon clicked

{

    SecilenMadde = "limon suyu"

}

when BtnSirke clicked

{

    SecilenMadde = "sirke"

}

// --------------------------

// BAZLAR

// --------------------------

when BtnDisMacunu clicked

{

    SecilenMadde = "dis macunu"

}

when BtnKarbonat clicked

{

    SecilenMadde = "karbonatli su"

}

when BtnSabunluSu clicked

{

    SecilenMadde = "sabunlu su"

}

// ==================================================

// 3. AŞAMA : İNDİKATÖR SEÇİMİ

// ==================================================

// --------------------------

// KIRMIZI LAHANA AYRACI

// --------------------------

when BtnKirmiziLahana clicked

{

    

    SecilenIndikator = "kirmizi lahana"

    

    if ( SecilenMadde == "limon suyu" or

         SecilenMadde == "sirke")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nKırmızı lahana ayracı ASİT maddelerde PEMBE / KIRMIZI renk verir." +

        "\n\nBu nedenle seçilen madde ASİTTİR."

        

    }

    

    

    if ( SecilenMadde == "dis macunu" or

         SecilenMadde == "karbonatli su" or

         SecilenMadde == "sabunlu su")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nKırmızı lahana ayracı BAZ maddelerde MAVİ / YEŞİL renk verir." +

        "\n\nBu nedenle seçilen madde BAZDIR."

        

    }

    

    PnlSecim.visible = false

    PnlSonuc.visible = true

    

    LblSonuc.text = SonucMetni

    

}

// --------------------------

// ZERDEÇAL AYRACI

// --------------------------

when BtnZerdecal clicked

{

    

    SecilenIndikator = "zerdecal"

    

    if ( SecilenMadde == "limon suyu" or

         SecilenMadde == "sirke")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nZerdeçal ayıracı ASİTLERDE sarı rengini korur." +

        "\n\nBu nedenle seçilen madde ASİTTİR."

        

    }

    

    

    if ( SecilenMadde == "dis macunu" or

         SecilenMadde == "karbonatli su" or

         SecilenMadde == "sabunlu su")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nZerdeçal ayıracı BAZLARDA kırmızımsı kahverengi olur." +

        "\n\nBu nedenle seçilen madde BAZDIR."

        

    }

    

    PnlSecim.visible = false

    PnlSonuc.visible = true

    

    LblSonuc.text = SonucMetni

    

}

// --------------------------

// TURNUSOL KAĞIDI

// --------------------------

when BtnTurnusol clicked

{

    

    SecilenIndikator = "turnusol"

    

    if ( SecilenMadde == "limon suyu" or

         SecilenMadde == "sirke")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nMavi turnusol kağıdı ASİTLERDE kırmızıya dönüşür." +

        "\n\nBu nedenle seçilen madde ASİTTİR."

        

    }

    

    

    if ( SecilenMadde == "dis macunu" or

         SecilenMadde == "karbonatli su" or

         SecilenMadde == "sabunlu su")

    {

        

        SonucMetni =

        "SONUÇ : " + SecilenMadde +

        "\n\nKırmızı turnusol kağıdı BAZLARDA maviye dönüşür." +

        "\n\nBu nedenle seçilen madde BAZDIR."

        

    }

    

    PnlSecim.visible = false

    PnlSonuc.visible = true

    

    LblSonuc.text = SonucMetni

    

}

// ==================================================

// GERİ BUTONU

// ==================================================

when BtnGeri clicked

{

    

    PnlGiris.visible = false

    PnlSecim.visible = true

    PnlSonuc.visible = false

    

} hatayı bulamıyorum.