forked from KolibriOS/kolibrios
144 lines
3.5 KiB
Plaintext
144 lines
3.5 KiB
Plaintext
(*
|
|
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. |