자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 레포트 생성시 질문입니다.
2019.08.13 18:22
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
procedure TFMPreView.QuickRep1EndPage(Sender: TCustomQuickRep);
begin
Do_ZoomToFit;
end;
procedure TFMPreView.Do_ZoomToFit;
var
_i : Integer;
begin
for _i := 0 to Screen.FormCount-1 do
if Screen.Forms[_i] is TQRStandardPreview then begin
//TQRStandardPreview(Screen.Forms[_i]).ZoomToWidth.Click;
//TQRStandardPreview(Screen.Forms[_i]).ZoomFit.Click;
TQRStandardPreview(Screen.Forms[_i]).ZoomFit.Click;
TQRStandardPreview(Screen.Forms[_i]).ZoomFit.Down := True;
Exit;
end;
end;
델 5 사용중입니다.
레포트 생성시 ZoomFit을 합니다.
ZoomToWidth 에서 ZoomFit 이라 폼이 버벅거리는 현상이 발생합니다.
이 방법 외에 다른 방법이 있을까요.?
언제나 좋은 답본에 감사드립니다.
댓글 0
Delphi 레포트 생성시 질문입니다.
2019.08.13 18:22
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
procedure TFMPreView.QuickRep1EndPage(Sender: TCustomQuickRep);
begin
Do_ZoomToFit;
end;
procedure TFMPreView.Do_ZoomToFit;
var
_i : Integer;
begin
for _i := 0 to Screen.FormCount-1 do
if Screen.Forms[_i] is TQRStandardPreview then begin
//TQRStandardPreview(Screen.Forms[_i]).ZoomToWidth.Click;
//TQRStandardPreview(Screen.Forms[_i]).ZoomFit.Click;
TQRStandardPreview(Screen.Forms[_i]).ZoomFit.Click;
TQRStandardPreview(Screen.Forms[_i]).ZoomFit.Down := True;
Exit;
end;
end;
델 5 사용중입니다.
레포트 생성시 ZoomFit을 합니다.
ZoomToWidth 에서 ZoomFit 이라 폼이 버벅거리는 현상이 발생합니다.
이 방법 외에 다른 방법이 있을까요.?
언제나 좋은 답본에 감사드립니다.
