/*
 * Program: canvas
 *
 * Author: Robert Roebling
 *
 * Copyright: (C) 1998, Robert Roebling
 *
 */
// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include "wx/wx.h"
#endif

#include <wx/image.h>
#include <wx/file.h>
#include <wx/timer.h>
#include <wx/log.h>
#include "wx/image.h"


#include "smile.xpm"

#include "wx/canvas/canvas.h"

// derived classes


class MywxCanvasImage: public wxCanvasImage
{
public:
    MywxCanvasImage( const wxImage &image, double x, double y, double w, double h );

    void MywxCanvasImage::OnMouse(wxMouseEvent &event);

    DECLARE_EVENT_TABLE()
};

BEGIN_EVENT_TABLE(MywxCanvasImage,wxCanvasImage)
  EVT_MOUSE_EVENTS( MywxCanvasImage::OnMouse )
END_EVENT_TABLE()

MywxCanvasImage::MywxCanvasImage( const wxImage &image, double x, double y, double w, double h )
    :wxCanvasImage( image, x, y, w, h )
{
}

void MywxCanvasImage::OnMouse(wxMouseEvent &event)
{
    static bool first=false;
    static int dx=0;
    static int dy=0;

    int x = event.GetX();
    int y = event.GetY();
    if (event.m_leftDown)
    {   if (!first)
        {
           first=true;
           dx=x;
           dy=y;
        }
        Move(m_area.x+x-dx,m_area.y+y-dy);
        CaptureMouse();
    }
    else if (IsCapturedMouse())
    {
        ReleaseMouse();
        first=false;
        dx=0;dy=0;
    }
}

class MywxCanvasObjectGroupRef: public wxCanvasObjectGroupRef
{
public:
    MywxCanvasObjectGroupRef(double x, double y, wxCanvasObjectGroup* group);

    void OnMouse(wxMouseEvent &event);

    DECLARE_EVENT_TABLE()
};

BEGIN_EVENT_TABLE(MywxCanvasObjectGroupRef,wxCanvasObjectGroupRef)
  EVT_MOUSE_EVENTS( MywxCanvasObjectGroupRef::OnMouse )
END_EVENT_TABLE()

MywxCanvasObjectGroupRef::MywxCanvasObjectGroupRef(double x, double y,wxCanvasObjectGroup* group)
    :wxCanvasObjectGroupRef(x,y,group)
{
}

void MywxCanvasObjectGroupRef::OnMouse(wxMouseEvent &event)
{
    static bool first=false;
    static dx=0;
    static dy=0;

    //new position of object
    int x = m_owner->GetDeviceX( event.GetX());
    int y = m_owner->GetDeviceY( event.GetY());

    if (event.m_leftDown)
    {   if (!first)
        {
           first=true;
           dx=x;
           dy=y;
        }
        Move(m_x+x-dx,m_y+y-dy);
        CaptureMouse();
    }
    else if (IsCapturedMouse())
    {
        ReleaseMouse();
        first=false;
        dx=0;dy=0;
    }
}

class MyFrame;
class MyApp;

// MyFrame

class MyFrame: public wxFrame
{
public:
    MyFrame();
    ~MyFrame();

    void OnAbout( wxCommandEvent &event );
    void OnNewFrame( wxCommandEvent &event );
    void OnQuit( wxCommandEvent &event );
    void OnTimer( wxTimerEvent &event );

    wxCanvas         *m_canvas;
    wxCanvasObject   *m_sm1;
    wxCanvasObject   *m_sm2;
    wxCanvasObject   *m_sm3;
    wxCanvasObject   *m_sm4;

    MywxCanvasObjectGroupRef *m_ref;
    MywxCanvasObjectGroupRef *m_ref2;

    wxTimer          *m_timer;
    wxTextCtrl       *m_log;

private:
    DECLARE_DYNAMIC_CLASS(MyFrame)
    DECLARE_EVENT_TABLE()
};

// MyApp

class MyApp: public wxApp
{
public:
    virtual bool OnInit();

    const wxString& GetFontPath() const { return m_fontpath; }

private:
    wxString m_fontpath;
};

// main program

IMPLEMENT_APP(MyApp)

// MyFrame

const int ID_QUIT  = 108;
const int ID_ABOUT = 109;

IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )

BEGIN_EVENT_TABLE(MyFrame,wxFrame)
  EVT_MENU    (ID_ABOUT, MyFrame::OnAbout)
  EVT_MENU    (ID_QUIT,  MyFrame::OnQuit)
  EVT_TIMER   (-1,       MyFrame::OnTimer)
END_EVENT_TABLE()

MyFrame::MyFrame()
       : wxFrame( (wxFrame *)NULL, -1, "wxCanvas sample",
                  wxPoint(20,20), wxSize(470,860) )
{
    wxMenu *file_menu = new wxMenu();
    file_menu->Append( ID_ABOUT, "&About...");
    file_menu->AppendSeparator();
    file_menu->Append( ID_QUIT, "E&xit");

    wxMenuBar *menu_bar = new wxMenuBar();
    menu_bar->Append(file_menu, "&File");

    SetMenuBar( menu_bar );

    CreateStatusBar(2);
    int widths[] = { -1, 100 };
    SetStatusWidths( 2, widths );

    m_canvas = new wxCanvas( this, -1, wxPoint(0,0), wxSize(10,10) );

    m_canvas->SetArea( 1400, 600 );
    m_canvas->SetColour( 255, 255, 255 );


    wxBitmap bitmap( smile_xpm );
    wxImage image( bitmap );

    m_sm1 = new wxCanvasImage( image, 0,70,16,16 );
    m_canvas->Append( m_sm1 );

    int i;
    for (i = 10; i < 300; i+=10)
        m_canvas->Append( new wxCanvasRect( i,50,3,140, 255,0,0 ) );

    m_sm2 = new wxCanvasImage( image, 0,140,24,24 );
    m_canvas->Append( m_sm2 );

    for (i = 15; i < 300; i+=10)
        m_canvas->Append( new wxCanvasRect( i,50,3,140, 255,0,0 ) );

    wxButton *button = new wxButton( m_canvas, -1, "Hello", wxPoint(80,50) );
    m_canvas->Append( new wxCanvasControl( button ) );

    m_canvas->Append( new wxCanvasText( "Hello", 180, 50,
                      wxGetApp().GetFontPath() + "/times.ttf", 20 ) );

    m_sm3 = new wxCanvasImage( image, 0,210,32,32 );
    m_canvas->Append( m_sm3 );

    for (i = 10; i < 300; i+=10)
        m_canvas->Append( new wxCanvasLine( 10,-15,i,300, 0,255,0 ) );

    m_sm4 = new MywxCanvasImage( image, 0,270,64,32 );
    m_canvas->Append( m_sm4 );


//    m_canvas->Append( new wxCanvasLine( 10,-1500e6,50,300000e6, 0,255,0 ) );
//    m_canvas->Append( new wxCanvasLine( 10,-150000,50,300000, 0,255,0 ) );

    //make a group of wxCanvasObjects
    wxCanvasObjectGroup* group1 = new wxCanvasObjectGroup();
    group1->Prepend( new wxCanvasLine( 10,-35,50,190,100,255,0 ) );
    group1->Prepend( new wxCanvasImage( image, 4,38,32,32 ) );
    group1->Prepend( new wxCanvasRect(20,-20,50,170,0,20,240 ) );
    group1->Prepend( new wxCanvasRect(10,20,104,52,0,240,240 ) );


    //make another group of wxCanvasObjects
    wxCanvasObjectGroup* group2 = new wxCanvasObjectGroup();
    group2->Prepend( new wxCanvasImage( image, 60,38,52,32 ) );
    group2->Prepend( new wxCanvasRect(10,20,104,52,10,40,10 ) );

    //this a reference to group2 put into group1
    wxCanvasObjectGroupRef* m_subref = new wxCanvasObjectGroupRef(60,50, group2);
    group1->Prepend( m_subref );

    //now make two refrences to group1 into root group of the canvas
    m_ref = new MywxCanvasObjectGroupRef(40,200, group1);
    m_canvas->Prepend( m_ref );

    m_ref2 = new MywxCanvasObjectGroupRef(80,350, group1);
    m_canvas->Prepend( m_ref2 );


    m_log = new wxTextCtrl( this, -1, "", wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
    wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
    delete old_log;

    wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );

    topsizer->Add( m_canvas, 1, wxEXPAND );
    topsizer->Add( m_log, 0, wxEXPAND );

    SetAutoLayout( TRUE );
    SetSizer( topsizer );

    m_timer = new wxTimer( this );
    m_timer->Start( 100, FALSE );
}

MyFrame::~MyFrame()
{
   delete m_timer;
}

void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
{
    Close( TRUE );
}

void MyFrame::OnTimer( wxTimerEvent &WXUNUSED(event) )
{
    m_sm1->Move( m_sm1->GetX()+1, m_sm1 ->GetY() );
    m_sm2->Move( m_sm2->GetX()+1, m_sm2->GetY() );
    m_sm3->Move( m_sm3->GetX()+1, m_sm3->GetY() );
    m_sm4->Move( m_sm4->GetX()+2, m_sm4->GetY() );
    m_ref->Move( m_ref->GetPosX()+1, m_ref->GetPosY() );
    m_ref2->Move( m_ref2->GetPosX()+2, m_ref2->GetPosY() );

    wxWakeUpIdle();
}

void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
{
   (void)wxMessageBox( "wxCanvas demo\n"
                      "Robert Roebling (c) 1998,2000",
                      "About wxCanvas Demo", wxICON_INFORMATION | wxOK );
}

//-----------------------------------------------------------------------------
// MyApp
//-----------------------------------------------------------------------------

bool MyApp::OnInit()
{
  m_fontpath = getenv("TRUETYPE");
  if ( !m_fontpath )
  {
      wxLogError("Please set env var TRUETYPE to the path where times.ttf lives.");

      return FALSE;

  }

#if wxUSE_LIBPNG
  wxImage::AddHandler( new wxPNGHandler );
#endif

  wxFrame *frame = new MyFrame();
  frame->Show( TRUE );

  return TRUE;
}