Rev 9659 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9659 | Rev 9913 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | Copyright 2016, 2017, 2020-2022 Anton Krotov |
2 | Copyright 2016, 2017, 2020-2023 Anton Krotov |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| Line 4... | Line 4... | ||
| 4 | This file is part of CEdit. |
4 | This file is part of CEdit. |
| 5 | 5 | ||
| Line 22... | Line 22... | ||
| 22 | IMPORT SYSTEM, KOSAPI, Encodings; |
22 | IMPORT SYSTEM, KOSAPI, Encodings; |
| Line 23... | Line 23... | ||
| 23 | 23 | ||
| Line 24... | Line 24... | ||
| 24 | CONST |
24 | CONST |
| - | 25 | ||
| Line 25... | Line 26... | ||
| 25 | 26 | MAX_LENGTH = 1024; |
|
| Line 26... | Line 27... | ||
| 26 | MAX_LENGTH = 1024; |
27 | libName = "box_lib.obj"; |
| Line 47... | Line 48... | ||
| 47 | (* The following struct members are not used by the users of API *) |
48 | (* The following struct members are not used by the users of API *) |
| 48 | offset, cl_curs_x, cl_curs_y, shift, shift_old, height, char_width: INTEGER |
49 | offset, cl_curs_x, cl_curs_y, shift, shift_old, height, char_width: INTEGER |
| 49 | END; |
50 | END; |
| Line 50... | Line 51... | ||
| 50 | 51 | ||
| 51 | 52 | ||
| 52 | PROCEDURE [stdcall, "box_lib.obj", "edit_box_draw"] draw* (eb: tEditBox); END; |
53 | PROCEDURE [stdcall, libName, "edit_box_draw"] draw* (eb: tEditBox); END; |
| 53 | PROCEDURE [stdcall, "box_lib.obj", "edit_box_mouse"] mouse* (eb: tEditBox); END; |
54 | PROCEDURE [stdcall, libName, "edit_box_mouse"] mouse* (eb: tEditBox); END; |
| Line 54... | Line 55... | ||
| 54 | PROCEDURE [stdcall, "box_lib.obj", "edit_box_set_text"] set_text (eb: tEditBox; text: INTEGER); END; |
55 | PROCEDURE [stdcall, libName, "edit_box_set_text"] set_text (eb: tEditBox; text: INTEGER); END; |
| 55 | PROCEDURE [stdcall, "box_lib.obj", "edit_box_key_safe"] key* (eb: tEditBox; key: INTEGER); END; |
56 | PROCEDURE [stdcall, libName, "edit_box_key_safe"] key* (eb: tEditBox; key: INTEGER); END; |
| 56 | 57 | ||
| 57 | PROCEDURE get* (text: tEditBox; VAR str: ARRAY OF CHAR); |
58 | PROCEDURE get* (text: tEditBox; VAR str: ARRAY OF CHAR); |