I used the old version of CAD Import VCL (February, 2007: CAD Import VCL 6.1) with Delphi 7. It's work great. Now i upgrate to Delphi XE2 and the new version of CADImportVCL but they are not compatible to the old version.
The follow functions are not in the new version of CAD Import VCL. How can I migrate the functions? I use CADImportVCL to put elements to the CAD-plan and zoom in and out. i save the x/y coordinate of the new elemtes (doors and keys) in the database.
Code: Select all
property sgPaintBox: TsgDrawingNavigator read FsgPaintBox; property Img: TsgCADImage read GetImg;
---------------------------------------------------------------------------
sgPaintBox.ChangeScale(False, 2, sgPaintBox.Center)
sgPaintBox.PrevScale;
sgPaintBox.HasPrevScale;
sgPaintBox.IsBigScale := False;
sgPaintBox.ScaleMMWidth := Img.AbsWidth;
Img.Converter.OEM
Img.Charset
sgPaintBox.ScaleMMWidth := Img.AbsWidth;
{$IFNDEF sgDXFONLY}
DWGPreview := True;
{$ENDIF}
Regards
Axel