OnGetAlignment

각 Cell의 데이터를 정렬한다.

procedure TfrmYSSimsa.sgdDatGetAlignment(Sender: TObject; ARow, ACol: Integer;
  var HAlign: TAlignment; var VAlign: TVAlignment);
begin
    case ACol of
        cDDATLAGCOD, cDDATODRDTE, cDDATADDCOD, cDDATDAYCNT, cDDATOUTCOD,
        cDDATODRBIG :
        begin
            HAlign  := taCenter;
        end;
        cDDATDAYQTY, cDDATDAYILU, cDDATODRPRC, cDDATODRAMT :
        begin
            HAlign  := taRightJustify;
        end;
    else
        HAlign  := taLeftJustify;
    end;

    if ARow = 0 then
        HAlign  := taCenter;
end;

변수중 HAlign과 VAlign의 Type은 다음과 같다.

TAlignment = (taLeftJustify, taRightJustify, taCenter);
TVAlignment = (vtaTop,vtaCenter,vtaBottom);