(* Copyright 2020-2021 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, Encode, S := Strings; 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: S.UTF8; 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 := Encode.CP866[ORD(str[i])].utf8; n := Encode.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.InitWindow(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 := K.sysfunc1(2); IF key DIV 65536 = 28 THEN close(TRUE) ELSIF key DIV 65536 = 1 THEN 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.