Q&A

  • TMS AdvStringGrid 를 jpg로 저장을 시키는 질문.
TMS AdvStringGrid 를 사용하여 데이터를 불러온후에 버튼을 클릭하면 스트링그리드에 있는 내용이 jpg로 저장이 되도록 하였습니다.  TIP에 있더군요.
아래와 같이요.
-----------------------------------

var
  pBitmap: TBitmap;
  jp: TJPEGImage;
  R: TRect;
begin
  pBitmap := TBitmap.Create; //create a new instance of a bitmap
  jp := TJPEGImage.Create;   //create new instance of a jpg file
  R := Rect(0,0,950,760);    //parameters for rectangle
  pBitmap.Height := 622;     //set bmp height
  pBitmap.Width := 812;      //set bmp width
  AdvStringGrid1.PrintPreview(pBitmap.Canvas,R); //call Preview to paint to BMP canvas
  jp.Assign(pBitmap); //get picture from bitmap for JPG Image
  jp.SaveToFile('c:\temp\Grid.jpg'); //save picture as JPG File
  pBitmap.Free;
  jp.Free;
end;
--------------------------------------------------

문제는 한 화면에 모든 내용은 표시는 되나... 크기가 너무 작게 나옵니다.
R := Rect(0,0,950,760);    
pBitmap.Height := 622;    
  pBitmap.Width := 812;  

이 부분을 조절을 해 보았으나....  캔버스 크기만 늘어났지  내용 크기는 그대로 더군요.. 내용 크기를 A4 사이즈 정도로 나타나게 하고 싶은데, 어떻게 하는지 알려주시면 감사하겠습니다.  
0  COMMENTS