Rev 5730 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 5730 | pavelyakov | 1 | #define MEMSIZE 0x7E80 |
| 2 | |||
| 3 | #include "../lib/font.h" |
||
| 4 | |||
| 5 | byte id,key; |
||
| 6 | |||
| 7 | void main() |
||
| 8 | { |
||
| 9 | |||
| 10 | SetEventMask(1100111b); |
||
| 11 | |||
| 5736 | pavelyakov | 12 | font.load("font/Verdana.kf"); |
| 13 | |||
| 5730 | pavelyakov | 14 | loop() |
| 15 | { |
||
| 16 | switch(WaitEvent()) |
||
| 17 | { |
||
| 18 | case evMouse: |
||
| 19 | mouse.get(); |
||
| 20 | |||
| 21 | |||
| 22 | break; |
||
| 23 | case evButton: |
||
| 24 | id=GetButtonID(); |
||
| 25 | if (id==1) ExitProcess(); |
||
| 26 | break; |
||
| 27 | |||
| 28 | case evKey: |
||
| 29 | key = GetKey(); |
||
| 30 | if (key==013){ //Enter |
||
| 31 | draw_window(); |
||
| 32 | |||
| 33 | } |
||
| 34 | break; |
||
| 35 | |||
| 36 | case evReDraw: |
||
| 37 | draw_window(); |
||
| 38 | |||
| 39 | break; |
||
| 40 | } |
||
| 41 | } |
||
| 42 | } |
||
| 5736 | pavelyakov | 43 | char buf[40]; |
| 5730 | pavelyakov | 44 | void draw_window() |
| 45 | { |
||
| 46 | proc_info Form; |
||
| 47 | |||
| 5736 | pavelyakov | 48 | int i =8; |
| 49 | int ii = 0; |
||
| 5730 | pavelyakov | 50 | DefineAndDrawWindow(215,100,450,500,0x33,0xFFFFFF,"Window header"); |
| 51 | GetProcessInfo(#Form, SelfInfo); |
||
| 5736 | pavelyakov | 52 | while(i<=45) |
| 53 | { |
||
| 54 | sprintf(#buf,"Размер шрифта/size font %d пикселей.",i); |
||
| 55 | font.text(0,ii,#buf,0,i); |
||
| 56 | ii+=font.height; |
||
| 57 | i++; |
||
| 58 | } |
||
| 5730 | pavelyakov | 59 | } |