var

  MyForm: TClForm;

  beherLayout, scaleLayout, mainArea: TclProPanel;

  beherSivisi, phPointer: TclProPanel;

  f1, f2, f3, f4, btnReset: TclProButton;

  txtPH, txtInfo: TclProLabel;

  currentPH: Single;

// pH değerine göre rengi belirleyen fonksiyon

function GetColorByPH(val: Single): string;

{

  if (val < 6.5) // Asit (Kırmızı tonları)

    Result = '#FF' + IntToHex(Round((val/7)*255), 2) + '00';

  else if (val > 7.5) // Baz (Mavi tonları)

    Result = '#00' + IntToHex(Round(((14-val)/7)*255), 2) + 'FF';

  else // Nötr

    Result = '#00FF00';

}

// UI Güncelleme

void UpdateLab;

var

  pos: Integer;

{

  beherSivisi.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(GetColorByPH(currentPH));

  beherSivisi.SetclProSettings(beherSivisi.clProSettings);

  

  // İbreyi hareket ettir (Basit ölçeklendirme)

  pos = Round((currentPH / 14) * (scaleLayout.Width - 30));

  phPointer.Margins.Left = pos;

  

  txtPH.Text = 'pH Değeri: ' + FloatToStrF(currentPH, ffFixed, 1, 1);

}

// Sıvı Ekleme

void AddLiquid(val: Single);

{

  currentPH = currentPH + val;

  if (currentPH > 14) currentPH = 14;

  if (currentPH < 0) currentPH = 0;

  

  UpdateLab;

  txtInfo.Text = 'Tepkime gözleniyor...';

}

// Tıklama Olayları

void OnF1; { AddLiquid(-1.5); } // Asit

void OnF2; { AddLiquid(1.5);  } // Baz

void OnF3; { AddLiquid(-2.0); } // Kuvvetli Asit

void OnF4; { AddLiquid(2.0);  } // Kuvvetli Baz

void ResetLab;

{

  currentPH = 7.0;

  UpdateLab;

  txtInfo.Text = 'Şişelerdeki sıvıları behere ekleyerek test edin.';

}

{

  MyForm = TClForm.Create(Self);

  MyForm.SetFormColor('#121212', '', clGNone);

  MyForm.SetFormBGImage(' https://img.freepik.com/free-vector/science-lab-interior-background_23-2148482390.jpg" rel="nofollow - https://img.freepik.com/free-vector/science-lab-interior-background_23-2148482390.jpg ');

  // pH Skalası Tasarımı

  scaleLayout = MyForm.AddNewProPanel(MyForm, 'scaleLayout');

  scaleLayout.Align = alTop;

  scaleLayout.Height = 30;

  scaleLayout.Margins.Top = 50;

  scaleLayout.Margins.Left = 40;

  scaleLayout.Margins.Right = 40;

  scaleLayout.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  scaleLayout.clProSettings.BorderWidth = 1;

  scaleLayout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#333333');

  scaleLayout.SetclProSettings(scaleLayout.clProSettings);

  phPointer = MyForm.AddNewProPanel(scaleLayout, 'phPointer');

  phPointer.Align = alLeft;

  phPointer.Width = 15;

  phPointer.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

  phPointer.clProSettings.RoundHeight = 15;

  phPointer.clProSettings.RoundWidth = 15;

  phPointer.SetclProSettings(phPointer.clProSettings);

  txtPH = MyForm.AddNewProLabel(MyForm, 'txtPH', 'pH Değeri: 7.0');

  txtPH.Align = alTop;

  txtPH.Height = 40;

  txtPH.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFF00');

  txtPH.clProSettings.FontHorzAlign = palCenter;

  txtPH.SetclProSettings(txtPH.clProSettings);

  // Ana Deney Alanı

  mainArea = MyForm.AddNewProPanel(MyForm, 'mainArea');

  mainArea.Align = alClient;

  mainArea.Margins.Top = 20;

  mainArea.clProSettings.IsTransparent = True;

  mainArea.SetclProSettings(mainArea.clProSettings);

  // Beher

  beherLayout = MyForm.AddNewProPanel(mainArea, 'beherLayout');

  beherLayout.Align = alCenter;

  beherLayout.Width = 140;

  beherLayout.Height = 180;

  beherLayout.clProSettings.BorderColor = clAlphaColor.clHexToColor('#E0E0E0');

  beherLayout.clProSettings.BorderWidth = 4;

  beherLayout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#28FFFFFF');

  beherLayout.SetclProSettings(beherLayout.clProSettings);

  beherSivisi = MyForm.AddNewProPanel(beherLayout, 'beherSivisi');

  beherSivisi.Align = alBottom;

  beherSivisi.Height = 100;

  beherSivisi.Margins.Bottom = 5;

  beherSivisi.Margins.Left = 5;

  beherSivisi.Margins.Right = 5;

  beherSivisi.clProSettings.RoundHeight = 10;

  beherSivisi.clProSettings.RoundWidth = 10;

  beherSivisi.SetclProSettings(beherSivisi.clProSettings);

  // Erlenmayerler (Butonlar)

  f1 = MyForm.AddNewProButton(mainArea, 'f1', 'Sıvı 1');

  f1.Align = alLeft; f1.Width = 75; f1.Height = 80;

  f1.Margins.Left = 20; 

  f1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

  f1.SetclProSettings(f1.clProSettings);

  MyForm.AddNewEvent(f1, tbeOnClick, 'OnF1');

  f2 = MyForm.AddNewProButton(mainArea, 'f2', 'Sıvı 2');

  f2.Align = alLeft; f2.Width = 75; f2.Height = 80;

  f2.Margins.Left = 10; 

  f2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

  f2.SetclProSettings(f2.clProSettings);

  MyForm.AddNewEvent(f2, tbeOnClick, 'OnF2');

  f4 = MyForm.AddNewProButton(mainArea, 'f4', 'Sıvı 4');

  f4.Align = alRight; f4.Width = 75; f4.Height = 80;

  f4.Margins.Right = 20; 

  f4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

  f4.SetclProSettings(f4.clProSettings);

  MyForm.AddNewEvent(f4, tbeOnClick, 'OnF4');

  f3 = MyForm.AddNewProButton(mainArea, 'f3', 'Sıvı 3');

  f3.Align = alRight; f3.Width = 75; f3.Height = 80;

  f3.Margins.Right = 10; 

  f3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ADD8E6');

  f3.SetclProSettings(f3.clProSettings);

  MyForm.AddNewEvent(f3, tbeOnClick, 'OnF3');

  // Bilgi ve Reset

  txtInfo = MyForm.AddNewProLabel(MyForm, 'txtInfo', 'Şişelere tıklayarak deneye başlayın.');

  txtInfo.Align = alBottom;

  txtInfo.Height = 50;

  txtInfo.Margins.Bottom = 70;

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

  txtInfo.clProSettings.FontHorzAlign = palCenter;

  txtInfo.SetclProSettings(txtInfo.clProSettings);

  btnReset = MyForm.AddNewProButton(MyForm, 'btnReset', 'TEMİZLE');

  btnReset.Align = alBottom;

  btnReset.Height = 45;

  btnReset.Margins.Bottom = 20;

  btnReset.Margins.Left = 100; btnReset.Margins.Right = 100;

  btnReset.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#CC0000');

  btnReset.SetclProSettings(btnReset.clProSettings);

  MyForm.AddNewEvent(btnReset, tbeOnClick, 'ResetLab');

  ResetLab;

  MyForm.Run;

}