kolibrios/programs/develop/cedit/SRC/box_lib.ob07

(*
    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 box_lib;

IMPORT sys := SYSTEM, KOSAPI;


CONST

  CHECKBOX_IS_SET* = 1;


TYPE

  checkbox* = POINTER TO RECORD

    left_s*: INTEGER;
    top_s*: INTEGER;
    ch_text_margin*: INTEGER;
    color: INTEGER;
    border_color: INTEGER;
    text_color: INTEGER;
    text: INTEGER;
    flags*: SET;

    (* Users can use members above this *)
    size_of_str: INTEGER

  END;


  scrollbar* = POINTER TO RECORD

    x_w: INTEGER;
    y_h*: INTEGER;
    btn_height: INTEGER;
    type: INTEGER;
    max_area*: INTEGER;
    cur_area*: INTEGER;
    position*: INTEGER;
    back_color: INTEGER;
    front_color: INTEGER;
    line_color: INTEGER;
    redraw: INTEGER;

    delta: WCHAR;
    delta2: WCHAR;
    r_size_x: WCHAR;
    r_start_x: WCHAR;
    r_size_y: WCHAR;
    r_start_y: WCHAR;

    m_pos: INTEGER;
    m_pos2: INTEGER;
    m_keys: INTEGER;
    run_size: INTEGER;
    position2: INTEGER;
    work_size: INTEGER;
    all_redraw: INTEGER;
    ar_offset: INTEGER

  END;

  edit_box* = POINTER TO RECORD
    width*,
    left*,
    top*,
    color*,
    shift_color,
    focus_border_color,
    blur_border_color,
    text_color*,
    max: INTEGER;
    text*: INTEGER;
    mouse_variable: edit_box;
    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: edit_box);


VAR

  check_box_draw2   *: PROCEDURE (cb: checkbox);
  check_box_mouse2  *: PROCEDURE (cb: checkbox);
  init_checkbox2     : PROCEDURE (cb: checkbox);

  scrollbar_h_draw  *: PROCEDURE (sb: scrollbar);
  scrollbar_h_mouse *: PROCEDURE (sb: scrollbar);
  scrollbar_v_draw  *: PROCEDURE (sb: scrollbar);
  scrollbar_v_mouse *: PROCEDURE (sb: scrollbar);

  edit_box_draw     *: PROCEDURE (eb: edit_box);
  __edit_box_key     : EditBoxKey;
  edit_box_mouse    *: PROCEDURE (eb: edit_box);
  edit_box_set_text *: PROCEDURE (eb: edit_box; text: INTEGER);


PROCEDURE _edit_box_key (key: INTEGER; key_proc: EditBoxKey; text: edit_box);
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 _edit_box_key;


PROCEDURE edit_box_key* (text: edit_box; key: INTEGER);
BEGIN
    _edit_box_key(key, __edit_box_key, text)
END edit_box_key;


PROCEDURE edit_box_get_value* (text: edit_box; 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 edit_box_get_value;


PROCEDURE memset(adr: INTEGER; c: CHAR; n: INTEGER);
BEGIN
  WHILE n > 0 DO
    sys.PUT(adr, c);
    INC(adr);
    DEC(n)
  END
END memset;


PROCEDURE check_box_set_value* (cb: checkbox; value: BOOLEAN);
BEGIN
  IF cb # NIL THEN
    IF value THEN
      INCL(cb.flags, CHECKBOX_IS_SET)
    ELSE
      EXCL(cb.flags, CHECKBOX_IS_SET)
    END
  END
END check_box_set_value;


PROCEDURE check_box_get_value* (cb: checkbox): BOOLEAN;
VAR res: BOOLEAN;
BEGIN
  res := FALSE;
  IF cb # NIL THEN
    res := CHECKBOX_IS_SET IN cb.flags
  END
  RETURN res
END check_box_get_value;


PROCEDURE kolibri_new_check_box* (tlx, tly, sizex, sizey: INTEGER; label_text: ARRAY OF CHAR; text_margin: INTEGER): checkbox;
VAR new_checkbox: checkbox;
BEGIN
  NEW(new_checkbox);
  new_checkbox.left_s := tlx * 65536 + sizex;
  new_checkbox.top_s  := tly * 65536 + sizey;
  new_checkbox.ch_text_margin := text_margin;
  new_checkbox.color := 80808080H;
  new_checkbox.border_color := 0000FF00H;
  new_checkbox.text_color := 00000000H;
  new_checkbox.text := KOSAPI.malloc(LENGTH(label_text) + 1);
  sys.MOVE(sys.ADR(label_text[0]), new_checkbox.text, LENGTH(label_text));
  new_checkbox.flags := {3};
  init_checkbox2(new_checkbox)
  RETURN new_checkbox
END kolibri_new_check_box;


PROCEDURE kolibri_scrollbar*(sb: scrollbar; x_w, y_h, btn_height, max_area, cur_area, position, back_color, front_color, line_color: INTEGER): scrollbar;
BEGIN
  memset(sys.ADR(sb^), 0X, sys.SIZE(scrollbar));
  sb.x_w := x_w;
  sb.y_h := y_h;
  sb.btn_height := btn_height;
  sb.type := 1;
  sb.max_area := max_area;
  sb.cur_area := cur_area;
  sb.position := position;
  sb.line_color := line_color;
  sb.back_color := back_color;
  sb.front_color := front_color;
  sb.ar_offset := 1;
  sb.all_redraw := 1
  RETURN sb
END kolibri_scrollbar;

PROCEDURE kolibri_new_scrollbar*(x_w, y_h, btn_height, max_area, cur_area, position, back_color, front_color, line_color: INTEGER): scrollbar;
VAR sb: scrollbar;
BEGIN
  NEW(sb);
  RETURN kolibri_scrollbar(sb, x_w, y_h, btn_height, max_area, cur_area, position, back_color, front_color, line_color)
END kolibri_new_scrollbar;


PROCEDURE kolibri_new_edit_box* (tlx, tly, width, max_chars: INTEGER; editbox_interlock: edit_box): edit_box;
VAR
    new_textbox: edit_box;

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


PROCEDURE main;
VAR Lib: INTEGER;

  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;

BEGIN
  Lib := KOSAPI.LoadLib("/rd/1/lib/box_lib.obj");
  ASSERT(Lib # 0);
  GetProc(Lib, sys.ADR(check_box_draw2),   "check_box_draw2");
  GetProc(Lib, sys.ADR(check_box_mouse2),  "check_box_mouse2");
  GetProc(Lib, sys.ADR(init_checkbox2),    "init_checkbox2");
  GetProc(Lib, sys.ADR(scrollbar_h_draw),  "scrollbar_h_draw");
  GetProc(Lib, sys.ADR(scrollbar_h_mouse), "scrollbar_h_mouse");
  GetProc(Lib, sys.ADR(scrollbar_v_draw),  "scrollbar_v_draw");
  GetProc(Lib, sys.ADR(scrollbar_v_mouse), "scrollbar_v_mouse");
  GetProc(Lib, sys.ADR(edit_box_draw),     "edit_box");
  GetProc(Lib, sys.ADR(__edit_box_key),    "edit_box_key");
  GetProc(Lib, sys.ADR(edit_box_mouse),    "edit_box_mouse");
  GetProc(Lib, sys.ADR(edit_box_set_text), "edit_box_set_text");
END main;


BEGIN
  main
END box_lib.