Genel İşlemler - github üzerinden fotoğraf yükleme

github üzerinden fotoğraf yükleme

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=1476
Tarih: 06 Mayıs 2026 Saat 22:41
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: github üzerinden fotoğraf yükleme

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

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;

}

// --- GENEL FONKSİYONLAR ---

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 = ' https://lh3.googleusercontent.com/drive-storage/AJQWtBMQVhbR0pHcJJheRrPRUAkk7Kpcq9wZ9U29VM53kb52gJh17L9TRsKwsUVCVZQthu0fMursvbujZwqyKEVeqsSDU-LOdT3YiqFlk4wL9Km4dJZB=s220" rel="nofollow - https://lh3.googleusercontent.com/drive-storage/AJQWtBMQVhbR0pHcJJheRrPRUAkk7Kpcq9wZ9U29VM53kb52gJh17L9TRsKwsUVCVZQthu0fMursvbujZwqyKEVeqsSDU-LOdT3YiqFlk4wL9Km4dJZB=s220 ';

}

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

}

Merhaba Hocam,

bu kod bloğuna GitHub üzerinden fotoğraf eklemek için yazılması gereken void kod bloğunu yazamadık.Yardımcı olursanız seviniriz. Şimdiden teşekkürler.

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 21:20

Merhaba Esra

IDE ekranında yer alana assets kullandığımız zaman fotoğraflar siyah olarak geliyor demiştin değil mi? Rica etsem o kodu da atabilir misin

Mesajı Yazan: Esra Betül
Mesaj Tarihi: 06 Mayıs 2026 Saat 21:29

Hocam assest konumunu yazdıgımızda sıyah ekran degil direkt açılmıyor veya erişim engeli veriyor. Ayrı bir kod yazmadık bu kodda link yerine assest konumu yazarak denedik. 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: Emr.Erkmn
Mesaj Tarihi: 06 Mayıs 2026 Saat 21:37

Merhaba Esra

void AssetleriYukle;

{

YonetimForm.AddAssetFromUrl(' https://raw.githubusercontent.com/emrkmn/ses/main/arkaplanmz.mp3" rel="nofollow - https://raw.githubusercontent.com/emrkmn/ses/main/arkaplanmz.mp3 ');

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

}

Verdiğim kod örnek bir prosedür mantığı bu şekilde githup üzerinden de görselleri indirip dosya adlarıyla beraber kullanabilirisn.

Assest konumu ile yazdığın kod duruyorsa tekrar atabilir misin?

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Mayıs 2026 Saat 21:38

Daha sonra AssetleriYukle prosedürü formu creat ettiğin yerin hemen altında çağırmanı da gerekli 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 21:41

hocam o kodlar elimizde yok link yerine direkt onu koymustuk. hata alınca lınklerle degıstırdık 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 22:32

Merhaba Hocam, 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">

biz void kısmın ekledik. Link uzantısını da ekledik. Asset link üzerinden fotografı cekıp konum olarak eklemek istediğimizde , asset kısmına linki yapıştırıyoruz ancak fotograf cekmıyor sadece yuklenıyor seklınde donuyor

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Mayıs 2026 Saat 22:37

kodu paylaşabilir misin 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 22:40

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

}

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