[Win32forth-cvs] win32forth/demos FlashControlDemo.f,NONE,1.1 HtmlControlDemo.f,NONE,1.1 PdfControlDemo.f,NONE,1.1 clock.swf,NONE,1.1

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13823/demos

Added Files:
	FlashControlDemo.f HtmlControlDemo.f PdfControlDemo.f 
	clock.swf 
Log Message:
- Moved the demo code for the new ActiveX controls into seperate files in the Demos-Folder
- Added two new tool's for exploring ActiveX controls
- Added some notes about the new COM and ActiveX support to the release notes.

--- NEW FILE: HtmlControlDemo.f ---
\ $Id: HtmlControlDemo.f,v 1.1 2005/09/18 11:10:31 dbu_de Exp $

\ Demo for the HTML Control
\ Thomas Dixon

cr .( Loading Html Control Demo...)

anew -HtmlControlDemo.f

needs HtmlControl.f

\ Create a simple browser window

:class Browserwin <super window
  HTMLcontrol html

  :M On_Init: ( -- )
     On_Init: super
     self Start: html ;M

  :M On_Size: ( h m w -- ) 2drop drop autosize: html ;M

  :M GetPath: ( -- str len ) GetPath: html ;M
  :M GetLocationURL: ( -- str len ) GetLocationURL: html ;M
  :M GetLocationName: ( -- str len ) GetLocationName: html ;M
  :M Busy?: ( -- flag ) Busy?: html ;M
  :M GoHome: ( -- ) GoHome: html ;M
  :M GoSearch: ( -- ) GoSearch: html ;M
  :M GoForward: ( -- ) GoForward: html ;M
  :M GoBack: ( -- ) GoBack: html ;M
  :M Refresh: ( -- ) Refresh: html ;M
  :M Stop: ( -- ) Stop: html ;M
  :M GoURL: ( str len -- ) GoURL: html ;M

;class

BrowserWin bwin
start: bwin
\ s" www.win32forth.org" GoURL: bwin
s" doc\p-relnotes.6.12.htm" Prepend<home>\ GoURL: bwin

--- NEW FILE: FlashControlDemo.f ---
\ $Id: FlashControlDemo.f,v 1.1 2005/09/18 11:10:31 dbu_de Exp $

\ Demo for Shockwave Flash control
\ Tom Dixon

cr .( Loading Flash Control Demo...)

anew -FlashControlDemo.f

needs FlashControl.f

:class Flashwin <super window
  Flashcontrol fcntrl

  :M On_Init: ( -- )
     On_Init: super
     self Start: fcntrl ;M

  :M On_Size: ( h m w -- ) 2drop drop autosize: fcntrl ;M

  \ ShockWave Methods
  :M PutMovie: ( str len -- f ) PutMovie: fcntrl ;M
  :M GetMovie: ( -- str len ) GetMovie: fcntrl ;M
  :M Play: ( -- ) Play: fcntrl ;M
  :M Stop: ( -- ) Stop: fcntrl ;M
  :M Back: ( -- ) Back: fcntrl ;M
  :M Forward: ( -- ) Forward: fcntrl ;M
  :M Rewind: ( -- ) Rewind: fcntrl ;M
  :M StopPlay: ( -- ) StopPlay: fcntrl ;M
  :M GotoFrame: ( n -- ) GotoFrame: fcntrl ;M
  :M CurrentFrame: ( -- n ) CurrentFrame: fcntrl ;M
  :M TotalFrames: ( -- n ) TotalFrames: fcntrl ;M
  :M Playing?: ( -- flag ) Playing?: fcntrl ;M
  :M Loaded%: ( -- percent ) Loaded%: fcntrl ;M
  :M Loop: ( flag -- ) Loop: fcntrl ;M
  :M Loop?: ( -- flag ) Loop?: fcntrl ;M
  :M Pan: ( n n n -- ) Pan: fcntrl ;M
  :M Zoom: ( n -- ) Zoom: fcntrl ;M
  :M SetZoomRect: ( n n n n -- ) SetZoomRect: fcntrl ;M
  :M BGColor: ( -- color ) BGColor: fcntrl ;M
  :M SetBGColor: ( color -- ) SetBGColor: fcntrl ;M

;class

Flashwin fwin
start: fwin
0x808080 setbgcolor: fwin
s" demos\clock.swf" Prepend<home>\ putmovie: fwin drop
true loop: fwin

--- NEW FILE: PdfControlDemo.f ---
\ $Id: PdfControlDemo.f,v 1.1 2005/09/18 11:10:31 dbu_de Exp $

\ Demo for the Acrobat PDF Control
\ Thomas Dixon

cr .( Loading PDF Control Demo...)

anew -PdfControlDemo.f

needs PdfControl.f

\ Create a simple pdf window
:class PDFwin <super window
  PDFControl pdf

  :M On_Init: ( -- )
     On_Init: super
     self Start: pdf ;M

  :M On_Size: ( h m w -- ) 2drop drop autosize: pdf ;M

  :M LoadFile: ( str len -- flag ) LoadFile: pdf ;M
  :M SetPage: ( n -- ) SetPage: pdf ;M
  :M gotoFirstPage: ( -- ) gotoFirstPage: pdf ;M
  :M gotoLastPage: ( -- ) gotoLastPage: pdf ;M
  :M gotoNextPage: ( -- ) gotoNextPage: pdf ;M
  :M gotoPreviousPage: ( -- ) gotoPreviousPage: pdf ;M
  :M goForward: ( -- ) goForward: pdf ;M
  :M goBack: ( -- ) goBack: pdf ;M

  :M Print: ( -- ) Print: pdf ;M
  :M PrintWithDialog: ( -- ) PrintWithDialog: pdf ;M
  :M PrintPages: ( n n -- ) PrintPages: pdf ;M
  :M PrintPagesFit: ( flag n n -- ) PrintPagesFit: pdf ;M
  :M PrintAll: ( -- ) PrintAll: pdf ;M
  :M PrintAllFit: ( bool -- ) PrintAllFit: pdf ;M

  :M SetZoom: ( float -- ) SetZoom: pdf ;M
  :M SetZoomScroll: ( float float float -- ) SetZoomScroll: pdf ;M
  :M SetViewRect: ( float float float float -- ) SetViewRect: pdf ;M

  :M SetPageMode: ( str len -- ) SetPageMode: pdf ;M
  :M SetLayoutMode: ( str len -- ) SetLayoutMode: pdf ;M
  :M SetNamedDest: ( str len -- ) SetNamedDest: pdf ;M

  :M SetShowToolbar: ( flag -- ) SetShowToolbar: pdf ;M
  :M SetShowScrollbars: ( flag -- ) SetShowScrollbars: pdf ;M

  :M Aboutbox: ( -- ) Aboutbox: pdf ;M
;class


\ This should load a pdf file and display it in a window
pdfwin pwin
start: pwin
s" doc\Forth_Primer.pdf" Prepend<home>\ loadfile: pwin drop


\ I don't think the PDF viewer was ever ment to be used as an embedded control
\ It only supports the dispatch interface and updates (such as resizing) are rather slow



--- NEW FILE: clock.swf ---
(This appears to be a binary file; contents omitted.)