////////////////////////////////////////////////////////////////////////////////
//
// slidefrm.cpp -   
//
//     Bitmap c ID  
//      
//   
//     
//   
//
////////////////////////////////////////////////////////////////////////////////
#include <vcl.h>
#pragma hdrstop

#ifndef __LIBTOOL_H
#include <libtool.h>
#endif

#include "SlideFrm.h"

#pragma package(smart_init)
#pragma resource "*.dfm"
TSlideForm *SlideForm;


//-------------------------------------------------------------------------------
//
// ---
__fastcall TSlideForm::TSlideForm(TComponent* Owner)
  : TForm (Owner)
  , rGroup( 0   ) 
{
  EnableTaskAccess( 0 ); //       
  
  //     Bitmap c ID  
  m_slideId = 100;
 
  /*
  //     
  strcpy( m_fileName, "c:\\Example.frw" );
  ReadString( "  *.frw ", m_fileName, 255 );
  */

  /*
  //      
  strcpy( m_fileName, "c:\\Example.rc" );
  ReadString( "  *.rc ", m_fileName, 255 );
  */
  /*
  //   
  if ( ksGetCurrentDocument( 1 ) )
  {
    //   , type -   ( 0 -  , 1 -  )
    rGroup = NewGroup( 1 );
      Mtr( 20, 15, 45, 1 ); //    ( 20   OX, 15   OY,   45  )
        LineSeg( -10, 0,   10, 0,  1 );
        LineSeg(  10, 0,   10, 20, 1 );
        LineSeg(  10, 20, -10, 20, 1 );
        LineSeg( -10, 20, -10, 0,  1 );
      DeleteMtr(); //    
    EndGroup(); //    
  }
  else
    Message( "   \n  /" );  
  */
}


//-------------------------------------------------------------------------------
//
// ---
__fastcall TSlideForm::~TSlideForm()
{
  if ( rGroup )
    DeleteObj( rGroup );
  EnableTaskAccess( 1 ); //       
}


//-------------------------------------------------------------------------------
//  
// ---
void __fastcall TSlideForm::pPreviewBoxPaint(TObject *Sender)
{
  //     
  if ( m_slideId != 0 )
    DrawSlide( pPreviewPanel->Handle, //  
               m_slideId );           //      

  /*
  //   Bitmap  
  if ( m_slideId != 0 )
    DrawBitmap( pPreviewPanel->Handle, //  
                m_slideId );           //  BMP    
  */

  /*
  //      
  //    .rc    
  if ( m_fileName[0] != '\0' )
    ksDrawSlideFromFile( pPreviewPanel->Handle,            //  
                         ( char* )( LPCTSTR )m_fileName ); //   
  */

  /*
  //   
  reference doc = ksGetCurrentDocument( 1 );
  if ( doc )
    ksDrawKompasDocumentByReference( pPreviewPanel->Handle, //  
                                     doc );                 //   
  */

  /*
  //     
  if ( m_fileName[0] != '\0' )
    ksDrawKompasDocument( pPreviewPanel->Handle,            //  
                          ( char* )( LPCTSTR )m_fileName ); //    
  */

  /*
  //   
  if ( ksGetCurrentDocument( 1 ) )
  {
    ksDrawKompasGroup( pPreviewPanel->Handle, //  
                       rGroup );              // 
  }
  */
}


//-------------------------------------------------------------------------------
// ,       
// ---
void TestShowDialog() 
{
	TSlideForm* pDialog = new TSlideForm( Application );
	pDialog->ShowModal();
	delete pDialog;
}
