第一个问题可以通过TDecisionGrid.OnDecisionDrawCll来实现:
procedure TJCLF1.DecisionGridDecisionDrawCell(Sender: TObject; Col, Row: Integer; var Value: string; var aFont: TFont; var aColor: Integer; AState: TGridDrawState; aDrawState: TDecisionDrawState);
begin
if Value = '第1季度' then
Value := '第一季度'
else if Value = '第2季度' then
Value := '第二季度'
else if Value = '第3季度' then
Value := '第三季度'
else if Value = '第4季度' then
Value := '第四季度';
end;