퀀텀 그리드 컬럼 동적 생성

퀀텀 그리드 컬럼 동적 생성

728x90

 

 

 

procedure Form.CreateGridFields(const tvCaption, tvFieldName, tvProperties: string; t

vMerging, tvalign: boolean; tvWidth: integer);

begin

  with tv.CreateColumn do

  begin

    Caption := tvCaption;

    DataBinding.FieldName := tvFieldName;

    HeaderAlignmentHorz := taCenter;

    HeaderAlignmentVert := vaCenter;

    Name := 'tv' + tvFieldName;

    Options.CellMerging := tvMerging;

   

    if tvProperties = 'Text' then

    begin

      PropertiesClass := TcxTextEditProperties;

      if tvalign = true then

      TcxTextEditProperties(Properties).Alignment.Horz := taCenter;

    end;

   

    if tvProperties = 'Float' then

    begin

      PropertiesClass := TcxCurrencyEditProperties;

      TcxCurrencyEditProperties(Properties).DisplayFormat := ',0.;,0.';

    end;

    width := tvWidth;

  end;

end;