DBGridDrawColumnCell ile satır renklendirme

[conari]

Arkadaşlar Öncelikle hepinizin geçmiş kurban bayramını ve yeni yılını kutlarım. Gridimde fields [0] alanına göre renk vereceğim tüm satırlara fakat bir türlü karşılaştıramadım. Registry veya ini dosyası oluşturmak istemiyorum.
JediDbgrid kullanıyorum.

Kod: Tümünü seç

procedure TSform.ALLsipDBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
  var ilk,son:string;
begin
    ilk :=   ALLsipDBGrid.Fields[0].Value;
          if ilk <>son
    then begin ALLsipDBGrid.Color:= clRed;
           end
    else begin ALLsipDBGrid.Color:= clgreen;
           son :=ALLsipDBGrid.Fields[0].Value;
end;
end;

Numara
1 satır renk Kırmızı
1 satır renk Kırmızı
2 satır renk Yeşil
2 satır renk Yeşil
3 satır renk Kırmızı
4 satır renk Yeşil
5 satır renk Kırmızı
Şeklinde gitmesini istiyorum.
Bu kodda hatalı biliyorum ama böle bişeyi rege ve ini ye yazmadan nasıl yapabiliriz. Teşekkürler.

[fatihtolgaata]

State'i kontrol ettir. Eğer focused ya da selected değilse Rect sabitini kullanarak Canvas.Fill(Rect) ile boyattır. Mesela:

Kod: Tümünü seç

ALLsipDBGrid.Canvas.Brush.Color := clRed;
ALLsipDBGrid.Canvas.Fill(Rect);

gibi...

[conari]

Teşekkür Lakin istediğim bu değil. bu işlem Seçim de tıklanan alanın canvas ini değiştiriyor.onu bu kod ile yapıyorum.

Kod: Tümünü seç

if (TStringGrid(ALLsipDBGrid).Row mod 2) =0
then ALLsipDBGrid.Canvas.Brush.Color := clGreen
else ALLsipDBGrid.Canvas.Brush.Color := clRed;

Benim istediğim Field daki değer değişiminde Kırmızı ve Yeşil olması.

[aslangeri]

s.a.
direk tablonun alanını kontrol ederek yapabilmen lazım.

[sabanakman]

Mrb;

Kod: Tümünü seç

procedure TSform.ALLsipDBGridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if ALLsipDBGrid.Fields[0].AsInteger mod 2=1 then
    ALLsipDBGrid.Canvas.Brush.Color := clRed
  else ALLsipDBGrid.Canvas.Brush.Color := clGreen;
  DBGrid.DefaultDrawColumnCell(Sender,Rect,DataCol,Column,State);
end;

şeklinde boyama işlemi yapabilirsin ama bu bir satır yeşil bir satır kırmızı olmaz ALLsipDBGrid.Fields[0] da bulunan değer tek ise kırmızı çift ise yeşil olur. Kolay gelsin.

[conari]

@Aslan Hocam bu konu ile ilgili biraz daha detaylı bilgi verebilirmisin.

[conari]

@Saban hoca saol lakin Fields[0].value string de olabilir.

[conari]

[Error] Siparis.pas(1143): Incompatible types: 'TRect' and 'TObject'
[Error] Siparis.pas(1143): Incompatible types: 'TColumn' and 'Integer'

bu satır için aldım bu hataları
ALLsipDBGrid.DefaultDrawColumnCell(Sender,Rect,DataCol,Column,State);
end;

[sabanakman]

Mrb; sender parametresini sil ve şu hale getir DBGrid.DefaultDrawColumnCell(Rect,DataCol,Column,State);. Acele ile test etmeden cevap yazınca böyle oldu. Fields[0].value değerine göre renklendirme işlemi yapmak istiyorsan o zaman ortaya çıkan renkler gridin gösterdiği tablonun gridde gösterdiği ilk alanın değerlerine göre renklendirilecektir. Örneğime göre ilk alanda görünen değer tek ise kırmızı çift ise yeşil görünecektir. Tüm kayıtlarda o alan değeri tek ise kıpkırmızı bir gridin olacaktır. Değerin string de olabileceğini söylüyorsun. O halde sen bu örnekten yola çıkarak kodları kendi istediğin şekilde uygunlaştırabilirsin. Kolay gelsin.

[conari]

Alanın İnteger olduğunu varsayarsak çalışıyor.

yalnız; İşlem öncesinde count için > 0 kontrolü yapılmalı.

Hoca Teşekkürler.