0,0 → 1,144 |
(* |
Copyright 2016, 2017, 2020, 2021 Anton Krotov |
|
This file is part of CEdit. |
|
CEdit is free software: you can redistribute it and/or modify |
it under the terms of the GNU General Public License as published by |
the Free Software Foundation, either version 3 of the License, or |
(at your option) any later version. |
|
CEdit is distributed in the hope that it will be useful, |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
GNU General Public License for more details. |
|
You should have received a copy of the GNU General Public License |
along with CEdit. If not, see <http://www.gnu.org/licenses/>. |
*) |
|
MODULE EditBox; |
|
IMPORT sys := SYSTEM, KOSAPI; |
|
|
TYPE |
|
tEditBox* = POINTER TO RECORD |
width*, |
left*, |
top*, |
color*, |
shift_color, |
focus_border_color, |
blur_border_color, |
text_color*, |
max: INTEGER; |
text*: INTEGER; |
mouse_variable: tEditBox; |
flags*, |
|
size, |
pos: INTEGER; |
(* The following struct members are not used by the users of API *) |
offset, cl_curs_x, cl_curs_y, shift, shift_old, height, char_width: INTEGER |
END; |
|
EditBoxKey = PROCEDURE (eb: tEditBox); |
|
|
VAR |
|
key_proc: EditBoxKey; |
paint *: PROCEDURE (eb: tEditBox); |
mouse *: PROCEDURE (eb: tEditBox); |
setValue *: PROCEDURE (eb: tEditBox; text: INTEGER); |
|
|
PROCEDURE _key (key: INTEGER; key_proc: EditBoxKey; text: tEditBox); |
BEGIN |
sys.CODE( |
08BH, 045H, 008H, (* mov eax, dword [ebp + 8] *) |
08BH, 055H, 00CH, (* mov edx, dword [ebp + 12] *) |
08BH, 04DH, 010H, (* mov ecx, dword [ebp + 16] *) |
051H, (* push ecx *) |
0FFH, 0D2H (* call edx *) |
) |
END _key; |
|
|
PROCEDURE key* (text: tEditBox; key: INTEGER); |
BEGIN |
_key(key, key_proc, text) |
END key; |
|
|
PROCEDURE getValue* (text: tEditBox; VAR str: ARRAY OF CHAR); |
VAR |
ptr, max, i: INTEGER; |
|
BEGIN |
ptr := text.text; |
max := text.max; |
ASSERT(max < LEN(str)); |
i := 0; |
REPEAT |
sys.GET(ptr, str[i]); |
INC(i); |
INC(ptr) |
UNTIL (str[i - 1] = 0X) OR (i = max); |
str[i] := 0X |
END getValue; |
|
|
PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; editbox_interlock: tEditBox): tEditBox; |
VAR |
new_textbox: tEditBox; |
|
BEGIN |
NEW(new_textbox); |
|
new_textbox.width := width; |
new_textbox.left := tlx; |
new_textbox.top := tly; |
new_textbox.color := 0FFFFFFH; |
new_textbox.shift_color := 06A9480H; |
new_textbox.focus_border_color := 0; |
new_textbox.blur_border_color := 06A9480H; |
new_textbox.text_color := 0; |
new_textbox.max := max_chars; |
new_textbox.text := KOSAPI.malloc(max_chars + 2); |
ASSERT(new_textbox.text # 0); |
new_textbox.mouse_variable := editbox_interlock; |
new_textbox.flags := 0 |
|
RETURN new_textbox |
END create; |
|
|
PROCEDURE GetProc (Lib, v: INTEGER; name: ARRAY OF CHAR); |
VAR |
a: INTEGER; |
BEGIN |
a := KOSAPI.GetProcAdr(name, Lib); |
ASSERT(a # 0); |
sys.PUT(v, a) |
END GetProc; |
|
|
PROCEDURE main; |
VAR |
Lib: INTEGER; |
BEGIN |
Lib := KOSAPI.LoadLib("/rd/1/lib/box_lib.obj"); |
ASSERT(Lib # 0); |
GetProc(Lib, sys.ADR(paint), "edit_box"); |
GetProc(Lib, sys.ADR(key_proc), "edit_box_key"); |
GetProc(Lib, sys.ADR(mouse), "edit_box_mouse"); |
GetProc(Lib, sys.ADR(setValue), "edit_box_set_text"); |
END main; |
|
|
BEGIN |
main |
END EditBox. |