风在起时

摘要： procedure TWeightForm.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);begin if Query1.RecNo mod 4=0 then begin DBGridEh1.Canvas.Brush.Color :=clGreen; DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; if Qu... 阅读全文