forked from KolibriOS/kolibrios
156 lines
3.7 KiB
Plaintext
156 lines
3.7 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 SYSTEM, KOSAPI, Encodings;
|
|
|
|
CONST
|
|
|
|
MAX_LENGTH = 1024;
|
|
|
|
|
|
TYPE
|
|
|
|
tEditBox* = RECORD
|
|
width*,
|
|
left*,
|
|
top*,
|
|
color*,
|
|
shift_color,
|
|
focus_border_color,
|
|
blur_border_color,
|
|
text_color*,
|
|
max: INTEGER;
|
|
text*: INTEGER;
|
|
mouse_variable: INTEGER;
|
|
flags*: SET;
|
|
|
|
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
|
|
SYSTEM.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
|
|
SYSTEM.GET(ptr, str[i]);
|
|
INC(i);
|
|
INC(ptr)
|
|
UNTIL (str[i - 1] = 0X) OR (i = max);
|
|
str[i] := 0X
|
|
END getValue;
|
|
|
|
|
|
PROCEDURE setValue* (text: tEditBox; str: ARRAY OF WCHAR);
|
|
VAR
|
|
i: INTEGER;
|
|
temp: ARRAY MAX_LENGTH OF CHAR;
|
|
BEGIN
|
|
ASSERT(LENGTH(str) < LEN(temp));
|
|
i := 0;
|
|
REPEAT
|
|
temp[i] := CHR(Encodings.UNI[ORD(str[i]), Encodings.CP866] MOD 256);
|
|
INC(i)
|
|
UNTIL str[i - 1] = 0X;
|
|
_setValue(text, SYSTEM.ADR(temp[0]))
|
|
END setValue;
|
|
|
|
|
|
PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; VAR editbox: tEditBox);
|
|
BEGIN
|
|
editbox.width := width;
|
|
editbox.left := tlx;
|
|
editbox.top := tly;
|
|
editbox.color := 0FFFFFFH;
|
|
editbox.shift_color := 06A9480H;
|
|
editbox.focus_border_color := 0;
|
|
editbox.blur_border_color := 06A9480H;
|
|
editbox.text_color := 30000000H;
|
|
editbox.max := max_chars;
|
|
editbox.text := KOSAPI.malloc(max_chars + 2);
|
|
ASSERT(editbox.text # 0);
|
|
editbox.mouse_variable := 0;
|
|
editbox.flags := {14}
|
|
END create;
|
|
|
|
|
|
PROCEDURE GetProc (Lib, v: INTEGER; name: ARRAY OF CHAR);
|
|
VAR
|
|
a: INTEGER;
|
|
BEGIN
|
|
a := KOSAPI.GetProcAdr(name, Lib);
|
|
ASSERT(a # 0);
|
|
SYSTEM.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, SYSTEM.ADR(paint), "edit_box");
|
|
GetProc(Lib, SYSTEM.ADR(key_proc), "edit_box_key");
|
|
GetProc(Lib, SYSTEM.ADR(mouse), "edit_box_mouse");
|
|
GetProc(Lib, SYSTEM.ADR(_setValue), "edit_box_set_text");
|
|
END main;
|
|
|
|
|
|
BEGIN
|
|
main
|
|
END EditBox. |