王 王寒松 Unregistered / Unconfirmed GUEST, unregistred user! 1999-07-02 #2 procedure TForm1.DecisionGrid1DecisionDrawCell(Sender: TObject; Col, Row: Integer; var Value: String; var aFont: TFont; var aColor: TColor; AState: TGridDrawState; aDrawState: TDecisionDrawState); begin If Value='Sum' then Value:= '小计'; end;
procedure TForm1.DecisionGrid1DecisionDrawCell(Sender: TObject; Col, Row: Integer; var Value: String; var aFont: TFont; var aColor: TColor; AState: TGridDrawState; aDrawState: TDecisionDrawState); begin If Value='Sum' then Value:= '小计'; end;