home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
wingz_2.zip
/
DG
(
.txt
)
next >
Wrap
Wingz Script
|
1990-06-13
|
40KB
|
767 lines
WNGZWZSC0110
Printing
Cancel@
Printer Setup
Printers
Page Setup
Cancel@
Options...
dg:doit=0
Inches
Centimeters
Points
call DG:convert()
Right
Bottom
Margins@
Ce@nter
Report @Border
Cancel@
dg:doit=0
repaint off dg:doit=1
zon idle if dg:val1=-1 dg:val1=0 select control 4
select field text from dg:val2-1 to 255 repaint control end if end idle
Custom Format
Cancel@
Delete
remove custom format ctstring(4,0) if not cerror() select control 5
list box custom formats if ctvalue(5,0) unselect control item ctvalue(5,0) end if
select control 4 field text "" end if
dg:doit=0
.repaint off dg:doit=1 dg:custfmt=ctstring(4,0)
Format
if length(ctstring(5,0)) select control 4 field text ctstring(5,0)
end if on mousedoubleclick repaint off dg:doit=1 dg:custfmt=ctstring(4,0)
quit dialog box end mousedoubleclick
Custom Formats
format custom "
Error in custom format.
Cell Border
odg:outline=ctvalue(3,1)
dg:top=ctvalue(3,4) dg:bottom=ctvalue(3,5) dg:right=ctvalue(3,3)
dg:left=ctvalue(3,2)
Outline
Right
Bottom
Cell Border
cell border "
Sheet Info
@dg:val1=ctvalue(6,1)
dg:val2=ctvalue(7,0) dg:str1=ctstring(8,0)
cells,5
formulas,5
Modified
Not modified
,Circular references
,Needs to be recalculated
Auto Save@
@Interval (minutes)
@Name
Name:
auto save on
auto save off
auto save sheet every
auto save sheet name "
dg:val1=ctvalue(3,0) repaint on
Page Number
Error
dg:val1=ctvalue(3,0) repaint on
All Errors
Total Errors
Input
dg:str1=ctstring(4,0) repaint on
Shadow
Vdg:fgcol=ctvalue(3,0)
dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0) dg:val1=ctvalue(6,0)
Foreground
call dg:shadup()
Background
call dg:shadup()
call dg:shadup()
Shadow Strength
call dg:shadup()
3D chart shadow fg
3D chart shadow bg
3D chart shadow pattern
3D chart shadow strength
Password
dg:str1=ctstring(3,0) repaint on
Password
String to find?
String to find?
Line number?
Replace
Replace @All
Cancel@
+repaint off dg:doit=1 call dg:getsettings()
;repaint off dg:doit=2 call dg:getsettings() quit dialog box
;repaint off dg:doit=3 call dg:getsettings() quit dialog box
dg:doit=0
F@ind
Find/Re@place
Goto Line
call dg:frupdate()
Case Sensitive
Entire Word
Wrap-around
Backwards
String to find?
Replace with what?
goto line
replace
replace all
field text "5
with "
options "5
2dg:findtype=ctvalue(3,0)
dg:findstr=ctstring(4,0)
Value
Formula
Criteria
C@ell
F@ind
find text"
find value
find formula text "
find criteria
select range
Column Width
dg:val1=ctvalue(3,0)
Column @Width
column width
Row Height
dg:val1=ctvalue(3,0)
Row @Height
row height
dg:str1=ctstring(3,0)
#Invalid range name, enter new name.
Paste Formula
dg:str1=ctstring(4,0)
Business
Date/Time
Logical
Statistical
D@atabase
Sp@readsheet
N@umeric
O@perators
Names
call dg:pasteupdate()
Yon mousedoubleclick dg:doit=1 dg:str1=ctstring(4,0) quit dialog box
end mousedoubleclick
put text "
Object #:
Chart Info
+dg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0)
Series width
object name "
series width
Chart Info
dg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,1)
dg:val4=ctvalue(8,0) dg:val5=ctvalue(9,0)
Width to height
Depth to height
Manual Base
Hselect control 8 if ctvalue(7,1) ungrey control else grey control end if
Offset
Series width
object name "
3D width height
3D depth height
manual base placement
percent5
series width
Chart Info
ldg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,0) dg:val3=ctvalue(7,0)
dg:str2=ctstring(8,0)
Non@e
Ascending
Descending
Sorting@
N@one
By @Range
Weighting@
Hselect control 8 if ctvalue(6,3) ungrey control else grey control end if
Start An@gle
Weight Range
pThe "By Range" button on the "Weighting" box is selected. Specify a Weight Range or select a different weighting
object name "
pie sorting
ascending
descending
pie weight
ing off
ing sum
range
pie starting angle
Chart Info
kdg:str1=ctstring(4,0)
dg:val1=ctvalue(5,1) dg:val2=ctvalue(6,1) dg:val3=ctvalue(7,1)
dg:val4=ctvalue(8,0)
Contour @Bands
7if not ctvalue(6,1) select control 5 check box 1 end if
Contour @Lines
7if not ctvalue(6,1) select control 5 check box 1 end if
Smoothing
Hselect control 8 if ctvalue(7,1) ungrey control else grey control end if
Se@gments
object name "
base contour bands
base contour lines
surface smoothing
Chart Info
call dg:wireup()
Width to height
Depth to height
Manual Base
call dg:wiregrey()
Offset
Smoothing
call dg:wiregrey()
Se@gments
call dg:wiregrey()
Su@rface Contour Lines
Base Contour @Bands
Base Contour @Lines
object name "
3D width height
3D depth height
manual base placement
percent5
surface smoothing
surface axes
surface contour lines
base contour bands
base contour lines
Chart Info
call dg:surfupdate()
Width to height
Depth to height
Manual Base
call dg:surfgrey()
Offset
Smoothing
call dg:surfgrey()
Se@gments
call dg:surfgrey()
Clipping
call dg:surfgrey()
Pedestal
call dg:surfgrey()
S@urface Contour Bands
Su@rface Contour Lines
Base Contour @Bands
Base Contour @Lines
object name "
3D width height
3D depth height
manual base placement
percent5
surface smoothing
surface axes
surface pedestal
surface contour bands
surface clipping on
surface clipping off
surface contour lines
base contour bands
base contour lines
Button Info
Adg:str1=ctstring(3,0)
dg:str2=ctstring(4,0) dg:val1=ctvalue(6,1)
Title
Object #:
T@ransparent
object name "
control name "
show control title "
visible button5
Field Info
call dg:fieldupdate()
Title
Object #:
Margins@
Right
Bottom
Para. @Indent
Loc@ked
Scroll bar
Word wrap
Cell n@ote
T@abs
Sin@gle
Double
1.5 lines
Fixed Height
E@xtra Leading
Line Spa@ce
call dg:fieldup()
L@eading
object name "
control name "
show control title "
left indent
points5
right indent
points5
field top margin
points5
field bottom margin
points5
indent
points5
lock field text5
scroll bar field5
field word wrap
field
note5
field tabs every
points5
line spacing
single
double
fixed
points5
single plus
points5
Object Info
dg:str1=ctstring(4,0)
object name "
Poly Info
@dg:str1=ctstring(4,0)
dg:val1=ctvalue(5,0) dg:val2=ctvalue(6,1)
Poly@line
Poly@gon
Smooth
object name "
poly smoothing
3D View
dg:val1=ctvalue(3,0)
select control 5 repaint control
Elevation
)on repaint call dg:paintpie() end repaint
elevation
3D View
jdg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,0) dg:val3=ctvalue(5,0) dg:val4=ctvalue(6,0)
dg:val5=ctvalue(7,0)
select control 8 repaint control
select control 8 repaint control
Vanishing @X
select control 8 repaint control
Vanishing @Y
select control 8 repaint control
Distance
select control 8 repaint control
select control 5 number wheel position mousex()*100/3620
select control 6 number wheel position 100-mousey()*100/3420
select control 8 repaint control on repaint call dg:repview() end repaint
Elevation
Rotation
elevation
rotation
vanishing x
vanishing y
distance
Color Options
on repaint paint red bar dg:val4, dg:val5, dg:val6
paint green bar dg:val4, dg:val5, dg:val6
paint blue bar dg:val4, dg:val5, dg:val6
paint sample box dg:val4, dg:val5, dg:val6 end repaint
call dg:dobars(1) paint sample box ctvalue(1,0), dg:val5, dg:val6
on mousestilldown call dg:dobars(1) end mousestilldown on mousemove
paint sample box ctvalue(1,0), dg:val5, dg:val6 end mousemove
Green
call dg:dobars(2) paint sample box dg:val4, ctvalue(2,0), dg:val6
on mousestilldown call dg:dobars(2) end mousestilldown on mousemove
paint sample box dg:val4, ctvalue(2,0), dg:val6 end mousemove
call dg:dobars(3) paint sample box dg:val4, dg:val5, ctvalue(3,0)
on mousestilldown call dg:dobars(3) end mousestilldown on mousemove
paint sample box dg:val4, dg:val5, ctvalue(3,0) end mousemove
Cancel@
dg:doit=0
Ndg:colpikit=1 dg:val1=ctvalue(1,0) dg:val2=ctvalue(2,0)
dg:val3=ctvalue(3,0)
call dg:redo()
text color 5
Symbol
Tdg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,0) dg:val3=ctvalue(5,0) dg:val4=ctvalue(6,0)
Color
select control 4 line picker fg ctvalue(3,0) select control 5
symbol picker color ctvalue(3,0) select control 7 repaint control
select control 7 repaint control
select control 7 repaint control
select control 7 repaint control
on repaint symbol color ctvalue(3,0) symbol width ctvalue(4,0)
symbol size ctvalue(6,0) points symbol type ctvalue(5,0)
draw symbol (0.5,0.5) end repaint
symbol color
symbol width
symbol type
symbol size
points5
Scale Info
dg:val1=ctvalue(3,1)
dg:str1=ctstring(4,0) dg:str2=ctstring(5,0) dg:val2=ctvalue(6,0)
dg:val3=ctvalue(7,0) dg:str3=ctstring(8,0)
Manual Scaling
Oselect control 4,5,6,7 if ctvalue(3,1) ungrey control else
grey control end if
Mi@nimum
Ma@ximum
Ma@jor Div.
Mino@r Div.
Log Base
manual scaling from
to 5
with 5
major and 5
minor divisions5
automatic scaling
axis log base
Combination
Udg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,1) dg:val3=ctvalue(5,1) dg:str1=ctstring(6,0)
La@yer
Type@
Hide Legend Entry
S@tack
C@olumn
series type
layer
hide series legend
show series
stack series5
series column
Label
*dg:val1=ctvalue(3,0)
dg:val2=ctvalue(4,0)
Center
Exterior
Display@
Value
Percent
Type@
series label
value
percent
hide
series label 5
centered
exterior
9Worksheet was opened without permission to edit password.
Password
<on repaint frame rectangle (0.0,0.375) (1.0,1.0) end repaint
Cancel@
dg:doit=0
lrepaint off dg:doit=1 dg:str1=ctstring(3,0) dg:str2=ctstring(4,0)
dg:val1=ctvalue(5,1) dg:val2=ctvalue(6,1)
Password @1
Password @2
Read Only
Encrypt File
password 1 "
" password 2 "5
read only5
encryption
Text Size
dg:val1=ctvalue(3,0)
Text @Size
text size
Window Scale
dg:val1=ctvalue(3,0)
Scale %
window scale
Iteration
Adg:str1=ctstring(3,0)
dg:str2=ctstring(4,0) dg:val1=ctvalue(5,0)
Max Change
Test Cell
Max @Iterations
iterate until
changes less than 5
max 5
times5
iterate
times5
Precision
dg:val1=ctvalue(3,0)
Precision
precision
Font Name
dg:str1=ctstring(3,0)
Non mousedoubleclick dg:str1=ctstring(3,0) quit dialog box end mousedoubleclick
* denotes a 'printer only' font
text font "
Range Name5
Cancel@
!repaint off dg:str1=ctstring(3,0)
Non mousedoubleclick dg:str1=ctstring(3,0) quit dialog box end mousedoubleclick
Remove9
remove name "
select range "
Define Name
-dg:str1=ctstring(3,0)
dg:str2=ctstring(4,0)
Reference
name range "
" as "5
_Range names must begin with a letter, and contain only letters, digits, underscores and spaces.
Help@
Cancel@
dg:hpval=-1 dg:doit=0
dg:hpval=ctvalue(3,0)
Non mousedoubleclick dg:hpval=ctvalue(3,0) quit dialog box end mousedoubleclick
Edg:fgcol=ctvalue(3,0) dg:bgcol=ctvalue(4,0)
dg:patt=ctvalue(5,0)
Foreground
/select control 5 pattern picker fg ctvalue(3,0)
Background
/select control 5 pattern picker bg ctvalue(4,0)
fg 5
bg 5
pattern 5
plot interior
base side
base top
Adg:fgcol=ctvalue(3,0)
dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0)
Foreground
]select control 5 pattern picker fg ctvalue(3,0) select control 6
line picker fg ctvalue(3,0)
Background
]select control 5 pattern picker bg ctvalue(4,0) select control 6
line picker bg ctvalue(4,0)
1select control 6 line picker pattern ctvalue(5,0)
dg:linewid=ctvalue(6,0)
fg 5
bg 5
pattern 5
width 5
dg:fgcol=ctvalue(3,0)
dg:bgcol=ctvalue(4,0) dg:patt=ctvalue(5,0) dg:val2=ctvalue(7,1)
dg:val3=ctvalue(7,2) dg:val4=ctvalue(9,0)
Foreground
~select control 5 pattern picker fg ctvalue(3,0) select control 6
line picker fg ctvalue(3,0) select control 8 repaint control
Background
~select control 5 pattern picker bg ctvalue(4,0) select control 6
line picker bg ctvalue(4,0) select control 8 repaint control
Sselect control 6 line picker pattern ctvalue(5,0) select control 8
repaint control
8dg:linewid=ctvalue(6,0) select control 8 repaint control
Starting
Ending
Arrow@
zselect control 9 if ctvalue(7,1) or ctvalue(7,2) ungrey control else
grey control end if select control 8 repaint control
*on repaint call dg:drawarrow() end repaint
Length
select control 8 repaint control
fg 5
bg 5
pattern 5
width 5
double
arrow5
single
arrow5
arrow length
points5
axis major grid
axis minor grid
base line
surface line
plot interior line
Border
call dg:bordup()
S@quare
Round
Corners
call dg:bordup()
2D Drop
3D Drop
Shado@w
call dg:bordup()
Non@e
Single Line
Double Line
Thick @Inner
Thick @Outer
B@utton
Line Type
call dg:bordup()
Foreground
call dg:bordup()
Background
call dg:bordup()
call dg:bordup()
X-offset
call dg:bordup()
Y-offset
call dg:bordup()
S@trength
call dg:bordup()
square
round
corners5
drop shadow5
button border
single
double
thick inner
thick outer
line border5
shadow fg
shadow bg
shadow pattern
border x offset
points5
border y offset
points5
shadow strength
Attach
Cancel@
Directories
Fil@es
Current Directory:@
S@cript
Te@xt
Wingz
S@YLK
123-1a
1@23-2.0
Te@xt
Wingz Script
Wingz Spreadsheet
A@ll Documents
File @Types
Print
Copies
Range
,on mouseup call DG:DGGrayRange() end mouseup
Cancel@
colpick
colorpicker
val10
val11
val12
val13
arrowfg
arrowbg
arrowpat
linewid
fgcol
bgcol
colpikit
findtype
findstr
edtype
edcase
edword
edwrap
edback!
edfind"
edrep#
lastformulapaste$
hpval%
custfmt&
outline'
bottom)
left*
right+
twips,
DGleftmin-
DGtopmin.
DGrightmin/
DGbottommin0
DGPrintCancel
DGPrinterSetupa
dgokcan
DGPreview
fixnumwhl
convert
DGCustom
DGCellBorder,
sheetinfo5
DGPreviewGoto
DGFileErrorA
DGAsk|
shadup
DGShadow
getpaswrd/
getsettings
frupdate
fieldfinds
ssfindY
DGFindU!
DGColumnWidth
DGRowHeightn"
DGNewName3#
pasteupdate
DGPasteFormula
numname
gengraf1
gengraf2
dopiegraf
piegraf
contgrafT0
wireup
wiregrey
wiregrafc5
surfupdateE:
surfgrey};
surfgraf
buttoninfo
fieldupdate
fieldup
fieldinfoBF
genitemvL
charts5M
polyinfo N
DGObjectInfo
paintpievP
DG3DPieView
repviewJS
DG3DView
dobarssY
colpikp[
DGTextColor
DGSymbol
DGScaleInfo
DGCombo
DGLabel_k
DGPassword
DGTextSize
DGScale
DGIteration
DGPrecision
DGFontName
DGRangeName
DGNameTw
DGHelpKy
DGHpval`z
DGGenFilllz
DGFillE|
DGPlotFill[|
DGBaseSideFillz|
DGBaseTopFill
DGGenLine
drawarrow
DGGenLineArrow
DGLine
DGMajGrid
DGMinGrid
DGBaseLine,
DGSurfaceLineI
DGPlotLinei
bordup
DGBorder
DGFileDlg
DGPrintDialog7
DGGrayRange