TclGameForm Oluşturma - periyodik tablo element renklendirilmesi

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();

}