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.)
|
