Rev 6215 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 6215 | Rev 6642 | ||
---|---|---|---|
Line 16... | Line 16... | ||
16 | DrawBar x,y,w,1,color1 |
16 | DrawBar x,y,w,1,color1 |
17 | DrawBar x,y,1,h |
17 | DrawBar x,y,1,h |
18 | DrawBar x,y+h,w,1,color2 |
18 | DrawBar x,y+h,w,1,color2 |
19 | DrawBar x+w,y,1,h+1 |
19 | DrawBar x+w,y,1,h+1 |
20 | } |
20 | } |
21 | 21 | ||
- | 22 | macro DrawWideRectangle x, y, w, h, boder, color |
|
- | 23 | { |
|
- | 24 | DrawBar x, y, w, boder, color |
|
- | 25 | DrawBar x, y+h-boder, w, boder |
|
- | 26 | DrawBar x, y+boder, boder, h-boder-boder |
|
- | 27 | DrawBar x+w-boder, y+boder, boder, h-boder-boder |
|
- | 28 | } |
|
- | 29 | ||
- | 30 | macro WriteText x, y, fontType, color, text |
|
- | 31 | { |
|
- | 32 | mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text |
|
- | 33 | } |
|
- | 34 | ||
- | 35 | macro WriteTextBold x, y, fontType, color, text |
|
- | 36 | { |
|
- | 37 | mcall 4, (x) shl 16 + (y), (fontType) shl 24 + (color), text |
|
- | 38 | add ebx,1 shl 16 |
|
- | 39 | mcall |
|
- | 40 | } |
|
- | 41 | ||
- | 42 | BT_DEL equ 0x80000000 |
|
- | 43 | BT_HIDE equ 0x40000000 |
|
- | 44 | BT_NOFRAME equ 0x20000000 |
|
- | 45 | ||
- | 46 | macro DefineButton x, y, w, h, id, background_color |
|
- | 47 | { |
|
- | 48 | mcall 8, (x) shl 16 + (w), (y) shl 16 + (h), id, background_color |
|
- | 49 | } |
|
- | 50 |