Subversion Repositories Kolibri OS

(*

    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 .

*)

MODULE EditBox;

IMPORT SYSTEM, KOSAPI, Encodings;

CONST

	MAX_LENGTH = 1024;

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*: 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; 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 := {}

    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);

	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.