11
Databases / Re:dbf
« Ultimo post da DragoRosso il Maggio 11, 2024, 11:23:38 pm »Più o meno questo:
Codice: [Seleziona]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if pDbfRecord(DBGrid1.DataSource.DataSet.ActiveBuffer)^.DeletedFlag = '*' then
begin
DBGrid1.Canvas.Font.Color:=clRED;
DBGrid1.Canvas.Brush.Color:=clWhite;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
end;