CAD to BMP

  Getting Started >

CAD to BMP

Previous pageReturn to chapter overviewNext page

uses DWG, DXF, CGM, HPGL2, SVG;

 

...

 

implementation

 

procedure TForm1.CopyToBMPClick(Sender: TObject);
var
  vPicture: TPicture;
  vBitmap: TBitmap;
begin
  vPicture := TPicture.Create;
  if OpenPictureDialog1.Execute then
    vPicture.LoadFromFile(OpenPictureDialog1.FileName);
  vBitmap := TBitmap.Create;
  vBitmap.Width := 1000; // bitmap will be 1000 px wide, height is calculated automatically
  vBitmap.Height := Round( vBitmap.Width * (vPicture.Graphic.Height / vPicture.Graphic.Width));
  vBitmap.Canvas.StretchDraw(Rect(0, 0, vBitmap.Width, vBitmap.Height) , vPicture.Graphic);
  vBitmap.SaveToFile(OpenPictureDialog1.FileName + '.bmp');
  ShowMessage('File is saved to BMP: ' + OpenPictureDialog1.FileName + '.bmp');
  vBitmap.Free;
end;

Go to CAD VCL Enterprise