Subversion Repositories Kolibri OS

(*

    Copyright 2020-2021, 2023 Anton Krotov

    This file is part of fb2read.

    fb2read 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.

    fb2read 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 fb2read. If not, see .

*)

MODULE SearchForm;

IMPORT

    SYSTEM, SU := SysUtils, W := Window, box_lib, K := KOSAPI, Encoding;

CONST

    BTN_CLOSE  =  1;

    BTN_FIND   = 19;

    BTN_CANCEL = 20;

    BtnH = 25;

    BtnW = 80;

    WINDOW_BEVEL = 4;

    MAXCHARS = 2000;

TYPE

    STRING* = ARRAY MAXCHARS OF CHAR;

    PROC = PROCEDURE (case: BOOLEAN; str: STRING): BOOLEAN;

VAR

    PID, Slot: INTEGER;

    Stack: ARRAY 1000000 OF CHAR;

    Window: W.tWindow;

    str: STRING;

    callback: PROC;

    case: box_lib.checkbox;

    text: box_lib.edit_box;

PROCEDURE DrawText (x, y: INTEGER; text: ARRAY OF CHAR);

VAR

	L: INTEGER;

BEGIN

	L := LENGTH(text);

	SU.Box(x, y, L*SU.FontW, SU.FontH, SU.winColor, SU.winColor);

	SU.OutText(x, y, text, L, SU.textColor)

END DrawText;

PROCEDURE buttons;

BEGIN

    SU.CreateButton(BTN_FIND, 5, 80, BtnW, BtnH, SU.btnColor, "find");

    SU.CreateButton(BTN_CANCEL, 5 - BtnW + text.width, 80, BtnW, BtnH, SU.btnColor, "cancel");

    box_lib.check_box_draw2(case); DrawText(25, 50, "match case");

    box_lib.edit_box_draw(text)

END buttons;

PROCEDURE DrawWindow;

BEGIN

	SU.GetSystemColors;

    SU.WindowRedrawStatus(1);

    SU.DefineAndDrawWindow(Window.left, Window.top, Window.width, Window.height,

          SU.winColor, LSL(ORD({0, 1}), 4) + 4, Window.caption);

    buttons;

    SU.WindowRedrawStatus(2)

END DrawWindow;

PROCEDURE close* (ok: BOOLEAN);

VAR

    pid, i, j, k, n: INTEGER;

    found: BOOLEAN;

    str0: STRING;

    u: Encoding.tUtf8;

BEGIN

    found := TRUE;

    box_lib.edit_box_get_value(text, str);

    IF ok THEN

        IF str # "" THEN

            j := 0;

            i := 0;

            WHILE str[i] # 0X DO

                u := Encoding.cp866[ORD(str[i])].utf8;

                n := Encoding.cp866[ORD(str[i])].len;

                FOR k := 0 TO n - 1 DO

                    str0[j] := u[k];

                    INC(j)

                END;

                INC(i)

            END;

            found := callback(box_lib.check_box_get_value(case), str0)

        ELSE

            found := FALSE

        END

    END;

    IF found THEN

        pid := PID;

        PID := 0;

        IF pid # 0 THEN

            SU.TerminateThreadId(pid)

        END

    ELSE

        IF str # "" THEN

        	DrawText(5 + BtnW + 10, 80 + 4, "not found")

        END

    END

END close;

PROCEDURE ButtonClick;

BEGIN

    CASE SU.GetButtonCode() OF

    |0                     :

    |BTN_CLOSE, BTN_CANCEL : close(FALSE)

    |BTN_FIND              : close(TRUE)

    END;

    buttons

END ButtonClick;

PROCEDURE show;

VAR

    scrWidth, scrHeight, key: INTEGER;

BEGIN

    SU.SetEventsMask({0, 1, 2, 5, 30, 31});

    W.init(Window, 0, 0, 320, 140, "Search");

    SU.GetScreenSize(scrWidth, scrHeight);

    Window.left := (scrWidth - Window.width) DIV 2;

    Window.top  := (scrHeight - Window.height) DIV 2;

    DrawWindow;

    WHILE TRUE DO

        CASE SU.WaitForEvent() OF

        |1: DrawWindow

        |2: key := SU.GetKey();

        	IF key DIV 65536 = 28 THEN (* enter *)

        		close(TRUE)

        	ELSIF key DIV 65536 = 1 THEN (* esc *)

        		close(FALSE)

        	ELSE

        		box_lib.edit_box_key_safe(text, key)

        	END

        |3: ButtonClick

        |6:

            box_lib.check_box_mouse2(case);

            box_lib.edit_box_mouse(text)

        ELSE

        END

    END

END show;

PROCEDURE open*;

BEGIN

    IF PID = 0 THEN

        PID  := SU.NewThread(show, Stack);

        Slot := SU.GetThreadSlot(PID)

    ELSE

        SU.FocusWindow(Slot)

    END

END open;

PROCEDURE init* (proc: PROC);

BEGIN

    callback := proc;

    PID := 0;

    case := box_lib.kolibri_new_check_box(5, 50, 16, 16, SYSTEM.SADR(""), 14 * 8 + 5);

    text := box_lib.kolibri_new_edit_box(5, 10, 300, MAXCHARS DIV 3);

    text.flags := 4002H;

END init;

END SearchForm.