Tips dan Trik DBgrid delphi : Memberi warna pada record yang aktif pada dbgrid

ukey, setelah sekian lama g update… karena kesibukan… (sok sibuk nie :D) kali ini saya akan share tips n trick untuk customize dbgrid pada borland delphi 7. customize yang dimaksud adalah memebrikan warna pada record yang aktif di dbgrid tersebut.

hmm… gampang aja.. mudah, easy… 😀

cukup tambahkan aja kode berikut ini pada even DBGrid.OnDrawColumnCell.

codenya adalah :


type
TCustomDBGridCracker = class(TCustomDBGrid);

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


yups.. coba diliat efek setelah ditambah kode itu… 😀

sekian kawan, jika ada yang ditanyakan, silakan lewat komen atau email… thanks…