colordialog1

[zengin]

degerli arkadaşlarım formumda colordialog1 renk konusunda renkleri
sabitlemem gerekiyor örnegin veri tabanına kayıt yapılabilirmi
bana bu konuda yardımlarızı bekliyorum
saygılarımla

Kod: Tümünü seç

if colordialog1.execute then
begin
panel1.Color:=colordialog1.color;
end;

[ALUCARD]

veritabanına bitane kayıt adını panel1color verip

Kod: Tümünü seç

if colordialog1.execute then 
begin 
panel1.Color:=colordialog1.color; 
tablepanel1color.value:=colordialog1.color;(bunu stringe çevir)
end;

formun creeattinede

Kod: Tümünü seç

panel1.color:=tablepanel1color.value;

dersen sorunun hallolur

[zengin]

ALUCARD kardeşim datadaki alan paradoks kullanıyorum

Kod: Tümünü seç

veritabanına bitane kayıt adını panel1color verip  

dediginiz alan( Type ) ? ne olacak

[mussimsek]

renkler Integer sayıdır. Integer gibi davranabilirsin.

Table1.FieldByName('RENK').AsInteger := clRed;

Panel1.Color := TColor(Table1.FieldByName('RENK').AsInteger);

gibi.

Kolay gelsin.

[zengin]

Degerli üstatlarım colordialog1 kaydetme işlemini bu şekilde oldu
yardımlarınızdan dolayı cokteşkkür ederim
saygılarımla zengin

Kod: Tümünü seç

table1.Edit;
if colordialog1.execute then
begin
Table1.FieldByName('RENK').AsInteger := colordialog1.color;
Panel1.Color := TColor(Table1.FieldByName('RENK').AsInteger);
panel5.Color:= TColor(Table1.FieldByName('RENK').AsInteger);
panel4.Color:= TColor(Table1.FieldByName('RENK').AsInteger);
table1.Post;

end;

[ALUCARD]

eğer yardımcı olabildiysek ne mutlu bize
@alucard