void GorselAc(ImgUrl: String);

{

  if (Length(ImgUrl) > 3) 

  {

    ImageForm = TclForm.Create(Self);

    ImageForm.SetFormColor('#000000', '', clGNone); 

    

    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay');

    ImgDisplay.Align = alClient; 

    

    ImageForm.SetImage(ImgDisplay, ImgUrl); 

    

    BtnCloseImg = ImageForm.AddNewProButton(ImageForm, 'BtnCloseImg', 'Kapat');

    BtnCloseImg.Align = alBottom; BtnCloseImg.Height = 50; 

    BtnCloseImg.Margins.Bottom = 20; BtnCloseImg.Margins.Left = 50; BtnCloseImg.Margins.Right = 50;

    

    // ProSettings kullanımı

    BtnCloseImg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E11D48'); 

    BtnCloseImg.clProSettings.FontColor = clAlphaColor.clWhite;

    BtnCloseImg.clProSettings.RoundHeight = 10; // Görsel iyileştirme

    BtnCloseImg.clProSettings.RoundWidth = 10;

    BtnCloseImg.SetclProSettings(BtnCloseImg.clProSettings);

    

    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');

    ImageForm.Run;

  }

}

var

  MyForm: TclForm;

  MainScrollBox: TclVertScrollBox;

  

  // Bölüm Panelleri (11 adet)

  SectionPnl1, SectionPnl2, SectionPnl3, SectionPnl4, SectionPnl5, SectionPnl6, 

  SectionPnl7, SectionPnl8, SectionPnl9, SectionPnl10, SectionPnl11: TclProPanel;

  

  // Ana Menü Butonları

  PrintMainBtn, VarMainBtn, OpMainBtn, ConMainBtn, LoopMainBtn, ArrMainBtn, 

  VoidMainBtn, TryMainBtn, FormMainBtn, CompMainBtn, EventMainBtn: TclProButton;

  

  // Alt Menü Panelleri

  PrintMenuPnl, VarMenuPnl, OpMenuPnl, ConMenuPnl, LoopMenuPnl, ArrMenuPnl, 

  VoidMenuPnl, TryMenuPnl, FormMenuPnl, CompMenuPnl, EventMenuPnl: TclProPanel;

  

  // Alt Seçenek Butonları (Örnekler)

  BtnPrintA, BtnPrintB, BtnPrintC: TclProButton;

  BtnVarA, BtnVarB, BtnVarC, BtnVarD, BtnVarE: TclProButton;

  BtnOp1, BtnOp2, BtnOp3: TclProButton;

  BtnCon1, BtnCon2, BtnCon3, BtnCon4: TclProButton;

  BtnL1, BtnL2, BtnL3, BtnL4, BtnL5, BtnL6: TclProButton;

  BtnArr1, BtnArr2, BtnArr3: TclProButton;

  BtnV1, BtnV2, BtnV3, BtnV4, BtnV5, BtnV6: TclProButton;

  BtnTry1, BtnTry2, BtnTry3, BtnTry4: TclProButton;

  BtnForm1, BtnForm2, BtnForm3, BtnForm4: TclProButton;

  BtnComp1, BtnComp2, BtnComp3, BtnComp4, BtnComp5: TclProButton;

  BtnEv1, BtnEv2, BtnEv3, BtnEv4: TclProButton;

// --- TÜM PANELLERİ KAPATMA FONKSİYONU ---

void CloseAllPanels;

{

  PrintMenuPnl.Visible = False; SectionPnl1.Height = 50;

  VarMenuPnl.Visible = False;   SectionPnl2.Height = 50;

  OpMenuPnl.Visible = False;    SectionPnl3.Height = 50;

  ConMenuPnl.Visible = False;   SectionPnl4.Height = 50;

  LoopMenuPnl.Visible = False;  SectionPnl5.Height = 50;

  ArrMenuPnl.Visible = False;   SectionPnl6.Height = 50;

  VoidMenuPnl.Visible = False;  SectionPnl7.Height = 50;

  TryMenuPnl.Visible = False;   SectionPnl8.Height = 50;

  FormMenuPnl.Visible = False;  SectionPnl9.Height = 50;

  CompMenuPnl.Visible = False;  SectionPnl10.Height = 50;

  EventMenuPnl.Visible = False; SectionPnl11.Height = 50;

}

// --- ANA YÖNLENDİRİCİ (SANTRAL) ---

void OptionClicked;

var 

  ClickedBtn: TclProButton;

{

  ClickedBtn = TclProButton(MyForm.clSender);

  

  // Tıklanan butonun üzerindeki yazıyı hafızaya alıyoruz

  clomosy.GlobalVariableString = ClickedBtn.Text; 

  

  // Butonun adına (Name) bakarak hangi Unit'e gideceğimizi anlıyoruz

   Clomosy.RunUnit('Unit1');

 Clomosy.RunUnit('Unit2');

  Clomosy.RunUnit('Unit3');

  Clomosy.RunUnit('Unit4');

   Clomosy.RunUnit('Unit5'); 

   Clomosy.RunUnit('Unit6');

  Clomosy.RunUnit('Unit7'); 

  Clomosy.RunUnit('Unit8');

 Clomosy.RunUnit('Unit9');

Clomosy.RunUnit('Unit10');

Clomosy.RunUnit('Unit11');

}

// --- MENÜLERİ AÇAN FONKSİYONLAR ---

void PrintBtnClick; { if (PrintMenuPnl.Visible) { PrintMenuPnl.Visible = False; SectionPnl1.Height = 50; } else { CloseAllPanels; PrintMenuPnl.Visible = True; SectionPnl1.Height = 200; } }

void VarBtnClick;   { if (VarMenuPnl.Visible) { VarMenuPnl.Visible = False; SectionPnl2.Height = 50; } else { CloseAllPanels; VarMenuPnl.Visible = True; SectionPnl2.Height = 300; } }

void OpBtnClick;    { if (OpMenuPnl.Visible) { OpMenuPnl.Visible = False; SectionPnl3.Height = 50; } else { CloseAllPanels; OpMenuPnl.Visible = True; SectionPnl3.Height = 200; } }

void ConBtnClick;   { if (ConMenuPnl.Visible) { ConMenuPnl.Visible = False; SectionPnl4.Height = 50; } else { CloseAllPanels; ConMenuPnl.Visible = True; SectionPnl4.Height = 250; } }

void LoopBtnClick;  { if (LoopMenuPnl.Visible) { LoopMenuPnl.Visible = False; SectionPnl5.Height = 50; } else { CloseAllPanels; LoopMenuPnl.Visible = True; SectionPnl5.Height = 350; } }

void ArrBtnClick;   { if (ArrMenuPnl.Visible) { ArrMenuPnl.Visible = False; SectionPnl6.Height = 50; } else { CloseAllPanels; ArrMenuPnl.Visible = True; SectionPnl6.Height = 200; } }

void VoidBtnClick;  { if (VoidMenuPnl.Visible) { VoidMenuPnl.Visible = False; SectionPnl7.Height = 50; } else { CloseAllPanels; VoidMenuPnl.Visible = True; SectionPnl7.Height = 350; } }

void TryBtnClick;   { if (TryMenuPnl.Visible) { TryMenuPnl.Visible = False; SectionPnl8.Height = 50; } else { CloseAllPanels; TryMenuPnl.Visible = True; SectionPnl8.Height = 250; } }

void FormBtnClick;  { if (FormMenuPnl.Visible) { FormMenuPnl.Visible = False; SectionPnl9.Height = 50; } else { CloseAllPanels; FormMenuPnl.Visible = True; SectionPnl9.Height = 250; } }

void CompBtnClick;  { if (CompMenuPnl.Visible) { CompMenuPnl.Visible = False; SectionPnl10.Height = 50; } else { CloseAllPanels; CompMenuPnl.Visible = True; SectionPnl10.Height = 300; } }

void EventBtnClick; { if (EventMenuPnl.Visible) { EventMenuPnl.Visible = False; SectionPnl11.Height = 50; } else { CloseAllPanels; EventMenuPnl.Visible = True; SectionPnl11.Height = 250; } }

// --- ANA TASARIM VE FORMUN YARATILDIĞI YER ---

{

  MyForm = TclForm.Create(Self);

  

  // BURASI GITHUB ASSET BAĞLANTISI (Fotoğraflar için şart)

  MyForm.AddAssetFromUrl('https://github.com/cayesrabetul-pixel/CloStepp.git'); 

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

  MainScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MainScrollBox');

  MainScrollBox.Align = alClient;

  // 1. PRINT BÖLÜMÜ

  SectionPnl1 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl1');

  SectionPnl1.Align = alTop; SectionPnl1.Height = 50; SectionPnl1.Margins.Top = 10;

  PrintMainBtn = MyForm.AddNewProButton(SectionPnl1, 'PrintMainBtn', '1. Print İşlemleri ▾');

  PrintMainBtn.Align = alTop; PrintMainBtn.Height = 50;

  PrintMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  PrintMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  PrintMainBtn.SetclProSettings(PrintMainBtn.clProSettings);

  MyForm.AddNewEvent(PrintMainBtn, tbeOnClick, 'PrintBtnClick');

  PrintMenuPnl = MyForm.AddNewProPanel(SectionPnl1, 'PrintMenuPnl');

  PrintMenuPnl.Align = alTop; PrintMenuPnl.Height = 150; PrintMenuPnl.Visible = False;

  BtnPrintA = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintA', 'A) ShowMessage Nedir?');

  BtnPrintA.Align = alTop; BtnPrintA.Height = 50; MyForm.AddNewEvent(BtnPrintA, tbeOnClick, 'OptionClicked');

  BtnPrintB = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintB', 'B) Pekiştirme 1');

  BtnPrintB.Align = alTop; BtnPrintB.Height = 50; MyForm.AddNewEvent(BtnPrintB, tbeOnClick, 'OptionClicked');

  BtnPrintC = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintC', 'C) Quiz');

  BtnPrintC.Align = alTop; BtnPrintC.Height = 50; MyForm.AddNewEvent(BtnPrintC, tbeOnClick, 'OptionClicked');

  // 2. DEĞİŞKENLER BÖLÜMÜ

  SectionPnl2 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl2');

  SectionPnl2.Align = alTop; SectionPnl2.Height = 50; SectionPnl2.Margins.Top = 10;

  VarMainBtn = MyForm.AddNewProButton(SectionPnl2, 'VarMainBtn', '2. Değişkenler ve Veri Türleri ▾');

  VarMainBtn.Align = alTop; VarMainBtn.Height = 50;

  VarMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  VarMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  VarMainBtn.SetclProSettings(VarMainBtn.clProSettings);

  MyForm.AddNewEvent(VarMainBtn, tbeOnClick, 'VarBtnClick');

  VarMenuPnl = MyForm.AddNewProPanel(SectionPnl2, 'VarMenuPnl');

  VarMenuPnl.Align = alTop; VarMenuPnl.Height = 250; VarMenuPnl.Visible = False;

  BtnVarA = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarA', 'A) Değişken Nedir?');

  BtnVarA.Align = alTop; BtnVarA.Height = 50; MyForm.AddNewEvent(BtnVarA, tbeOnClick, 'OptionClicked');

  BtnVarB = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarB', 'B) Veri Türleri Nedir?');

  BtnVarB.Align = alTop; BtnVarB.Height = 50; MyForm.AddNewEvent(BtnVarB, tbeOnClick, 'OptionClicked');

  BtnVarC = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarC', 'C) Tip Dönüşümleri');

  BtnVarC.Align = alTop; BtnVarC.Height = 50; MyForm.AddNewEvent(BtnVarC, tbeOnClick, 'OptionClicked');

  BtnVarD = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarD', 'D) Pekiştirme 2');

  BtnVarD.Align = alTop; BtnVarD.Height = 50; MyForm.AddNewEvent(BtnVarD, tbeOnClick, 'OptionClicked');

  BtnVarE = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarE', 'E) Quiz');

  BtnVarE.Align = alTop; BtnVarE.Height = 50; MyForm.AddNewEvent(BtnVarE, tbeOnClick, 'OptionClicked');

  // 3. OPERATÖRLER BÖLÜMÜ

  SectionPnl3 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl3');

  SectionPnl3.Align = alTop; SectionPnl3.Height = 50; SectionPnl3.Margins.Top = 10;

  OpMainBtn = MyForm.AddNewProButton(SectionPnl3, 'OpMainBtn', '3. Operatörler ▾');

  OpMainBtn.Align = alTop; OpMainBtn.Height = 50;

  OpMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  OpMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  OpMainBtn.SetclProSettings(OpMainBtn.clProSettings);

  MyForm.AddNewEvent(OpMainBtn, tbeOnClick, 'OpBtnClick');

  OpMenuPnl = MyForm.AddNewProPanel(SectionPnl3, 'OpMenuPnl');

  OpMenuPnl.Align = alTop; OpMenuPnl.Height = 150; OpMenuPnl.Visible = False;

  BtnOp1 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp1', '1) Operatör Türleri');

  BtnOp1.Align = alTop; BtnOp1.Height = 50; MyForm.AddNewEvent(BtnOp1, tbeOnClick, 'OptionClicked');

  BtnOp2 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp2', '2) Pekiştirme 3');

  BtnOp2.Align = alTop; BtnOp2.Height = 50; MyForm.AddNewEvent(BtnOp2, tbeOnClick, 'OptionClicked');

  BtnOp3 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp3', '3) Quiz');

  BtnOp3.Align = alTop; BtnOp3.Height = 50; MyForm.AddNewEvent(BtnOp3, tbeOnClick, 'OptionClicked');

  // 4. KOŞULLAR BÖLÜMÜ

  SectionPnl4 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl4');

  SectionPnl4.Align = alTop; SectionPnl4.Height = 50; SectionPnl4.Margins.Top = 10;

  ConMainBtn = MyForm.AddNewProButton(SectionPnl4, 'ConMainBtn', '4. Koşullar ▾');

  ConMainBtn.Align = alTop; ConMainBtn.Height = 50;

  ConMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  ConMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  ConMainBtn.SetclProSettings(ConMainBtn.clProSettings);

  MyForm.AddNewEvent(ConMainBtn, tbeOnClick, 'ConBtnClick');

  ConMenuPnl = MyForm.AddNewProPanel(SectionPnl4, 'ConMenuPnl');

  ConMenuPnl.Align = alTop; ConMenuPnl.Height = 200; ConMenuPnl.Visible = False;

  BtnCon1 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon1', '1) If-Else Nedir?');

  BtnCon1.Align = alTop; BtnCon1.Height = 50; MyForm.AddNewEvent(BtnCon1, tbeOnClick, 'OptionClicked');

  BtnCon2 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon2', '2) Case Nedir');

  BtnCon2.Align = alTop; BtnCon2.Height = 50; MyForm.AddNewEvent(BtnCon2, tbeOnClick, 'OptionClicked');

  BtnCon3 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon3', '3) Pekiştirme 4');

  BtnCon3.Align = alTop; BtnCon3.Height = 50; MyForm.AddNewEvent(BtnCon3, tbeOnClick, 'OptionClicked');

  BtnCon4 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon4', '4) Quiz');

  BtnCon4.Align = alTop; BtnCon4.Height = 50; MyForm.AddNewEvent(BtnCon4, tbeOnClick, 'OptionClicked');

  // 5. DÖNGÜLER BÖLÜMÜ

  SectionPnl5 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl5');

  SectionPnl5.Align = alTop; SectionPnl5.Height = 50; SectionPnl5.Margins.Top = 10;

  LoopMainBtn = MyForm.AddNewProButton(SectionPnl5, 'LoopMainBtn', '5. Döngüler ▾');

  LoopMainBtn.Align = alTop; LoopMainBtn.Height = 50;

  LoopMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  LoopMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  LoopMainBtn.SetclProSettings(LoopMainBtn.clProSettings);

  MyForm.AddNewEvent(LoopMainBtn, tbeOnClick, 'LoopBtnClick');

  LoopMenuPnl = MyForm.AddNewProPanel(SectionPnl5, 'LoopMenuPnl');

  LoopMenuPnl.Align = alTop; LoopMenuPnl.Height = 300; LoopMenuPnl.Visible = False;

  BtnL1 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL1', '1) While Nedir?');

  BtnL1.Align = alTop; BtnL1.Height = 50; MyForm.AddNewEvent(BtnL1, tbeOnClick, 'OptionClicked');

  BtnL2 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL2', '2) Repeat-Until Nedir?');

  BtnL2.Align = alTop; BtnL2.Height = 50; MyForm.AddNewEvent(BtnL2, tbeOnClick, 'OptionClicked');

  BtnL3 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL3', '3) For Nedir?');

  BtnL3.Align = alTop; BtnL3.Height = 50; MyForm.AddNewEvent(BtnL3, tbeOnClick, 'OptionClicked');

  BtnL4 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL4', '4) Döngü Yönlendirme İfadeleri?');

  BtnL4.Align = alTop; BtnL4.Height = 50; MyForm.AddNewEvent(BtnL4, tbeOnClick, 'OptionClicked');

  BtnL5 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL5', '5) Pekiştirme 5');

  BtnL5.Align = alTop; BtnL5.Height = 50; MyForm.AddNewEvent(BtnL5, tbeOnClick, 'OptionClicked');

  BtnL6 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL6', '6) Quiz');

  BtnL6.Align = alTop; BtnL6.Height = 50; MyForm.AddNewEvent(BtnL6, tbeOnClick, 'OptionClicked');

  // 6. DİZİLER BÖLÜMÜ

  SectionPnl6 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl6');

  SectionPnl6.Align = alTop; SectionPnl6.Height = 50; SectionPnl6.Margins.Top = 10;

  ArrMainBtn = MyForm.AddNewProButton(SectionPnl6, 'ArrMainBtn', '6. Diziler ▾');

  ArrMainBtn.Align = alTop; ArrMainBtn.Height = 50;

  ArrMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  ArrMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  ArrMainBtn.SetclProSettings(ArrMainBtn.clProSettings);

  MyForm.AddNewEvent(ArrMainBtn, tbeOnClick, 'ArrBtnClick');

  ArrMenuPnl = MyForm.AddNewProPanel(SectionPnl6, 'ArrMenuPnl');

  ArrMenuPnl.Align = alTop; ArrMenuPnl.Height = 150; ArrMenuPnl.Visible = False;

  BtnArr1 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr1', '1) Diziler Nedir?');

  BtnArr1.Align = alTop; BtnArr1.Height = 50; MyForm.AddNewEvent(BtnArr1, tbeOnClick, 'OptionClicked');

  BtnArr2 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr2', '2) Pekiştirme 6');

  BtnArr2.Align = alTop; BtnArr2.Height = 50; MyForm.AddNewEvent(BtnArr2, tbeOnClick, 'OptionClicked');

  BtnArr3 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr3', '3) Quiz');

  BtnArr3.Align = alTop; BtnArr3.Height = 50; MyForm.AddNewEvent(BtnArr3, tbeOnClick, 'OptionClicked');

  // 7. VOID BÖLÜMÜ

  SectionPnl7 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl7');

  SectionPnl7.Align = alTop; SectionPnl7.Height = 50; SectionPnl7.Margins.Top = 10;

  VoidMainBtn = MyForm.AddNewProButton(SectionPnl7, 'VoidMainBtn', '7. Void(Prosedür) ▾');

  VoidMainBtn.Align = alTop; VoidMainBtn.Height = 50;

  VoidMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  VoidMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  VoidMainBtn.SetclProSettings(VoidMainBtn.clProSettings);

  MyForm.AddNewEvent(VoidMainBtn, tbeOnClick, 'VoidBtnClick');

  VoidMenuPnl = MyForm.AddNewProPanel(SectionPnl7, 'VoidMenuPnl');

  VoidMenuPnl.Align = alTop; VoidMenuPnl.Height = 300; VoidMenuPnl.Visible = False;

  BtnV1 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV1', '1) Parametreli Prosedür?');

  BtnV1.Align = alTop; BtnV1.Height = 50; MyForm.AddNewEvent(BtnV1, tbeOnClick, 'OptionClicked');

  BtnV2 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV2', '2) Parametresiz Prosedür?');

  BtnV2.Align = alTop; BtnV2.Height = 50; MyForm.AddNewEvent(BtnV2, tbeOnClick, 'OptionClicked');

  BtnV3 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV3', '3) Fonksiyon Nedir?');

  BtnV3.Align = alTop; BtnV3.Height = 50; MyForm.AddNewEvent(BtnV3, tbeOnClick, 'OptionClicked');

  BtnV4 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV4', '4) Hazır Kütüphaneler?');

  BtnV4.Align = alTop; BtnV4.Height = 50; MyForm.AddNewEvent(BtnV4, tbeOnClick, 'OptionClicked');

  BtnV5 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV5', '5) Pekiştirme');

  BtnV5.Align = alTop; BtnV5.Height = 50; MyForm.AddNewEvent(BtnV5, tbeOnClick, 'OptionClicked');

  BtnV6 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV6', '6) Quiz');

  BtnV6.Align = alTop; BtnV6.Height = 50; MyForm.AddNewEvent(BtnV6, tbeOnClick, 'OptionClicked');

  // 8. TRY BÖLÜMÜ

  SectionPnl8 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl8');

  SectionPnl8.Align = alTop; SectionPnl8.Height = 50; SectionPnl8.Margins.Top = 10;

  TryMainBtn = MyForm.AddNewProButton(SectionPnl8, 'TryMainBtn', '8. Hata Yakalama ▾');

  TryMainBtn.Align = alTop; TryMainBtn.Height = 50;

  TryMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  TryMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  TryMainBtn.SetclProSettings(TryMainBtn.clProSettings);

  MyForm.AddNewEvent(TryMainBtn, tbeOnClick, 'TryBtnClick');

  TryMenuPnl = MyForm.AddNewProPanel(SectionPnl8, 'TryMenuPnl');

  TryMenuPnl.Align = alTop; TryMenuPnl.Height = 200; TryMenuPnl.Visible = False;

  BtnTry1 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry1', '1) Try-Except Nedir?');

  BtnTry1.Align = alTop; BtnTry1.Height = 50; MyForm.AddNewEvent(BtnTry1, tbeOnClick, 'OptionClicked');

  BtnTry2 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry2', '2) Try-Finally Nedir?');

  BtnTry2.Align = alTop; BtnTry2.Height = 50; MyForm.AddNewEvent(BtnTry2, tbeOnClick, 'OptionClicked');

  BtnTry3 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry3', '3) Pekiştirme');

  BtnTry3.Align = alTop; BtnTry3.Height = 50; MyForm.AddNewEvent(BtnTry3, tbeOnClick, 'OptionClicked');

  BtnTry4 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry4', '4) Quiz');

  BtnTry4.Align = alTop; BtnTry4.Height = 50; MyForm.AddNewEvent(BtnTry4, tbeOnClick, 'OptionClicked');

  // 9. FORM BÖLÜMÜ

  SectionPnl9 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl9');

  SectionPnl9.Align = alTop; SectionPnl9.Height = 50; SectionPnl9.Margins.Top = 10;

  FormMainBtn = MyForm.AddNewProButton(SectionPnl9, 'FormMainBtn', '9. Form İşlemleri ▾');

  FormMainBtn.Align = alTop; FormMainBtn.Height = 50;

  FormMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  FormMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  FormMainBtn.SetclProSettings(FormMainBtn.clProSettings);

  MyForm.AddNewEvent(FormMainBtn, tbeOnClick, 'FormBtnClick');

  FormMenuPnl = MyForm.AddNewProPanel(SectionPnl9, 'FormMenuPnl');

  FormMenuPnl.Align = alTop; FormMenuPnl.Height = 200; FormMenuPnl.Visible = False;

  BtnForm1 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm1', '1) Form Nedir?');

  BtnForm1.Align = alTop; BtnForm1.Height = 50; MyForm.AddNewEvent(BtnForm1, tbeOnClick, 'OptionClicked');

  BtnForm2 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm2', '2) Form Özellikleri');

  BtnForm2.Align = alTop; BtnForm2.Height = 50; MyForm.AddNewEvent(BtnForm2, tbeOnClick, 'OptionClicked');

  BtnForm3 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm3', '3) Pekiştirme');

  BtnForm3.Align = alTop; BtnForm3.Height = 50; MyForm.AddNewEvent(BtnForm3, tbeOnClick, 'OptionClicked');

  BtnForm4 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm4', '4) Quiz');

  BtnForm4.Align = alTop; BtnForm4.Height = 50; MyForm.AddNewEvent(BtnForm4, tbeOnClick, 'OptionClicked');

  // 10. BİLEŞENLER BÖLÜMÜ

  SectionPnl10 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl10');

  SectionPnl10.Align = alTop; SectionPnl10.Height = 50; SectionPnl10.Margins.Top = 10;

  CompMainBtn = MyForm.AddNewProButton(SectionPnl10, 'CompMainBtn', '10. Bileşenler ▾');

  CompMainBtn.Align = alTop; CompMainBtn.Height = 50;

  CompMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  CompMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  CompMainBtn.SetclProSettings(CompMainBtn.clProSettings);

  MyForm.AddNewEvent(CompMainBtn, tbeOnClick, 'CompBtnClick');

  CompMenuPnl = MyForm.AddNewProPanel(SectionPnl10, 'CompMenuPnl');

  CompMenuPnl.Align = alTop; CompMenuPnl.Height = 250; CompMenuPnl.Visible = False;

  BtnComp1 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp1', '1) Çeşitler Nelerdir?');

  BtnComp1.Align = alTop; BtnComp1.Height = 50; MyForm.AddNewEvent(BtnComp1, tbeOnClick, 'OptionClicked');

  BtnComp2 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp2', '2) Ortak Özellikler?');

  BtnComp2.Align = alTop; BtnComp2.Height = 50; MyForm.AddNewEvent(BtnComp2, tbeOnClick, 'OptionClicked');

  BtnComp3 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp3', '3) Temel Özellikler?');

  BtnComp3.Align = alTop; BtnComp3.Height = 50; MyForm.AddNewEvent(BtnComp3, tbeOnClick, 'OptionClicked');

  BtnComp4 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp4', '4) Pekiştirme');

  BtnComp4.Align = alTop; BtnComp4.Height = 50; MyForm.AddNewEvent(BtnComp4, tbeOnClick, 'OptionClicked');

  BtnComp5 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp5', '5) Quiz');

  BtnComp5.Align = alTop; BtnComp5.Height = 50; MyForm.AddNewEvent(BtnComp5, tbeOnClick, 'OptionClicked');

  // 11. EVENTS BÖLÜMÜ

  SectionPnl11 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl11');

  SectionPnl11.Align = alTop; SectionPnl11.Height = 50; SectionPnl11.Margins.Top = 10;

  EventMainBtn = MyForm.AddNewProButton(SectionPnl11, 'EventMainBtn', '11. Olaylar (Events) ▾');

  EventMainBtn.Align = alTop; EventMainBtn.Height = 50;

  EventMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');

  EventMainBtn.clProSettings.FontColor = clAlphaColor.clWhite;

  EventMainBtn.SetclProSettings(EventMainBtn.clProSettings);

  MyForm.AddNewEvent(EventMainBtn, tbeOnClick, 'EventBtnClick');

  EventMenuPnl = MyForm.AddNewProPanel(SectionPnl11, 'EventMenuPnl');

  EventMenuPnl.Align = alTop; EventMenuPnl.Height = 200; EventMenuPnl.Visible = False;

  BtnEv1 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv1', '1) Events Nedir?');

  BtnEv1.Align = alTop; BtnEv1.Height = 50; MyForm.AddNewEvent(BtnEv1, tbeOnClick, 'OptionClicked');

  BtnEv2 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv2', '2) Çeşitleri Nedir?');

  BtnEv2.Align = alTop; BtnEv2.Height = 50; MyForm.AddNewEvent(BtnEv2, tbeOnClick, 'OptionClicked');

  BtnEv3 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv3', '3) Pekiştirme');

  BtnEv3.Align = alTop; BtnEv3.Height = 50; MyForm.AddNewEvent(BtnEv3, tbeOnClick, 'OptionClicked');

  BtnEv4 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv4', '4) Quiz');

  BtnEv4.Align = alTop; BtnEv4.Height = 50; MyForm.AddNewEvent(BtnEv4, tbeOnClick, 'OptionClicked');

  MyForm.Run;

}

bu ana kod sayfası

hocam kod çalışıyor ancak fotoğraf açılmıyor. print butonundan sonra showmessage kısmına basınca fotoğraf çıkmalı ancak hata alıyorum.