Merhabalar,
Yaptığım aramada genelde yani çıkan sonuçların tümünde field lerde şarta göre renklendirme olayları anlatılmış ve bunu yapabiliyorum. Yapmak istediğim şu.
Mem tabloya veri girişi yapılıyor. qreport ayarlarını ona göre yaptım ki mem tablo yazdırıldığında her sayfada on veri yazdırılıyor. bu jvdbgrid de veriler göründükçe yani kayıt girildikçe her on kayıtta bir satır renkleri değişsin istiyorum. yani ilk on kayıt sarı satır renkli sonraki on kayıt beyaz sonraki on kayıt gümüş gibi bunu nasıl bir yöntemle yapabilirim
kolay gelsin teşekkürler
jvdbgrid belirli sayıda satır renklendirme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
jvdbgrid belirli sayıda satır renklendirme
En son bobasturk tarafından 21 Mar 2006 09:48 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
jvdbgrid söle söleyeyim sadece gridde görünecekse jvdbgrid cellcolor diye bir sey veya buna yakın bir sey olmalı
her on kayıtta bir renk değişsin istiyorsan...
jvdbgrid bağlı datasource change olayına
jvdbgridin satır sayısını mod işlemine sokar mod(10) göre sonuc sıfır olunca sen satırın satır renklerini değiştirisin şimdilik aklıma gelen bu?
her on kayıtta bir renk değişsin istiyorsan...
jvdbgrid bağlı datasource change olayına
jvdbgridin satır sayısını mod işlemine sokar mod(10) göre sonuc sıfır olunca sen satırın satır renklerini değiştirisin şimdilik aklıma gelen bu?
Siz hayal edin...Biz yapalım TuannaSoft...
Merhaba,
@Tuanna ustam verdiğin ipucu ile forumda yaptığım arama sonucunda
bu koda ulaştım gayet güzel bir satır cream renk bir satır btnface renk. ama istediğim on satırda bir renk değişimi üzerinde çalışıyorum fakat sanırım döngü kurmak gerekiyor
teşekkür ve saygılarımla kolay gelsin
@Tuanna ustam verdiğin ipucu ile forumda yaptığım arama sonucunda
Kod: Tümünü seç
if jvDBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then
jvDbgrid1.Canvas.brush.Color:=clcream
else
if jvDBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then
jvDbgrid1.Canvas.Brush.Color:=clbtnface;
jvdbgrid1.Canvas.Brush.Color:=jvDbgrid1.Canvas.Brush.Color;
jvdbGrid1.Canvas.Font.Color:=ClBlack; // Fontun rengini değiştirir..
jvDbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);
teşekkür ve saygılarımla kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
merhaba,
@Gökmen ustam teşekkür ederim şu an deneyemiyorum denediğim an sonucu aktarırım.
Kolay gelsin
@Gökmen ustam teşekkür ederim şu an deneyemiyorum denediğim an sonucu aktarırım.
Kolay gelsin
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Merhaba,
Diğer işlerin yoğunluğundan cevap verme boşluğunu yeni buldum, @Gökmen ustam verdiğin şekilde kullandım ve gayet güzel aslında küçük bir sorun haricinde on kaydı seçip rengini değiştireceğine dokuz kaydın rengini değiştiriyor. deneme mahiyetli girdiğim 11 kayıt var. İlk kayıt seçili durumda dokuz kaydın rengini btnface yapıyor diğerlerini default rengte tutuyor.
Uyguladığım kod şöyle;
teşekkür ve saygılarımla kolay gelsin
Diğer işlerin yoğunluğundan cevap verme boşluğunu yeni buldum, @Gökmen ustam verdiğin şekilde kullandım ve gayet güzel aslında küçük bir sorun haricinde on kaydı seçip rengini değiştireceğine dokuz kaydın rengini değiştiriyor. deneme mahiyetli girdiğim 11 kayıt var. İlk kayıt seçili durumda dokuz kaydın rengini btnface yapıyor diğerlerini default rengte tutuyor.
Uyguladığım kod şöyle;
Kod: Tümünü seç
procedure TFrmGelenEvrakAnaTablo.JvDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (jvDBGrid1.DataSource.DataSet.RecNO div 10) mod 2 = 0 then
jvDbgrid1.Canvas.brush.Color:=clbtnface
else
jvdbgrid1.Canvas.Brush.Color:=jvDbgrid1.Canvas.Brush.Color;
jvdbGrid1.Canvas.Font.Color:=ClBlack; // Fontun rengini değiştirir..
jvDbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);
end;
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
merhaba,
jvDBGrid1.DataSource.DataSet.RecNO = 0 olan kayıt olmadığından ilk seri 9 adetten oluşuyor.Şunu derseniz sanırım sorun çözülür.
kolay gelsin.
jvDBGrid1.DataSource.DataSet.RecNO = 0 olan kayıt olmadığından ilk seri 9 adetten oluşuyor.Şunu derseniz sanırım sorun çözülür.
Kod: Tümünü seç
if ((jvDBGrid1.DataSource.DataSet.RecNO - 1) div 10) mod 2 = 0 then
jvDbgrid1.Canvas.brush.Color:=clbtnface
else
jvdbgrid1.Canvas.Brush.Color:=jvDbgrid1.Canvas.Brush.Color;
Merhaba,
@ylmz ustam teşekkür ederim @gkimirti ustam ve sizin vermiş olduğu kıymetli bilgi doğrultusunda kodu şu şekilde düzenledim ve her on kayıtta bir satır renlerini değiştirdi.
Teşekkür ve saygılarımla.
Kolay gelsin.
not:ileride birilerine lazım olması amacı ile konu başlığını uygun şekilde değiştirdim.
kodu yazmayı unutmuşum.
@ylmz ustam teşekkür ederim @gkimirti ustam ve sizin vermiş olduğu kıymetli bilgi doğrultusunda kodu şu şekilde düzenledim ve her on kayıtta bir satır renlerini değiştirdi.
Teşekkür ve saygılarımla.
Kolay gelsin.
not:ileride birilerine lazım olması amacı ile konu başlığını uygun şekilde değiştirdim.
kodu yazmayı unutmuşum.
Kod: Tümünü seç
procedure TFrmGelenEvrakAnaTablo.JvDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if ((jvDBGrid1.DataSource.DataSet.RecNO-1) div 10) mod 2 = 0 then
jvDbgrid1.Canvas.brush.Color:=clbtnface
else
jvdbgrid1.Canvas.Brush.Color:=clcream;
jvdbGrid1.Canvas.Font.Color:=ClBlack; // Fontun rengini değiştirir..
jvDbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);
end;
Şefkat-u Merhamette Güneş Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.
Başkalarının Kusurunu Örtmekte Gece Gibi Ol.
Sehavet-u Cömertlikte Akarsu Gibi Ol.
Hiddet-u Asabiyette Ölü Gibi Ol.
Tevazu-u Mahviyette Toprak Gibi Ol.
Ya Olduğun Gibi Görün Ya Göründüğün Gibi Ol.