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;

}