FastReport에 대한 크로스 탭에서 행 숨기기

Question

FastReport의 크로스 탭에서 행을 숨기려고했지만 어떻게 할 수 없습니까?

MemoViews를 숨기면 빈 공간이 남기 때문에 제거 방법을 모르겠습니다.

procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); 
begin 
     if (cellindex = 1) and (rowindex = 1) then begin 
       memo.visible := false; 
       memo.height := 0;  
     end;         
end; 

procedure DBCross1OnPrintRowHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant); 
begin           
    if (trim(memo.memo.text) = 'HORA') and (HeaderIndexes[0] = 1) then begin    
     memo.visible:=false; 
     memo.height := 0;   
    end;         
    if (trim(memo.memo.text) = 'individual') then begin 
     memo.height := memo.height /2;    
    end; 
end; 

Answer 1

사용 이벤트 OnCalcHeight DBCross

Answer 2

에 나는이 문제를 해결하는 하나의 방법을 발견했다 :

여기에 코드입니다. 크로스 탭에서 자동 크기 조절을 비활성화하고 이미 얻은 동일한 절차로 스크립트의 셀 크기와 위치를 관리해야합니다. 같은이

*

*procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant); 
begin 

if (checkbox1.checked = false) and (cellindex = 0) then begin 
memo.width := 0;  
memo.visible := false; 
memo.printable := false;   
end; if (checkbox1.checked = false) and (cellindex <> 0) then begin 
memo.left := memo.left - ((columnindex+1)*100); 
end; 
end; 
procedure DBCross1OnPrintColumnHeader(Memo: TfrxMemoView; HeaderIndexes, HeaderValues, Value: Variant); 
begin 

if (checkbox1.checked = false) and (trim(memo.memo.text) = 'Первичные пациенты') then begin 
memo.width := 0; memo.text := '';memo.visible := false;memo.printable := false; end;   

if (checkbox1.checked = false) and (HeaderIndexes[0] >= 0) and (memo.width > 100) then begin 
memo.width := memo.width - 100; end;  

end; 
end;* 

*