Dbgrid hücre renklendirme

[conari]

Arkadaşlar sitede ve nette bir çok renklendirme örneği var.
Fakat ben satırın tamamını renklendirmek istemiyorum.
Bu şekildede zaten kullanıyorum.
Hücre deki değere göre sadece o hücrenin rengini, font rengini v.s. değiştirmek istiyorum.
Bir türlü istediğimi yapamadım.

Yönlendirmeler için teşekkürler.

[Biltes]

Aşağıdaki linke bir gözat derim en azından sana fikir verebilir.

viewtopic.php?t=1810&highlight=acolumn

Kolay gelsin...

[Battosai]

Sen satır satır renklendirme kodlarına bakmışındır...biraz kurcala ordaki kodları istediğini yaparlar... bide örnek göndereyim....

Kod: Tümünü seç

if column.Field.AsString='ALACAK' then
begin
 DBGrid4.Canvas.Brush.Color:=clGreen;
 DBGrid4.Canvas.Font.Color:=clwhite;
 DBGrid4.Canvas.Font.Style:=[fsBold];
 end
  else
  begin
   DBGrid4.canvas.Brush.Color:=clred;
   DBGrid4.Canvas.Font.Color:=clwhite;
   DBGrid4.Canvas.Font.Style:=[fsBold];
  end;
DBGrid4.DefaultDrawColumnCell(Rect, DataCol, Column, State);

[conari]

arakadaşlar ben tüm satırın veya column u renklendirmek istemiyorum.bunu zaten kullanıyorum.
Satır daki tek hücreyi renklendirmek istiyorum.

Cells(8,7).bruch.color=clblue; gibi bir şey demem lazım.

[Battosai]

Yani altındaki hücrede aynı özellikteyse onu renklendirmeyecek diyorsun....mu ?

[conari]

Şöyle anlatayım.
Gridi bir kere
bir satır renkli bir satır normal gösteriyorum.
ama 1. satır da 8.colums değeri X ise o değerin rengi Y renginde olsun diyorum.
Sadece O hücre.
anlatabilmişimdir inşallah.

[conari]

Çözüm makalelerde. @Aslangeri sağolsun.

viewtopic.php?f=19&t=24985&p=141359#p141359

[Battosai]

if column.Field.FieldName='hareket_tipi' then

Keşke önceki gönderdiğim kodun tamamını yollasaymışım şimdiye kadar beklemezdin...yukardaki satırı ekleyince mevzu tamam oluyor yani.... ama sen bunu kendin bulabilirdin diye düşünüyorum....

[conari]

Demekki bazen insanların gözünden en ufak bir ayrıntı bile kaçabiliyor.

[Pimapen_Nuri]

procedure TForm3.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
Renk:Tcolor;
Renk1:Tcolor;
Begin
Renk:=DbGrid2.Canvas.Brush.Color;
if Column.Fieldname='islem' then
if (Column.Field.AsString ='Alış') then
Begin
DbGrid2.Canvas.Font.Color:=Clred;
DbGrid2.DefaultDrawColumnCell(Rect,Datacol,Column, state);
DbGrid2.Canvas.Brush.Color:=Renk;
end;

if column.FieldName='islem' then
if (Column.Field.AsString ='Satış') then
Begin
DbGrid2.Canvas.Font.Color:=Clblue;
DbGrid2.DefaultDrawColumnCell(Rect,Datacol,Column, state);
DbGrid2.Canvas.Brush.Color:=Renk;

end;