Mega Code Archive

 

Categories / Delphi / VCL

 

Dbgridi isteğe göre renklendirme

gridin adı -db_konular database-dm.qer procedure TAnaform.db_konularDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (dm.qer.RecNo mod 2 = 0 ) then begin db_konular.Canvas.Font.Color := clNavy; db_konular.Canvas.Brush.Color := clskyblue; if gdselected in state then begin db_konular.Canvas.Brush.Color := clNavy; db_konular.Canvas.FillRect(Rect); db_konular.Canvas.Font.Color := clWhite; end; end else begin db_konular.Canvas.Brush.Color := clWhite; db_konular.Canvas.Font.Color := clblack; if gdselected in state then begin db_konular.Canvas.Font.Color := clWhite; db_konular.Canvas.Brush.Color := clNavy; db_konular.Canvas.FillRect(Rect); end; end; db_konular.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;