Farbflash projects: Imaging lingo table | 3-D scene list | Find all | Handler menu | Lingo message window

source: trunk/lingosource/castlib1/pastefeld.txt

Last change on this file was 180, checked in by alex, 4 years ago

export with correct linebreaks

File size: 3.2 KB
Line 
1<html>
2<head>
3<title>Untitled</title>
4        <style type="text/css">
5                #code
6                {
7                        margin: 10.0px 5.0px 10.0px 20.0px;
8                        font: 9.0px Monaco,Courier;
9                        background-color: #EEEEEE;
10                        padding: 10px;
11                        border-color: #AAAAAA;
12                        border-width: 1px 2px 2px 1px;
13                        border-style: solid;
14                        text-align: left;
15                        overflow: auto;
16                }
17                #code #clr1 { color: #C80000; }
18                #code #clr2 { color: #0000C8; }
19                #code #clr3 { color: #004000; }
20                #code #clr4 { color: #404040; }
21        </style>
22
23</head>
24<body bgcolor="#FFFFFF">
25<pre id="code">
26<span id="clr2">property</span> pMenuSpritename
27
28<span id="clr1">-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</span>
29
30<span id="clr2">on</span><span id="clr3"> mouseDown</span><span id="clr2"> me</span>
31  spr =<span id="clr3"> sprite</span>(<span id="clr2">me</span>.<span id="clr3">spritenum</span>)
32  spr.<span id="clr3">member</span>.<span id="clr3">color</span> =<span id="clr3"> rgb</span>(<span id="clr4">255</span>,<span id="clr4"> 255</span>,<span id="clr4"> 255</span>)
33<span id="clr3">  sprite</span>(xscr().mGetKanal(<span id="clr3">&#35;</span>blueBackGround)).<span id="clr3">rect</span> = spr.<span id="clr3">rect</span> <span id="clr1">-- blue background</span>
34<span id="clr3">  updatestage
35  sendSprite</span>(xscr().mGetKanal(pMenuSpritename),<span id="clr3"> &#35;</span>mShowOSCMenu,<span id="clr2"> me</span>.<span id="clr3">spritenum</span>)
36<span id="clr2">end</span>
37
38<span id="clr1">-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</span>
39
40<span id="clr2">on</span><span id="clr3"> endsprite</span><span id="clr2"> me</span>
41<span id="clr3">  sprite</span>(<span id="clr2">me</span>.<span id="clr3">spritenum</span>).<span id="clr3">member</span>.<span id="clr3">color</span> =<span id="clr3"> rgb</span>(<span id="clr4">20</span>,<span id="clr4"> 20</span>,<span id="clr4"> 20</span>)
42<span id="clr2">end</span>
43
44<span id="clr1">-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</span>
45
46<span id="clr2">on</span><span id="clr3"> getpropertyDescriptionList</span>
47  retlist = [&#58;]
48  retlist[<span id="clr3">&#35;</span>pMenuSpritename] = [<span id="clr3">&#35;default</span>&#58;<span id="clr3">&#35;nothing</span>,<span id="clr3"> &#35;format</span>&#58;<span id="clr3">&#35;symbol</span>,<span id="clr3"> &#35;comment</span>&#58;<span id="clr4">&quot;Name of sprite with menu&#58;&quot;</span>]
49<span id="clr2">  return</span> retlist
50<span id="clr2">end</span>
51
52<span id="clr1">-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</span>
53
54<span id="clr2">on</span> mUnhilite<span id="clr2"> me</span>
55<span id="clr3">  sprite</span>(<span id="clr2">me</span>.<span id="clr3">spritenum</span>).<span id="clr3">member</span>.<span id="clr3">color</span> =<span id="clr3"> rgb</span>(<span id="clr4">20</span>,<span id="clr4"> 20</span>,<span id="clr4"> 20</span>)
56<span id="clr3">  sprite</span>(xscr().mGetKanal(<span id="clr3">&#35;</span>blueBackGround)).<span id="clr3">locV</span> = -<span id="clr4">1000</span> <span id="clr1">-- blue background</span>
57<span id="clr2">end if</span></pre>
58</body>
59</html>
Note: See TracBrowser for help on using the repository browser.