732 wrote:

> 안녕하세요

> 퀵리포트 화일을 보려면..

> 어떻게 해야 하나요.

> 물론 프리부화면에서 로드버튼으로 볼수 있지만..

> 그런 방법말고, 바로 오픈다이알로그를 써서 바로 열어 볼수 있게

> 만들고 싶은데요.

> 어떻게 만들어야 하느지 ...

> 아시는 꼭 답변좀 부탁합니다.



여기 뷰하는 방법을 소스를 통해서 올려둡니다...

파일 어태치하는 기능이 없어서리.. 일부만 짤라서리....



혹시 전체 파일이 필요하시면 메일주세용... ^^



폼을 하나 만들고, 폼에

TQRPreview 하나 찍어다 두고,

QRPrinter : TQRPrinter; // 하나 선언하고 ^^

다음과 같이 하면 된답니다... ^^



그럼 수고하세용...



//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

// 선택된 <.QRP> File을 읽어들인다.

//________________________________________________________________________

procedure TfrmMain.LoadQRPFile(qrpFile : string);

var

ReadOK : Boolean;

begin

ReadOK := True;



try

self.QRPrinter.Load(qrpFile);

except

windows.MessageBox(Application.Handle,

PChar(qrpFile + 'File is not a Quick Report Print File!'),

cProgramTitle,

MB_APPLMODAL or MB_OK or MB_ICONERROR);

ReadOK := False;

end; // end try-e



if ReadOK then

begin

self.QRPreview.Visible := False;

//////////////////////

// 최초 ZoomToFit에서의 Vertical Scroll Bar가 나타나는 Bug때문에 씀

self.QRPreview.VertScrollBar.Visible := False;

//////////////////////

try

self.Caption := cProgramTitle + '-[' + qrpFile + ']';



self.QRPreview.QRPrinter := self.QRPrinter;

self.ButtonAfterReadQRP;



self.QRPreview.ZoomToFit;

self.DisplayViewInfo;

self.tbtnZoomToPage.Down := True;

finally

self.QRPreview.Visible := True;

//////////////////////

// 최초 ZoomToFit에서의 Vertical Scroll Bar가 나타나는 Bug때문에 씀

self.QRPreview.VertScrollBar.Visible := True;

//////////////////////

end; // end try-f

end; // end if ReadOK then

end;