Colorpanelden seçilen rengi labela veya memo nesnesine aktarma

[10.Köy]

Öncelikle herkese merhaba.Birkaç foruma konu açtım ama sanırım delphide destek giderek azalıyor. XE kullanımında oldukça zorlanıyorum. Yapmak istediğim formun rengini colorpanel ile belirledikten sonra renk bilgisini labela veya memoya aktarmak istiyorum. Bununla amacım kullanıcı rengi seçtikten sonra her programı açtığında formun rengi seçtiği renk olmasını sağlayacağım. Aşağıdaki gibi yaptığımda 'Accesss violation at address renk, accessing address renk' şeklinde hata alıyorum.

Colorpanel1 onchance event'ine

Kod: Tümünü seç

form1.Fill.Color:=colorpanel1.color; 
label1.Text:=string(form1.fill.color); 

[ikra]

access violation hatasi henüz olusturulmamis bir nesneye ulasmak istediginizde meydana gelir.

[10.Köy]

access violation hatasi henüz olusturulmamis bir nesneye ulasmak istediginizde meydana gelir.

Cevabınız için çok teşekkürler yalnız form rengi oluşuyor degistirebiliyorum. Ne zaman oluşturuyor olabilir ki renk ismini?

[ikra]

hata ille burada olmak zorunda degil. OnChange eventinde tetiklediginiz bir prosedür yada get ettiginiz bir fonksyon icerisinde henüz olusturulmamis bir nesne olabilir. Paint prosedürünü override etmis ve icerisinde gerceklestirdiginiz oldugunuz islemde henüz olusturulmamis bir nesneye erismeye calisiyor olabilirsiniz.
bunlar görmedigim kodlar üzerine yapmis oldugum tahminler.
kolari göremedigim sürece verebilecegim tek cevap "Allah bilir" olacaktir.

[10.Köy]

Colorpanel1 onchance eventinde yalnızca bu iki kod var.
[

Kod: Tümünü seç

 form1.Fill.Color:=colorpanel1.color; 
label1.Text:=string(form1.fill.color);

Teşekkür ederim cevaplariniz için ayrıca. Gercekten. Sanirim zor olucak bulmak. Delphi 7 de çok kolay oluyordu herşey. XE ezber bozarken işlevsel bari olsa katlanicam. Hayirlisi bakalım.

[10.Köy]

Butonla labela cagirdigimda da aynı durum var.

[ikra]

convert islemini yanlis yapiyorsun. simdi dikkatimi cekti.

Kod: Tümünü seç

label1.caption := colortostring(canvas.brush.color)

dogrusu bu sekilde.

[10.Köy]

convert islemini yanlis yapiyorsun. simdi dikkatimi cekti.

Kod: Tümünü seç

label1.caption := colortostring(canvas.brush.color)

dogrusu bu sekilde.

Müsait olunca hemen deniyorum ki muhtemelen calisiyordur Allah razı olsun ne diyim Sağolasın.

[10.Köy]

convert islemini yanlis yapiyorsun. simdi dikkatimi cekti.

Kod: Tümünü seç

label1.caption := colortostring(canvas.brush.color)

dogrusu bu sekilde.

XE sürümlerinde sanırım bu kod çalışmıyor. Şu şekilde hatalar verdi. Yalnız verdiğiniz kodu uyarlamaya çalışıcam. Çok teşekkür ederim, yine de fikir vermek isterseniz sevinirim.

[ikra]

evde xe kurulu. eve gecince bakarim.
xe icerisinde class helperler var olabilir.

Color.ToString seklinde kullaniliyor olabilir. Kismet olursa bakar cevabini yazarim.

[SimaWB]

ColorToString fonksiyonunu kullanabilmek için XE'de Graphics unitini proje dosyanıza eklemelisiniz. XE2 ve sonrası için Vcl.Graphics sanırım.

[10.Köy]

evde xe kurulu. eve gecince bakarim.
xe icerisinde class helperler var olabilir.

Color.ToString seklinde kullaniliyor olabilir. Kismet olursa bakar cevabini yazarim.

Cok teşekkür ederim cidden iyi usenmeyip yardımcı oluyorsunuz.

[10.Köy]

ColorToString fonksiyonunu kullanabilmek için XE'de Graphics unitini proje dosyanıza eklemelisiniz. XE2 ve sonrası için Vcl.Graphics sanırım.

Müsait olunca deneyeceğim yazdiklarinizi yalnız xe8 kullanıyorum mobilde vcl kabul eder mi? Deneyince insAllah cevap yazarım. Çok teşekkürler cevabınız için.

[SimaWB]

Firemonkey'deki karşılığı StringToAlphaColor'mış.(System.UIConsts)

[10.Köy]

Firemonkey'deki karşılığı StringToAlphaColor'mış.(System.UIConsts)

Ellerinize sağlık @SimaWB, çok teşekkür ederim Sorunun tam çözümüne yardım ettiğiniz için @ikra, @SimaWB ellerinize yüreğinize sağlık, teşekkürler.