Rev 6050 | Rev 6887 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
6050 | leency | 1 | #define MEMSIZE 4096*10 |
3225 | leency | 2 | |
5640 | pavelyakov | 3 | #include "../lib/io.h" |
6050 | leency | 4 | #include "../lib/gui.h" |
5640 | pavelyakov | 5 | |
3225 | leency | 6 | void main() |
6050 | leency | 7 | { |
8 | word id; |
||
5641 | pavelyakov | 9 | dword file; |
5648 | pavelyakov | 10 | io.dir.load(0,DIR_ONLYREAL); |
6050 | leency | 11 | loop() switch(WaitEvent()) |
12 | { |
||
13 | case evButton: |
||
14 | id=GetButtonID(); |
||
15 | if (id==1) ExitProcess(); |
||
3225 | leency | 16 | break; |
6050 | leency | 17 | |
18 | case evKey: |
||
19 | GetKeys(); |
||
20 | if (key_scancode == SCAN_CODE_ESC ) ExitProcess(); |
||
3225 | leency | 21 | break; |
6050 | leency | 22 | |
23 | case evReDraw: |
||
3225 | leency | 24 | draw_window(); |
25 | break; |
||
6050 | leency | 26 | } |
3225 | leency | 27 | } |
28 | void draw_window() |
||
29 | { |
||
3363 | leency | 30 | proc_info Form; |
5646 | pavelyakov | 31 | int i; |
6746 | leency | 32 | DefineAndDrawWindow(215,100,350,300,0x34,0xFFFFFF,"Window header",0); |
3363 | leency | 33 | GetProcessInfo(#Form, SelfInfo); |
6050 | leency | 34 | for (i=0; i |
5646 | pavelyakov | 35 | { |
36 | WriteText(5,i*8+3,0x80,0xFF00FF,io.dir.position(i)); |
||
37 | } |
||
6050 | leency | 38 | DrawCaptButton(100, 10, 100, 22, 22, 0xCCCccc, 0x000000, "Button"); |
39 | WriteText(100,50,0x80,0,"Textline small"); |
||
40 | WriteText(100,70,0x90,0,"Textline big"); |
||
41 | DrawBar(100, 110, 100, 100, 0x66AF86); |
||
5648 | pavelyakov | 42 | } |