1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
mnOpen = MENU
(
ITEM("CGM - Binary", SimplePlayCGMBin),
ITEM("CGM - Text", SimplePlayCGMText),
ITEM("METAFILE", SimplePlayMetafile),
ITEM("WMF", SimplePlayWMF),
ITEM("EMF", SimplePlayEMF)
)
mnSaveAs = MENU
(
ITEM("DEBUG", SimpleDrawDebug),
ITEM("CGM - Binary", SimpleDrawCGMBin),
ITEM("CGM - Text", SimpleDrawCGMText),
ITEM("DGN", SimpleDrawDGN),
ITEM("DXF", SimpleDrawDXF),
ITEM("EMF", SimpleDrawEMF),
ITEM("METAFILE", SimpleDrawMetafile),
ITEM("PDF", SimpleDrawPDF),
ITEM("PS", SimpleDrawPS),
ITEM("EPS", SimpleDrawEPS),
ITEM("WMF", SimpleDrawWMF)
)
mnFile = MENU
(
SUBMENU("Open", mnOpen),
SUBMENU("Save As", mnSaveAs),
SEPARATOR(),
ITEM("Print", SimpleDrawPrint),
ITEM("Print Dialog...", SimpleDrawPrintDialog),
SEPARATOR(),
ITEM("Exit", cmdExit)
)
mnEdit = MENU
(
ITEM("Copy as Metafile", SimpleDrawClipboardMetafile),
ITEM("Copy as EMF", SimpleDrawClipboardEMF),
ITEM("Copy as Bitmap", SimpleDrawClipboardBitmap),
ITEM("Paste", SimplePlayClipboard)
)
mnClipping = MENU
(
ITEM("Off", SimpleClippingOff),
ITEM("Area", SimpleClippingArea),
ITEM("Polygon", SimpleClippingPolygon),
ITEM("Region", SimpleClippingRegion)
)
mnWriteMode = MENU
(
ITEM("Replace", SimpleReplace),
ITEM("Xor", SimpleXor),
ITEM("Not Xor", SimpleNotXor)
)
mnOptions = MENU
(
SUBMENU("Clipping", mnClipping),
SUBMENU("Write Mode", mnWriteMode),
ITEM("Simulate", SimpleDrawSimulate),
ITEM("Transform", SimpleTransform),
ITEM("Context Plus", SimpleContextPlus)
)
mnSurface = MENU
(
ITEM("Window", SimpleDrawWindow),
ITEM("Server Image", SimpleDrawImage),
ITEM("Image RGB", SimpleDrawImageRGB)
)
mnPrimitives = MENU
(
ITEM("All", SimpleDrawAll),
ITEM("Text Align", SimpleDrawTextAlign),
ITEM("Text Fonts", SimpleDrawTextFonts),
ITEM("Test", SimpleDrawTest)
)
mnSimpleMenu = MENU
(
SUBMENU("File", mnFile),
SUBMENU("Edit", mnEdit),
SUBMENU("Options", mnOptions),
SUBMENU("Surface", mnSurface),
SUBMENU("Primitives", mnPrimitives)
)
SimpleCanvas = CANVAS[BORDER=0](SimpleRepaint)
SimpleDialog = DIALOG [TITLE="Simple Draw", MENU=mnSimpleMenu](SimpleCanvas)
|
