Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Form Oluşturma > TclGameForm Oluşturma
  Aktif Konular Aktif Konular RSS - periyodik tablo element renklendirilmesi
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

periyodik tablo element renklendirilmesi
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
nevzat karaer Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 13 Mayıs 2025
Konum: konya
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı nevzat karaer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: periyodik tablo element renklendirilmesi
    Gönderim Zamanı: 13 Mayıs 2025 Saat 16:47
Periyodik tablo ile ilgili bir proje yaptım.Ama elementlerin gruplarının renklendirilmesi ve tablonun panelin ortasına konumlandırılması ve arka plan renklendirilmesini yapamadım. Bu projenin kodlarını göndersem yardımcı olur musunuz?
Var
  AnaForm: TCLForm;
  BtnH, BtnHe, BtnLi, BtnBe, BtnB, BtnC, BtnN, BtnO, BtnF, BtnNe: TCLButton;
  BtnNa, BtnMg, BtnAl, BtnSi, BtnP, BtnS, BtnCl, BtnAr, BtnK, BtnCa: TCLButton;
  BtnSc, BtnTi, BtnV, BtnCr, BtnMn, BtnFe, BtnCo, BtnNi, BtnCu, BtnZn: TCLButton;
  BtnGa, BtnGe, BtnAs, BtnSe, BtnBr, BtnKr: TCLButton;
  BtnRb, BtnSr, BtnY, BtnZr, BtnNb, BtnMo: TCLButton;
  BtnTc, BtnRu, BtnRh, BtnPd, BtnAg, BtnCd, BtnIn, BtnSn, BtnSb, BtnTe, BtnI, BtnXe: TCLButton;
  BtnCs, BtnBa, BtnLa, BtnHf, BtnTa, BtnW, BtnRe, BtnOs, BtnIr, BtnPt, BtnAu, BtnHg: TCLButton;
  BtnTl, BtnPb, BtnBi, BtnPo, BtnAt, BtnRn: TCLButton;
  BtnFr, BtnRa, BtnAc, BtnRf, BtnDb, BtnSg, BtnBh, BtnHs, BtnMt, BtnDs, BtnRg, BtnCn, BtnNh, BtnFl, BtnMc, BtnLv, BtnTs, BtnOg: TCLButton;
void GosterH { ShowMessage('Hidrojen\nAtom No: 1\nTür: Ametal'); }
void GosterHe { ShowMessage('Helyum\nAtom No: 2\nTür: Ametal'); }
void GosterLi { ShowMessage('Lityum\nAtom No: 3\nTür: Metal'); }
void GosterBe { ShowMessage('Berilyum\nAtom No: 4\nTür: Metal'); }
void GosterB { ShowMessage('Bor\nAtom No: 5\nTür: Yarımetal'); }
void GosterC { ShowMessage('Karbon\nAtom No: 6\nTür: Ametal'); }
void GosterN { ShowMessage('Azot\nAtom No: 7\nTür: Ametal'); }
void GosterO { ShowMessage('Oksijen\nAtom No: 8\nTür: Ametal'); }
void GosterF { ShowMessage('Flor\nAtom No: 9\nTür: Ametal'); }
void GosterNe { ShowMessage('Neon\nAtom No: 10\nTür: Ametal'); }
void GosterNa { ShowMessage('Sodyum\nAtom No: 11\nTür: Metal'); }
void GosterMg { ShowMessage('Magnezyum\nAtom No: 12\nTür: Metal'); }
void GosterAl { ShowMessage('Alüminyum\nAtom No: 13\nTür: Metal'); }
void GosterSi { ShowMessage('Silisyum\nAtom No: 14\nTür: Yarımetal'); }
void GosterP { ShowMessage('Fosfor\nAtom No: 15\nTür: Ametal'); }
void GosterS { ShowMessage('Kükürt\nAtom No: 16\nTür: Ametal'); }
void GosterCl { ShowMessage('Klor\nAtom No: 17\nTür: Ametal'); }
void GosterAr { ShowMessage('Argon\nAtom No: 18\nTür: Ametal'); }
void GosterK { ShowMessage('Potasyum\nAtom No: 19\nTür: Metal'); }
void GosterCa { ShowMessage('Kalsiyum\nAtom No: 20\nTür: Metal'); }
void GosterSc { ShowMessage('Skandiyum\nAtom No: 21\nTür: Metal'); }
void GosterTi { ShowMessage('Titanyum\nAtom No: 22\nTür: Metal'); }
void GosterV { ShowMessage('Vanadyum\nAtom No: 23\nTür: Metal'); }
void GosterCr { ShowMessage('Krom\nAtom No: 24\nTür: Metal'); }
void GosterMn { ShowMessage('Manganez\nAtom No: 25\nTür: Metal'); }
void GosterFe { ShowMessage('Demir\nAtom No: 26\nTür: Metal'); }
void GosterCo { ShowMessage('Kobalt\nAtom No: 27\nTür: Metal'); }
void GosterNi { ShowMessage('Nikel\nAtom No: 28\nTür: Metal'); }
void GosterCu { ShowMessage('Bakır\nAtom No: 29\nTür: Metal'); }
void GosterZn { ShowMessage('Çinko\nAtom No: 30\nTür: Metal'); }
void GosterGa { ShowMessage('Galyum\nAtom No: 31\nTür: Metal'); }
void GosterGe { ShowMessage('Germanyum\nAtom No: 32\nTür: Yarımetal'); }
void GosterAs { ShowMessage('Arsenik\nAtom No: 33\nTür: Yarımetal'); }
void GosterSe { ShowMessage('Selenyum\nAtom No: 34\nTür: Ametal'); }
void GosterBr { ShowMessage('Brom\nAtom No: 35\nTür: Ametal'); }
void GosterKr { ShowMessage('Kripton\nAtom No: 36\nTür: Ametal'); }
void GosterRb { ShowMessage('Rubidyum\nAtom No: 37\nTür: Alkali Metal'); }
void GosterSr { ShowMessage('Stronsiyum\nAtom No: 38\nTür: Toprak Alkali Metal'); }
void GosterY  { ShowMessage('İtriyum\nAtom No: 39\nTür: Geçiş Metali'); }
void GosterZr { ShowMessage('Zirkonyum\nAtom No: 40\nTür: Geçiş Metali'); }
void GosterNb { ShowMessage('Niyobyum\nAtom No: 41\nTür: Geçiş Metali'); }
void GosterMo { ShowMessage('Molibden\nAtom No: 42\nTür: Geçiş Metali'); }
void GosterTc { ShowMessage('Teknetyum\nAtom No: 43\nTür: Geçiş Metali'); }
void GosterRu { ShowMessage('Rutenyum\nAtom No: 44\nTür: Geçiş Metali'); }
void GosterRh { ShowMessage('Rodyum\nAtom No: 45\nTür: Geçiş Metali'); }
void GosterPd { ShowMessage('Paladyum\nAtom No: 46\nTür: Geçiş Metali'); }
void GosterAg { ShowMessage('Gümüş\nAtom No: 47\nTür: Geçiş Metali'); }
void GosterCd { ShowMessage('Kadmiyum\nAtom No: 48\nTür: Geçiş Metali'); }
void GosterIn { ShowMessage('İndiyum\nAtom No: 49\nTür: Diğer Metal'); }
void GosterSn { ShowMessage('Kalay\nAtom No: 50\nTür: Diğer Metal'); }
void GosterSb { ShowMessage('Antimon\nAtom No: 51\nTür: Yarı Metal'); }
void GosterTe { ShowMessage('Tellür\nAtom No: 52\nTür: Yarı Metal'); }
void GosterI  { ShowMessage('İyot\nAtom No: 53\nTür: Halojen'); }
void GosterXe { ShowMessage('Ksenon\nAtom No: 54\nTür: Soygaz'); }
void GosterCs { ShowMessage('Sezyum\nAtom No: 55\nTür: Alkali Metal'); }
void GosterBa { ShowMessage('Baryum\nAtom No: 56\nTür: Toprak Alkali Metal'); }
void GosterLa { ShowMessage('Lantan\nAtom No: 57\nTür: Lantanit'); }
void GosterHf { ShowMessage('Hafniyum\nAtom No: 72\nTür: Geçiş Metali'); }
void GosterTa { ShowMessage('Tantal\nAtom No: 73\nTür: Geçiş Metali'); }
void GosterW  { ShowMessage('Tungsten\nAtom No: 74\nTür: Geçiş Metali'); }
void GosterRe { ShowMessage('Renyum\nAtom No: 75\nTür: Geçiş Metali'); }
void GosterOs { ShowMessage('Osmiyum\nAtom No: 76\nTür: Geçiş Metali'); }
void GosterIr { ShowMessage('İridyum\nAtom No: 77\nTür: Geçiş Metali'); }
void GosterPt { ShowMessage('Platin\nAtom No: 78\nTür: Geçiş Metali'); }
void GosterAu { ShowMessage('Altın\nAtom No: 79\nTür: Geçiş Metali'); }
void GosterHg { ShowMessage('Cıva\nAtom No: 80\nTür: Geçiş Metali'); }
void GosterTl { ShowMessage('Talyum\nAtom No: 81\nTür: Baş Metal'); }
void GosterPb { ShowMessage('Kurşun\nAtom No: 82\nTür: Baş Metal'); }
void GosterBi { ShowMessage('Bizmut\nAtom No: 83\nTür: Baş Metal'); }
void GosterPo { ShowMessage('Polonyum\nAtom No: 84\nTür: Yarı Metal'); }
void GosterAt { ShowMessage('Astatin\nAtom No: 85\nTür: Halojen'); }
void GosterRn { ShowMessage('Radon\nAtom No: 86\nTür: Soy Gaz'); }
void GosterFr { ShowMessage('Fransiyum\nAtom No: 87\nTür: Alkali Metal'); }
void GosterRa { ShowMessage('Radyum\nAtom No: 88\nTür: Toprak Alkali Metal'); }
void GosterRf { ShowMessage('Rutherfordiyum\nAtom No: 104\nTür: Geçiş Metali'); }
void GosterDb { ShowMessage('Dubniyum\nAtom No: 105\nTür: Geçiş Metali'); }
void GosterSg { ShowMessage('Seaborgiyum\nAtom No: 106\nTür: Geçiş Metali'); }
void GosterBh { ShowMessage('Bohriyum\nAtom No: 107\nTür: Geçiş Metali'); }
void GosterHs { ShowMessage('Hassium\nAtom No: 108\nTür: Geçiş Metali'); }
void GosterMt { ShowMessage('Meitneriyum\nAtom No: 109\nTür: Geçiş Metali'); }
void GosterDs { ShowMessage('Darmstadtiyum\nAtom No: 110\nTür: Geçiş Metali'); }
void GosterRg { ShowMessage('Röntgeniyum\nAtom No: 111\nTür: Geçiş Metali'); }
void GosterCn { ShowMessage('Kopernikyum\nAtom No: 112\nTür: Geçiş Metali'); }
void GosterNh { ShowMessage('Nihonyum\nAtom No: 113\nTür: Baş Metal'); }
void GosterFl { ShowMessage('Flerovyum\nAtom No: 114\nTür: Baş Metal'); }
void GosterMc { ShowMessage('Moskovyum\nAtom No: 115\nTür: Baş Metal'); }
void GosterLv { ShowMessage('Livermoryum\nAtom No: 116\nTür: Baş Metal'); }
void GosterTs { ShowMessage('Tenesin\nAtom No: 117\nTür: Halojen'); }
void GosterOg { ShowMessage('Oganesson\nAtom No: 118\nTür: Soy Gaz'); }

{
  AnaForm = TCLForm.Create(Self);
  AnaForm.clSetCaption('Periyodik Tablo');
  AnaForm.SetFormColor('#f5f5f5', '', clGNone);
  AnaForm.BtnFormMenu.Visible = False;
  AnaForm.BtnGoBack.Visible = False;

  // Satır 1
  BtnH = AnaForm.AddNewButton(AnaForm, 'BtnH', 'H');
  BtnH.Align = alNone;
  BtnH.Position.X = 10; BtnH.Position.Y = 10;
  BtnH.Width = 50; BtnH.Height = 50;
  BtnH.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnH, tbeOnClick, 'GosterH');

  BtnHe = AnaForm.AddNewButton(AnaForm, 'BtnHe', 'He');
  BtnHe.Align = alNone;
  BtnHe.Position.X = 1030; BtnHe.Position.Y = 10;
  BtnHe.Width = 50; BtnHe.Height = 50;
  BtnHe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnHe, tbeOnClick, 'GosterHe');

  // Satır 2
  BtnLi = AnaForm.AddNewButton(AnaForm, 'BtnLi', 'Li');
  BtnLi.Align = alNone;
  BtnLi.Position.X = 10; BtnLi.Position.Y = 70;
  BtnLi.Width = 50; BtnLi.Height = 50;
  BtnLi.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnLi, tbeOnClick, 'GosterLi');

  BtnBe = AnaForm.AddNewButton(AnaForm, 'BtnBe', 'Be');
  BtnBe.Align = alNone;
  BtnBe.Position.X = 70; BtnBe.Position.Y = 70;
  BtnBe.Width = 50; BtnBe.Height = 50;
  BtnBe.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnBe, tbeOnClick, 'GosterBe');

  BtnB = AnaForm.AddNewButton(AnaForm, 'BtnB', 'B');
  BtnB.Align = alNone;
  BtnB.Position.X = 730; BtnB.Position.Y = 70;
  BtnB.Width = 50; BtnB.Height = 50;
  BtnB.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');
  AnaForm.AddNewEvent(BtnB, tbeOnClick, 'GosterB');

  BtnC = AnaForm.AddNewButton(AnaForm, 'BtnC', 'C');
  BtnC.Align = alNone;
  BtnC.Position.X = 790; BtnC.Position.Y = 70;
  BtnC.Width = 50; BtnC.Height = 50;
  BtnC.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnC, tbeOnClick, 'GosterC');

  BtnN = AnaForm.AddNewButton(AnaForm, 'BtnN', 'N');
  BtnN.Align = alNone;
  BtnN.Position.X = 850; BtnN.Position.Y = 70;
  BtnN.Width = 50; BtnN.Height = 50;
  BtnN.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnN, tbeOnClick, 'GosterN');

  BtnO = AnaForm.AddNewButton(AnaForm, 'BtnO', 'O');
  BtnO.Align = alNone;
  BtnO.Position.X = 910; BtnO.Position.Y = 70;
  BtnO.Width = 50; BtnO.Height = 50;
  BtnO.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnO, tbeOnClick, 'GosterO');

  BtnF = AnaForm.AddNewButton(AnaForm, 'BtnF', 'F');
  BtnF.Align = alNone;
  BtnF.Position.X = 970; BtnF.Position.Y = 70;
  BtnF.Width = 50; BtnF.Height = 50;
  BtnF.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnF, tbeOnClick, 'GosterF');

  BtnNe = AnaForm.AddNewButton(AnaForm, 'BtnNe', 'Ne');
  BtnNe.Align = alNone;
  BtnNe.Position.X = 1030; BtnNe.Position.Y = 70;
  BtnNe.Width = 50; BtnNe.Height = 50;
  BtnNe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnNe, tbeOnClick, 'GosterNe');

  // Satır 3
  BtnNa = AnaForm.AddNewButton(AnaForm, 'BtnNa', 'Na');
  BtnNa.Align = alNone;
  BtnNa.Position.X = 10; BtnNa.Position.Y = 130;
  BtnNa.Width = 50; BtnNa.Height = 50;
  BtnNa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnNa, tbeOnClick, 'GosterNa');

  BtnMg = AnaForm.AddNewButton(AnaForm, 'BtnMg', 'Mg');
  BtnMg.Align = alNone;
  BtnMg.Position.X = 70; BtnMg.Position.Y = 130;
  BtnMg.Width = 50; BtnMg.Height = 50;
  BtnMg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnMg, tbeOnClick, 'GosterMg');

  BtnAl = AnaForm.AddNewButton(AnaForm, 'BtnAl', 'Al');
  BtnAl.Align = alNone;
  BtnAl.Position.X = 730; BtnAl.Position.Y = 130;
  BtnAl.Width = 50; BtnAl.Height = 50;
  BtnAl.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnAl, tbeOnClick, 'GosterAl');

  BtnSi = AnaForm.AddNewButton(AnaForm, 'BtnSi', 'Si');
  BtnSi.Align = alNone;
  BtnSi.Position.X = 790; BtnSi.Position.Y = 130;
  BtnSi.Width = 50; BtnSi.Height = 50;
  BtnSi.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');
  AnaForm.AddNewEvent(BtnSi, tbeOnClick, 'GosterSi');

  BtnP = AnaForm.AddNewButton(AnaForm, 'BtnP', 'P');
  BtnP.Align = alNone;
  BtnP.Position.X = 850; BtnP.Position.Y = 130;
  BtnP.Width = 50; BtnP.Height = 50;
  BtnP.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnP, tbeOnClick, 'GosterP');

  BtnS = AnaForm.AddNewButton(AnaForm, 'BtnS', 'S');
  BtnS.Align = alNone;
  BtnS.Position.X = 910; BtnS.Position.Y = 130;
  BtnS.Width = 50; BtnS.Height = 50;
  BtnS.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnS, tbeOnClick, 'GosterS');

  BtnCl = AnaForm.AddNewButton(AnaForm, 'BtnCl', 'Cl');
  BtnCl.Align = alNone;
  BtnCl.Position.X = 970; BtnCl.Position.Y = 130;
  BtnCl.Width = 50; BtnCl.Height = 50;
  BtnCl.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnCl, tbeOnClick, 'GosterCl');

  BtnAr = AnaForm.AddNewButton(AnaForm, 'BtnAr', 'Ar');
  BtnAr.Align = alNone;
  BtnAr.Position.X = 1030; BtnAr.Position.Y = 130;
  BtnAr.Width = 50; BtnAr.Height = 50;
  BtnAr.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnAr, tbeOnClick, 'GosterAr');

  // Satır 4
  BtnK = AnaForm.AddNewButton(AnaForm, 'BtnK', 'K');
  BtnK.Align = alNone;
  BtnK.Position.X = 10; BtnK.Position.Y = 190;
  BtnK.Width = 50; BtnK.Height = 50;
  BtnK.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnK, tbeOnClick, 'GosterK');

  BtnCa = AnaForm.AddNewButton(AnaForm, 'BtnCa', 'Ca');
  BtnCa.Align = alNone;
  BtnCa.Position.X = 70; BtnCa.Position.Y = 190;
  BtnCa.Width = 50; BtnCa.Height = 50;
  BtnCa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnCa, tbeOnClick, 'GosterCa');

    // Satır 4 - Devamı
  BtnSc = AnaForm.AddNewButton(AnaForm, 'BtnSc', 'Sc');
  BtnSc.Align = alNone;
  BtnSc.Position.X = 130; BtnSc.Position.Y = 190;
  BtnSc.Width = 50; BtnSc.Height = 50;
  BtnSc.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnSc, tbeOnClick, 'GosterSc');

  BtnTi = AnaForm.AddNewButton(AnaForm, 'BtnTi', 'Ti');
  BtnTi.Align = alNone;
  BtnTi.Position.X = 190; BtnTi.Position.Y = 190;
  BtnTi.Width = 50; BtnTi.Height = 50;
  BtnTi.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnTi, tbeOnClick, 'GosterTi');

  BtnV = AnaForm.AddNewButton(AnaForm, 'BtnV', 'V');
  BtnV.Align = alNone;
  BtnV.Position.X = 250; BtnV.Position.Y = 190;
  BtnV.Width = 50; BtnV.Height = 50;
  BtnV.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnV, tbeOnClick, 'GosterV');

  BtnCr = AnaForm.AddNewButton(AnaForm, 'BtnCr', 'Cr');
  BtnCr.Align = alNone;
  BtnCr.Position.X = 310; BtnCr.Position.Y = 190;
  BtnCr.Width = 50; BtnCr.Height = 50;
  BtnCr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnCr, tbeOnClick, 'GosterCr');

  BtnMn = AnaForm.AddNewButton(AnaForm, 'BtnMn', 'Mn');
  BtnMn.Align = alNone;
  BtnMn.Position.X = 370; BtnMn.Position.Y = 190;
  BtnMn.Width = 50; BtnMn.Height = 50;
  BtnMn.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnMn, tbeOnClick, 'GosterMn');

  BtnFe = AnaForm.AddNewButton(AnaForm, 'BtnFe', 'Fe');
  BtnFe.Align = alNone;
  BtnFe.Position.X = 430; BtnFe.Position.Y = 190;
  BtnFe.Width = 50; BtnFe.Height = 50;
  BtnFe.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnFe, tbeOnClick, 'GosterFe');

  BtnCo = AnaForm.AddNewButton(AnaForm, 'BtnCo', 'Co');
  BtnCo.Align = alNone;
  BtnCo.Position.X = 490; BtnCo.Position.Y = 190;
  BtnCo.Width = 50; BtnCo.Height = 50;
  BtnCo.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnCo, tbeOnClick, 'GosterCo');

  BtnNi = AnaForm.AddNewButton(AnaForm, 'BtnNi', 'Ni');
  BtnNi.Align = alNone;
  BtnNi.Position.X = 550; BtnNi.Position.Y = 190;
  BtnNi.Width = 50; BtnNi.Height = 50;
  BtnNi.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnNi, tbeOnClick, 'GosterNi');

  BtnCu = AnaForm.AddNewButton(AnaForm, 'BtnCu', 'Cu');
  BtnCu.Align = alNone;
  BtnCu.Position.X = 610; BtnCu.Position.Y = 190;
  BtnCu.Width = 50; BtnCu.Height = 50;
  BtnCu.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnCu, tbeOnClick, 'GosterCu');

  BtnZn = AnaForm.AddNewButton(AnaForm, 'BtnZn', 'Zn');
  BtnZn.Align = alNone;
  BtnZn.Position.X = 670; BtnZn.Position.Y = 190;
  BtnZn.Width = 50; BtnZn.Height = 50;
  BtnZn.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnZn, tbeOnClick, 'GosterZn');

    BtnGa = AnaForm.AddNewButton(AnaForm, 'BtnGa', 'Ga');
  BtnGa.Align = alNone;
  BtnGa.Position.X = 730; BtnGa.Position.Y = 190;
  BtnGa.Width = 50; BtnGa.Height = 50;
  BtnGa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnGa, tbeOnClick, 'GosterGa');

  BtnGe = AnaForm.AddNewButton(AnaForm, 'BtnGe', 'Ge');
  BtnGe.Align = alNone;
  BtnGe.Position.X = 790; BtnGe.Position.Y = 190;
  BtnGe.Width = 50; BtnGe.Height = 50;
  BtnGe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');
  AnaForm.AddNewEvent(BtnGe, tbeOnClick, 'GosterGe');

  BtnAs = AnaForm.AddNewButton(AnaForm, 'BtnAs', 'As');
  BtnAs.Align = alNone;
  BtnAs.Position.X = 850; BtnAs.Position.Y = 190;
  BtnAs.Width = 50; BtnAs.Height = 50;
  BtnAs.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc66');
  AnaForm.AddNewEvent(BtnAs, tbeOnClick, 'GosterAs');

  BtnSe = AnaForm.AddNewButton(AnaForm, 'BtnSe', 'Se');
  BtnSe.Align = alNone;
  BtnSe.Position.X = 910; BtnSe.Position.Y = 190;
  BtnSe.Width = 50; BtnSe.Height = 50;
  BtnSe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnSe, tbeOnClick, 'GosterSe');

  BtnBr = AnaForm.AddNewButton(AnaForm, 'BtnBr', 'Br');
  BtnBr.Align = alNone;
  BtnBr.Position.X = 970; BtnBr.Position.Y = 190;
  BtnBr.Width = 50; BtnBr.Height = 50;
  BtnBr.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnBr, tbeOnClick, 'GosterBr');

  BtnKr = AnaForm.AddNewButton(AnaForm, 'BtnKr', 'Kr');
  BtnKr.Align = alNone;
  BtnKr.Position.X = 1030; BtnKr.Position.Y = 190;
  BtnKr.Width = 50; BtnKr.Height = 50;
  BtnKr.TextSettings.FontColor = clAlphaColor.clHexToColor('#00b2ff');
  AnaForm.AddNewEvent(BtnKr, tbeOnClick, 'GosterKr');
  
  BtnRb = AnaForm.AddNewButton(AnaForm, 'BtnRb', 'Rb');
  BtnRb.Align = alNone;
  BtnRb.Position.X = 10; BtnRb.Position.Y = 250;
  BtnRb.Width = 50; BtnRb.Height = 50;
  BtnRb.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff0000');
  AnaForm.AddNewEvent(BtnRb, tbeOnClick, 'GosterRb');

  BtnSr = AnaForm.AddNewButton(AnaForm, 'BtnSr', 'Sr');
  BtnSr.Align = alNone;
  BtnSr.Position.X = 70; BtnSr.Position.Y = 250;
  BtnSr.Width = 50; BtnSr.Height = 50;
  BtnSr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff6600');
  AnaForm.AddNewEvent(BtnSr, tbeOnClick, 'GosterSr');

  BtnY = AnaForm.AddNewButton(AnaForm, 'BtnY', 'Y');
  BtnY.Align = alNone;
  BtnY.Position.X = 130; BtnY.Position.Y = 250;
  BtnY.Width = 50; BtnY.Height = 50;
  BtnY.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnY, tbeOnClick, 'GosterY');

  BtnZr = AnaForm.AddNewButton(AnaForm, 'BtnZr', 'Zr');
  BtnZr.Align = alNone;
  BtnZr.Position.X = 190; BtnZr.Position.Y = 250;
  BtnZr.Width = 50; BtnZr.Height = 50;
  BtnZr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnZr, tbeOnClick, 'GosterZr');

  BtnNb = AnaForm.AddNewButton(AnaForm, 'BtnNb', 'Nb');
  BtnNb.Align = alNone;
  BtnNb.Position.X = 250; BtnNb.Position.Y = 250;
  BtnNb.Width = 50; BtnNb.Height = 50;
  BtnNb.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnNb, tbeOnClick, 'GosterNb');

  BtnMo = AnaForm.AddNewButton(AnaForm, 'BtnMo', 'Mo');
  BtnMo.Align = alNone;
  BtnMo.Position.X = 310; BtnMo.Position.Y = 250;
  BtnMo.Width = 50; BtnMo.Height = 50;
  BtnMo.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnMo, tbeOnClick, 'GosterMo');

  BtnTc = AnaForm.AddNewButton(AnaForm, 'BtnTc', 'Tc');
  BtnTc.Align = alNone;
  BtnTc.Position.X = 370; BtnTc.Position.Y = 250;
  BtnTc.Width = 50; BtnTc.Height = 50;
  BtnTc.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnTc, tbeOnClick, 'GosterTc');

  BtnRu = AnaForm.AddNewButton(AnaForm, 'BtnRu', 'Ru');
  BtnRu.Align = alNone;
  BtnRu.Position.X = 430; BtnRu.Position.Y = 250;
  BtnRu.Width = 50; BtnRu.Height = 50;
  BtnRu.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnRu, tbeOnClick, 'GosterRu');

  BtnRh = AnaForm.AddNewButton(AnaForm, 'BtnRh', 'Rh');
  BtnRh.Align = alNone;
  BtnRh.Position.X = 490; BtnRh.Position.Y = 250;
  BtnRh.Width = 50; BtnRh.Height = 50;
  BtnRh.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnRh, tbeOnClick, 'GosterRh');

  BtnPd = AnaForm.AddNewButton(AnaForm, 'BtnPd', 'Pd');
  BtnPd.Align = alNone;
  BtnPd.Position.X = 550; BtnPd.Position.Y = 250;
  BtnPd.Width = 50; BtnPd.Height = 50;
  BtnPd.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnPd, tbeOnClick, 'GosterPd');

  BtnAg = AnaForm.AddNewButton(AnaForm, 'BtnAg', 'Ag');
  BtnAg.Align = alNone;
  BtnAg.Position.X = 610; BtnAg.Position.Y = 250;
  BtnAg.Width = 50; BtnAg.Height = 50;
  BtnAg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnAg, tbeOnClick, 'GosterAg');

  BtnCd = AnaForm.AddNewButton(AnaForm, 'BtnCd', 'Cd');
  BtnCd.Align = alNone;
  BtnCd.Position.X = 670; BtnCd.Position.Y = 250;
  BtnCd.Width = 50; BtnCd.Height = 50;
  BtnCd.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
  AnaForm.AddNewEvent(BtnCd, tbeOnClick, 'GosterCd');

  BtnIn = AnaForm.AddNewButton(AnaForm, 'BtnIn', 'In');
  BtnIn.Align = alNone;
  BtnIn.Position.X = 730; BtnIn.Position.Y = 250;
  BtnIn.Width = 50; BtnIn.Height = 50;
  BtnIn.TextSettings.FontColor = clAlphaColor.clHexToColor('#cc9900');
  AnaForm.AddNewEvent(BtnIn, tbeOnClick, 'GosterIn');

  BtnSn = AnaForm.AddNewButton(AnaForm, 'BtnSn', 'Sn');
  BtnSn.Align = alNone;
  BtnSn.Position.X = 790; BtnSn.Position.Y = 250;
  BtnSn.Width = 50; BtnSn.Height = 50;
  BtnSn.TextSettings.FontColor = clAlphaColor.clHexToColor('#cc9900');
  AnaForm.AddNewEvent(BtnSn, tbeOnClick, 'GosterSn');

  BtnSb = AnaForm.AddNewButton(AnaForm, 'BtnSb', 'Sb');
  BtnSb.Align = alNone;
  BtnSb.Position.X = 850; BtnSb.Position.Y = 250;
  BtnSb.Width = 50; BtnSb.Height = 50;
  BtnSb.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff');
  AnaForm.AddNewEvent(BtnSb, tbeOnClick, 'GosterSb');

  BtnTe = AnaForm.AddNewButton(AnaForm, 'BtnTe', 'Te');
  BtnTe.Align = alNone;
  BtnTe.Position.X = 910; BtnTe.Position.Y = 250;
  BtnTe.Width = 50; BtnTe.Height = 50;
  BtnTe.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff');
  AnaForm.AddNewEvent(BtnTe, tbeOnClick, 'GosterTe');

  BtnI = AnaForm.AddNewButton(AnaForm, 'BtnI', 'I');
  BtnI.Align = alNone;
  BtnI.Position.X = 970; BtnI.Position.Y = 250;
  BtnI.Width = 50; BtnI.Height = 50;
  BtnI.TextSettings.FontColor = clAlphaColor.clHexToColor('#00cc00');
  AnaForm.AddNewEvent(BtnI, tbeOnClick, 'GosterI');

  BtnXe = AnaForm.AddNewButton(AnaForm, 'BtnXe', 'Xe');
  BtnXe.Align = alNone;
  BtnXe.Position.X = 1030; BtnXe.Position.Y = 250;
  BtnXe.Width = 50; BtnXe.Height = 50;
  BtnXe.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999ff');
  AnaForm.AddNewEvent(BtnXe, tbeOnClick, 'GosterXe');
  
  BtnCs = AnaForm.AddNewButton(AnaForm, 'BtnCs', 'Cs');
BtnCs.Align = alNone;
BtnCs.Position.X = 10; BtnCs.Position.Y = 310;
BtnCs.Width = 50; BtnCs.Height = 50;
BtnCs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff0000');
AnaForm.AddNewEvent(BtnCs, tbeOnClick, 'GosterCs');

BtnBa = AnaForm.AddNewButton(AnaForm, 'BtnBa', 'Ba');
BtnBa.Align = alNone;
BtnBa.Position.X = 70; BtnBa.Position.Y = 310;
BtnBa.Width = 50; BtnBa.Height = 50;
BtnBa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff6600');
AnaForm.AddNewEvent(BtnBa, tbeOnClick, 'GosterBa');

  BtnLa = AnaForm.AddNewButton(AnaForm, 'BtnLa', 'La');
BtnLa.Align = alNone;
BtnLa.Position.X = 130; BtnLa.Position.Y = 310;
BtnLa.Width = 50; BtnLa.Height = 50;
BtnLa.TextSettings.FontColor = clAlphaColor.clHexToColor('#9966cc'); // Lantanit
AnaForm.AddNewEvent(BtnLa, tbeOnClick, 'GosterLa');

BtnHf = AnaForm.AddNewButton(AnaForm, 'BtnHf', 'Hf');
BtnHf.Align = alNone;
BtnHf.Position.X = 190; BtnHf.Position.Y = 310;
BtnHf.Width = 50; BtnHf.Height = 50;
BtnHf.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnHf, tbeOnClick, 'GosterHf');

BtnTa = AnaForm.AddNewButton(AnaForm, 'BtnTa', 'Ta');
BtnTa.Align = alNone;
BtnTa.Position.X = 250; BtnTa.Position.Y = 310;
BtnTa.Width = 50; BtnTa.Height = 50;
BtnTa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnTa, tbeOnClick, 'GosterTa');

BtnW = AnaForm.AddNewButton(AnaForm, 'BtnW', 'W');
BtnW.Align = alNone;
BtnW.Position.X = 310; BtnW.Position.Y = 310;
BtnW.Width = 50; BtnW.Height = 50;
BtnW.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnW, tbeOnClick, 'GosterW');

BtnRe = AnaForm.AddNewButton(AnaForm, 'BtnRe', 'Re');
BtnRe.Align = alNone;
BtnRe.Position.X = 370; BtnRe.Position.Y = 310;
BtnRe.Width = 50; BtnRe.Height = 50;
BtnRe.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnRe, tbeOnClick, 'GosterRe');

BtnOs = AnaForm.AddNewButton(AnaForm, 'BtnOs', 'Os');
BtnOs.Align = alNone;
BtnOs.Position.X = 430; BtnOs.Position.Y = 310;
BtnOs.Width = 50; BtnOs.Height = 50;
BtnOs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnOs, tbeOnClick, 'GosterOs');

BtnIr = AnaForm.AddNewButton(AnaForm, 'BtnIr', 'Ir');
BtnIr.Align = alNone;
BtnIr.Position.X = 490; BtnIr.Position.Y = 310;
BtnIr.Width = 50; BtnIr.Height = 50;
BtnIr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnIr, tbeOnClick, 'GosterIr');

BtnPt = AnaForm.AddNewButton(AnaForm, 'BtnPt', 'Pt');
BtnPt.Align = alNone;
BtnPt.Position.X = 550; BtnPt.Position.Y = 310;
BtnPt.Width = 50; BtnPt.Height = 50;
BtnPt.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnPt, tbeOnClick, 'GosterPt');

BtnAu = AnaForm.AddNewButton(AnaForm, 'BtnAu', 'Au');
BtnAu.Align = alNone;
BtnAu.Position.X = 610; BtnAu.Position.Y = 310;
BtnAu.Width = 50; BtnAu.Height = 50;
BtnAu.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnAu, tbeOnClick, 'GosterAu');

BtnHg = AnaForm.AddNewButton(AnaForm, 'BtnHg', 'Hg');
BtnHg.Align = alNone;
BtnHg.Position.X = 670; BtnHg.Position.Y = 310;
BtnHg.Width = 50; BtnHg.Height = 50;
BtnHg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9900');
AnaForm.AddNewEvent(BtnHg, tbeOnClick, 'GosterHg');

BtnTl = AnaForm.AddNewButton(AnaForm, 'BtnTl', 'Tl');
BtnTl.Align = alNone;
BtnTl.Position.X = 730; BtnTl.Position.Y = 310;
BtnTl.Width = 50; BtnTl.Height = 50;
BtnTl.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnTl, tbeOnClick, 'GosterTl');

BtnPb = AnaForm.AddNewButton(AnaForm, 'BtnPb', 'Pb');
BtnPb.Align = alNone;
BtnPb.Position.X = 790; BtnPb.Position.Y = 310;
BtnPb.Width = 50; BtnPb.Height = 50;
BtnPb.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnPb, tbeOnClick, 'GosterPb');

BtnBi = AnaForm.AddNewButton(AnaForm, 'BtnBi', 'Bi');
BtnBi.Align = alNone;
BtnBi.Position.X = 850; BtnBi.Position.Y = 310;
BtnBi.Width = 50; BtnBi.Height = 50;
BtnBi.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnBi, tbeOnClick, 'GosterBi');

BtnPo = AnaForm.AddNewButton(AnaForm, 'BtnPo', 'Po');
BtnPo.Align = alNone;
BtnPo.Position.X = 910; BtnPo.Position.Y = 310;
BtnPo.Width = 50; BtnPo.Height = 50;
BtnPo.TextSettings.FontColor = clAlphaColor.clHexToColor('#66cc66'); // Yarı metal
AnaForm.AddNewEvent(BtnPo, tbeOnClick, 'GosterPo');

BtnAt = AnaForm.AddNewButton(AnaForm, 'BtnAt', 'At');
BtnAt.Align = alNone;
BtnAt.Position.X = 970; BtnAt.Position.Y = 310;
BtnAt.Width = 50; BtnAt.Height = 50;
BtnAt.TextSettings.FontColor = clAlphaColor.clHexToColor('#339966'); // Halojen
AnaForm.AddNewEvent(BtnAt, tbeOnClick, 'GosterAt');

BtnRn = AnaForm.AddNewButton(AnaForm, 'BtnRn', 'Rn');
BtnRn.Align = alNone;
BtnRn.Position.X = 1030; BtnRn.Position.Y = 310;
BtnRn.Width = 50; BtnRn.Height = 50;
BtnRn.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff'); // Soy gaz
AnaForm.AddNewEvent(BtnRn, tbeOnClick, 'GosterRn');

BtnFr = AnaForm.AddNewButton(AnaForm, 'BtnFr', 'Fr');
BtnFr.Align = alNone;
BtnFr.Position.X = 10; BtnFr.Position.Y = 370;
BtnFr.Width = 50; BtnFr.Height = 50;
BtnFr.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff6666'); // Alkali metal
AnaForm.AddNewEvent(BtnFr, tbeOnClick, 'GosterFr');

BtnRa = AnaForm.AddNewButton(AnaForm, 'BtnRa', 'Ra');
BtnRa.Align = alNone;
BtnRa.Position.X = 70; BtnRa.Position.Y = 370;
BtnRa.Width = 50; BtnRa.Height = 50;
BtnRa.TextSettings.FontColor = clAlphaColor.clHexToColor('#ffcc66'); // Toprak alkali
AnaForm.AddNewEvent(BtnRa, tbeOnClick, 'GosterRa');

BtnRf = AnaForm.AddNewButton(AnaForm, 'BtnRf', 'Rf');
BtnRf.Align = alNone;
BtnRf.Position.X = 130; BtnRf.Position.Y = 370;
BtnRf.Width = 50; BtnRf.Height = 50;
BtnRf.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnRf, tbeOnClick, 'GosterRf');

BtnDb = AnaForm.AddNewButton(AnaForm, 'BtnDb', 'Db');
BtnDb.Align = alNone;
BtnDb.Position.X = 190; BtnDb.Position.Y = 370;
BtnDb.Width = 50; BtnDb.Height = 50;
BtnDb.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnDb, tbeOnClick, 'GosterDb');

BtnSg = AnaForm.AddNewButton(AnaForm, 'BtnSg', 'Sg');
BtnSg.Align = alNone;
BtnSg.Position.X = 250; BtnSg.Position.Y = 370;
BtnSg.Width = 50; BtnSg.Height = 50;
BtnSg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnSg, tbeOnClick, 'GosterSg');

BtnBh = AnaForm.AddNewButton(AnaForm, 'BtnBh', 'Bh');
BtnBh.Align = alNone;
BtnBh.Position.X = 310; BtnBh.Position.Y = 370;
BtnBh.Width = 50; BtnBh.Height = 50;
BtnBh.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnBh, tbeOnClick, 'GosterBh');

BtnHs = AnaForm.AddNewButton(AnaForm, 'BtnHs', 'Hs');
BtnHs.Align = alNone;
BtnHs.Position.X = 370; BtnHs.Position.Y = 370;
BtnHs.Width = 50; BtnHs.Height = 50;
BtnHs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnHs, tbeOnClick, 'GosterHs');

BtnMt = AnaForm.AddNewButton(AnaForm, 'BtnMt', 'Mt');
BtnMt.Align = alNone;
BtnMt.Position.X = 430; BtnMt.Position.Y = 370;
BtnMt.Width = 50; BtnMt.Height = 50;
BtnMt.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnMt, tbeOnClick, 'GosterMt');

BtnDs = AnaForm.AddNewButton(AnaForm, 'BtnDs', 'Ds');
BtnDs.Align = alNone;
BtnDs.Position.X = 490; BtnDs.Position.Y = 370;
BtnDs.Width = 50; BtnDs.Height = 50;
BtnDs.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnDs, tbeOnClick, 'GosterDs');

BtnRg = AnaForm.AddNewButton(AnaForm, 'BtnRg', 'Rg');
BtnRg.Align = alNone;
BtnRg.Position.X = 550; BtnRg.Position.Y = 370;
BtnRg.Width = 50; BtnRg.Height = 50;
BtnRg.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnRg, tbeOnClick, 'GosterRg');

BtnCn = AnaForm.AddNewButton(AnaForm, 'BtnCn', 'Cn');
BtnCn.Align = alNone;
BtnCn.Position.X = 610; BtnCn.Position.Y = 370;
BtnCn.Width = 50; BtnCn.Height = 50;
BtnCn.TextSettings.FontColor = clAlphaColor.clHexToColor('#ff9966'); // Geçiş metali
AnaForm.AddNewEvent(BtnCn, tbeOnClick, 'GosterCn');

BtnNh = AnaForm.AddNewButton(AnaForm, 'BtnNh', 'Nh');
BtnNh.Align = alNone;
BtnNh.Position.X = 670; BtnNh.Position.Y = 370;
BtnNh.Width = 50; BtnNh.Height = 50;
BtnNh.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnNh, tbeOnClick, 'GosterNh');

BtnFl = AnaForm.AddNewButton(AnaForm, 'BtnFl', 'Fl');
BtnFl.Align = alNone;
BtnFl.Position.X = 730; BtnFl.Position.Y = 370;
BtnFl.Width = 50; BtnFl.Height = 50;
BtnFl.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnFl, tbeOnClick, 'GosterFl');

BtnMc = AnaForm.AddNewButton(AnaForm, 'BtnMc', 'Mc');
BtnMc.Align = alNone;
BtnMc.Position.X = 790; BtnMc.Position.Y = 370;
BtnMc.Width = 50; BtnMc.Height = 50;
BtnMc.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnMc, tbeOnClick, 'GosterMc');

BtnLv = AnaForm.AddNewButton(AnaForm, 'BtnLv', 'Lv');
BtnLv.Align = alNone;
BtnLv.Position.X = 850; BtnLv.Position.Y = 370;
BtnLv.Width = 50; BtnLv.Height = 50;
BtnLv.TextSettings.FontColor = clAlphaColor.clHexToColor('#9999cc'); // Baş metal
AnaForm.AddNewEvent(BtnLv, tbeOnClick, 'GosterLv');

BtnTs = AnaForm.AddNewButton(AnaForm, 'BtnTs', 'Ts');
BtnTs.Align = alNone;
BtnTs.Position.X = 910; BtnTs.Position.Y = 370;
BtnTs.Width = 50; BtnTs.Height = 50;
BtnTs.TextSettings.FontColor = clAlphaColor.clHexToColor('#339966'); // Halojen
AnaForm.AddNewEvent(BtnTs, tbeOnClick, 'GosterTs');

BtnOg = AnaForm.AddNewButton(AnaForm, 'BtnOg', 'Og');
BtnOg.Align = alNone;
BtnOg.Position.X = 970; BtnOg.Position.Y = 370;
BtnOg.Width = 50; BtnOg.Height = 50;
BtnOg.TextSettings.FontColor = clAlphaColor.clHexToColor('#00ccff'); // Soy gaz
AnaForm.AddNewEvent(BtnOg, tbeOnClick, 'GosterOg');

  AnaForm.Run();
}
Yukarı Dön
Developer Açılır Kutu İzle
Forum Yöneticisi
Forum Yöneticisi


Kayıt Tarihi: 14 Haziran 2023
Durum: Aktif Değil
Puanlar: 388 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Developer Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 14 Mayıs 2025 Saat 10:35
Merhaba Nevzat,
Kullandığınız TclButton backgroundcolor özelliği bulunmamaktadır. Bu özelliği kullanmak için :
Design işlemi için de bu kodları inceleyebilirsiniz:
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.