Memberi Warna Record Aktif Pada TDBGrid

Di Terbitkan oleh Unknown 0 Comments

Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

type
  1. TCustomDBGridCracker = class(TCustomDBGrid);
  3. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  4. const Rect: TRect; DataCol: Integer; Column: TColumn;
  5. State: TGridDrawState);
  6. begin
  7. with TCustomDBGridCracker(Sender) do
  8. if DataLink.ActiveRecord = Row - 1 then
  9. Canvas.Brush.Color := clRed
  10. else
  11. Canvas.Brush.Color := clWhite;
  12. DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  13. end;

0 Responses so far.

Posting Komentar