Clomosy ile değişken kullanımı

var

myform:TclForm;

Startbtn:TClProButton;

welcomelabel:TCLLabel;

PPanelMid, PPanel1Top, PPanel2Bottom:TclProPanel;

Image1, Image2, Image3,Image4, Image5,Image6,Image7,Image8 ,backImg:TCLImage;

Images: array[0..7] of TCLImage;

//switch1:TCLSwitch;

matched: array[0..7] of Boolean;

i, j, k: Integer;

void StartGame;

var

temp:String;

{

for (i=0 to 7)

{

myform.SetImage(Images, ' https://resmim.net/cdn/2025/09/18/jdNWJc.png" rel="nofollow - https://resmim.net/cdn/2025/09/18/jdNWJc.png ')

}

{

myform=TclForm.Create(Self);

myform.SetFormColor('#085e26','#4dcc1e',clGHorizontal);

myform.clSetCaption('MyFirstGame')

myform.clSetWindowState(fwsMaximized)

Startbtn=myform.AddNewProButton(myform, 'Startbtn', 'Başla');

Startbtn.Align=alMostBottom;

Startbtn.width=50;

Startbtn.height=100;

Startbtn.clProSettings.RoundHeight=2;

Startbtn.clProSettings.RoundWidth=2;

Startbtn.clProSettings.BorderColor = clAlphaColor.ClHexToColor ('#604201')

Startbtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e9e2e2');

Startbtn.SetClProSettings(Startbtn.clProSettings)

welcomelabel = myform.AddNewLabel(myform,'welcomelabel','Resim eşleştirme Oyununa Hoşgeldiniz');

welcomelabel.Styledsettings=ssFamily;

welcomelabel.Textsettings.Font.Size=35;

welcomelabel.Textsettings.FontColor=clAlphaColor.clHexToColor('#ffffff');

welcomelabel.Align=alTop;

welcomelabel.Margins.Left=400;

welcomelabel.width=50;

welcomelabel.height=100;

PPanelMid=myform.AddNewProPanel(myform,'PPanelMid');

PPanelMid.Align = alCenter;

PPanelMid.Width = 1200;

PPanelMid.Height = 400;

PPanelMid.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');

PPanelMid.clProSettings.IsFill = True;

PPanelMid.clProSettings.IsRound = True;

PPanelMid.Margins.Top = -30;

PPanelMid.Margins.Bottom = 50;

PPanelMid.Margins.Left = -5;

PPanelMid.Margins.Right = -5;

PPanelMid.SetclProSettings(PPanelMid.clProSettings);

PPanel1Top=myform.AddNewProPanel(PPanelMid,'PPanel1Top');

PPanel1Top.Align = alTop;

PPanel1Top.Width = 1200;

PPanel1Top.Height = 200;

PPanel1Top.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');

PPanel1Top.clProSettings.BorderColor = clAlphaColor.clHexToColor('#000000');

PPanel1Top.clProSettings.BorderWidth = 2;

PPanel1Top.clProSettings.IsFill = True;

PPanel1Top.clProSettings.IsRound = True;

PPanel1Top.SetclProSettings(PPanel1Top.clProSettings);

PPanel2Bottom=myform.AddNewProPanel(PPanelMid,'PPanel2Bottom');

PPanel2Bottom.Align = alBottom;

PPanel2Bottom.Width = 1200;

PPanel2Bottom.Height = 200;

PPanel2Bottom.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d2c6c6');

PPanel2Bottom.clProSettings.BorderColor = clAlphaColor.clHexToColor('#849e00');

PPanel2Bottom.clProSettings.BorderWidth = 2;

PPanel2Bottom.clProSettings.IsFill = True;

PPanel2Bottom.clProSettings.IsRound = True;

PPanel2Bottom.SetclProSettings(PPanel2Bottom.clProSettings);

Image1 = myform.AddNewImage(PPanel1Top,'Image1');

Image1.Height = 150;

Image1.width=150;

myform.SetImage(Image1,' https://resmim.net/cdn/2025/09/17/jH0iCb.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0iCb.png ');

Image1.Align=alLeft;

Image1.Margins.Left = 150;

Image2 = myform.AddNewImage(PPanel1Top,'Image2');

Image2.Height = 150;

Image2.width=150;

myform.SetImage(Image2,' https://resmim.net/cdn/2025/09/17/jH0iCb.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0iCb.png ');

Image2.Align=alLeft;

Image2.Margins.Left = 100;

Image3 = myform.AddNewImage(PPanel1Top,'Image3');

Image3.Height = 150;

Image3.width=150;

myform.SetImage(Image3,' https://resmim.net/cdn/2025/09/17/jH0Ob2.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0Ob2.png ');

Image3.Align=alLeft;

Image3.Margins.Left = 100;

Image4 = myform.AddNewImage(PPanel1Top,'Image4');

Image4.Height = 150;

Image4.width=150;

myform.SetImage(Image4,' https://resmim.net/cdn/2025/09/17/jH0Ob2.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0Ob2.png ');

Image4.Align=alLeft;

Image4.Margins.Left = 100;

Image5 = myform.AddNewImage(PPanel2Bottom,'Image5');

Image5.Height = 150;

Image5.width=150;

myform.SetImage(Image5,' https://resmim.net/cdn/2025/09/17/jH0pMh.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0pMh.png ');

Image5.Align=alLeft;

Image5.Margins.Left = 150;

Image6 = myform.AddNewImage(PPanel2Bottom,'Image6');

Image6.Height = 150;

Image6.width=150;

myform.SetImage(Image6,' https://resmim.net/cdn/2025/09/17/jH0pMh.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0pMh.png ');

Image6.Align=alLeft;

Image6.Margins.Left = 100;

Image7 = myform.AddNewImage(PPanel2Bottom,'Image7');

Image7.Height = 150;

Image7.width=150;

myform.SetImage(Image7,' https://resmim.net/cdn/2025/09/17/jH0FgK.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0FgK.png ');

Image7.Align=alLeft;

Image7.Margins.Left = 100;

Image8 = myform.AddNewImage(PPanel2Bottom,'Image8');

Image8.Height = 150;

Image8.width=150;

myform.SetImage(Image8,' https://resmim.net/cdn/2025/09/17/jH0FgK.png" rel="nofollow - https://resmim.net/cdn/2025/09/17/jH0FgK.png ');

Image8.Align=alLeft;

Image8.Margins.Left = 100;

Images[0] = Image1;

Images[1] = Image2;

Images[2] = Image3;

Images[3] = Image4;

Images[4] = Image5;

Images[5] = Image6;

Images[6] = Image7;

Images[7] = Image8;

myform.AddNewEvent(Startbtn,tbeOnClick,'StartGame');

myform.Run;

}