[Delphi] Memberi warna record aktif pada DBGrid

Memberi warna record aktif pada TDBGrid.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
    TCustomDBGridCracker = class(TCustomDBGrid); //coba Disimpan  paling atas sebelum TForm1 = class(TForm)

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;

Semoga bermanfaat...

Posted by Antas Delphi on - Rating: 4.5

Title : [Delphi] Memberi warna record aktif pada DBGrid
Description : Memberi warna record aktif pada TDBGrid. Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama ...