Clomosy ile değişken kullanımı - Switch kullanırken sorun yaşıyorum

Sayfayı Yazdır | Pencereyi Kapat

Switch kullanırken sorun yaşıyorum

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1250
Tarih: 24 Şubat 2026 Saat 15:44
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Switch kullanırken sorun yaşıyorum

Mesajı Yazan: Berat Deveci
Konu: Switch kullanırken sorun yaşıyorum
Mesaj Tarihi: 24 Aralık 2025 Saat 21:42

Var

Switch : TclSwitch;

Bmg1, Bmg2: TClProImage;

Form1: TclForm;

void acma {

if (Switch.isChecked){

Bmg1.visible=True;

Bmg2.visible= False;

}

else {

Bmg1.visible=False;

Bmg2.visible= True;

}

{

Form1 = TclForm.Create(Self);

Switch= Form1.AddNewSwitch(Form1,'Switch');

Bmg1 = Form1.AddNewProImage(Form1, 'Bmg1');

Bmg2 = Form1.AddNewProImage(Form1, 'Bmg2');

clComponent.SetupComponent(Bmg1,'{"Align": "Center",

"MarginsBottom":250,

"Width":120,

"Height":120,

"ImgUrl":" https://i.hizliresim.com/sf427pj.png" rel="nofollow - https://i.hizliresim.com/sf427pj.png" ,

"ImgFit": "yes"

}');

clComponent.SetupComponent(Bmg2,'{"Align": "Center",

"MarginsBottom":250,

"Width":120,

"Height":120,

"ImgUrl":" https://i.hizliresim.com/s35bzfl.png" rel="nofollow - https://i.hizliresim.com/s35bzfl.png" ,

"ImgFit": "yes"

}');

Switch.Align= alCenter;

Switch.Height=330;

Switch.Width=120;

Form1.AddNewEvent(Switch,tbeOnClick,'start')

Form1.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" 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: 25 Aralık 2025 Saat 09:11

Merhaba Berat,
Öncelikle şunu söylemek istiyorum clComponent.SetupComponen bu yapıyla yazmamanını istiyorum. Şu an yapı da desteklemiyoruz.
Hatanın sebebi de prosedürü 'acma' adı altında oluşturmuşsun ama Event da çağırırken start olarak çağırmışsın

Var

Switch : TclSwitch;

Bmg1, Bmg2: TClProImage;

Form1: TclForm;

// Switch'e basıldığında çalışacak prosedür

void acma;

{

if (Switch.IsChecked)

{

Bmg1.Visible = True;

Bmg2.Visible = False;

}

else

{

Bmg1.Visible = False;

Bmg2.Visible = True;

}

{

Form1 = TclForm.Create(Self);

// --- RESİM 1 AYARLARI ---

Bmg1 = Form1.AddNewProImage(Form1, 'Bmg1');

Bmg1.Align = alCenter;

Bmg1.Width = 120;

Bmg1.Height = 120;

Bmg1.Margins.Bottom = 250;

Form1.SetImage(Bmg1, ' https://i.hizliresim.com/sf427pj.png" rel="nofollow - https://i.hizliresim.com/sf427pj.png ');

Bmg1.SetclProSettings(Bmg1.clProSettings);

// --- RESİM 2 AYARLARI ---

Bmg2 = Form1.AddNewProImage(Form1, 'Bmg2');

Bmg2.Align = alCenter;

Bmg2.Width = 120;

Bmg2.Height = 120;

Bmg2.Margins.Bottom = 250;

// Resim URL Atama

Form1.SetImage(Bmg2, ' https://i.hizliresim.com/s35bzfl.png" rel="nofollow - https://i.hizliresim.com/s35bzfl.png ');

Bmg2.SetclProSettings(Bmg2.clProSettings);

// Başlangıçta Bmg2 kapalı olsun

Bmg2.Visible = False;

// --- SWITCH AYARLARI ---

Switch = Form1.AddNewSwitch(Form1, 'Switch');

Switch.Align = alCenter;

Switch.Width = 120;

Switch.Height = 50;

Switch.Margins.Top = 150;

// Olay Tanımlama (Event)

Form1.AddNewEvent(Switch, tbeOnClick, 'acma');

Form1.Run;

}