AutoCADFilesColorScheme example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   { If the current AutoCAD color scheme is not black on white, change it }
   if ( LEADImage1.AutoCADFilesColorScheme <> AUTOCADFILES_COLORSCHEME_BLACKONWHITE ) then
      LEADImage1.AutoCADFilesColorScheme:= AUTOCADFILES_COLORSCHEME_BLACKONWHITE;

   { Load the DXF file }
   LEADImage1.Load( 'c:\image1.dxf', 0, 1, 1 );
end;