Merhaba Arkadaşlar,
OnDrawColumncell eventinde 1 den fazla sütünü nasıl renklendirebilirim
Limkteki Resim de.5 sütündan başlamak istiyorum ve 52 haftayı renklendirmem gerekiyor ama sadece X yazdığım zaman Yeşile dönmesi. Cell Boş olursa yeşil renk olmayacak
Tşk ederim .https://www.facebook.com/photo.php?fbid ... =1&theater
DBGrid de 1 den fazla sütünları renklendirme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: DBGrid de 1 den fazla sütünları renklendirme
Aradığım kod işlemi yapıyor. Belki birisine lazım olur
procedure TForm14.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Renk:Tcolor;
Renk1:Tcolor;
begin
begin
if (dbgrid3.datasource.dataset.recno mod 2) =0
then dbgrid3.Canvas.Brush.Color := $00EFDECD
else dbgrid3.Canvas.Brush.Color := clsilver;
dbgrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Renk:=dbgrid3.Canvas.Brush.color;
If Column.fieldname='1' then
If (Column.Field.Asstring ='X') then
Begin
dbgrid3.Canvas.Brush.Color:=Clgreen;
dbgrid3.DefaultDrawColumnCell(Rect,Datacol,column, state);
dbgrid3.Canvas.Brush.Color:=Renk;
End;
procedure TForm14.DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Renk:Tcolor;
Renk1:Tcolor;
begin
begin
if (dbgrid3.datasource.dataset.recno mod 2) =0
then dbgrid3.Canvas.Brush.Color := $00EFDECD
else dbgrid3.Canvas.Brush.Color := clsilver;
dbgrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Renk:=dbgrid3.Canvas.Brush.color;
If Column.fieldname='1' then
If (Column.Field.Asstring ='X') then
Begin
dbgrid3.Canvas.Brush.Color:=Clgreen;
dbgrid3.DefaultDrawColumnCell(Rect,Datacol,column, state);
dbgrid3.Canvas.Brush.Color:=Renk;
End;