//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "testform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTestSlideDlg *TestSlideDlg;
extern KompasObject* kompas;
//---------------------------------------------------------------------------
__fastcall TTestSlideDlg::TTestSlideDlg(TComponent* Owner, ksDocument2D* _doc)
  : TForm(Owner),
  doc ( _doc )
{
  kompasDocName = "c:\\1.frw";
  IdSlide  = 100;
//      
//	resurs   = kompas->ksReadString( StringToOleStr("  *.rc "),
//                                   StringToOleStr("c:\\libVC\\st4.rc") );
}
//---------------------------------------------------------------------------
void __fastcall TTestSlideDlg::pPreviewBoxPaint(TObject *Sender)
{
//  kompas->ksDrawSlide ( (long)pPreviewPanel->Handle, IdSlide );
//  kompas->ksDrawBitmap( (long)pPreviewPanel->Handle, IdSlide );

  if ( doc && doc->get_reference() ) {
//    doc->ksDrawKompasDocument( (long)pPreviewPanel->Handle, StringToOleStr(kompasDocName) );
    long gr = doc->ksNewGroup( 1 );
      doc->ksMtr( 20, 15, 45, 1, 1 );
      doc->ksLineSeg( -10, 0,  10,  0,  1 );
      doc->ksLineSeg( 10,  0,  10,  20, 1 );
      doc->ksLineSeg( 10,  20, -10, 20, 1 );
      doc->ksLineSeg( -10, 20, -10, 0,  1 );
      doc->ksDeleteMtr();
    doc->ksEndGroup();
    doc->ksDrawKompasGroup( (long)pPreviewPanel->Handle, //  
                             gr );                       // 
     doc->ksDeleteObj( gr );
  }
  else
    kompas->ksError( StringToOleStr("   ") );

//       :    .rc  
//   
//	if ( !resurs.IsEmpty() )
//		kompas->ksDrawSlideFromFile( (long)pPreviewPanel->Handle, StringToOleStr(resurs) );
}
//---------------------------------------------------------------------------
