Rev 7981 | Rev 9693 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7981 | Rev 7984 | ||
|---|---|---|---|
| Line 28... | Line 28... | ||
| 28 | //===================================================// |
28 | //===================================================// |
| Line 29... | Line 29... | ||
| 29 | 29 | ||
| 30 | void main() |
30 | void main() |
| 31 | { |
31 | { |
| 32 | bool pick_active = true; |
- | |
| 33 | int btn; |
32 | bool pick_active = true; |
| 34 | proc_info Form; |
33 | proc_info Form; |
| 35 | @SetEventMask(EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE); |
34 | @SetEventMask(EVM_REDRAW + EVM_KEY + EVM_BUTTON + EVM_MOUSE); |
| 36 | @SetWindowLayerBehaviour(-1, ZPOS_ALWAYS_TOP); |
35 | @SetWindowLayerBehaviour(-1, ZPOS_ALWAYS_TOP); |
| 37 | loop() switch(@WaitEvent()) |
36 | loop() switch(@WaitEvent()) |
| Line 46... | Line 45... | ||
| 46 | if (mouse.down) && (mouse.key&MOUSE_LEFT) pick_active = false; |
45 | if (mouse.down) && (mouse.key&MOUSE_LEFT) pick_active = false; |
| 47 | } |
46 | } |
| 48 | break; |
47 | break; |
| Line 49... | Line 48... | ||
| 49 | 48 | ||
| 50 | case evButton: |
49 | case evButton: |
| 51 | btn = @GetButtonID(); |
50 | @GetButtonID(); |
| 52 | if (btn == BUTTON_CLOSE) ExitProcess(); |
51 | if (EAX == BUTTON_CLOSE) ExitProcess(); |
| 53 | if (btn == BUTTON_COPY) EventCopyHex(); |
52 | if (EAX == BUTTON_COPY) EventCopyHex(); |
| 54 | if (btn == BUTTON_PICK) pick_active = true; |
53 | if (EAX == BUTTON_PICK) pick_active = true; |
| Line 55... | Line 54... | ||
| 55 | break; |
54 | break; |
| 56 | 55 | ||
| 57 | case evKey: |
56 | case evKey: |
| 58 | key_scancode = @GetKeyScancode(); |
57 | @GetKeyScancode(); |
| 59 | if (key_scancode == SCAN_CODE_ESC) @ExitProcess(); |
58 | if (AL == SCAN_CODE_ESC) @ExitProcess(); |
| Line 60... | Line 59... | ||
| 60 | if (key_scancode == SCAN_CODE_KEY_C) EventCopyHex(); |
59 | if (AL == SCAN_CODE_KEY_C) EventCopyHex(); |
| 61 | break; |
60 | break; |
| 62 | 61 | ||
| 63 | case evReDraw: |
62 | case evReDraw: |
| 64 | DefineUnDragableWindow(215, 100, FORM_W, FORM_H); |
- | |
| 65 | GetProcessInfo(#Form, SelfInfo); |
63 | DefineUnDragableWindow(215, 100, FORM_W, FORM_H); |
| 66 | draw_window(); |
64 | GetProcessInfo(#Form, SelfInfo); |
| Line 67... | Line 65... | ||
| 67 | break; |
65 | draw_window(); |
| 68 | } |
66 | } |