전이거 몰라서..캡춰해었씀다..-_-;

타락님.미오.내가.물어볼땐.알갈쿄주고.징징징...ㅠ.ㅠ



procedure TReport.ChartImgGen;

var

BitmapRect: TRect;

Bitmap: TBitmap;

GifImage : TGIFImage;

begin

try

GifImage := TGIFImage.Create;

Bitmap := TBitmap.Create;

BitMap.Width := Chart1.Width;

BitMap.Height := Chart1.Height;

BitmapRect := Rect(0, 0, Chart1.Width, Chart1.Height);



Bitmap := Chart1.TeeCreateBitmap(clWhite,BitmapRect);

GifImage.Assign(Bitmap); /// 이건.GIF로 저장하기...컴포따로있음...bmp는 그냥 저장..

GifImage.SaveToFile(HTMLdir+ImageName);

finally

Bitmap.Free;

end;

end;



코스모 wrote:

> 다시올립니다 제발좀 가르쳐 주세요..........

>

> 전 텔파4로 작업중인데요

>

> 조규춘님이 가르쳐 주신데로

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> Meta :TMetafile;

> mybitmap : TBitmap;

> begin

> Meta:=Chart1.TeeCreateMetafile(True,Rect(0,0,Chart1.Width,chart1.Height));

> mybitmap :=Chart1.TeeCreateBitmap(clwhite,Rect(0,0,Chart1.Width,chart1.Height));

>

> meta.SaveToFile('c:temp.wmf');

> mybitmap.SaveToFile('c:temp.bmp');

>

> meta.Free;

> mybitmap.free;

> end;

>

>

> [Error] Graph.pas(199): Too many actual parameters

> 이런 메세지가 나오네여...

> 저장할수 잇는 방법좀 가르쳐 주세요

>

> 델파초보가..~~~~~~~~~~~

>

> 즐거운 하루 되세요

>