|
var MyForm: TclForm; MainScrollBox: TclVertScrollBox; // Bölüm Panelleri (11 adet) SectionPnl1, SectionPnl2, SectionPnl3, SectionPnl4, SectionPnl5, SectionPnl6, SectionPnl7, SectionPnl8, SectionPnl9, SectionPnl10, SectionPnl11: TclProPanel; // Ana Menü Butonları PrintMainBtn, VarMainBtn, OpMainBtn, ConMainBtn, LoopMainBtn, ArrMainBtn, VoidMainBtn, TryMainBtn, FormMainBtn, CompMainBtn, EventMainBtn: TclProButton; // Alt Menü Panelleri PrintMenuPnl, VarMenuPnl, OpMenuPnl, ConMenuPnl, LoopMenuPnl, ArrMenuPnl, VoidMenuPnl, TryMenuPnl, FormMenuPnl, CompMenuPnl, EventMenuPnl: TclProPanel; // Alt Seçenek Butonları (Örnekler) BtnPrintA, BtnPrintB, BtnPrintC: TclProButton; BtnVarA, BtnVarB, BtnVarC, BtnVarD, BtnVarE: TclProButton; BtnOp1, BtnOp2, BtnOp3: TclProButton; BtnCon1, BtnCon2, BtnCon3, BtnCon4: TclProButton; BtnL1, BtnL2, BtnL3, BtnL4, BtnL5, BtnL6: TclProButton; BtnArr1, BtnArr2, BtnArr3: TclProButton; BtnV1, BtnV2, BtnV3, BtnV4, BtnV5, BtnV6: TclProButton; BtnTry1, BtnTry2, BtnTry3, BtnTry4: TclProButton; BtnForm1, BtnForm2, BtnForm3, BtnForm4: TclProButton; BtnComp1, BtnComp2, BtnComp3, BtnComp4, BtnComp5: TclProButton; BtnEv1, BtnEv2, BtnEv3, BtnEv4: TclProButton;
// --- TÜM PANELLERİ KAPATMA FONKSİYONU --- void CloseAllPanels; { PrintMenuPnl.Visible = False; SectionPnl1.Height = 50; VarMenuPnl.Visible = False; SectionPnl2.Height = 50; OpMenuPnl.Visible = False; SectionPnl3.Height = 50; ConMenuPnl.Visible = False; SectionPnl4.Height = 50; LoopMenuPnl.Visible = False; SectionPnl5.Height = 50; ArrMenuPnl.Visible = False; SectionPnl6.Height = 50; VoidMenuPnl.Visible = False; SectionPnl7.Height = 50; TryMenuPnl.Visible = False; SectionPnl8.Height = 50; FormMenuPnl.Visible = False; SectionPnl9.Height = 50; CompMenuPnl.Visible = False; SectionPnl10.Height = 50; EventMenuPnl.Visible = False; SectionPnl11.Height = 50; }
// --- ANA YÖNLENDİRİCİ (SANTRAL) --- void OptionClicked; var ClickedBtn: TclProButton; { ClickedBtn = TclProButton(MyForm.clSender); // Tıklanan butonun üzerindeki yazıyı hafızaya alıyoruz clomosy.GlobalVariableString = ClickedBtn.Text; // Butonun adına (Name) bakarak hangi Unit'e gideceğimizi anlıyoruz Clomosy.RunUnit('Unit1'); Clomosy.RunUnit('Unit2'); Clomosy.RunUnit('Unit3'); Clomosy.RunUnit('Unit4'); Clomosy.RunUnit('Unit5'); Clomosy.RunUnit('Unit6'); Clomosy.RunUnit('Unit7'); Clomosy.RunUnit('Unit8'); Clomosy.RunUnit('Unit9'); Clomosy.RunUnit('Unit10'); Clomosy.RunUnit('Unit11'); }
// --- MENÜLERİ AÇAN FONKSİYONLAR --- void PrintBtnClick; { if (PrintMenuPnl.Visible) { PrintMenuPnl.Visible = False; SectionPnl1.Height = 50; } else { CloseAllPanels; PrintMenuPnl.Visible = True; SectionPnl1.Height = 200; } } void VarBtnClick; { if (VarMenuPnl.Visible) { VarMenuPnl.Visible = False; SectionPnl2.Height = 50; } else { CloseAllPanels; VarMenuPnl.Visible = True; SectionPnl2.Height = 300; } } void OpBtnClick; { if (OpMenuPnl.Visible) { OpMenuPnl.Visible = False; SectionPnl3.Height = 50; } else { CloseAllPanels; OpMenuPnl.Visible = True; SectionPnl3.Height = 200; } } void ConBtnClick; { if (ConMenuPnl.Visible) { ConMenuPnl.Visible = False; SectionPnl4.Height = 50; } else { CloseAllPanels; ConMenuPnl.Visible = True; SectionPnl4.Height = 250; } } void LoopBtnClick; { if (LoopMenuPnl.Visible) { LoopMenuPnl.Visible = False; SectionPnl5.Height = 50; } else { CloseAllPanels; LoopMenuPnl.Visible = True; SectionPnl5.Height = 350; } } void ArrBtnClick; { if (ArrMenuPnl.Visible) { ArrMenuPnl.Visible = False; SectionPnl6.Height = 50; } else { CloseAllPanels; ArrMenuPnl.Visible = True; SectionPnl6.Height = 200; } } void VoidBtnClick; { if (VoidMenuPnl.Visible) { VoidMenuPnl.Visible = False; SectionPnl7.Height = 50; } else { CloseAllPanels; VoidMenuPnl.Visible = True; SectionPnl7.Height = 350; } } void TryBtnClick; { if (TryMenuPnl.Visible) { TryMenuPnl.Visible = False; SectionPnl8.Height = 50; } else { CloseAllPanels; TryMenuPnl.Visible = True; SectionPnl8.Height = 250; } } void FormBtnClick; { if (FormMenuPnl.Visible) { FormMenuPnl.Visible = False; SectionPnl9.Height = 50; } else { CloseAllPanels; FormMenuPnl.Visible = True; SectionPnl9.Height = 250; } } void CompBtnClick; { if (CompMenuPnl.Visible) { CompMenuPnl.Visible = False; SectionPnl10.Height = 50; } else { CloseAllPanels; CompMenuPnl.Visible = True; SectionPnl10.Height = 300; } } void EventBtnClick; { if (EventMenuPnl.Visible) { EventMenuPnl.Visible = False; SectionPnl11.Height = 50; } else { CloseAllPanels; EventMenuPnl.Visible = True; SectionPnl11.Height = 250; } }
// --- ANA TASARIM VE FORMUN YARATILDIĞI YER --- { MyForm = TclForm.Create(Self); // BURASI GITHUB ASSET BAĞLANTISI (Fotoğraflar için şart) MyForm.AddAssetFromUrl(' https://github.com/cayesrabetul-pixel/CloStepp.git" rel="nofollow - https://github.com/cayesrabetul-pixel/CloStepp.git ');
MyForm.SetFormColor('#F8FAFC', '', clGNone); MainScrollBox = MyForm.AddNewVertScrollBox(MyForm, 'MainScrollBox'); MainScrollBox.Align = alClient;
// 1. PRINT BÖLÜMÜ SectionPnl1 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl1'); SectionPnl1.Align = alTop; SectionPnl1.Height = 50; SectionPnl1.Margins.Top = 10; PrintMainBtn = MyForm.AddNewProButton(SectionPnl1, 'PrintMainBtn', '1. Print İşlemleri ▾'); PrintMainBtn.Align = alTop; PrintMainBtn.Height = 50; PrintMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); PrintMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; PrintMainBtn.SetclProSettings(PrintMainBtn.clProSettings); MyForm.AddNewEvent(PrintMainBtn, tbeOnClick, 'PrintBtnClick'); PrintMenuPnl = MyForm.AddNewProPanel(SectionPnl1, 'PrintMenuPnl'); PrintMenuPnl.Align = alTop; PrintMenuPnl.Height = 150; PrintMenuPnl.Visible = False; BtnPrintA = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintA', 'A) ShowMessage Nedir?'); BtnPrintA.Align = alTop; BtnPrintA.Height = 50; MyForm.AddNewEvent(BtnPrintA, tbeOnClick, 'OptionClicked'); BtnPrintB = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintB', 'B) Pekiştirme 1'); BtnPrintB.Align = alTop; BtnPrintB.Height = 50; MyForm.AddNewEvent(BtnPrintB, tbeOnClick, 'OptionClicked'); BtnPrintC = MyForm.AddNewProButton(PrintMenuPnl, 'BtnPrintC', 'C) Quiz'); BtnPrintC.Align = alTop; BtnPrintC.Height = 50; MyForm.AddNewEvent(BtnPrintC, tbeOnClick, 'OptionClicked');
// 2. DEĞİŞKENLER BÖLÜMÜ SectionPnl2 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl2'); SectionPnl2.Align = alTop; SectionPnl2.Height = 50; SectionPnl2.Margins.Top = 10; VarMainBtn = MyForm.AddNewProButton(SectionPnl2, 'VarMainBtn', '2. Değişkenler ve Veri Türleri ▾'); VarMainBtn.Align = alTop; VarMainBtn.Height = 50; VarMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); VarMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; VarMainBtn.SetclProSettings(VarMainBtn.clProSettings); MyForm.AddNewEvent(VarMainBtn, tbeOnClick, 'VarBtnClick'); VarMenuPnl = MyForm.AddNewProPanel(SectionPnl2, 'VarMenuPnl'); VarMenuPnl.Align = alTop; VarMenuPnl.Height = 250; VarMenuPnl.Visible = False; BtnVarA = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarA', 'A) Değişken Nedir?'); BtnVarA.Align = alTop; BtnVarA.Height = 50; MyForm.AddNewEvent(BtnVarA, tbeOnClick, 'OptionClicked'); BtnVarB = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarB', 'B) Veri Türleri Nedir?'); BtnVarB.Align = alTop; BtnVarB.Height = 50; MyForm.AddNewEvent(BtnVarB, tbeOnClick, 'OptionClicked'); BtnVarC = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarC', 'C) Tip Dönüşümleri'); BtnVarC.Align = alTop; BtnVarC.Height = 50; MyForm.AddNewEvent(BtnVarC, tbeOnClick, 'OptionClicked'); BtnVarD = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarD', 'D) Pekiştirme 2'); BtnVarD.Align = alTop; BtnVarD.Height = 50; MyForm.AddNewEvent(BtnVarD, tbeOnClick, 'OptionClicked'); BtnVarE = MyForm.AddNewProButton(VarMenuPnl, 'BtnVarE', 'E) Quiz'); BtnVarE.Align = alTop; BtnVarE.Height = 50; MyForm.AddNewEvent(BtnVarE, tbeOnClick, 'OptionClicked');
// 3. OPERATÖRLER BÖLÜMÜ SectionPnl3 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl3'); SectionPnl3.Align = alTop; SectionPnl3.Height = 50; SectionPnl3.Margins.Top = 10; OpMainBtn = MyForm.AddNewProButton(SectionPnl3, 'OpMainBtn', '3. Operatörler ▾'); OpMainBtn.Align = alTop; OpMainBtn.Height = 50; OpMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); OpMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; OpMainBtn.SetclProSettings(OpMainBtn.clProSettings); MyForm.AddNewEvent(OpMainBtn, tbeOnClick, 'OpBtnClick'); OpMenuPnl = MyForm.AddNewProPanel(SectionPnl3, 'OpMenuPnl'); OpMenuPnl.Align = alTop; OpMenuPnl.Height = 150; OpMenuPnl.Visible = False; BtnOp1 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp1', '1) Operatör Türleri'); BtnOp1.Align = alTop; BtnOp1.Height = 50; MyForm.AddNewEvent(BtnOp1, tbeOnClick, 'OptionClicked'); BtnOp2 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp2', '2) Pekiştirme 3'); BtnOp2.Align = alTop; BtnOp2.Height = 50; MyForm.AddNewEvent(BtnOp2, tbeOnClick, 'OptionClicked'); BtnOp3 = MyForm.AddNewProButton(OpMenuPnl, 'BtnOp3', '3) Quiz'); BtnOp3.Align = alTop; BtnOp3.Height = 50; MyForm.AddNewEvent(BtnOp3, tbeOnClick, 'OptionClicked');
// 4. KOŞULLAR BÖLÜMÜ SectionPnl4 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl4'); SectionPnl4.Align = alTop; SectionPnl4.Height = 50; SectionPnl4.Margins.Top = 10; ConMainBtn = MyForm.AddNewProButton(SectionPnl4, 'ConMainBtn', '4. Koşullar ▾'); ConMainBtn.Align = alTop; ConMainBtn.Height = 50; ConMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); ConMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; ConMainBtn.SetclProSettings(ConMainBtn.clProSettings); MyForm.AddNewEvent(ConMainBtn, tbeOnClick, 'ConBtnClick'); ConMenuPnl = MyForm.AddNewProPanel(SectionPnl4, 'ConMenuPnl'); ConMenuPnl.Align = alTop; ConMenuPnl.Height = 200; ConMenuPnl.Visible = False; BtnCon1 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon1', '1) If-Else Nedir?'); BtnCon1.Align = alTop; BtnCon1.Height = 50; MyForm.AddNewEvent(BtnCon1, tbeOnClick, 'OptionClicked'); BtnCon2 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon2', '2) Case Nedir'); BtnCon2.Align = alTop; BtnCon2.Height = 50; MyForm.AddNewEvent(BtnCon2, tbeOnClick, 'OptionClicked'); BtnCon3 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon3', '3) Pekiştirme 4'); BtnCon3.Align = alTop; BtnCon3.Height = 50; MyForm.AddNewEvent(BtnCon3, tbeOnClick, 'OptionClicked'); BtnCon4 = MyForm.AddNewProButton(ConMenuPnl, 'BtnCon4', '4) Quiz'); BtnCon4.Align = alTop; BtnCon4.Height = 50; MyForm.AddNewEvent(BtnCon4, tbeOnClick, 'OptionClicked');
// 5. DÖNGÜLER BÖLÜMÜ SectionPnl5 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl5'); SectionPnl5.Align = alTop; SectionPnl5.Height = 50; SectionPnl5.Margins.Top = 10; LoopMainBtn = MyForm.AddNewProButton(SectionPnl5, 'LoopMainBtn', '5. Döngüler ▾'); LoopMainBtn.Align = alTop; LoopMainBtn.Height = 50; LoopMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); LoopMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; LoopMainBtn.SetclProSettings(LoopMainBtn.clProSettings); MyForm.AddNewEvent(LoopMainBtn, tbeOnClick, 'LoopBtnClick'); LoopMenuPnl = MyForm.AddNewProPanel(SectionPnl5, 'LoopMenuPnl'); LoopMenuPnl.Align = alTop; LoopMenuPnl.Height = 300; LoopMenuPnl.Visible = False; BtnL1 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL1', '1) While Nedir?'); BtnL1.Align = alTop; BtnL1.Height = 50; MyForm.AddNewEvent(BtnL1, tbeOnClick, 'OptionClicked'); BtnL2 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL2', '2) Repeat-Until Nedir?'); BtnL2.Align = alTop; BtnL2.Height = 50; MyForm.AddNewEvent(BtnL2, tbeOnClick, 'OptionClicked'); BtnL3 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL3', '3) For Nedir?'); BtnL3.Align = alTop; BtnL3.Height = 50; MyForm.AddNewEvent(BtnL3, tbeOnClick, 'OptionClicked'); BtnL4 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL4', '4) Döngü Yönlendirme İfadeleri?'); BtnL4.Align = alTop; BtnL4.Height = 50; MyForm.AddNewEvent(BtnL4, tbeOnClick, 'OptionClicked'); BtnL5 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL5', '5) Pekiştirme 5'); BtnL5.Align = alTop; BtnL5.Height = 50; MyForm.AddNewEvent(BtnL5, tbeOnClick, 'OptionClicked'); BtnL6 = MyForm.AddNewProButton(LoopMenuPnl, 'BtnL6', '6) Quiz'); BtnL6.Align = alTop; BtnL6.Height = 50; MyForm.AddNewEvent(BtnL6, tbeOnClick, 'OptionClicked');
// 6. DİZİLER BÖLÜMÜ SectionPnl6 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl6'); SectionPnl6.Align = alTop; SectionPnl6.Height = 50; SectionPnl6.Margins.Top = 10; ArrMainBtn = MyForm.AddNewProButton(SectionPnl6, 'ArrMainBtn', '6. Diziler ▾'); ArrMainBtn.Align = alTop; ArrMainBtn.Height = 50; ArrMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); ArrMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; ArrMainBtn.SetclProSettings(ArrMainBtn.clProSettings); MyForm.AddNewEvent(ArrMainBtn, tbeOnClick, 'ArrBtnClick'); ArrMenuPnl = MyForm.AddNewProPanel(SectionPnl6, 'ArrMenuPnl'); ArrMenuPnl.Align = alTop; ArrMenuPnl.Height = 150; ArrMenuPnl.Visible = False; BtnArr1 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr1', '1) Diziler Nedir?'); BtnArr1.Align = alTop; BtnArr1.Height = 50; MyForm.AddNewEvent(BtnArr1, tbeOnClick, 'OptionClicked'); BtnArr2 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr2', '2) Pekiştirme 6'); BtnArr2.Align = alTop; BtnArr2.Height = 50; MyForm.AddNewEvent(BtnArr2, tbeOnClick, 'OptionClicked'); BtnArr3 = MyForm.AddNewProButton(ArrMenuPnl, 'BtnArr3', '3) Quiz'); BtnArr3.Align = alTop; BtnArr3.Height = 50; MyForm.AddNewEvent(BtnArr3, tbeOnClick, 'OptionClicked');
// 7. VOID BÖLÜMÜ SectionPnl7 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl7'); SectionPnl7.Align = alTop; SectionPnl7.Height = 50; SectionPnl7.Margins.Top = 10; VoidMainBtn = MyForm.AddNewProButton(SectionPnl7, 'VoidMainBtn', '7. Void(Prosedür) ▾'); VoidMainBtn.Align = alTop; VoidMainBtn.Height = 50; VoidMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); VoidMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; VoidMainBtn.SetclProSettings(VoidMainBtn.clProSettings); MyForm.AddNewEvent(VoidMainBtn, tbeOnClick, 'VoidBtnClick'); VoidMenuPnl = MyForm.AddNewProPanel(SectionPnl7, 'VoidMenuPnl'); VoidMenuPnl.Align = alTop; VoidMenuPnl.Height = 300; VoidMenuPnl.Visible = False; BtnV1 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV1', '1) Parametreli Prosedür?'); BtnV1.Align = alTop; BtnV1.Height = 50; MyForm.AddNewEvent(BtnV1, tbeOnClick, 'OptionClicked'); BtnV2 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV2', '2) Parametresiz Prosedür?'); BtnV2.Align = alTop; BtnV2.Height = 50; MyForm.AddNewEvent(BtnV2, tbeOnClick, 'OptionClicked'); BtnV3 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV3', '3) Fonksiyon Nedir?'); BtnV3.Align = alTop; BtnV3.Height = 50; MyForm.AddNewEvent(BtnV3, tbeOnClick, 'OptionClicked'); BtnV4 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV4', '4) Hazır Kütüphaneler?'); BtnV4.Align = alTop; BtnV4.Height = 50; MyForm.AddNewEvent(BtnV4, tbeOnClick, 'OptionClicked'); BtnV5 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV5', '5) Pekiştirme'); BtnV5.Align = alTop; BtnV5.Height = 50; MyForm.AddNewEvent(BtnV5, tbeOnClick, 'OptionClicked'); BtnV6 = MyForm.AddNewProButton(VoidMenuPnl, 'BtnV6', '6) Quiz'); BtnV6.Align = alTop; BtnV6.Height = 50; MyForm.AddNewEvent(BtnV6, tbeOnClick, 'OptionClicked');
// 8. TRY BÖLÜMÜ SectionPnl8 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl8'); SectionPnl8.Align = alTop; SectionPnl8.Height = 50; SectionPnl8.Margins.Top = 10; TryMainBtn = MyForm.AddNewProButton(SectionPnl8, 'TryMainBtn', '8. Hata Yakalama ▾'); TryMainBtn.Align = alTop; TryMainBtn.Height = 50; TryMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); TryMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; TryMainBtn.SetclProSettings(TryMainBtn.clProSettings); MyForm.AddNewEvent(TryMainBtn, tbeOnClick, 'TryBtnClick'); TryMenuPnl = MyForm.AddNewProPanel(SectionPnl8, 'TryMenuPnl'); TryMenuPnl.Align = alTop; TryMenuPnl.Height = 200; TryMenuPnl.Visible = False; BtnTry1 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry1', '1) Try-Except Nedir?'); BtnTry1.Align = alTop; BtnTry1.Height = 50; MyForm.AddNewEvent(BtnTry1, tbeOnClick, 'OptionClicked'); BtnTry2 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry2', '2) Try-Finally Nedir?'); BtnTry2.Align = alTop; BtnTry2.Height = 50; MyForm.AddNewEvent(BtnTry2, tbeOnClick, 'OptionClicked'); BtnTry3 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry3', '3) Pekiştirme'); BtnTry3.Align = alTop; BtnTry3.Height = 50; MyForm.AddNewEvent(BtnTry3, tbeOnClick, 'OptionClicked'); BtnTry4 = MyForm.AddNewProButton(TryMenuPnl, 'BtnTry4', '4) Quiz'); BtnTry4.Align = alTop; BtnTry4.Height = 50; MyForm.AddNewEvent(BtnTry4, tbeOnClick, 'OptionClicked');
// 9. FORM BÖLÜMÜ SectionPnl9 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl9'); SectionPnl9.Align = alTop; SectionPnl9.Height = 50; SectionPnl9.Margins.Top = 10; FormMainBtn = MyForm.AddNewProButton(SectionPnl9, 'FormMainBtn', '9. Form İşlemleri ▾'); FormMainBtn.Align = alTop; FormMainBtn.Height = 50; FormMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); FormMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; FormMainBtn.SetclProSettings(FormMainBtn.clProSettings); MyForm.AddNewEvent(FormMainBtn, tbeOnClick, 'FormBtnClick'); FormMenuPnl = MyForm.AddNewProPanel(SectionPnl9, 'FormMenuPnl'); FormMenuPnl.Align = alTop; FormMenuPnl.Height = 200; FormMenuPnl.Visible = False; BtnForm1 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm1', '1) Form Nedir?'); BtnForm1.Align = alTop; BtnForm1.Height = 50; MyForm.AddNewEvent(BtnForm1, tbeOnClick, 'OptionClicked'); BtnForm2 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm2', '2) Form Özellikleri'); BtnForm2.Align = alTop; BtnForm2.Height = 50; MyForm.AddNewEvent(BtnForm2, tbeOnClick, 'OptionClicked'); BtnForm3 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm3', '3) Pekiştirme'); BtnForm3.Align = alTop; BtnForm3.Height = 50; MyForm.AddNewEvent(BtnForm3, tbeOnClick, 'OptionClicked'); BtnForm4 = MyForm.AddNewProButton(FormMenuPnl, 'BtnForm4', '4) Quiz'); BtnForm4.Align = alTop; BtnForm4.Height = 50; MyForm.AddNewEvent(BtnForm4, tbeOnClick, 'OptionClicked');
// 10. BİLEŞENLER BÖLÜMÜ SectionPnl10 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl10'); SectionPnl10.Align = alTop; SectionPnl10.Height = 50; SectionPnl10.Margins.Top = 10; CompMainBtn = MyForm.AddNewProButton(SectionPnl10, 'CompMainBtn', '10. Bileşenler ▾'); CompMainBtn.Align = alTop; CompMainBtn.Height = 50; CompMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); CompMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; CompMainBtn.SetclProSettings(CompMainBtn.clProSettings); MyForm.AddNewEvent(CompMainBtn, tbeOnClick, 'CompBtnClick'); CompMenuPnl = MyForm.AddNewProPanel(SectionPnl10, 'CompMenuPnl'); CompMenuPnl.Align = alTop; CompMenuPnl.Height = 250; CompMenuPnl.Visible = False; BtnComp1 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp1', '1) Çeşitler Nelerdir?'); BtnComp1.Align = alTop; BtnComp1.Height = 50; MyForm.AddNewEvent(BtnComp1, tbeOnClick, 'OptionClicked'); BtnComp2 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp2', '2) Ortak Özellikler?'); BtnComp2.Align = alTop; BtnComp2.Height = 50; MyForm.AddNewEvent(BtnComp2, tbeOnClick, 'OptionClicked'); BtnComp3 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp3', '3) Temel Özellikler?'); BtnComp3.Align = alTop; BtnComp3.Height = 50; MyForm.AddNewEvent(BtnComp3, tbeOnClick, 'OptionClicked'); BtnComp4 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp4', '4) Pekiştirme'); BtnComp4.Align = alTop; BtnComp4.Height = 50; MyForm.AddNewEvent(BtnComp4, tbeOnClick, 'OptionClicked'); BtnComp5 = MyForm.AddNewProButton(CompMenuPnl, 'BtnComp5', '5) Quiz'); BtnComp5.Align = alTop; BtnComp5.Height = 50; MyForm.AddNewEvent(BtnComp5, tbeOnClick, 'OptionClicked');
// 11. EVENTS BÖLÜMÜ SectionPnl11 = MyForm.AddNewProPanel(MainScrollBox, 'SectionPnl11'); SectionPnl11.Align = alTop; SectionPnl11.Height = 50; SectionPnl11.Margins.Top = 10; EventMainBtn = MyForm.AddNewProButton(SectionPnl11, 'EventMainBtn', '11. Olaylar (Events) ▾'); EventMainBtn.Align = alTop; EventMainBtn.Height = 50; EventMainBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); EventMainBtn.clProSettings.FontColor = clAlphaColor.clWhite; EventMainBtn.SetclProSettings(EventMainBtn.clProSettings); MyForm.AddNewEvent(EventMainBtn, tbeOnClick, 'EventBtnClick'); EventMenuPnl = MyForm.AddNewProPanel(SectionPnl11, 'EventMenuPnl'); EventMenuPnl.Align = alTop; EventMenuPnl.Height = 200; EventMenuPnl.Visible = False; BtnEv1 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv1', '1) Events Nedir?'); BtnEv1.Align = alTop; BtnEv1.Height = 50; MyForm.AddNewEvent(BtnEv1, tbeOnClick, 'OptionClicked'); BtnEv2 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv2', '2) Çeşitleri Nedir?'); BtnEv2.Align = alTop; BtnEv2.Height = 50; MyForm.AddNewEvent(BtnEv2, tbeOnClick, 'OptionClicked'); BtnEv3 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv3', '3) Pekiştirme'); BtnEv3.Align = alTop; BtnEv3.Height = 50; MyForm.AddNewEvent(BtnEv3, tbeOnClick, 'OptionClicked'); BtnEv4 = MyForm.AddNewProButton(EventMenuPnl, 'BtnEv4', '4) Quiz'); BtnEv4.Align = alTop; BtnEv4.Height = 50; MyForm.AddNewEvent(BtnEv4, tbeOnClick, 'OptionClicked');
MyForm.Run; }
bu ana kod sayfası
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" 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">
|