Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - githup sorunu
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

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

githup sorunu
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
sahra Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06 Mayıs 2026
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sahra Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: githup sorunu
    Gönderim Zamanı: 3 Saat 19 Dakika Önce Saat 11:51
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;
{
/*  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/ses1.png'); // müzik buton
  YonetimForm.AddAssetFromUrl('https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/restartbtn.png'); // yeniden başlat buton
  YonetimForm.AddAssetFromUrl('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'); // Felaket görseli
  YonetimForm.AddAssetFromUrl('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'); // Felaket görseli
  YonetimForm.AddAssetFromUrl('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'); // 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ı.
  }
  if (ClickedBtn.Text == 'B) Veri Türleri Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  if (ClickedBtn.Text == 'C) Tip Dönüşümleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  // 3. unıte
   if (ClickedBtn.Text == '1) Operatör Türleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
  //4. unit
   
  if (ClickedBtn.Text == '1) If-Else Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Case Nedir') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
 
  //5. unıte
  
  
  if (ClickedBtn.Text == '1) While Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Repeat-Until Nedir') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  if (ClickedBtn.Text == '3) For Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    
  }
  
    
  if (ClickedBtn.Text == '4) Döngü Yönlendirme İfadeleri?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
     
  if (ClickedBtn.Text == '1) Diziler Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    }
  
  
  
  
  if (ClickedBtn.Text == '1) Parametreli Prosedür?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Parametresiz Prosedür?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  if (ClickedBtn.Text == '3) Fonksiyon Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
    
  }
  
  if (ClickedBtn.Text == '4) Hazır Kütüphaneler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
    if (ClickedBtn.Text == '1) Try-Except Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    
  if (ClickedBtn.Text == '2) Try-Finally Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
   if (ClickedBtn.Text == '1) Form Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
   if (ClickedBtn.Text == '2) Form Özellikleri') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
   if (ClickedBtn.Text == '1) Çeşitler Nelerdir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
   if (ClickedBtn.Text == '2) Ortak Özellikler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  
   if (ClickedBtn.Text == '3) Temel Özellikler?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    if (ClickedBtn.Text == '1) Events Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
    if (ClickedBtn.Text == '2) Çeşitleri Nedir?') 
  {
    // BURAYI GÜNCELLE: Mutlaka 'https://' ile başlayan tam bir link olmalı.
  }
  
  // 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.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;
}             
hocam bu kod bloğunda githupdan fotoğraf ekleme sorununu hala çözemedik githup hesabı açmamızı söylemiştiniz onu da açtık ama bağlamada sorun yaşıyoruz yardımcı olurmusunuz
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">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif
Puanlar: 198 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 10 Dakika Önce Saat 12:00
Merhaba kullandığınız linkler hatalı, linkler assetleriyükle isimli prosedürde kullandığınız gibi raw linki olmalı, https://raw.githubusercontent.com/cografyaemp/clomosy.management/main/nufus.png
Örneğin AssetleriYukle isimli prosedürde böyle bir link var, bu doğru kullanım.












































< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">
Yukarı Dön
sahra Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06 Mayıs 2026
Durum: Aktif Değil
Puanlar: 3 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sahra Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 5 Dakika Önce Saat 12:05
biz linke ulaşmakta zorluk çekiyoruz o linkler hocamızın attığı örnek linkler kendi fotoğraflarımızın linkine ulaşamıyoruzhttps://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">
Yukarı Dön
kaanl0 Açılır Kutu İzle
Kıdemli Üye
Kıdemli Üye
Simge

Kayıt Tarihi: 16 Eylül 2025
Konum: konya
Durum: Aktif
Puanlar: 198 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kaanl0 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 3 Dakika Önce Saat 14:07
githuba girin yüklediğiniz ikona girin. ikonun görseline sağ tıklayıp yeni sekmede aç diyince raw linki açılıyor 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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

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

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

Bu Sayfa 0,047 Saniyede Yüklendi.