dbgridde yası renklendirme

[Serim]

s.a. arkadaslar,
dbgridde satır satır renklendirme yaptım.yalnız açık tonlarda.hücreyi tıklayınca yası rengi beyas oluyo. ve gösükmüyo bilgi.ben beyas olsun diye bir kod yasmadım ve ayarınıda bulamadım(object inspectorda).dbgridi tıklayınca yası renginin kırmısı olmasını istiorum mesela .... ama nasıl ?


iyi çalışmalar..

[TRSoft]

@Konyalı gridi hangi kodlarla renklendirdiğini buraya yazarsan gerekli ilave ve düzeltmeleri yapmak daha kolay olacaktır..

Bu arada klavyenin z harfi çalışmıyor galiba .. Lütfen alınma sadece küçük bir espiriydi..

[mege]

viewtopic.php?p=164#164

[Serim]

ömer abinin sorduğu renklendirme kodları :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then
Dbgrid1.Canvas.brush.Color:=clcream
else
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then
Dbgrid1.Canvas.Brush.Color:=clbtnface;

dbgrid1.Canvas.Brush.Color:=Dbgrid1.Canvas.Brush.Color;
Dbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);

end;

[mege]

Kod: Tümünü seç

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if odd(DBGrid1.DataSource.DataSet.RecNo)  then
  DBGrid1.Canvas.Brush.Color := clWhite
else
  Dbgrid1.Canvas.Brush.Color:=clbtnface;

 DBGrid1.Canvas.Font.Color := clblack; 
 DBGrid1.DefaultDrawDataCell(Rect, Field, State);

end;

problem default font renginden sanırım black yapınca düzeldi. bu ara kodlarınızı code tagı içine alın

[TRSoft]

@Konyalı anladığım kadarıyla sen bir satır faklı diğer satır farklı renklerle bir desen oluşturmaya çalışıyorsun..

Koduna aşağıdaki belirtilen satırı eklemen yeterli..

Kod: Tümünü seç

 if DBGrid1.DataSource.DataSet.RecNo mod 2 = 0 then
Dbgrid1.Canvas.brush.Color:=clcream
else
if DBGrid1.DataSource.DataSet.RecNo mod 2 = 1 then
Dbgrid1.Canvas.Brush.Color:=clbtnface;

dbgrid1.Canvas.Brush.Color:=Dbgrid1.Canvas.Brush.Color;
dbGrid1.Canvas.Font.Color:=ClBlack; // Fontun rengini değiştirir..
Dbgrid1.DefaultDrawColumnCell(Rect,Datacol,column,state);

** EK
@Mege üstadım bu ne hız yahu..

[mege]

** EK
@Mege üstadım bu ne hız yahu..

mirim ya admine sözümüz var 3 dakka kuralı varya yetiştirmeye çalışyoruz işte