Sayfayı Yazdır | Pencereyi Kapat

github üzerinden fotoğraf yükleme 2

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1481
Tarih: 07 Mayıs 2026 Saat 01:59
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: github üzerinden fotoğraf yükleme 2
Mesajı Yazan: Esra Betül
Konu: github üzerinden fotoğraf yükleme 2
Mesaj Tarihi: 06 Mayıs 2026 Saat 22:42

hocam diğer sayfadan yanıtlayamadım mesaj atma sınırı varmış
var
  MyForm: TclForm;
  MainScrollBox: TclVertScrollBox;
  
  ImageForm: TclForm;
  ImgDisplay: TclImage; 
  BtnCloseImg: TclProButton;
  
  
  SectionPnl1, SectionPnl2, SectionPnl3, SectionPnl4, SectionPnl5, SectionPnl6, 
  SectionPnl7, SectionPnl8, SectionPnl9, SectionPnl10, SectionPnl11: TclProPanel;
  
  PrintMainBtn, VarMainBtn, OpMainBtn, ConMainBtn, LoopMainBtn, ArrMainBtn, 
  VoidMainBtn, TryMainBtn, FormMainBtn, CompMainBtn, EventMainBtn: TclProButton;
  
  PrintMenuPnl, VarMenuPnl, OpMenuPnl, ConMenuPnl, LoopMenuPnl, ArrMenuPnl, 
  VoidMenuPnl, TryMenuPnl, FormMenuPnl, CompMenuPnl, EventMenuPnl: TclProPanel;
  
  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;



void CloseImageForm;
{
  ImageForm.Free; 
}


void AssetleriYukle;
{
  MyForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cayesrabetul-pixel/CloStepp/blob/main/unnamed%20" rel="nofollow - https://raw.githubusercontent.com/cayesrabetul-pixel/CloStepp/blob/main/unnamed%20 (21).png');
/*  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses1.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses1.png '); // müzik buton
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses2.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses2.png '); // müzik buton
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/restartbtn.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/restartbtn.png '); // yeniden başlat buton
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char1.jpg" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char1.jpg '); // karakter 1
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char2.jpg" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/char2.jpg '); // karakter 2
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket1.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket1.png '); // Felaket görseli
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket2.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket2.png '); // Felaket görseli
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket3.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket3.png '); // Felaket görseli
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket4.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/felaket4.png '); // Felaket görseli
  YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/oyunsonu.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/oyunsonu.png '); // oyun sonu görseli
 YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/nufus.png" rel="nofollow - https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/nufus.png '); // nüfus görseli
 */
  
}


void OptionClicked;
var 
  ClickedBtn: TclProButton;
  ImgUrl:String;
{
  ClickedBtn = TclProButton(MyForm.clSender);
 //ShowMessage('Seçilen Bölüm: ' + ClickedBtn.Text);
 ImgUrl='';
 
 // 1. Ünite - ShowMessage Kontrolü
  if (ClickedBtn.Text == 'A) ShowMessage Nedir?') 
  {
    ImgUrl = '';// asset konumunu yazıcaz
    
  } 
  
  // 2. Ünite - Değişken Nedir Kontrolü (Hata Aldığın Yer Burasıydı)
  if (ClickedBtn.Text == 'A) Değişken Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBO5snso1wepxuvzbuI3UyUzK1xlOenChpv3Lnc7WFWzyWerUVDvbl08sX7_wCEFR4NPGnYLHLVJVtf6ZdyRAVFf_ZaDO3bUvD413F-RxlAeBapakA=s220 '; 
  }
  if (ClickedBtn.Text == 'B) Veri Türleri Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBOlz-CdgGQ5RtMNarNvPCyLLCGbn93hBqY0y67t8sKaVpNM1z_dXo9A9GxQZlKkSNDoVh5bgNglixzDEPNzB2t4c5YUyLabVT6Fz8e-eCx1jFzE=s220 '; 
  }
  if (ClickedBtn.Text == 'C) Tip Dönüşümleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNyyE-MrRcTe4F1yNT0vR9tFhozeHLcWloBHI6m2wbkZTBjwjdz6hNF2n22TSB1G4wuVmkZfA6cvVjo7mZI0g5Njmzc_XmTLcE1dbaxePluXCHJVg=s220 '; 
  }
  // 3. unıte
   if (ClickedBtn.Text == '1) Operatör Türleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBPoFzcmXaNeVYRLyKDLs8zY8DHJoAWtJxr7cgRB99phV0-qdVlEXOtdRE3y3DmkA5Y9d0tHw7-_x-QNpGweq2b8xd_NTdDQ0QI9i8QkVajgsVGEiA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBPoFzcmXaNeVYRLyKDLs8zY8DHJoAWtJxr7cgRB99phV0-qdVlEXOtdRE3y3DmkA5Y9d0tHw7-_x-QNpGweq2b8xd_NTdDQ0QI9i8QkVajgsVGEiA=s220 '; 
  }
  
  
  //4. unit
   
  if (ClickedBtn.Text == '1) If-Else Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBP6R2N0h29mid7geHcoWdKUgJ9ECvJtVY0Egu1xMddzLEdwkaeQbo4HUo4stzJWr_zwLotUUx39UvP9MS7epjyL8s1l2mIHXh5bW52UL5xs_iebfw=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBP6R2N0h29mid7geHcoWdKUgJ9ECvJtVY0Egu1xMddzLEdwkaeQbo4HUo4stzJWr_zwLotUUx39UvP9MS7epjyL8s1l2mIHXh5bW52UL5xs_iebfw=s220 '; 
  }
  
    
  if (ClickedBtn.Text == '2) Case Nedir') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBM04dxjbwhAnsm5AsfA_61J-0iuwGj5pezaCp8ehH56mRl5n9XBDFvLyISHSmMOViDXC3x07dNRfS2SK6-sEkRckclLcKj0EmpiSYCqkgLEJMtyWw=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBM04dxjbwhAnsm5AsfA_61J-0iuwGj5pezaCp8ehH56mRl5n9XBDFvLyISHSmMOViDXC3x07dNRfS2SK6-sEkRckclLcKj0EmpiSYCqkgLEJMtyWw=s220 '; 
  }
 
  //5. unıte
  
  
  if (ClickedBtn.Text == '1) While Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBPZPJUi9mffkMlZ796vJT8b6ZQfflk_45E_l9ozDpk2U7kY80RHaE4NBr4ZWa4k2rhZ0YdwvcKx534o2j8HjhyrJO6gGf5S_-3Dwoll9-vesrMF5g=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBPZPJUi9mffkMlZ796vJT8b6ZQfflk_45E_l9ozDpk2U7kY80RHaE4NBr4ZWa4k2rhZ0YdwvcKx534o2j8HjhyrJO6gGf5S_-3Dwoll9-vesrMF5g=s220 '; 
  }
  
    
  if (ClickedBtn.Text == '2) Repeat-Until Nedir') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBMeX1JQ1P6OrKUjOINnmXOxlfioxa7l-LtGsK320fZVoEVfrDOD_oYfN3FmoI-wH5yDITsyDCLqDpwW-GZxq1Zo4xjtVuJv08qXWvPXNHMPp2GoGA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBMeX1JQ1P6OrKUjOINnmXOxlfioxa7l-LtGsK320fZVoEVfrDOD_oYfN3FmoI-wH5yDITsyDCLqDpwW-GZxq1Zo4xjtVuJv08qXWvPXNHMPp2GoGA=s220 '; 
  }
  
  if (ClickedBtn.Text == '3) For Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBM_di8SKBjUp34Py5LZr_MQOOHIqoS8kzaw5ERAVmSjFH5jglBl8V2a1MYHCaMYjdPvwuV1AiGBjbD8Jy003EXB8oQRouGkOQLHEPIIeQUL6gwyzA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBM_di8SKBjUp34Py5LZr_MQOOHIqoS8kzaw5ERAVmSjFH5jglBl8V2a1MYHCaMYjdPvwuV1AiGBjbD8Jy003EXB8oQRouGkOQLHEPIIeQUL6gwyzA=s220 ';
    
  }
  
    
  if (ClickedBtn.Text == '4) Döngü Yönlendirme İfadeleri?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBO3xtEfCAk_0y0pn7d5PSc5qLVHPWZrOZD2dj_HptSDPPQrYq-gl0kLjM7VSLsZcFqUd7NQ0sCZnbQljuuhLu76RKLcNh7szm12RLWo6GhlopDIDQ=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBO3xtEfCAk_0y0pn7d5PSc5qLVHPWZrOZD2dj_HptSDPPQrYq-gl0kLjM7VSLsZcFqUd7NQ0sCZnbQljuuhLu76RKLcNh7szm12RLWo6GhlopDIDQ=s220 '; 
  }
  
     
  if (ClickedBtn.Text == '1) Diziler Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNusKfdHVppKZdVwBMQf_8ihJQmOnKJDimjU6h-IPHjpvA8CtFSav681b0W_pCo-undRqrx6XUD7UD6gcsiH1DEPg_9fUG58LiQj6y0EPY4UbhjUw=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNusKfdHVppKZdVwBMQf_8ihJQmOnKJDimjU6h-IPHjpvA8CtFSav681b0W_pCo-undRqrx6XUD7UD6gcsiH1DEPg_9fUG58LiQj6y0EPY4UbhjUw=s220 ';
    }
  
  
  
  
  if (ClickedBtn.Text == '1) Parametreli Prosedür?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNtnyx8ouWVIsgrBCJeYFI-sIdxmUao-0ueNp7fJfUQKfIzTMjegMiRsi9WhrHrh4LAr37ud-cFht6I2tUqMfzDjspdKEwZBGetm3_dif-ZJNb0pg=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNtnyx8ouWVIsgrBCJeYFI-sIdxmUao-0ueNp7fJfUQKfIzTMjegMiRsi9WhrHrh4LAr37ud-cFht6I2tUqMfzDjspdKEwZBGetm3_dif-ZJNb0pg=s220 '; 
  }
  
    
  if (ClickedBtn.Text == '2) Parametresiz Prosedür?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBOITMBgkrFncpZejJ5KiKS2-mdlZCXaoIArjNI9NmMiNOre9s_wc2TBjAPayVHlr0rcg5JES3KHDGNvnOhpo_ULyAUlBxGoYrUEQozbbCnupVLw=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBOITMBgkrFncpZejJ5KiKS2-mdlZCXaoIArjNI9NmMiNOre9s_wc2TBjAPayVHlr0rcg5JES3KHDGNvnOhpo_ULyAUlBxGoYrUEQozbbCnupVLw=s220 '; 
  }
  
  if (ClickedBtn.Text == '3) Fonksiyon Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBPgmxpCpL91qe4VHOxrFJEX-DP0BZNAAhzHYhnvbkhqnfi7w7K7jDW9jcvZlB3wscgC6ga6uVeoAjwWeAmjYq6nexiIYdWEihbrFbsqKLtKlok0Zw=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBPgmxpCpL91qe4VHOxrFJEX-DP0BZNAAhzHYhnvbkhqnfi7w7K7jDW9jcvZlB3wscgC6ga6uVeoAjwWeAmjYq6nexiIYdWEihbrFbsqKLtKlok0Zw=s220 ';
    
  }
  
  if (ClickedBtn.Text == '4) Hazır Kütüphaneler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNO597Gp7Ee6ObeeAaVwEu5862E3uwHk5dK3_Maxv_ckuszZ3UTHZyfWSf_psZ4LSfAxhBpIi2GhUqH2aTNmiBxKmahdfKgdphtbQPep4vSnhGOmQ=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNO597Gp7Ee6ObeeAaVwEu5862E3uwHk5dK3_Maxv_ckuszZ3UTHZyfWSf_psZ4LSfAxhBpIi2GhUqH2aTNmiBxKmahdfKgdphtbQPep4vSnhGOmQ=s220 '; 
  }
  
  
    if (ClickedBtn.Text == '1) Try-Except Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBPgqpkDwg3LyuX5_uL7Nun2jejLyI00qz4oMlfI7AonciA3rp5jnwJPEx8ckJzYxXhAkHWdyTr4R8L4dxDB1YKmffzl7YlW0O9Ce4UmEiLAknKC9A=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBPgqpkDwg3LyuX5_uL7Nun2jejLyI00qz4oMlfI7AoNciA3rp5jnwJPEx8ckJzYxXhAkHWdyTr4R8L4dxDB1YKmffzl7YlW0O9Ce4UmEiLAknKC9A=s220 '; 
  }
  
    
  if (ClickedBtn.Text == '2) Try-Finally Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBOBeo-LLb6QV3lisd7UT-wXB3R6JB-GQonltBMFUZmsLMnMqS0KS0UpVXdF0BQ_tMEDggKCRamS_3dCBbmXcapSXxlhu-s_x76APAsN5ysKhLW9Dg=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBOBeo-LLb6QV3lisd7UT-wXB3R6JB-GQonltBMFUZmsLMnMqS0KS0UpVXdF0BQ_tMEDggKCRamS_3dCBbmXcapSXxlhu-s_x76APAsN5ysKhLW9Dg=s220 '; 
  }
  
   if (ClickedBtn.Text == '1) Form Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBM8uh8JtLTo-V1SeRp_dVzFcqWv_7RhGM7GVMDWxK4OUE4RmwQN5NAcX_c6el0mzugy_c4glYiParpeyuCbhg-v601gWDndyZ-NKRaH0OxUw_Ym=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBM8uh8JtLTo-V1SeRp_dVzFcqWv_7RhGM7GVMDWxK4OUE4RmwQN5NAcX_c6el0mzugy_c4glYiParpeyuCbhg-v601gWDndyZ-NKRaH0OxUw_Ym=s220 '; 
  }
  
   if (ClickedBtn.Text == '2) Form Özellikleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNzpP-r2wGpA0229xPeJbE2yp9EvcEyHqZLCmgg-ykaI3JbmYbtYhOLiOGOUyXxkuZXuYwCJ55ft0wCHdW6wqUL4b7ffh6oKaA9a7kqMxOgZPVIhQ=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNzpP-r2wGpA0229xPeJbE2yp9EvcEyHqZLCmgg-ykaI3JbmYbtYhOLiOGOUyXxkuZXuYwCJ55ft0wCHdW6wqUL4b7ffh6oKaA9a7kqMxOgZPVIhQ=s220 '; 
  }
  
   if (ClickedBtn.Text == '1) Çeşitler Nelerdir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNE3HB7_TKiO9hlv9oV2wx_FE4-DpBZ0cL3QN68m49v0Ppj-FigiRF6DCJtbz7lnw82JdDJeuTpPDfCMHDMpEQlfVtzN-ApZwL3NwY0q8ZgZX39jA=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNE3HB7_TKiO9hlv9oV2wx_FE4-DpBZ0cL3QN68m49v0Ppj-FigiRF6DCJtbz7lnw82JdDJeuTpPDfCMHDMpEQlfVtzN-ApZwL3NwY0q8ZgZX39jA=s220 '; 
  }
  
  
   if (ClickedBtn.Text == '2) Ortak Özellikler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBORWt9MjUtu3vsgyYmZbpv33gWi8N8XgIIuTuDDwDXRGL4rmK9rZdI8nhJ8HxamyCW_IXVzX3gCaUgmicQhxkEB8oH6HQZER9qfVwgQtnAlLdalJQ=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBORWt9MjUtu3vsgyYmZbpv33gWi8N8XgIIuTuDDwDXRGL4rmK9rZdI8nhJ8HxamyCW_IXVzX3gCaUgmicQhxkEB8oH6HQZER9qfVwgQtnAlLdalJQ=s220 '; 
  }
  
  
   if (ClickedBtn.Text == '3) Temel Özellikler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNpELvwyFpbGpUv0NFMOkbKJxqQK0AnA7CfRcXip5xWv9azDmfp-z838LlhXoR4cJd2Yqh4lMioM3x3_DqbRRSXmLDuSpGbmGFeor6l7AzHkv_-8A=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNpELvwyFpbGpUv0NFMOkbKJxqQK0AnA7CfRcXip5xWv9azDmfp-z838LlhXoR4cJd2Yqh4lMioM3x3_DqbRRSXmLDuSpGbmGFeor6l7AzHkv_-8A=s220 '; 
  }
  
    if (ClickedBtn.Text == '1) Events Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBNwOSDuc1R0-JkZJujUXJBOO7H2lGwRbv2fFOfQePYKiAansaZbXFN7cDgCAO__F6e3mMcySsiKgctBCa4Pj9ytwzKhh8ppB4ToDwuMeYIg0GcIMg=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBNwOSDuc1R0-JkZJujUXJBOO7H2lGwRbv2fFOfQePYKiAansaZbXFN7cDgCAO__F6e3mMcySsiKgctBCa4Pj9ytwzKhh8ppB4ToDwuMeYIg0GcIMg=s220 '; 
  }
  
    if (ClickedBtn.Text == '2) Çeşitleri Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    ImgUrl = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBMVsLzO-vBGsU38GSKYAJcpMbWDOhAwQddvdTOhqCRBiGnhwkc6JSKX2jIhnum5kZ1MDayYaxL6Qkc12zxXp5OLCcBJe7dqe2m3ojBaNYJP8Xxvog=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBMVsLzO-vBGsU38GSKYAJcpMbWDOhAwQddvdTOhqCRBiGnhwkc6JSKX2jIhnum5kZ1MDayYaxL6Qkc12zxXp5OLCcBJe7dqe2m3ojBaNYJP8Xxvog=s220 '; 
  }
  
  // Sadece URL doluysa ve geçerli bir link gibi görünüyorsa işlem yap
  if (Length(ImgUrl) > 8) 
  {
    ImageForm = TclForm.Create(Self);
    ImageForm.SetFormColor('#000000', '', clGNone); 
    
    PrintMenuPnl.Visible = False;
    VarMenuPnl.Visible = False;
    
    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay');
    ImgDisplay.Align = alClient; 
    
    // Hata veren satır: ImgUrl boş veya hatalıysa uygulama kapanır.
    MyForm.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;
    BtnCloseImg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E11D48'); 
    BtnCloseImg.clProSettings.FontColor = clAlphaColor.clWhite;
    BtnCloseImg.clProSettings.RoundHeight = 10; 
    BtnCloseImg.clProSettings.RoundWidth = 10;
    BtnCloseImg.SetclProSettings(BtnCloseImg.clProSettings);
    
    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');
    
    ImageForm.Run;
  }
  
}

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;
}

// --- TIKLAMA OLAYLARI ---

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 BLOĞU ---

{
  MyForm = TclForm.Create(Self);
  
  MyForm.AddAssetFromUrl(' https://github.com/cayesrabetul-pixel/CloStepp.git" rel="nofollow - https://github.com/cayesrabetul-pixel/CloStepp.git '); 

  
  MyForm.SetFormColor('#F8FAFC', '', clGNone);
  MainScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MainScrollBox');
  MainScrollBox.Align = alClient;

  // --- 1. PRINT ---
  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');
  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 ---
  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');
  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 ---
  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');
  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 ---
  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');
  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 ---
  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');
  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 ---
  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');
  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 ---
  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 ---
  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 ---
  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 ---
  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 ---
  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;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Mayıs 2026 Saat 22:56
Merhaba Esra

Rica etsem önce bir github hesabı oluşturur musun?
daha sonra buraya proje de kullanacağın görselleri yüklemeni isticem daha sonra bu linkleri bahsettiğim prosedüre linkleri eklemeni isticem 

çünkü şu an görseller benim kullandığım görseller  https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Mesajı Yazan: Esra Betül
Mesaj Tarihi: 06 Mayıs 2026 Saat 23:00
Hocam hesap oluşturdum ve sizin attığınız kod blogunu kapattım tek satır açık sekılde kendı lınkımı ekledım o sekılde konumu cekmeye calıstım https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net