dbgrid te renk

[ypinar]

merhaba
dbgridde aktif satırın istenen renge boyanmasını aşağıda verdiğiniz kodla yapıyorum.Ama

mesala soyle bişey yapmak istiyorum;daha sonra temizle butonuna bastığımda dbgrid

ustunde hiçbir satırda renk olmasın.yani aktif satırda beyaz olsun.Uğraştım ama

yapamadım.Nasıl yapmalıyım

Kod: Tümünü seç

var 
  Form1: TForm1; 

implementation 

type 
  TCustomDBGridCracker = class(TCustomDBGrid); // datalink'i kullanabilmemiz için şart 

{$R *.dfm} 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
with TCustomDBGridCracker(DBGrid1) do 
    if DataLink.ActiveRecord = Row - 1 then 
      Canvas.Brush.Color := clRed 
    else 
      Canvas.Brush.Color := clWhite; 
  DBgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;

[mrmarman]

Merhabalar...

- Şahsen seçili grid satırını istediğimiz renge boyamak için aşağıdaki gibi bir metod uyguluyorum...

Kod: Tümünü seç

If (gdSelected in state)
  then DBGrid1.Canvas.Brush.Color := clRed
  else DBGrid1.Canvas.Brush.Color := clWhite;

- Formunuza global bir değişken koyun (global değişken yerine tercihim DBGrid1'in Tag değerini 0 / 1 değişiliği de işimizi görür) ve bunu boolean tanımlayın... Bu değişken True ise seçiliyse de beyaz olsun, False ise seçiliyse kırmızı, değilse beyaz olsun...

[sinancaylak]

Mustafa hocam verdiğiniz linkte kodları uyguladım yalnız hiçbir hata vermiyor satırıda aktif satırı renklendirmiyor.

[Armani]

Kodu nereye yazdıgında önemli
dbgrid in ondrawcolumncell kısmına yazman lazım

[sinancaylak]

Hocam Ben Onu Dbgridin OnClolumDrawCell olayına yazdım ama istediğim renge boyamıyor.