alexander
/
iup-stack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity
iup-stack/cd/test/cdtest/cdtest.led

1512 lines
34 KiB
Plaintext
Executable File
Raw Permalink Blame History

#===========================================================================#
# CDTEST.LED - 05/12/95 #
#===========================================================================#
#---------------------------------------------------------------------------#
# Icones da Barra de Primitivas. #
#---------------------------------------------------------------------------#
imgLine = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgClip = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,
0,0,0,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,
0,0,0,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,
0,0,0,1,1,0,0,0,0,1,0,1,1,0,0,0,0,0,
0,0,0,1,1,0,0,0,1,0,0,1,1,0,0,0,0,0,
0,0,0,1,1,0,0,1,0,0,0,1,1,0,0,0,0,0,
0,0,0,1,1,0,1,0,0,0,0,1,1,0,0,0,0,0,
0,0,0,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,
0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgImage = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0",
2 = "255 255 255",
3 = "153 153 153"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,
0,0,0,0,1,1,2,2,2,2,2,1,1,0,0,0,0,0,
0,0,0,0,1,1,2,2,2,2,2,1,1,0,0,0,0,0,
0,0,0,1,1,2,1,1,2,1,1,2,1,1,0,0,0,0,
0,0,0,1,2,2,1,2,2,2,1,2,2,1,0,0,0,0,
0,0,0,1,2,2,2,2,1,2,2,2,2,1,0,0,0,0,
0,0,0,1,1,2,2,2,1,3,2,2,1,1,0,0,0,0,
0,0,0,0,1,2,2,2,2,1,2,2,1,3,0,0,0,0,
0,0,0,0,1,2,2,2,1,1,2,2,1,3,0,0,0,0,
0,0,0,0,1,2,2,2,2,2,2,2,1,3,0,0,0,0,
0,0,0,0,0,1,2,1,3,1,2,1,3,0,0,0,0,0,
0,0,0,0,0,1,2,2,1,3,2,1,3,0,0,0,0,0,
0,0,0,0,0,0,1,2,2,2,1,3,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,1,1,3,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,2,1,3,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,2,1,3,0,0,0,0,0,0,0
)
imgImageRGB = IMAGE
[
0 = "BGCOLOR",
1 = "255 0 0",
2 = "0 255 0",
3 = "0 0 255"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,1,1,1,1,2,2,2,2,3,3,3,3,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgBox = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0",
2 = "255 255 255"
]
(
18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
0,0,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgRect = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0",
2 = "255 255 255"
]
(
18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,1,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
0,0,1,0,0,0,0,0,2,0,0,0,1,0,0,2,0,0,
0,0,1,0,0,0,0,0,2,0,0,0,1,0,0,2,0,0,
0,0,1,0,0,0,0,0,2,0,0,0,1,0,0,2,0,0,
0,0,1,1,1,1,1,1,2,1,1,1,1,0,0,2,0,0,
0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,
0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,
0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgSector = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0" ,
2 = "255 255 255"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,0,1,1,1,1,1,1,1,1,1,1,2,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,2,2,2,2,0,0,0,
0,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0,
0,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,0,0,
0,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgChord = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0" ,
2 = "255 255 255"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,1,2,2,2,0,0,0,0,0,0,0,
0,0,0,0,1,1,1,1,1,2,2,2,2,0,0,0,0,0,
0,0,0,1,1,1,1,1,1,1,2,2,2,2,0,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,2,2,2,2,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgArc = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0",
2 = "255 255 255"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,2,0,0,0,2,0,0,0,0,0,0,0,0,0,0,
0,0,2,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,
0,0,2,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,
0,0,2,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,
0,0,0,2,0,0,0,2,0,0,1,2,2,0,0,0,0,0,
0,0,0,0,2,2,2,0,1,1,0,0,0,2,2,0,0,0,
0,0,0,0,0,0,0,0,1,0,0,0,0,0,2,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,2,0,0,
0,0,0,0,0,0,0,0,1,0,0,0,0,0,2,0,0,0,
0,0,0,0,0,0,0,0,1,1,0,0,0,2,2,0,0,0,
0,0,0,0,0,0,0,0,0,0,1,1,2,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgText = IMAGE
[
0 = "BGCOLOR",
1 = "255 255 255",
2 = "0 0 0"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,
0,0,0,2,2,0,0,2,2,0,0,1,1,0,0,0,0,0,
0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,0,0,
0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,0,0,
0,0,2,2,0,0,0,0,2,2,0,0,1,1,1,1,0,0,
0,0,2,2,2,2,2,2,2,2,0,0,1,0,0,0,1,0,
0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,1,0,
0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,1,0,
0,0,2,2,0,0,0,0,2,2,0,0,1,0,0,0,1,0,
0,0,2,2,0,0,0,0,2,2,0,1,1,1,1,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgPoly = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,1,1,0,0,0,0,1,1,1,0,0,
0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,
0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,
0,0,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,
0,0,0,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,
0,0,0,0,1,1,1,0,0,1,1,1,0,0,0,0,0,0,
0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,
0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
0,0,0,1,1,1,1,0,0,0,1,1,1,1,0,0,0,0,
0,0,0,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,
0,0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,
0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgMark = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,
0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,
0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,
0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0,
0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
imgPixel = IMAGE
[
0 = "BGCOLOR",
1 = "0 0 0",
2 = "255 255 255"
]
(18, 18,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,2,2,0,0,0,0,0,0,0,2,2,0,0,0,0,
0,0,0,2,2,0,0,0,0,0,0,0,2,2,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,2,2,0,0,0,1,1,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
)
#---------------------------------------------------------------------------#
# Descricao dos Menus. #
#---------------------------------------------------------------------------#
mnOpen = MENU
(
ITEM("MF...", cmdPlayMF),
itPlayCGM = ITEM[ACTIVE=NO]("CGM...", cmdPlayCGM),
itPlayEMF = ITEM[ACTIVE=NO]("EMF...", cmdPlayEMF),
itPlayWMF = ITEM[ACTIVE=NO]("WMF...", cmdPlayWMF)
)
mnSave = MENU
(
ITEM("MF...", cmdMF),
ITEM("DEBUG...", cmdDebug),
itPDF = ITEM[ACTIVE=NO]("PDF...", cmdPDF),
itPS = ITEM[ACTIVE=NO]("PS...", cmdPS),
itEPS = ITEM[ACTIVE=NO]("EPS...", cmdEPS),
itSVG = ITEM[ACTIVE=NO]("SVG...", cmdSVG),
itCGMt = ITEM[ACTIVE=NO]("CGMt...", cmdCGMt),
itCGMb = ITEM[ACTIVE=NO]("CGMb...", cmdCGMb),
itDGN = ITEM[ACTIVE=NO]("DGN...", cmdDGN),
itDXF = ITEM[ACTIVE=NO]("DXF...", cmdDXF),
itEMF = ITEM[ACTIVE=NO]("EMF...", cmdEMF),
itWMF = ITEM[ACTIVE=NO]("WMF...", cmdWMF),
itPPTX = ITEM[ACTIVE=NO]("PPTX...", cmdPPTX)
)
mnFile = MENU
(
SUBMENU[KEY=K_O]("Open", mnOpen),
SEPARATOR(),
SUBMENU[KEY=K_S]("Save", mnSave),
SEPARATOR(),
itPrint = ITEM[KEY=K_P]("Print...", cmdPrint),
SEPARATOR(),
ITEM[KEY=K_x]("Exit", cmdFileExit)
)
mnEdit = MENU
(
itEditUndo = ITEM("Undo", cmdEditUndo),
SEPARATOR(),
itClipBoard = ITEM[ACTIVE=NO]("Copy as EMF/WMF", cmdClipBoard),
itClipBoardBitmap = ITEM[ACTIVE=NO]("Copy as Bitmap", cmdClipBoardBitmap),
itClipBoardMetafile = ITEM[ACTIVE=NO]("Copy as CD Metafile", cmdClipBoardMetafile),
itClipBoardPaste = ITEM[ACTIVE=NO]("Paste", cmdClipBoardPaste),
SEPARATOR(),
ITEM("Clear", cmdEditClear),
SEPARATOR(),
ITEM("Options...", cmdOptions)
)
mnPrimitives = MENU
(
ITEM("Pixel...", cmdPixel),
ITEM("Mark...", cmdMark),
ITEM("Line...", cmdLine),
ITEM("Polygon...", cmdPoly),
ITEM("Rect...", cmdRect),
ITEM("Box...", cmdBox),
ITEM("Arc...", cmdArc),
ITEM("Sector...", cmdSector),
ITEM("Chord...", cmdChord),
ITEM("Text...", cmdText),
SEPARATOR(),
ITEM("Server Image...", cmdImage),
ITEM("RGB Image...", cmdImageRGB)
)
mnDraw = MENU[ISMENU=YES]
(
SUBMENU[KEY=K_P]("Primitives", mnPrimitives),
SEPARATOR(),
ITEM("Clipping...", cmdClip),
ITEM("Attributes...", cmdAttributes),
SEPARATOR(),
itWDCanvas = ITEM("Show WD Canvas", cmdWDCanvas),
itPICCanvas = ITEM("Show Picture Canvas", cmdPICCanvas)
)
mnHelp = MENU
(
ITEM("About...", cmdHelpAbout)
)
mnMain = MENU
(
SUBMENU[KEY=K_mF]("File", mnFile),
SUBMENU[KEY=K_mE]("Edit", mnEdit),
SUBMENU[KEY=K_mD]("Draw", mnDraw),
SUBMENU[KEY=K_mH]("Help", mnHelp)
)
#===========================================================================#
# Barras de Ferramentas. #
#===========================================================================#
#---------------------------------------------------------------------------#
# Barra de status. #
#---------------------------------------------------------------------------#
lbStatusLine = LABEL[EXPAND=HORIZONTAL]("Esta eh a barra de status do CDTest.")
#---------------------------------------------------------------------------#
# Barra de Primitivas. #
#---------------------------------------------------------------------------#
btLine = BUTTON[IMAGE=imgLine, TIP="Line"]("",cmdLine)
btBox = BUTTON[IMAGE=imgBox, TIP="Box"]("",cmdBox)
btRect = BUTTON[IMAGE=imgRect, TIP="Rect"]("",cmdRect)
btArc = BUTTON[IMAGE=imgArc, TIP="Arc"]("", cmdArc)
btSector = BUTTON[IMAGE=imgSector, TIP="Sector"]("", cmdSector)
btChord = BUTTON[IMAGE=imgChord, TIP="Chord"]("", cmdChord)
btPixel = BUTTON[IMAGE=imgPixel, TIP="Pixel"]("", cmdPixel)
btMark = BUTTON[IMAGE=imgMark, TIP="Mark"]("", cmdMark)
btText = BUTTON[IMAGE=imgText, TIP="Text"]("", cmdText)
btPoly = BUTTON[IMAGE=imgPoly, TIP="Polygon"]("", cmdPoly)
btImageRGB = BUTTON[IMAGE=imgImageRGB, TIP="RGB Image"]("", cmdImageRGB)
btImage = BUTTON[IMAGE=imgImage, TIP="Server Image"]("", cmdImage)
btClip = BUTTON[IMAGE=imgClip, TIP="Clipping Area"]("", cmdClip)
btCurPrim = BUTTON[IMAGE=imgLine, TIP="Show primitive dialog"]("", cmdShowDialog)
lbMousePos = LABEL[SIZE=90]("( , )")
btCustom = BUTTON[TITLE="Custom"]("",cmdCustom)
PrimBar = VBOX[GAP=2]
(
btCurPrim,
FILL[SIZE=20](),
btPixel,
btMark,
btLine,
btPoly,
btRect,
btBox,
btArc,
btSector,
btChord,
btText,
FILL[SIZE=5](),
btImage,
btImageRGB,
FILL[SIZE=5](),
btClip,
FILL[SIZE=30](),
btCustom
)
#---------------------------------------------------------------------------#
# Barra de Cores. #
#---------------------------------------------------------------------------#
cnvColorBar = CANVAS
[
BUTTON_CB = cmdColorBarButtonCB,
RESIZE_CB = cmdColorBarResizeCB,
SIZE = 220x12,
BORDER = NO,
EXPAND = NO
]
(cmdColorBarRepaint)
#===========================================================================#
# Dialogo Principal #
#===========================================================================#
#---------------------------------------------------------------------------#
# Canvas para visualizacao das primitivas. #
#---------------------------------------------------------------------------#
cnvMain = CANVAS
[
MOTION_CB=cmdMotionCB,
BUTTON_CB=cmdButtonCB,
RESIZE_CB=cmdResizeCB
]
(cmdRepaint)
#---------------------------------------------------------------------------#
# Area de trabalho. #
#---------------------------------------------------------------------------#
DeskTop = VBOX
(
FILL[SIZE=5](),
HBOX
(
FILL[SIZE=5](),
PrimBar,
FILL[SIZE=2](),
VBOX
(
FILL[SIZE=2](),
lbMousePos,
FILL[SIZE=5](),
cnvMain,
FILL[SIZE=2](),
cnvColorBar,
FILL[SIZE=5](),
lbStatusLine
),
FILL[SIZE=5]()
),
FILL[SIZE=5]()
)
#---------------------------------------------------------------------------#
# Dialogo principal. #
#---------------------------------------------------------------------------#
dlgMain = DIALOG
[
TITLE = "CD Test 5.3",
MENU = mnMain,
ICON = "CdTestIcon",
K_cZ = cmdEditUndo,
GETFOCUS_CB = cmdGetFocusCB,
KILLFOCUS_CB = cmdKillFocusCB,
CLOSE_CB = cmdFileExit
]
(DeskTop)
#===========================================================================#
# Especificacao dos dialogos auxiliares. #
#===========================================================================#
#---------------------------------------------------------------------------#
# Dialogo com o canvas para exibiccao de primitivas WD. #
#---------------------------------------------------------------------------#
cnvWDCanvas = CANVAS[BORDER=NO](cmdWDRepaint)
dlgWDCanvas = DIALOG
[
TITLE = "WD Canvas",
CLISE_CB = cmdCloseWD,
SIZE = 200x200,
PARENTDIALOG="dlgMain",
GAP=5x5
]
(cnvWDCanvas)
cnvPICCanvas = CANVAS[BORDER=NO](cmdPICRepaint)
dlgPICCanvas = DIALOG
[
TITLE = "PIC Canvas",
CLISE_CB = cmdClosePIC,
SIZE = 200x200,
PARENTDIALOG="dlgMain",
GAP=5x5
]
(cnvPICCanvas)
#---------------------------------------------------------------------------#
# Dialogo Options #
#---------------------------------------------------------------------------#
btOptionsHide = BUTTON[SIZE=30]("Hide", cmdOptionsHide)
tgSimulate = TOGGLE[VALUE=OFF, SIZE=55]("Simulate", cmdSimulate)
tgStretchPlay = TOGGLE[VALUE=ON, SIZE=70]("Stretch Play", cmdStretchPlay)
tgNoBuffering = TOGGLE[VALUE=ON]("No buffering", cmdNoBuffering)
tgImageBuffer = TOGGLE("CD_DBUFFER", cmdImageBuffer)
tgRGBBuffer = TOGGLE("CD_DBUFFERRGB", cmdRGBBuffer)
rdBuffering = RADIO
(
VBOX
(
tgNoBuffering,
tgImageBuffer,
tgRGBBuffer
)
)
OptionsDesktop = VBOX
(
VBOX[GAP=2]
(
FRAME[TITLE="Buffering:", MARGIN=5x5, SIZE=80]
(
rdBuffering
),
FILL[SIZE=10](),
tgSimulate,
tgStretchPlay,
FILL[SIZE=10](),
btOptionsHide,
FILL[SIZE=2]()
)
)
dlgOptions = DIALOG
[
TITLE="Options",
PARENTDIALOG="dlgMain",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
MARGIN=5x2
]
(OptionsDesktop)
#---------------------------------------------------------------------------#
# Dialogo Attributes #
#---------------------------------------------------------------------------#
lstTextAlignment = LIST
[
1="CD_NORTH",
2="CD_SOUTH",
3="CD_EAST",
4="CD_WEST",
5="CD_NORTH_EAST",
6="CD_NORTH_WEST",
7="CD_SOUTH_EAST",
8="CD_SOUTH_WEST",
9="CD_CENTER",
10="CD_BASE_LEFT",
11="CD_BASE_CENTER",
12="CD_BASE_RIGHT",
DROPDOWN=YES,
VALUE=10,
SIZE=89
]
(cmdTextAlignment)
txtMarkSize = TEXT[NC=4, SIZE=20x12, VALUE="10"](cmdInteger)
lstMarkType = LIST
[
1="CD_PLUS",
2="CD_STAR",
3="CD_CIRCLE",
4="CD_X",
5="CD_BOX",
6="CD_DIAMOND",
7="CD_HOLLOW_CIRCLE",
8="CD_HOLLOW_BOX",
9="CD_HOLLOW_DIAMOND",
DROPDOWN=YES,
VALUE=2,
SIZE=80
](cmdMarkType)
lstWriteMode = LIST
[
1="CD_REPLACE",
2="CD_XOR",
3="CD_NOT_XOR",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdWriteMode)
lstFontTypeFace = LIST
[
1="CD_SYSTEM",
2="CD_COURIER",
3="CD_TIMES_ROMAN",
4="CD_HELVETICA",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdFontTypeFace)
lstLineCap = LIST
[
1="CD_CAPFLAT",
2="CD_CAPSQUARE",
3="CD_CAPROUND",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdLineCap)
lstLineJoin = LIST
[
1="CD_BEVEL",
2="CD_MITER",
3="CD_ROUND",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdLineJoin)
lstFillMode = LIST
[
1="CD_EVENODD",
2="CD_WINDING",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdFillMode)
lstFontStyle = LIST
[
1="CD_PLAIN",
2="CD_BOLD",
3="CD_ITALIC",
4="CD_BOLD_ITALIC",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdFontStyle)
txtLineWidth = TEXT[SIZE=30, NC=3, VALUE="1"](cmdInteger)
txtFontSize = TEXT[SIZE=30, NC=3, VALUE="12"](cmdInteger)
txtTextOrientation = TEXT[SIZE=30, NC=3, VALUE="0"](cmdInteger)
lstLineStyle = LIST
[
1="CD_CONTINUOUS",
2="CD_DASHED",
3="CD_DOTTED",
4="CD_DASH_DOT",
5="CD_DASH_DOT_DOT",
6="CD_CUSTOM",
VALUE=1,
DROPDOWN=YES,
SIZE=80
]
(cmdLineStyle)
tgSolid = TOGGLE[VALUE=ON] ("CD_SOLID", cmdSolid)
tgHatch = TOGGLE("CD_HATCH", cmdHatch)
tgStipple = TOGGLE("CD_STIPPLE", cmdStipple)
tgPattern = TOGGLE("CD_PATTERN", cmdPattern)
lstOpacity = LIST
[
1="CD_OPAQUE",
2="CD_TRANSPARENT",
VALUE=2,
DROPDOWN=YES,
SIZE=80,
ACTIVE=YES
]
(cmdOpacity)
lstHatchStyle = LIST
[
1="CD_HORIZONTAL",
2="CD_VERTICAL",
3="CD_FDIAGONAL",
4="CD_BDIAGONAL",
5="CD_CROSS",
6="CD_DIAGCROSS",
VALUE=1,
DROPDOWN=YES,
SIZE=80,
ACTIVE=YES
]
(cmdHatchStyle)
btAttributesHide = BUTTON[SIZE=30]("Hide", cmdAttributesHide)
rdInteriorStyle = RADIO
(
VBOX
(
tgSolid,
tgHatch,
tgStipple,
tgPattern
)
)
AttributesDesktop = VBOX
(
HBOX
(
VBOX[GAP=2]
(
LABEL("Write Mode:"),
lstWriteMode,
FILL[SIZE=4](),
FRAME[TITLE="Fill Attributes", MARGIN=5x5]
(
VBOX
(
LABEL("Back Opacity:"),
lstOpacity,
FILL[SIZE=2](),
LABEL("Fill Mode:"),
lstFillMode,
FILL[SIZE=2](),
FRAME[TITLE="Interior Style:", MARGIN=5x5, SIZE=80]
(
rdInteriorStyle
),
FILL[SIZE=2](),
LABEL("Hatch Style:"),
lstHatchStyle
)
),
FILL[SIZE=10](),
FRAME[TITLE="Mark Attributes", MARGIN=5x5]
(
VBOX
(
LABEL("Mark Type:"),
lstMarkType,
FILL[SIZE=2](),
LABEL("Mark Size:"),
txtMarkSize
)
),
FILL[SIZE=10](),
btAttributesHide
),
VBOX[GAP=2]
(
FRAME[TITLE="Text Attributes", MARGIN=5x5]
(
VBOX
(
LABEL("Font Typeface:"),
lstFontTypeFace,
FILL[SIZE=2](),
LABEL("Font Style:"),
lstFontStyle,
FILL[SIZE=2](),
LABEL("Font Size:"),
txtFontSize,
FILL[SIZE=2](),
LABEL[SIZE=x9]("Text Alignment:"),
lstTextAlignment,
FILL[SIZE=2](),
LABEL[SIZE=x9]("Text Orientation:"),
txtTextOrientation
)
),
FILL[SIZE=10](),
FRAME[TITLE="Line Attributes", MARGIN=5x5]
(
VBOX
(
LABEL("Line Style:"),
lstLineStyle,
FILL[SIZE=2](),
LABEL("Line Width:"),
txtLineWidth,
FILL[SIZE=2](),
LABEL("Line Cap:"),
lstLineCap,
FILL[SIZE=2](),
LABEL("Line Join:"),
lstLineJoin
)
)
)
)
)
dlgAttributes = DIALOG
[
TITLE="Attributes",
PARENTDIALOG="dlgMain",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
CLOSE_CB=cmdAttributesHide,
MARGIN=5x2
]
(AttributesDesktop)
#---------------------------------------------------------------------------#
# Dialogo Line ou Box ou Rect. #
#---------------------------------------------------------------------------#
txtLBX1 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
txtLBX2 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
txtLBY1 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
txtLBY2 = TEXT[NC=8, SIZE=30x12, VALUE="0"](cmdInteger)
btLBDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btLBHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
LBData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=15x9]("X1:"),
txtLBX1,
FILL[SIZE=5](),
LABEL[SIZE=15x9]("Y1:"),
txtLBY1
),
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=15x9]("X2:"),
txtLBX2,
FILL[SIZE=5](),
LABEL[SIZE=15x9]("Y2:"),
txtLBY2
)
)
LBDeskTop = VBOX
(
HBOX
(
FILL(),
LBData,
FILL()
),
HBOX
(
FILL(),
btLBDraw,
FILL[SIZE=5](),
btLBHide,
FILL()
)
)
dlgLB = DIALOG
[
TITLE="Line Parameters",
PARENTDIALOG="dlgMain",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
CLOSE_CB=cmdMsgHide,
MARGIN=5x5
]
(LBDeskTop)
#---------------------------------------------------------------------------#
# Dialogo Arc ou Sector. #
#---------------------------------------------------------------------------#
txtASXC = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASYC = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASW = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASH = TEXT[NC=4, SIZE=30x12, VALUE="0"](cmdInteger)
txtASAngle1 = TEXT[NC=10, SIZE=30x12, VALUE="0"](cmdReal)
txtASAngle2 = TEXT[NC=10, SIZE=30x12, VALUE="360"](cmdReal)
btASDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btASHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
ASData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("Xc:"),
txtASXC,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("Yc:"),
txtASYC
),
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("W:"),
txtASW,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("H:"),
txtASH
),
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("Angle1:"),
txtASAngle1,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("Angle2:"),
txtASAngle2
)
)
ASDeskTop = VBOX
(
HBOX
(
FILL(),
ASData,
FILL()
),
HBOX
(
FILL(),
btASDraw,
FILL[SIZE=5](),
btASHide,
FILL()
)
)
dlgAS = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Arc Parameters",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
CLOSE_CB=cmdMsgHide,
MARGIN=5x5
]
(ASDeskTop)
#---------------------------------------------------------------------------#
# Dialogo Pixel. #
#---------------------------------------------------------------------------#
txtPixelX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtPixelY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
btPixelDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btPixelHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
PixelData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=10x9]("X:"),
txtPixelX,
FILL[SIZE=5](),
LABEL[SIZE=10x9]("Y:"),
txtPixelY
)
)
PixelDeskTop = VBOX
(
HBOX
(
FILL(),
PixelData,
FILL()
),
HBOX
(
FILL(),
btPixelDraw,
FILL[SIZE=5](),
btPixelHide,
FILL()
)
)
dlgPixel = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Pixel Parameters",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
CLOSE_CB=cmdMsgHide,
MARGIN=5x5
]
(PixelDeskTop)
#---------------------------------------------------------------------------#
# Dialogo Mark. #
#---------------------------------------------------------------------------#
txtMarkX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtMarkY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
btMarkDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btMarkHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
MarkData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
FILL(),
LABEL[SIZE=10x9]("X:"),
txtMarkX,
FILL[SIZE=5](),
LABEL[SIZE=10x9]("Y:"),
txtMarkY,
FILL()
)
)
MarkDeskTop = VBOX
(
HBOX
(
FILL(),
MarkData,
FILL()
),
HBOX
(
FILL(),
btMarkDraw,
FILL[SIZE=5](),
btMarkHide,
FILL()
)
)
dlgMark = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Mark Parameters",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
CLOSE_CB=cmdMsgHide,
MARGIN=5x5
]
(MarkDeskTop)
#---------------------------------------------------------------------------#
# Dialogo Text. #
#---------------------------------------------------------------------------#
txtTextX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtTextY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtTextS = TEXT[NC=100, SIZE=89x12, VALUE="Text"](cmdString)
btTextDraw = BUTTON[SIZE=30]("Draw", cmdDraw)
btTextHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
TextData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=10x9]("X:"),
txtTextX,
FILL[SIZE=5](),
LABEL[SIZE=10x9]("Y:"),
txtTextY
),
HBOX
(
VBOX
(
LABEL[SIZE=25x9]("Text:"),
txtTextS
)
)
)
TextDeskTop = VBOX
(
HBOX
(
FILL(),
TextData,
FILL()
),
HBOX
(
FILL(),
btTextDraw,
FILL[SIZE=5](),
btTextHide,
FILL()
)
)
dlgText = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Text Parameters",
MAXBOX=NO,
MINBOX=NO,
CLOSE_CB=cmdMsgHide,
RESIZE=NO,
MARGIN=5x5
]
(TextDeskTop)
#---------------------------------------------------------------------------#
# Dialogo Poly. #
#---------------------------------------------------------------------------#
tgOpenLines = TOGGLE[VALUE=ON]("CD_OPEN_LINES", cmdOpenLines)
tgClosedLines = TOGGLE("CD_CLOSED_LINES", cmdClosedLines)
tgFilled = TOGGLE("CD_FILL", cmdFill)
tgClip = TOGGLE("CD_CLIP", cmdPolyClip)
tgBezier = TOGGLE("CD_BEZIER", cmdPolyBezier)
btPolyHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
rdMode = RADIO
(
VBOX
(
tgOpenLines,
tgClosedLines,
tgFilled,
tgClip,
tgBezier
)
)
PolyDesktop = VBOX
(
FILL[SIZE=5](),
HBOX
(
FILL(),
FRAME[TITLE="Polygon Mode:"]
(
HBOX
(
FILL[SIZE=5](),
rdMode
)
),
FILL()
),
FILL[SIZE=10](),
HBOX
(
FILL(),
btPolyHide,
FILL()
),
FILL[SIZE=5]()
)
dlgPoly = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Polygon Parameters",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO,
CLOSE_CB=cmdMsgHide
]
(PolyDesktop)
#---------------------------------------------------------------------------#
# Dialogo Clip. #
#---------------------------------------------------------------------------#
txtClipXmin = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtClipXmax = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtClipYmin = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtClipYmax = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
btClipOff = BUTTON[SIZE=30]("Off", cmdClipOff)
btClipArea = BUTTON[SIZE=30]("Area", cmdClipArea)
btClipPoly = BUTTON[SIZE=50]("Polygon", cmdClipPoly)
btClipHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
ClipData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=25x9]("Xmin:"),
txtClipXmin,
FILL[SIZE=5](),
LABEL[SIZE=25x9]("Ymin:"),
txtClipYmin
),
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=25x9]("Xmax:"),
txtClipXmax,
FILL[SIZE=5](),
LABEL[SIZE=25x9]("Ymax:"),
txtClipYmax
)
)
ClipDeskTop = VBOX
(
HBOX
(
FILL(),
ClipData,
FILL()
),
HBOX
(
FILL(),
btClipOff,
FILL[SIZE=5](),
btClipArea,
FILL[SIZE=5](),
btClipPoly,
FILL[SIZE=5](),
btClipHide,
FILL()
)
)
dlgClip = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Clipping",
MAXBOX=NO,
CLOSE_CB=cmdMsgHide,
MINBOX=NO,
RESIZE=NO,
MARGIN=5x5
]
(ClipDeskTop)
#---------------------------------------------------------------------------#
# Dialogo Image. #
#---------------------------------------------------------------------------#
txtImageX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageW = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageH = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
btImagePut = BUTTON[SIZE=30]("Put", cmdImagePut)
btImageGet = BUTTON[SIZE=30]("Get", cmdImageGet)
btImageHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
ImageData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("X:"),
txtImageX,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("Y:"),
txtImageY
),
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("Width:"),
txtImageW,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("Height:"),
txtImageH
)
)
ImageDeskTop = VBOX
(
HBOX
(
FILL(),
ImageData,
FILL()
),
HBOX
(
FILL(),
btImageGet,
FILL[SIZE=5](),
btImagePut,
FILL[SIZE=5](),
btImageHide,
FILL()
)
)
dlgImage = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="Server Image",
MAXBOX=NO,
MINBOX=NO,
CLOSE_CB=cmdMsgHide,
RESIZE=NO,
MARGIN=5x5
]
(ImageDeskTop)
#---------------------------------------------------------------------------#
# Dialogo ImageRGB. #
#---------------------------------------------------------------------------#
txtImageRGBX = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageRGBY = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageRGBW = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
txtImageRGBH = TEXT[NC=5, SIZE=30x12, VALUE="0"](cmdInteger)
btImageRGBPut = BUTTON[SIZE=30]("Put", cmdImageRGBPut)
btImageRGBGet = BUTTON[SIZE=30]("Get", cmdImageRGBGet)
btImageRGBHide = BUTTON[SIZE=30]("Hide", cmdMsgHide)
ImageRGBData = VBOX
(
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("X:"),
txtImageRGBX,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("Y:"),
txtImageRGBY
),
HBOX[ALIGNMENT=ACENTER]
(
LABEL[SIZE=30x9]("Width:"),
txtImageRGBW,
FILL[SIZE=5](),
LABEL[SIZE=30x9]("Height:"),
txtImageRGBH
)
)
ImageRGBDeskTop = VBOX
(
HBOX
(
FILL(),
ImageRGBData,
FILL()
),
HBOX
(
FILL(),
btImageRGBGet,
FILL[SIZE=5](),
btImageRGBPut,
FILL[SIZE=5](),
btImageRGBHide,
FILL()
)
)
dlgImageRGB = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="RGB Image",
MAXBOX=NO,
MINBOX=NO,
CLOSE_CB=cmdMsgHide,
RESIZE=NO,
MARGIN=5x5
]
(ImageRGBDeskTop)
#---------------------------------------------------------------------------#
# Dialogo About. #
#---------------------------------------------------------------------------#
btCDTest = BUTTON("Close", cmdCloseAbout)
AboutDeskTop = HBOX[MARGIN=5x5, GAP=2]
(
FILL(),
VBOX[ALIGNMENT=ACENTER](
LABEL("CD Test 5.3"),
FILL[SIZE=5](),
LABEL("Antonio Scuri"),
LABEL("Diego Nehab"),
FILL[SIZE=5](),
LABEL("Tecgraf/PUC-Rio"),
FILL[SIZE=5](),
LABEL("CD Library Version"),
lblVersion = LABEL(""),
btCDTest
),
FILL()
)
dlgHelpAbout = DIALOG
[
PARENTDIALOG="dlgMain",
TITLE="About",
MAXBOX=NO,
MINBOX=NO,
RESIZE=NO
]
(AboutDeskTop)
Reference in New Issue View Git Blame Copy Permalink