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);
-
-
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;
0 komentar:
Posting Komentar