Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. (*
  2.     Copyright 2016, 2017, 2020, 2021 Anton Krotov
  3.  
  4.     This file is part of CEdit.
  5.  
  6.     CEdit is free software: you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation, either version 3 of the License, or
  9.     (at your option) any later version.
  10.  
  11.     CEdit is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with CEdit. If not, see <http://www.gnu.org/licenses/>.
  18. *)
  19.  
  20. MODULE box_lib;
  21.  
  22. IMPORT sys := SYSTEM, KOSAPI;
  23.  
  24.  
  25. CONST
  26.  
  27.   CHECKBOX_IS_SET* = 1;
  28.  
  29.  
  30. TYPE
  31.  
  32.   checkbox* = POINTER TO RECORD
  33.  
  34.     left_s*: INTEGER;
  35.     top_s*: INTEGER;
  36.     ch_text_margin*: INTEGER;
  37.     color: INTEGER;
  38.     border_color: INTEGER;
  39.     text_color: INTEGER;
  40.     text: INTEGER;
  41.     flags*: SET;
  42.  
  43.     (* Users can use members above this *)
  44.     size_of_str: INTEGER
  45.  
  46.   END;
  47.  
  48.  
  49.   scrollbar* = POINTER TO RECORD
  50.  
  51.     x_w: INTEGER;
  52.     y_h*: INTEGER;
  53.     btn_height: INTEGER;
  54.     type: INTEGER;
  55.     max_area*: INTEGER;
  56.     cur_area*: INTEGER;
  57.     position*: INTEGER;
  58.     back_color: INTEGER;
  59.     front_color: INTEGER;
  60.     line_color: INTEGER;
  61.     redraw: INTEGER;
  62.  
  63.     delta: WCHAR;
  64.     delta2: WCHAR;
  65.     r_size_x: WCHAR;
  66.     r_start_x: WCHAR;
  67.     r_size_y: WCHAR;
  68.     r_start_y: WCHAR;
  69.  
  70.     m_pos: INTEGER;
  71.     m_pos2: INTEGER;
  72.     m_keys: INTEGER;
  73.     run_size: INTEGER;
  74.     position2: INTEGER;
  75.     work_size: INTEGER;
  76.     all_redraw: INTEGER;
  77.     ar_offset: INTEGER
  78.  
  79.   END;
  80.  
  81.   edit_box* = POINTER TO RECORD
  82.     width*,
  83.     left*,
  84.     top*,
  85.     color*,
  86.     shift_color,
  87.     focus_border_color,
  88.     blur_border_color,
  89.     text_color*,
  90.     max: INTEGER;
  91.     text*: INTEGER;
  92.     mouse_variable: edit_box;
  93.     flags*,
  94.  
  95.     size,
  96.     pos: INTEGER;
  97.     (* The following struct members are not used by the users of API *)
  98.     offset, cl_curs_x, cl_curs_y, shift, shift_old, height, char_width: INTEGER
  99.   END;
  100.  
  101.   EditBoxKey = PROCEDURE (eb: edit_box);
  102.  
  103.  
  104. VAR
  105.  
  106.   check_box_draw2   *: PROCEDURE (cb: checkbox);
  107.   check_box_mouse2  *: PROCEDURE (cb: checkbox);
  108.   init_checkbox2     : PROCEDURE (cb: checkbox);
  109.  
  110.   scrollbar_h_draw  *: PROCEDURE (sb: scrollbar);
  111.   scrollbar_h_mouse *: PROCEDURE (sb: scrollbar);
  112.   scrollbar_v_draw  *: PROCEDURE (sb: scrollbar);
  113.   scrollbar_v_mouse *: PROCEDURE (sb: scrollbar);
  114.  
  115.   edit_box_draw     *: PROCEDURE (eb: edit_box);
  116.   __edit_box_key     : EditBoxKey;
  117.   edit_box_mouse    *: PROCEDURE (eb: edit_box);
  118.   edit_box_set_text *: PROCEDURE (eb: edit_box; text: INTEGER);
  119.  
  120.  
  121. PROCEDURE _edit_box_key (key: INTEGER; key_proc: EditBoxKey; text: edit_box);
  122. BEGIN
  123.     sys.CODE(
  124.     08BH, 045H, 008H,   (*  mov     eax, dword [ebp +  8]  *)
  125.     08BH, 055H, 00CH,   (*  mov     edx, dword [ebp + 12]  *)
  126.     08BH, 04DH, 010H,   (*  mov     ecx, dword [ebp + 16]  *)
  127.     051H,               (*  push    ecx                    *)
  128.     0FFH, 0D2H          (*  call    edx                    *)
  129.     )
  130. END _edit_box_key;
  131.  
  132.  
  133. PROCEDURE edit_box_key* (text: edit_box; key: INTEGER);
  134. BEGIN
  135.     _edit_box_key(key, __edit_box_key, text)
  136. END edit_box_key;
  137.  
  138.  
  139. PROCEDURE edit_box_get_value* (text: edit_box; VAR str: ARRAY OF CHAR);
  140. VAR
  141.     ptr, max, i: INTEGER;
  142.  
  143. BEGIN
  144.     ptr := text.text;
  145.     max := text.max;
  146.     ASSERT(max < LEN(str));
  147.     i := 0;
  148.     REPEAT
  149.         sys.GET(ptr, str[i]);
  150.         INC(i);
  151.         INC(ptr)
  152.     UNTIL (str[i - 1] = 0X) OR (i = max);
  153.     str[i] := 0X
  154. END edit_box_get_value;
  155.  
  156.  
  157. PROCEDURE memset(adr: INTEGER; c: CHAR; n: INTEGER);
  158. BEGIN
  159.   WHILE n > 0 DO
  160.     sys.PUT(adr, c);
  161.     INC(adr);
  162.     DEC(n)
  163.   END
  164. END memset;
  165.  
  166.  
  167. PROCEDURE check_box_set_value* (cb: checkbox; value: BOOLEAN);
  168. BEGIN
  169.   IF cb # NIL THEN
  170.     IF value THEN
  171.       INCL(cb.flags, CHECKBOX_IS_SET)
  172.     ELSE
  173.       EXCL(cb.flags, CHECKBOX_IS_SET)
  174.     END
  175.   END
  176. END check_box_set_value;
  177.  
  178.  
  179. PROCEDURE check_box_get_value* (cb: checkbox): BOOLEAN;
  180. VAR res: BOOLEAN;
  181. BEGIN
  182.   res := FALSE;
  183.   IF cb # NIL THEN
  184.     res := CHECKBOX_IS_SET IN cb.flags
  185.   END
  186.   RETURN res
  187. END check_box_get_value;
  188.  
  189.  
  190. PROCEDURE kolibri_new_check_box* (tlx, tly, sizex, sizey: INTEGER; label_text: ARRAY OF CHAR; text_margin: INTEGER): checkbox;
  191. VAR new_checkbox: checkbox;
  192. BEGIN
  193.   NEW(new_checkbox);
  194.   new_checkbox.left_s := tlx * 65536 + sizex;
  195.   new_checkbox.top_s  := tly * 65536 + sizey;
  196.   new_checkbox.ch_text_margin := text_margin;
  197.   new_checkbox.color := 80808080H;
  198.   new_checkbox.border_color := 0000FF00H;
  199.   new_checkbox.text_color := 00000000H;
  200.   new_checkbox.text := KOSAPI.malloc(LENGTH(label_text) + 1);
  201.   sys.MOVE(sys.ADR(label_text[0]), new_checkbox.text, LENGTH(label_text));
  202.   new_checkbox.flags := {3};
  203.   init_checkbox2(new_checkbox)
  204.   RETURN new_checkbox
  205. END kolibri_new_check_box;
  206.  
  207.  
  208. PROCEDURE kolibri_scrollbar*(sb: scrollbar; x_w, y_h, btn_height, max_area, cur_area, position, back_color, front_color, line_color: INTEGER): scrollbar;
  209. BEGIN
  210.   memset(sys.ADR(sb^), 0X, sys.SIZE(scrollbar));
  211.   sb.x_w := x_w;
  212.   sb.y_h := y_h;
  213.   sb.btn_height := btn_height;
  214.   sb.type := 1;
  215.   sb.max_area := max_area;
  216.   sb.cur_area := cur_area;
  217.   sb.position := position;
  218.   sb.line_color := line_color;
  219.   sb.back_color := back_color;
  220.   sb.front_color := front_color;
  221.   sb.ar_offset := 1;
  222.   sb.all_redraw := 1
  223.   RETURN sb
  224. END kolibri_scrollbar;
  225.  
  226. PROCEDURE kolibri_new_scrollbar*(x_w, y_h, btn_height, max_area, cur_area, position, back_color, front_color, line_color: INTEGER): scrollbar;
  227. VAR sb: scrollbar;
  228. BEGIN
  229.   NEW(sb);
  230.   RETURN kolibri_scrollbar(sb, x_w, y_h, btn_height, max_area, cur_area, position, back_color, front_color, line_color)
  231. END kolibri_new_scrollbar;
  232.  
  233.  
  234. PROCEDURE kolibri_new_edit_box* (tlx, tly, width, max_chars: INTEGER; editbox_interlock: edit_box): edit_box;
  235. VAR
  236.     new_textbox: edit_box;
  237.  
  238. BEGIN
  239.     NEW(new_textbox);
  240.  
  241.     new_textbox.width := width;
  242.     new_textbox.left := tlx;
  243.     new_textbox.top := tly;
  244.     new_textbox.color := 0FFFFFFH;
  245.     new_textbox.shift_color := 06A9480H;
  246.     new_textbox.focus_border_color := 0;
  247.     new_textbox.blur_border_color := 06A9480H;
  248.     new_textbox.text_color := 0;
  249.     new_textbox.max := max_chars;
  250.     new_textbox.text := KOSAPI.malloc(max_chars + 2);
  251.     ASSERT(new_textbox.text # 0);
  252.     new_textbox.mouse_variable := editbox_interlock;
  253.     new_textbox.flags := 0
  254.  
  255.     RETURN new_textbox
  256. END kolibri_new_edit_box;
  257.  
  258.  
  259. PROCEDURE main;
  260. VAR Lib: INTEGER;
  261.  
  262.   PROCEDURE GetProc(Lib, v: INTEGER; name: ARRAY OF CHAR);
  263.   VAR a: INTEGER;
  264.   BEGIN
  265.     a := KOSAPI.GetProcAdr(name, Lib);
  266.     ASSERT(a # 0);
  267.     sys.PUT(v, a)
  268.   END GetProc;
  269.  
  270. BEGIN
  271.   Lib := KOSAPI.LoadLib("/rd/1/lib/box_lib.obj");
  272.   ASSERT(Lib # 0);
  273.   GetProc(Lib, sys.ADR(check_box_draw2),   "check_box_draw2");
  274.   GetProc(Lib, sys.ADR(check_box_mouse2),  "check_box_mouse2");
  275.   GetProc(Lib, sys.ADR(init_checkbox2),    "init_checkbox2");
  276.   GetProc(Lib, sys.ADR(scrollbar_h_draw),  "scrollbar_h_draw");
  277.   GetProc(Lib, sys.ADR(scrollbar_h_mouse), "scrollbar_h_mouse");
  278.   GetProc(Lib, sys.ADR(scrollbar_v_draw),  "scrollbar_v_draw");
  279.   GetProc(Lib, sys.ADR(scrollbar_v_mouse), "scrollbar_v_mouse");
  280.   GetProc(Lib, sys.ADR(edit_box_draw),     "edit_box");
  281.   GetProc(Lib, sys.ADR(__edit_box_key),    "edit_box_key");
  282.   GetProc(Lib, sys.ADR(edit_box_mouse),    "edit_box_mouse");
  283.   GetProc(Lib, sys.ADR(edit_box_set_text), "edit_box_set_text");
  284. END main;
  285.  
  286.  
  287. BEGIN
  288.   main
  289. END box_lib.
  290.