Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - birim baglantı
  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.

birim baglantı
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
tugba Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 2 Saat 2 Dakika Önce
Durum: Aktif
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı tugba Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: birim baglantı
    Gönderim Zamanı: 1 saat 58 Dakika Önce Saat 19:55
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.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ı


var
  // Sadece görsel ve 1. Üniteye ait değişkenler
  ImageForm: TclForm;
  ImgDisplay: TclImage; 
  BtnCloseImg: TclProButton;
  
  QuizForm: TclForm;
  QuizScrollBox: TclVertScrollBox;
  Soru1Lbl, Soru2Lbl, Soru3Lbl, Soru4Lbl, Soru5Lbl, Soru6Lbl, Soru7Lbl, Soru8Lbl: TclLabel;
  S1A, S1B, S1C, S1D, S2A, S2B, S2C, S2D, S3A, S3B, S3C, S3D, S4A, S4B, S4C, S4D: TclProButton;
  S5A, S5B, S5C, S5D, S6A, S6B, S6C, S6D, S7A, S7B, S7C, S7D, S8A, S8B, S8C, S8D: TclProButton;
  Aciklama1, Aciklama2, Aciklama3, Aciklama4, Aciklama5, Aciklama6, Aciklama7, Aciklama8: TclLabel;

void CloseImageForm;
{ ImageForm.Free; }

// --- GÖRSEL AÇMA (Düzeltilmiş Hali) ---
void GorselAc(ImgUrl: String);
{
  if (Length(ImgUrl) > 3) 
  {
    ImageForm = TclForm.Create(Self);
    ImageForm.SetFormColor('#000000', '', clGNone); 
    
    ImgDisplay = ImageForm.AddNewImage(ImageForm, 'ImgDisplay');
    ImgDisplay.Align = alClient; 
    
    // EKSİK OLAN KISIM BURASIYDI: ImgUrl parametresini buraya ekledik.
    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;
    BtnCloseImg.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E11D48'); 
    BtnCloseImg.clProSettings.FontColor = clAlphaColor.clWhite;
    BtnCloseImg.SetclProSettings(BtnCloseImg.clProSettings);
    
    ImageForm.AddNewEvent(BtnCloseImg, tbeOnClick, 'CloseImageForm');
    ImageForm.Run;
  }
}

// --- SORU KONTROLLERİ ---
void Soru1Kontrol;
var btn:TclProButton;
{
  btn = TclProButton(QuizForm.clSender);
  if(btn.Text == 'C) Console.Text(degisken)') {
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e');
    btn.SetclProSettings(btn.clProSettings);
    Aciklama1.Text = 'Doğru!';
  } else {
    Aciklama1.Text = 'Yanlış. Doğru cevap: C';
  }
}

// --- QUİZ BAŞLATMA METODU ---
void QuizBaslat;
{
   QuizForm = TclForm.Create(Self);
   QuizForm.SetFormColor('#FFFFFF','',clGNone);
   QuizScrollBox = QuizForm.AddNewVertScrollBox(QuizForm, 'QuizScrollBox');
   QuizScrollBox.Align = alClient;

   Soru1Lbl = QuizForm.AddNewLabel(QuizScrollBox,'Soru1Lbl','Soru1: Akışı durdurmadan arka planda sayısal değer kontrolü?');
   Soru1Lbl.Align = alTop; Soru1Lbl.Height = 30;
   S1A = QuizForm.AddNewProButton(QuizScrollBox,'S1A','A) ShowMessage(degisken);'); S1A.Align = alTop;
   S1B = QuizForm.AddNewProButton(QuizScrollBox,'S1B','B) Console.Text(''degisken'');'); S1B.Align = alTop;
   S1C = QuizForm.AddNewProButton(QuizScrollBox,'S1C','C) Console.Text(degisken)'); S1C.Align = alTop;
   S1D = QuizForm.AddNewProButton(QuizScrollBox,'S1D','D) ShowMessage(''degisken'');'); S1D.Align = alTop;
   QuizForm.AddNewEvent(S1A,tbeOnClick,'Soru1Kontrol'); QuizForm.AddNewEvent(S1B,tbeOnClick,'Soru1Kontrol');
   QuizForm.AddNewEvent(S1C,tbeOnClick,'Soru1Kontrol'); QuizForm.AddNewEvent(S1D,tbeOnClick,'Soru1Kontrol');
   Aciklama1 = QuizForm.AddNewLabel(QuizScrollBox,'Aciklama1',''); Aciklama1.Align = alTop; Aciklama1.Height = 40;
   
   QuizForm.Run;
}

// --- UNİT ÇALIŞMA (BAŞLANGIÇ) NOKTASI ---
{
  if (clomosy.GlobalVariableString == 'A) ShowMessage Nedir?') 
  {
    // Asset ismini tam olarak yazmalısın (örneğin uzantısı varsa .png gibi)
    GorselAc('/assets/print.png'); 
  }
  else if (clomosy.GlobalVariableString == 'B) Pekiştirme 1') 
  {
    QuizBaslat;
  }
}

burası da unit1

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.
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
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif
Puanlar: 861 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 48 Dakika Önce Saat 21:05
Merhaba Tuğba 

İlk değinmek istediğim konu temiz kod yazabilmen ve birimlerin isimleri unit1 unit2 ... şeklinde adlandırmışsın bu doğru bir adlandırma olarak kabuk edilemez. Hangi birim hangi görevi görüyor hangi amaca hizmet ediyor örnek olarak uPrint, uQuiz gibi birim adlandırması yapman daha uygun olur. 



GorselAc prosedürün aşağıda ki güncellemeyi yapar mısın 


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;
  }
}
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,031 Saniyede Yüklendi.