Arşiv Anasayfa Delphi ipuçları

Sayfalar: 1

Dbgrid'de aktif satırı renklendirin Gönderen: ahmetkilic Tarih: 28 November 2007 16:49:41
implementation
  type
  Tcustomdbgridcracker=class(TCustomDBGrid);//datalink kullana bilmeniz için şart

procedure TForm29.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:= clBlue
    else
    Canvas.Brush.Color:= clYellow;
    DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;


kolay gelsin arkadaşlar.

---