scrolling of foreign windowsplus sample

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@4000 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

samples/scrollsub/.cvsignore

@@ -0,0 +1 @@
+

samples/scrollsub/Makefile.in

@@ -0,0 +1,21 @@
+#
+# File:		makefile.unx
+# Author:	Julian Smart
+# Created:	1998
+# Updated:	
+# Copyright:	(c) 1998 Julian Smart
+#
+# "%W% %G%"
+#
+# Makefile for scrollsub example (UNIX).
+
+top_srcdir = @top_srcdir@
+top_builddir = ../..
+program_dir = samples/scrollsub
+
+PROGRAM=scrollsub
+
+OBJECTS=$(PROGRAM).o
+
+include ../../src/makeprog.env
+

samples/scrollsub/makefile.b32

@@ -0,0 +1,16 @@
+#
+# File:		makefile.b32
+# Author:	Julian Smart
+# Created:	1999
+# Updated:	
+# Copyright:
+#
+# Makefile : Builds sample for 32-bit BC++
+
+WXDIR = $(WXWIN)
+
+TARGET=scrollsub
+OBJECTS = $(TARGET).obj
+
+!include $(WXDIR)\src\makeprog.b32
+

samples/scrollsub/makefile.bcc

@@ -0,0 +1,19 @@
+#
+# File:		makefile.bcc
+# Author:	Julian Smart
+# Created:	1998
+# Updated:	
+#
+# Builds a BC++ 16-bit sample
+
+!if "$(WXWIN)" == ""
+!error You must define the WXWIN variable in autoexec.bat, e.g. WXWIN=c:\wx
+!endif
+
+WXDIR = $(WXWIN)
+
+TARGET=scrollsub
+OBJECTS=$(TARGET).obj
+
+!include $(WXDIR)\src\makeprog.bcc
+

samples/scrollsub/makefile.dos

@@ -0,0 +1,17 @@
+#
+# File:		makefile.dos
+# Author:	Julian Smart
+# Created:	1998
+# Updated:	
+#
+# Makefile : Builds 16-bit sample, VC++ 1.5
+# Use FINAL=1 argument to nmake to build final version with no debugging
+# info
+
+WXDIR = $(WXWIN)
+
+TARGET=scrollsub
+OBJECTS=$(TARGET).obj
+
+!include $(WXDIR)\src\makeprog.msc
+

samples/scrollsub/makefile.g95

@@ -0,0 +1,16 @@
+#
+# File:         makefile.g95
+# Author:       Julian Smart
+# Created:      1999
+# Updated:
+# Copyright:    (c) Julian Smart, 1999
+#
+# Makefile for wxWindows sample (Cygwin/Mingw32).
+
+WXDIR = ../..
+
+TARGET=scrollsub
+OBJECTS = $(TARGET).o
+
+include $(WXDIR)/src/makeprog.g95
+

samples/scrollsub/makefile.twn

@@ -0,0 +1,43 @@
+#
+# File:		makefile.unx
+# Author:	Julian Smart
+# Created:	1993
+# Updated:	
+# Copyright:	(c) 1993, AIAI, University of Edinburgh
+#
+# "%W% %G%"
+#
+# Makefile for scrollsub example (UNIX).
+
+WXDIR = ../..
+
+# All common UNIX compiler flags and options are now in
+# this central makefile.
+include $(WXDIR)/src/maketwin.env
+
+OBJECTS = $(OBJDIR)/scrollsub.$(OBJSUFF) $(OBJDIR)/scroll_resources.$(OBJSUFF)
+
+all:    $(OBJDIR) scrollsub$(GUISUFFIX)$(EXESUFF)
+
+wx:
+
+$(OBJDIR):
+	mkdir $(OBJDIR)
+
+scrollsub$(GUISUFFIX)$(EXESUFF):	$(OBJECTS) $(WXLIB)
+	$(CC) $(LDFLAGS) -o scrollsub$(GUISUFFIX)$(EXESUFF) $(OBJECTS) $(LDLIBS)
+
+$(OBJDIR)/scrollsub.$(OBJSUFF):	scrollsub.$(SRCSUFF)
+	$(CC) -c $(CPPFLAGS) -o $@ scrollsub.$(SRCSUFF)
+
+scroll_resources.c:  scrollsub.rc
+	$(RESCOMP) $(RCINPUTSWITCH) scrollsub.rc $(RCOUTPUTSWITCH) scroll_resources.c $(RESFLAGS)
+
+$(OBJDIR)/scroll_resources.$(OBJSUFF):	scroll_resources.c
+	$(CC) -c $(CPPFLAGS) -o $@ scroll_resources.c
+
+#$(OBJDIR)/scroll_resources.o:  scrollsub.rc
+#	$(RESCOMP) $(RCINPUTSWITCH) scrollsub.rc $(RCOUTPUTSWITCH) $(OBJDIR)/scroll_resources.o $(RESFLAGS)
+
+clean:
+	rm -f $(OBJECTS) scrollsub$(GUISUFFIX).exe core *.rsc *.res

samples/scrollsub/makefile.vc

@@ -0,0 +1,18 @@
+#
+# File:		makefile.vc
+# Author:	Julian Smart
+# Created:	1999
+# Updated:	
+# Copyright:	(c) Julian Smart
+#
+# Makefile : Builds sample (VC++, WIN32)
+# Use FINAL=1 argument to nmake to build final version with no debug info.
+
+# Set WXDIR for your system
+WXDIR = $(WXWIN)
+
+PROGRAM=scrollsub
+OBJECTS = $(PROGRAM).obj
+
+!include $(WXDIR)\src\makeprog.vc
+

samples/scrollsub/makefile.wat

@@ -0,0 +1,15 @@
+#
+# Makefile for WATCOM
+#
+# Created by Julian Smart, January 1999
+# 
+#
+
+WXDIR = $(%WXWIN)
+
+PROGRAM = scrollsub
+OBJECTS = $(PROGRAM).obj
+
+!include $(WXDIR)\src\makeprog.wat
+
+

samples/scrollsub/scrollsub.cpp

@@ -0,0 +1,252 @@
+/*
+ * Program: scrollsub
+ *
+ * Author: Robert Roebling
+ *
+ * Copyright: (C) 1999, 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/listctrl.h"
+#include "wx/sizer.h"
+#include "wx/log.h"
+
+
+// derived classes
+
+class MyFrame;
+class MyScrolledWindow;
+class MyCanvas;
+class MyApp;
+
+// MyScrolledWindow
+
+class MyScrolledWindow: public wxScrolledWindow
+{
+public:
+    MyScrolledWindow() {}
+    MyScrolledWindow( wxWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
+    ~MyScrolledWindow();
+    void OnPaint( wxPaintEvent &event );
+
+private:
+    MyCanvas    *m_canvas;
+
+    DECLARE_DYNAMIC_CLASS(MyScrolledWindow)
+    DECLARE_EVENT_TABLE()
+};
+
+// MyCanvas
+
+class MyCanvas: public wxPanel
+{
+public:
+    MyCanvas() {}
+    MyCanvas( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
+    ~MyCanvas();
+    void OnPaint( wxPaintEvent &event );
+
+private:
+    wxScrolledWindow   *m_owner;
+
+    DECLARE_DYNAMIC_CLASS(MyCanvas)
+    DECLARE_EVENT_TABLE()
+};
+
+// MyFrame
+
+class MyFrame: public wxFrame
+{
+public:
+    MyFrame();
+
+    void OnAbout( wxCommandEvent &event );
+    void OnQuit( wxCommandEvent &event );
+
+    wxScrolledWindow   *m_scrolled;
+    wxTextCtrl         *m_log;
+
+private:
+    DECLARE_DYNAMIC_CLASS(MyFrame)
+    DECLARE_EVENT_TABLE()
+};
+
+// MyApp
+
+class MyApp: public wxApp
+{
+public:
+    virtual bool OnInit();
+};
+
+// main program
+
+IMPLEMENT_APP(MyApp)
+
+// MyScrolledWindow
+
+IMPLEMENT_DYNAMIC_CLASS(MyScrolledWindow, wxScrolledWindow)
+
+BEGIN_EVENT_TABLE(MyScrolledWindow, wxScrolledWindow)
+  EVT_PAINT(        MyScrolledWindow::OnPaint)
+END_EVENT_TABLE()
+
+MyScrolledWindow::MyScrolledWindow( wxWindow *parent, wxWindowID id,
+                    const wxPoint &pos, const wxSize &size )
+        : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER, "test canvas" )
+{
+    m_canvas = new MyCanvas( this, -1, wxDefaultPosition, wxDefaultSize );
+    
+    SetTargetWindow( m_canvas );
+
+    SetBackgroundColour( "WHEAT" );
+  
+    SetCursor( wxCursor( wxCURSOR_HAND ) );
+    
+    
+    wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
+    
+    topsizer->Add( m_canvas, 1, wxEXPAND|wxALL, 30 );
+
+    SetAutoLayout( TRUE );
+    SetSizer( topsizer );
+}
+
+MyScrolledWindow::~MyScrolledWindow()
+{
+}
+
+void MyScrolledWindow::OnPaint( wxPaintEvent &WXUNUSED(event) )
+{
+    wxPaintDC dc( this );
+
+    wxSize size( GetClientSize() );
+    
+    long w,h;
+    dc.GetTextExtent( wxT("Headline"), &w, &h );
+
+    dc.DrawText( wxT("Headline"), long (size.x / 2 - w / 2), 10 );
+}
+
+// MyCanvas
+
+IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxPanel)
+
+BEGIN_EVENT_TABLE(MyCanvas, wxPanel)
+  EVT_PAINT(      MyCanvas::OnPaint)
+END_EVENT_TABLE()
+
+MyCanvas::MyCanvas( wxScrolledWindow *parent, wxWindowID id,
+                    const wxPoint &pos, const wxSize &size )
+        : wxPanel( parent, id, pos, size, wxSUNKEN_BORDER, "test canvas" )
+{
+    m_owner = parent;
+    
+    (void)new wxButton( this, -1, "Hallo I", wxPoint(20,20), wxSize(100,30) );
+    (void)new wxButton( this, -1, "Hallo II", wxPoint(220,20), wxSize(100,30) );
+
+    SetBackgroundColour( *wxWHITE );
+  
+    SetCursor( wxCursor( wxCURSOR_IBEAM ) );
+}
+
+MyCanvas::~MyCanvas()
+{
+}
+
+void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
+{
+    wxPaintDC dc( this );
+    m_owner->PrepareDC( dc );
+
+    dc.DrawText( "Some text", 140, 140 );
+  
+    dc.DrawRectangle( 100, 160, 200, 200 );
+    
+    dc.SetBrush( *wxTRANSPARENT_BRUSH );
+    
+    dc.DrawRectangle( 10, 10, 480, 980 );
+}
+
+
+// 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)
+END_EVENT_TABLE()
+
+MyFrame::MyFrame()
+       : wxFrame( (wxFrame *)NULL, -1, "wxScrolledWindow sample",
+                  wxPoint(20,20), wxSize(470,500) )
+{
+    wxMenu *file_menu = new wxMenu();
+    file_menu->Append( ID_ABOUT, "&About..");
+    file_menu->Append( ID_QUIT, "E&xit\tAlt-X");
+
+    wxMenuBar *menu_bar = new wxMenuBar();
+    menu_bar->Append(file_menu, "&File");
+
+    SetMenuBar( menu_bar );
+
+    CreateStatusBar(2);
+    int widths[] = { -1, 100 };
+    SetStatusWidths( 2, widths );
+
+    m_scrolled = new MyScrolledWindow( this, -1, wxPoint(0,0), wxSize(100,100) );
+    m_scrolled->SetScrollbars( 10, 10, 50, 100 );
+  
+    m_log = new wxTextCtrl( this, -1, "This is the log window.\n", 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_scrolled, 1, wxEXPAND );
+    topsizer->Add( m_log, 0, wxEXPAND );
+
+    SetAutoLayout( TRUE );
+    SetSizer( topsizer );
+}
+
+void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
+{
+  Close( TRUE );
+}
+
+void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
+{
+  (void)wxMessageBox( "wxScroll demo II\n"
+                      "Robert Roebling (c) 1998",
+                      "About wxScroll II Demo", wxICON_INFORMATION | wxOK );
+}
+
+//-----------------------------------------------------------------------------
+// MyApp
+//-----------------------------------------------------------------------------
+
+bool MyApp::OnInit()
+{
+    wxFrame *frame = new MyFrame();
+    frame->Show( TRUE );
+
+    return TRUE;
+}
+

samples/scrollsub/scrollsub.def

@@ -0,0 +1,7 @@
+NAME         ScrollSub
+DESCRIPTION  'ScrollSub wxWindows application'
+EXETYPE      WINDOWS
+CODE         PRELOAD MOVEABLE DISCARDABLE
+DATA         PRELOAD MOVEABLE MULTIPLE
+HEAPSIZE     4048
+STACKSIZE    16000

samples/scrollsub/scrollsub.rc

@@ -0,0 +1,2 @@
+#include "wx/msw/wx.rc"
+