WebSVN – Kolibri OS – Diff – /programs/develop/cedit/SRC/CEdit.ob07


﻿(*
    Copyright 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 CEdit;
 
IMPORT
    OpenDlg, K := KolibriOS,
    U := Utils, Lines, Menu, List,
    G := Graph, T := Text, E := Encodings,
    CB := Clipboard, Languages,
    ChangeLog, Scroll,
    RW, Ini, box_lib, Icons;
 
CONST
    header = "CEdit (14-jun-2021)";
 
    ShellFilter = "";
    EditFilter = "SH|ASM|TXT|INC|OB07|C|CPP|H|PAS|PP|LUA|INI";
 
    fontWidth = K.fontWidth;
    fontHeight = K.fontHeight;
    scrollWidth = 22;
 
    btnClose = 1;
    btnNew = 20;
    btnOpen = 21;
    btnSave = 22;
    btnSearch = 23;
    btnUndo = 24;
    btnRedo = 25;
    btnUpper = 26;
    btnLower = 27;
    btnBuild = 28;
    btnRun = 29;
    btnUp = 30;
    btnDown = 31;
    btnLeft = 32;
    btnRight = 33;
    btnYes = 40;
    btnNo = 41;
    btnFindEdit = 50;
    btnReplaceEdit = 51;
    btnGotoEdit = 52;
    btnFindNext = 60;
    btnReplace = 61;
    btnReplaceAll = 62;
    btnGoto = 63;
    btnCloseFind = 64;
 
    btnFile = 70;
    btnEdit = 71;
    btnEncoding = 72;
    btnView = 73;
    btnSyntax = 74;
    btnProgram = 75;
    btnTools = 76;
 
    MainMenuHeight = fontHeight + 7;
 
    btnHeight = 25;
    btnWidth = 75;
    btnTop = MainMenuHeight + 3;
    toolBtnSize = 24;
    toolbarDelim = 7;
 
    TOP = btnTop + toolBtnSize + 7;
    RIGHT = scrollWidth - 2;
    BOTTOM = scrollWidth + 25;
 
    minWinWidth = 635; minWinHeight = 542;
 
    SEARCH_PADDING = 10;
    searchLeft = 10;
    EditBox_Width = 180;
    EDITBOX_MAXCHARS = 500;
 
    menuFileX = searchLeft;
    menuEditX = menuFileX + 4*fontWidth + 2 + 7;
    menuEncodingX = menuEditX + 4*fontWidth + 2 + 7;
    menuViewX = menuEncodingX + 8*fontWidth + 2 + 7;
    menuSyntaxX = menuViewX + 4*fontWidth + 2 + 7;
    menuProgramX = menuSyntaxX + 6*fontWidth + 2 + 7;
    menuToolsX = menuProgramX + 7*fontWidth + 2 + 7;
 
    menuCut = 1;
    menuCopy = 2;
    menuPaste = 3;
    menuDelete = 4;
    menuSelectAll = 5;
 
    menuUndo = 6;
    menuRedo = 7;
 
    menuSearch = 8;
    menuGoto = 9;
 
    menuNew = 10;
    menuOpen = 11;
    menuSave = 12;
    menuSaveAs = 13;
    menuFolder = 14;
    menuExit = 15;
 
    menuNumbers = 20;
    menuFontSize = 21;
    menuColors = 1000;
    menuMaxColors = menuColors + Ini.MAX_SECTIONS - 1;
 
    menuNone = 30;
    menuC = 31;
    menuFasm = 32;
    menuIni = 33;
    menuLua = 34;
    menuOberon = 35;
    menuPascal = 36;
 
    menuBuild = 50;
    menuBuildScript = 51;
    menuRun = 52;
    menuRunScript = 53;
    menuDebug = 54;
    menuDebugScript = 55;
 
    menuUTF8BOM = 60;
    menuUTF8 = 61;
    menuCP866 = 62;
    menuWin1251 = 63;
 
    menuPipet = 70;
    menuSysFunc = 71;
 
 
VAR
    canvas: G.tCanvas;
    font, font1, font2: G.tFont;
    text: T.tText;
    winWidth, winHeight: INTEGER;
    shift: SET;
    AppPath, runScript, buildScript, debugScript: RW.tFileName;
    OD: OpenDlg.Dialog;
    confirm, notFound, search, modified: BOOLEAN;
 
    leftButton, VScroll, HScroll: BOOLEAN;
    vScroll, hScroll: Scroll.tScroll;
    LEFT: INTEGER;
 
    FindEdit, ReplaceEdit, GotoEdit: box_lib.edit_box;
    CS, WH, BKW: box_lib.checkbox;
 
    new_searchText, searchText, replaceText, gotoText: T.tString;
    cs, whole: BOOLEAN;
 
    replaced: INTEGER;
 
    mainTID: INTEGER;
 
    context, menuFile, menuEdit, menuEncoding, menuView, menuSyntax, menuProgram, menuTools: Menu.tMenu;
 
    icons: INTEGER;
    grayIcons: INTEGER;
 
    IPC: ARRAY 64 OF INTEGER;
 
 
PROCEDURE WritePos (y: INTEGER);
VAR
    s1, s2: ARRAY 32 OF WCHAR;
    line, col: INTEGER;
BEGIN
    T.getPos(text, col, line);
    U.int2str(line, s1);
    U.int2str(col, s2);
    U.append(s1, ": ");
    U.append(s1, s2);
    K.DrawText(LEFT, y, K.textColor, s1)
END WritePos;
 
 
PROCEDURE EditBox_Focus (edit: box_lib.edit_box): BOOLEAN;
    RETURN 1 IN BITS(edit.flags)
END EditBox_Focus;
 
 
PROCEDURE EditBox_SetFocus (edit: box_lib.edit_box; value: BOOLEAN);
BEGIN
    IF value THEN
        edit.flags := ORD(BITS(edit.flags) + {1})
    ELSE
        edit.flags := ORD(BITS(edit.flags) - {1})
    END;
    IF search THEN
        box_lib.edit_box_draw(edit)
    END
END EditBox_SetFocus;
 
 
PROCEDURE Rect (left, top, right, bottom, color: INTEGER);
BEGIN
    K.DrawLine(left, top, right, top, color);
    K.DrawLine(left, bottom, right, bottom, color);
    K.DrawLine(left, top, left, bottom, color);
    K.DrawLine(right, top, right, bottom, color);
END Rect;
 
 
PROCEDURE Message (s: ARRAY OF WCHAR);
CONST
    minWidth = 30;
    height = 40;
    borderColor = 808080H;
VAR
    top, left, right, bottom, x, y, width: INTEGER;
BEGIN
    width := minWidth + LENGTH(s)*fontWidth;
    left := (canvas.width - width) DIV 2 + LEFT;
    top := (canvas.height - height) DIV 2 + TOP;
    bottom := top + height - 1;
    right := left + width - 1;
    x := minWidth DIV 2 + left;
    y := (height - fontHeight) DIV 2 + top;
    K.DrawRect(left, top, width, height, K.winColor);
    Rect(left, top, right, bottom, borderColor);
    K.DrawText(x, y, K.textColor, s);
END Message;
 
 
PROCEDURE NotFound;
BEGIN
    IF notFound THEN
        Message("not found");
        notFound := FALSE;
        EditBox_SetFocus(FindEdit, TRUE);
        EditBox_SetFocus(ReplaceEdit, FALSE);
        EditBox_SetFocus(GotoEdit, FALSE)
    END
END NotFound;
 
 
PROCEDURE Replaced;
VAR
    s, s1: ARRAY 32 OF WCHAR;
BEGIN
    IF replaced # 0 THEN
        s := "replaced: ";
        U.int2str(replaced, s1);
        U.append(s, s1);
        Message(s);
        replaced := 0;
        EditBox_SetFocus(FindEdit, TRUE);
        EditBox_SetFocus(ReplaceEdit, FALSE);
        EditBox_SetFocus(GotoEdit, FALSE)
    END
END Replaced;
 
 
PROCEDURE toolbarIcons;
CONST
    iconPad = (toolBtnSize - Icons.SIZE) DIV 2;
VAR
    x, color: INTEGER;
BEGIN
    x := searchLeft + (toolBtnSize + 5)*2;
    IF text.modified THEN
        Icons.draw(icons, 5, x + iconPad, btnTop + iconPad)
    ELSE
        Icons.draw(grayIcons, 5, x + iconPad, btnTop + iconPad)
    END;
 
    IF text.edition # NIL THEN
        x := searchLeft + (toolBtnSize + 5)*4 + toolbarDelim*2;
        IF ChangeLog.isFirstGuard(text.edition) THEN
            Icons.draw(grayIcons, 37, x + iconPad, btnTop + iconPad)
        ELSE
            Icons.draw(icons, 37, x + iconPad, btnTop + iconPad)
        END;
 
        x := searchLeft + (toolBtnSize + 5)*5 + toolbarDelim*2;
        IF ChangeLog.isLastGuard(text.edition) THEN
            Icons.draw(grayIcons, 36, x + iconPad, btnTop + iconPad)
        ELSE
            Icons.draw(icons, 36, x + iconPad, btnTop + iconPad)
        END
    END;
 
    IF T.selected(text) THEN
        color := K.caseColor
    ELSE
        color := K.disCaseColor
    END;
 
    x := searchLeft + (toolBtnSize + 5)*6 + toolbarDelim*3;
    K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
    K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "AB");
    INC(x, toolBtnSize + 5);
    K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
    K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "ab");
 
    x := searchLeft + (toolBtnSize + 5)*8 + toolbarDelim*4;
    IF buildScript # "" THEN
        Icons.draw(icons, 54, x + iconPad, btnTop + iconPad)
    ELSE
        Icons.draw(grayIcons, 54, x + iconPad, btnTop + iconPad)
    END;
    INC(x, toolBtnSize + 5);
    IF runScript # "" THEN
        Icons.draw(icons, 53, x + iconPad, btnTop + iconPad)
    ELSE
        Icons.draw(grayIcons, 53, x + iconPad, btnTop + iconPad)
    END
END toolbarIcons;
 
 
PROCEDURE WriteModified (x, y: INTEGER);
BEGIN
    modified := text.modified;
    K.DrawRect(x, TOP + canvas.height + scrollWidth - 1, 9*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
    IF modified THEN
        K.DrawText866(x, y, K.textColor, "modified")
    END
END WriteModified;
 
 
PROCEDURE repaint;
VAR
    width, height, scrollX, scrollY, y: INTEGER;
BEGIN
    IF text # NIL THEN
        IF confirm THEN
            K.DeleteButton(btnYes);
            K.DeleteButton(btnNo);
            confirm := FALSE
        END;
        T.draw(text);
        K.ClientSize(width, height);
        y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
        K.DrawRect(LEFT, TOP + canvas.height + scrollWidth - 1, 16*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
        WritePos(y);
 
        IF modified # text.modified THEN
            WriteModified(width - 9*fontWidth, y)
        END;
 
        T.getScroll(text, scrollX, scrollY);
        vScroll.value := scrollY; vScroll.maxVal := text.count - 1;
        hScroll.value := scrollX; hScroll.maxVal := Lines.maxLength;
        Scroll.draw(vScroll, LEFT + canvas.width - 1, TOP + scrollWidth - 1);
        Scroll.draw(hScroll, LEFT + scrollWidth, TOP + canvas.height - 1);
 
        G.DrawCanvas(canvas, LEFT, TOP);
        NotFound;
        Replaced;
        toolbarIcons
    END
END repaint;
 
 
PROCEDURE resize;
VAR
    cliWidth, cliHeight: INTEGER;
BEGIN
    K.WinSize(winWidth, winHeight);
    IF winWidth < minWinWidth THEN
        winWidth := minWinWidth
    END;
    IF winHeight < minWinHeight THEN
        winHeight := minWinHeight
    END;
    K.SetWinSize(winWidth, winHeight);
    K.WinSize(winWidth, winHeight);
    K.ClientSize(cliWidth, cliHeight);
    G.destroy(canvas);
    canvas := G.CreateCanvas(cliWidth - (LEFT + RIGHT + 1), cliHeight - (TOP + BOTTOM));
    G.SetFont(canvas, font);
    T.setCanvas(canvas);
    T.resize(canvas.width, canvas.height);
    Scroll.resize(vScroll, vScroll.xSize, canvas.height - scrollWidth*2 + 1);
    Scroll.resize(hScroll, canvas.width - scrollWidth*2, hScroll.ySize);
END resize;
 
 
PROCEDURE SearchPanel (left, top: INTEGER);
VAR
    y, right, bottom, color: INTEGER;
BEGIN
    right := left + EditBox_Width + SEARCH_PADDING*2;
    bottom := top + 395 + btnHeight + SEARCH_PADDING;
    color := K.borderColor;
    Rect(left, top, right, bottom, color);
    K.CreateButton(btnCloseFind, right - 20, top, 20, 20, 0EF999FH, "");
    K.DrawLine(right - 14, top + 5, right - 5, top + 14, 0FFFFFFH);
    K.DrawLine(right - 15, top + 5, right - 5, top + 15, 0FFFFFFH);
    K.DrawLine(right - 15, top + 6, right - 6, top + 15, 0FFFFFFH);
    K.DrawLine(right - 15, top + 14, right - 6, top + 5, 0FFFFFFH);
    K.DrawLine(right - 15, top + 15, right - 5, top + 5, 0FFFFFFH);
    K.DrawLine(right - 14, top + 15, right - 5, top + 6, 0FFFFFFH);
 
    INC(top, 15);
    INC(left, SEARCH_PADDING);
    K.DrawText866(left, top, K.textColor, "find");
    K.DrawText866(left, top + 55, K.textColor, "replace with");
    K.CreateButton(btnFindEdit + ORD({30}), left, top + 20, EditBox_Width, fontHeight + 5, 0, "");
    K.CreateButton(btnReplaceEdit + ORD({30}), left, top + 75, EditBox_Width, fontHeight + 5, 0, "");
    K.DrawText866(left, top + 330, K.textColor, "go to line");
    K.CreateButton(btnGotoEdit + ORD({30}), left, top + 350, EditBox_Width, fontHeight + 5, 0, "");
    BKW.top_s := BKW.top_s MOD 65536 + (top + 110) * 65536;
    CS.top_s := CS.top_s MOD 65536 + (top + 140) * 65536;
    WH.top_s := WH.top_s MOD 65536 + (top + 170) * 65536;
    BKW.left_s := BKW.left_s MOD 65536 + left * 65536;
    CS.left_s := CS.left_s MOD 65536 + left * 65536;
    WH.left_s := WH.left_s MOD 65536 + left * 65536;
    FindEdit.top := top + 20;
    ReplaceEdit.top := top + 75;
    GotoEdit.top := top + 350;
    FindEdit.left := left;
    ReplaceEdit.left := left;
    GotoEdit.left := left;
    box_lib.edit_box_draw(FindEdit);
    box_lib.edit_box_draw(ReplaceEdit);
    box_lib.edit_box_draw(GotoEdit);
    box_lib.check_box_draw2(BKW); K.DrawText866(left + 20, top + 110, K.textColor, "backward");
    box_lib.check_box_draw2(CS); K.DrawText866(left + 20, top + 140, K.textColor, "match case");
    box_lib.check_box_draw2(WH); K.DrawText866(left + 20, top + 170, K.textColor, "whole word");
    y := top + 200;
    K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.btnColor, "next"); INC(y, btnHeight + 10);
    K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.btnColor, "replace"); INC(y, btnHeight + 10);
    K.CreateButton(btnReplaceAll, left, y, btnWidth + 5*fontWidth - 2, btnHeight, K.btnColor, "replace all");
    K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.btnColor, "go");
END SearchPanel;
 
 
PROCEDURE draw_window;
CONST
    iconPad = (toolBtnSize - Icons.SIZE) DIV 2;
VAR
    width, height, x, y: INTEGER;
 
 
    PROCEDURE drawToolbarBtn (id, x: INTEGER);
    BEGIN
        K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
        K.DrawLine(x, btnTop + toolBtnSize, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);
        K.DrawLine(x + toolBtnSize, btnTop, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);
        K.CreateButton(id + ORD({30}), x, btnTop, toolBtnSize, toolBtnSize, K.btnColor, "");
    END drawToolbarBtn;
 
 
    PROCEDURE drawMainMenu (menu: Menu.tMenu; x: INTEGER; btn: INTEGER; caption: ARRAY OF WCHAR);
    VAR
        menuColor, textColor, n: INTEGER;
    BEGIN
        IF menu.tid # 0 THEN
            menuColor := K.textColor;
            textColor := K.winColor
        ELSE
            menuColor := K.winColor;
            textColor := K.textColor
        END;
        n := LENGTH(caption);
        K.DrawRect(x, 0, n*fontWidth + 2, MainMenuHeight, menuColor);
        K.CreateButton(btn + ORD({30}), x, 0, n*fontWidth + 2, MainMenuHeight, K.btnColor, "");
        K.DrawText(x + 1, (MainMenuHeight - fontHeight) DIV 2 + 1, textColor, caption)
    END drawMainMenu;
 
 
BEGIN
    K.BeginDraw;
    K.CreateWindow(30 + K.GetTickCount() MOD 128, 30 + K.GetTickCount() MOD 128, winWidth, winHeight, K.winColor, 73H, 0, 0, header);
    IF (text # NIL) & ~K.RolledUp() THEN
        confirm := FALSE;
        K.ClientSize(width, height);
 
        K.DrawRect(0, 0, width, TOP, K.winColor);
        K.DrawRect(0, 0, LEFT, height, K.winColor);
        K.DrawRect(LEFT + canvas.width - 1, TOP + canvas.height - 1, scrollWidth, scrollWidth, K.winColor);
 
        drawMainMenu(menuFile, menuFileX, btnFile, "file");
        drawMainMenu(menuEdit, menuEditX, btnEdit, "edit");
        drawMainMenu(menuEncoding, menuEncodingX, btnEncoding, "encoding");
        drawMainMenu(menuView, menuViewX, btnView, "view");
        drawMainMenu(menuSyntax, menuSyntaxX, btnSyntax, "syntax");
        drawMainMenu(menuProgram, menuProgramX, btnProgram, "program");
        drawMainMenu(menuTools, menuToolsX, btnTools, "tools");
 
        x := searchLeft;
 
        drawToolbarBtn(btnNew, x);
        Icons.draw(icons, 2, x + iconPad, btnTop + iconPad);
        INC(x, toolBtnSize + 5);
 
        drawToolbarBtn(btnOpen, x);
        Icons.draw(icons, 0, x + iconPad, btnTop + iconPad);
        INC(x, toolBtnSize + 5);
 
        drawToolbarBtn(btnSave, x);
        INC(x, toolBtnSize + 5 + toolbarDelim);
 
        drawToolbarBtn(btnSearch, x);
        Icons.draw(icons, 49, x + iconPad, btnTop + iconPad);
        INC(x, toolBtnSize + 5 + toolbarDelim);
 
        drawToolbarBtn(btnUndo, x);
        INC(x, toolBtnSize + 5);
 
        drawToolbarBtn(btnRedo, x);
        INC(x, toolBtnSize + 5 + toolbarDelim);
 
        drawToolbarBtn(btnUpper, x);
        INC(x, toolBtnSize + 5);
 
        drawToolbarBtn(btnLower, x);
        INC(x, toolBtnSize + 5 + toolbarDelim);
 
        drawToolbarBtn(btnBuild, x);
        Icons.draw(icons, 54, x + iconPad, btnTop + iconPad);
        INC(x, toolBtnSize + 5);
 
        drawToolbarBtn(btnRun, x);
        Icons.draw(icons, 53, x + iconPad, btnTop + iconPad);
        INC(x, toolBtnSize + 5);
 
        K.CreateButton(btnUp, LEFT + canvas.width - 1, TOP, scrollWidth - 1, scrollWidth, K.btnColor, 0X);
        K.DrawText69(LEFT + canvas.width - 1 + (scrollWidth - 6) DIV 2, TOP + (scrollWidth - 9) DIV 2, K.btnTextColor, 18X);
        K.CreateButton(btnDown, LEFT + canvas.width - 1, TOP + canvas.height - scrollWidth - 1, scrollWidth - 1, scrollWidth, K.btnColor, 0X);
        K.DrawText69(LEFT + canvas.width - 1 + (scrollWidth - 6) DIV 2, TOP + canvas.height - scrollWidth + (scrollWidth - 9) DIV 2, K.btnTextColor, 19X);
 
        K.CreateButton(btnLeft, LEFT, TOP + canvas.height - 1, scrollWidth, scrollWidth - 1, K.btnColor, 0X);
        K.DrawText69(LEFT + (scrollWidth - 6) DIV 2, TOP + canvas.height - 1 + (scrollWidth - 9) DIV 2 + 1, K.btnTextColor, 1BX);
        K.CreateButton(btnRight, LEFT + canvas.width - scrollWidth - 1, TOP + canvas.height - 1, scrollWidth, scrollWidth - 1, K.btnColor, 0X);
        K.DrawText69(LEFT + canvas.width - scrollWidth - 1 + (scrollWidth - 6) DIV 2, TOP + canvas.height - 1 + (scrollWidth - 9) DIV 2 + 1, K.btnTextColor, 1AX);
 
        K.PutPixel(LEFT + canvas.width + scrollWidth - 2, TOP, K.winColor);
        K.PutPixel(LEFT, TOP + canvas.height + scrollWidth - 2, K.winColor);
 
        y := (btnHeight - fontHeight) DIV 2 + btnTop;
        CASE text.enc OF
        |E.UTF8:    K.DrawText866(width -  6*fontWidth, y, K.textColor, "UTF-8")
        |E.UTF8BOM: K.DrawText866(width - 10*fontWidth, y, K.textColor, "UTF-8-BOM")
        |E.CP866:   K.DrawText866(width -  6*fontWidth, y, K.textColor, "CP866")
        |E.W1251:   K.DrawText866(width - 13*fontWidth, y, K.textColor, "Windows-1251")
        END;
        IF search THEN
            SearchPanel(searchLeft, TOP)
        END;
 
        y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
        K.DrawRect(LEFT + 16*fontWidth, TOP + canvas.height + scrollWidth - 1, width - LEFT - 25*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
        K.DrawText866(LEFT + 16*fontWidth, y, K.textColor, text.fileName);
        WriteModified(width - 9*fontWidth, y);
        repaint
    END;
    K.EndDraw
END draw_window;
 
 
PROCEDURE mouse (VAR x, y: INTEGER);
VAR
    mouseX, mouseY,
    cliX, cliY,
    winX, winY: INTEGER;
BEGIN
    K.MousePos(mouseX, mouseY);
    K.WinPos(winX, winY);
    K.ClientPos(cliX, cliY);
    x := mouseX - winX - cliX - LEFT;
    y := mouseY - winY - cliY - TOP;
END mouse;
 
 
PROCEDURE getKBState;
VAR
    kbState: SET;
BEGIN
    kbState := K.GetControlKeys();
    IF {0, 1} * kbState # {} THEN
        INCL(shift, T.SHIFT)
    ELSE
        EXCL(shift, T.SHIFT)
    END;
 
    IF {2, 3} * kbState # {} THEN
        INCL(shift, T.CTRL)
    ELSE
        EXCL(shift, T.CTRL)
    END
END getKBState;
 
 
PROCEDURE OpenFile (VAR FileName: RW.tFileName; filter: ARRAY OF CHAR);
BEGIN
    OpenDlg.SetFilter(OD, filter);
    OpenDlg.Show(OD, 500, 400);
    WHILE OD.status = 2 DO
        K.Pause(30)
    END;
    IF OD.status = 1 THEN
        COPY(OD.FilePath, FileName)
    ELSE
        FileName := ""
    END
END OpenFile;
 
 
PROCEDURE error (s: RW.tFileName);
BEGIN
    K.Run("/rd/1/@notify", s)
END error;
 
 
PROCEDURE saveAs;
VAR
    fileName: RW.tFileName;
    ext: ARRAY 8 OF CHAR;
BEGIN
    OD._type := OpenDlg.tsave;
    U.getFileName(text.fileName, OD.FileName, U.SLASH);
    IF OD.FileName = "" THEN
        OD.FileName := "NewFile.";
        CASE text.lang OF
        |Languages.langNone:   ext := "txt"
        |Languages.langC:      ext := "c"
        |Languages.langFasm:   ext := "asm"
        |Languages.langIni:    ext := "ini"
        |Languages.langLua:    ext := "lua"
        |Languages.langOberon: ext := "ob07"
        |Languages.langPascal: ext := "pas"
        END;
        U.append8(OD.FileName, ext)
    END;
    OpenFile(fileName, EditFilter);
    IF fileName # "" THEN
        IF T.save(text, fileName, text.enc, RW.EOL_CRLF) THEN
            T.setName(text, fileName)
        ELSE
            error("'cedit: error saving file' -E")
        END
    END
END saveAs;
 
 
PROCEDURE save;
BEGIN
    IF text.modified THEN
        IF text.fileName # "" THEN
            IF ~T.save(text, text.fileName, text.enc, RW.EOL_CRLF) THEN
                error("'cedit: error saving file' -E")
            END
        ELSE
            saveAs
        END
    END
END save;
 
 
PROCEDURE SelfRun (file: ARRAY OF CHAR);
BEGIN
    K.Run(AppPath, file)
END SelfRun;
 
 
PROCEDURE open;
VAR
    fileName: RW.tFileName;
BEGIN
    OD._type := OpenDlg.topen;
    OpenFile(fileName, EditFilter);
    IF fileName # "" THEN
        SelfRun(fileName)
    END
END open;
 
 
PROCEDURE Confirm;
CONST
    width  = btnWidth*2 + 30;
    height = btnHeight*2 + 20;
    lineColor = 808080H;
VAR
    left, top, right, bottom: INTEGER;
BEGIN
    draw_window;
    confirm := TRUE;
    left := (canvas.width - width) DIV 2 + LEFT;
    top := (canvas.height - height) DIV 2 + TOP;
    right := left + width - 1;
    bottom := top + height - 1;
    K.DrawRect(left, top, width, height, K.winColor);
    Rect(left, top, right, bottom, lineColor);
    K.DrawText866(left + (width - 10*fontWidth) DIV 2, top + 10, K.textColor, "save file?");
    K.CreateButton(btnYes, left + 10, top + 35, btnWidth, btnHeight, K.btnColor, "yes");
    K.CreateButton(btnNo, left + 20 + btnWidth, top + 35, btnWidth, btnHeight, K.btnColor, "no");
END Confirm;
 
 
PROCEDURE createEdit (left, top: INTEGER): box_lib.edit_box;
VAR
    edit, EditBox0: box_lib.edit_box;
BEGIN
    NEW(EditBox0);
    EditBox0.text := K.malloc(EDITBOX_MAXCHARS + 2);
    ASSERT(EditBox0.text # 0);
    edit := box_lib.kolibri_new_edit_box(left, top, EditBox_Width, EDITBOX_MAXCHARS, EditBox0);
    edit.flags := 4002H;
    edit.text_color := 30000000H;
    EditBox_SetFocus(edit, FALSE)
    RETURN edit
END createEdit;
 
 
PROCEDURE createSearchForm;
BEGIN
    FindEdit := createEdit(searchLeft, TOP + 20);
    ReplaceEdit := createEdit(searchLeft, TOP + 20 + 55);
    GotoEdit := createEdit(searchLeft, TOP + 20 + 330);
    GotoEdit.flags := ORD(BITS(GotoEdit.flags) + BITS(8000H));
    BKW := box_lib.kolibri_new_check_box(searchLeft, TOP + 90 + 20, 16, 16, "", 8*fontWidth + 4);
    CS := box_lib.kolibri_new_check_box(searchLeft, TOP + 120 + 20, 16, 16, "", 10*fontWidth + 4);
    WH := box_lib.kolibri_new_check_box(searchLeft, TOP + 150 + 20, 16, 16, "", 10*fontWidth + 4);
END createSearchForm;
 
 
PROCEDURE EditBox_GetValue (edit: box_lib.edit_box; VAR s: ARRAY OF WCHAR);
VAR
    str: ARRAY EDITBOX_MAXCHARS + 1 OF CHAR;
    i: INTEGER;
BEGIN
    box_lib.edit_box_get_value(edit, str);
    i := 0;
    WHILE str[i] # 0X DO
        s[i] := WCHR(E.cp866[ORD(str[i])]);
        INC(i)
    END;
    s[i] := 0X
END EditBox_GetValue;
 
 
PROCEDURE Search;
BEGIN
    search := ~search;
    IF search THEN
        LEFT := searchLeft + EditBox_Width + SEARCH_PADDING*3;
        IF T.search(text, searchText, cs, whole) THEN END
    ELSE
        LEFT := searchLeft;
        IF T.search(text, "", FALSE, FALSE) THEN END
    END;
    EditBox_SetFocus(FindEdit, search);
    EditBox_SetFocus(ReplaceEdit, FALSE);
    EditBox_SetFocus(GotoEdit, FALSE);
    resize;
    draw_window
END Search;
 
 
PROCEDURE click (x, y: INTEGER): INTEGER;
VAR
    scrollX, scrollY: INTEGER;
BEGIN
    IF (0 <= x) & (x < canvas.width) & (0 <= y) & (y < canvas.height) THEN
        leftButton := TRUE;
        EditBox_SetFocus(FindEdit, FALSE);
        EditBox_SetFocus(ReplaceEdit, FALSE);
        EditBox_SetFocus(GotoEdit, FALSE);
        IF ~(T.SHIFT IN shift) THEN
            T.resetSelect(text)
        END;
        T.mouse(text, x, y);
        repaint
    ELSIF (canvas.width < x) & (x < canvas.width + scrollWidth) & (scrollWidth < y) & (y < canvas.height - scrollWidth) THEN
        VScroll := TRUE;
        DEC(x, canvas.width);
        DEC(y, scrollWidth);
        Scroll.mouse(vScroll, x, y);
        T.getScroll(text, scrollX, scrollY);
        T.scroll(text, 0, vScroll.value - scrollY);
        repaint
    ELSIF (scrollWidth < x) & (x < canvas.width - scrollWidth) & (canvas.height < y) & (y < canvas.height + scrollWidth) THEN
        HScroll := TRUE;
        DEC(x, scrollWidth);
        DEC(y, canvas.height);
        Scroll.mouse(hScroll, x, y);
        T.getScroll(text, scrollX, scrollY);
        T.scroll(text, hScroll.value - scrollX, 0);
        repaint
    END
    RETURN K.GetTickCount()
END click;
 
 
PROCEDURE LeftButtonUp;
BEGIN
    leftButton := FALSE;
    VScroll := FALSE;
    HScroll := FALSE;
    Scroll.MouseUp(vScroll);
    Scroll.MouseUp(hScroll);
END LeftButtonUp;
 
 
PROCEDURE close;
BEGIN
    IF text.modified THEN
        Confirm
    ELSE
        K.Exit
    END
END close;
 
 
PROCEDURE MenuItemClick (menu: Menu.tMenu; id: INTEGER);
BEGIN
    K.SendIPC(mainTID, id)
END MenuItemClick;
 
 
PROCEDURE goto;
VAR
    gotoVal: INTEGER;
BEGIN
    EditBox_GetValue(GotoEdit, gotoText);
    IF U.str2int(gotoText, gotoVal) & T.goto(text, gotoVal) THEN END
END goto;
 
 
PROCEDURE Script (script: ARRAY OF CHAR);
BEGIN
    IF script # "" THEN
        K.Run("/rd/1/@open", script)
    END
END Script;
 
 
PROCEDURE receiveIPC;
BEGIN
    IF IPC[0] # Menu.lastTID THEN
        IPC[2] := 0
    END;
    CASE IPC[2] OF
    |0:
    |menuCut:       T.key(text, ORD("X"), {T.CTRL})
    |menuCopy:      T.key(text, ORD("C"), {T.CTRL})
    |menuPaste:     T.key(text, ORD("V"), {T.CTRL})
    |menuDelete:    T.key(text, 46, {})
    |menuSelectAll: T.key(text, ORD("A"), {T.CTRL})
 
    |menuNew:
        SelfRun("")
    |menuOpen:
        open
    |menuSave:
        save;
        repaint
    |menuSaveAs:
        saveAs;
        repaint
    |menuFolder:
        K.Run("/rd/1/File Managers/Eolite", text.fileName)
    |menuExit:
        close
    |menuUndo:
        T.undo(text);
        repaint
    |menuRedo:
        T.redo(text);
        repaint
    |menuSearch:
        IF ~search THEN
            Search
        END;
        EditBox_SetFocus(FindEdit, TRUE);
        EditBox_SetFocus(ReplaceEdit, FALSE);
        EditBox_SetFocus(GotoEdit, FALSE)
    |menuGoto:
        IF ~search THEN
            Search
        END;
        EditBox_SetFocus(GotoEdit, TRUE);
        EditBox_SetFocus(FindEdit, FALSE);
        EditBox_SetFocus(ReplaceEdit, FALSE)
    |menuNumbers:
        T.toggleNumbers(text)
    |menuFontSize:
        IF font = font1 THEN
            font := font2
        ELSE
            font := font1
        END;
        resize
    |menuNone:
        T.setLang(text, Languages.langNone)
    |menuC:
        T.setLang(text, Languages.langC)
    |menuFasm:
        T.setLang(text, Languages.langFasm)
    |menuIni:
        T.setLang(text, Languages.langIni)
    |menuLua:
        T.setLang(text, Languages.langLua)
    |menuOberon:
        T.setLang(text, Languages.langOberon)
    |menuPascal:
        T.setLang(text, Languages.langPascal)
    |menuBuild:
        Script(buildScript)
    |menuBuildScript:
        OpenFile(buildScript, ShellFilter)
    |menuRun:
        Script(runScript)
    |menuRunScript:
        OpenFile(runScript, ShellFilter)
    |menuDebug:
        Script(debugScript)
    |menuDebugScript:
        OpenFile(debugScript, ShellFilter)
    |menuUTF8BOM:
        text.enc := E.UTF8BOM
    |menuUTF8:
        text.enc := E.UTF8
    |menuCP866:
        text.enc := E.CP866
    |menuWin1251:
        text.enc := E.W1251
    |menuPipet:
        K.Run("/rd/1/develop/pipet", "")
    |menuSysFunc:
        K.Run("/rd/1/docpack", "f")
    |menuColors..menuMaxColors:
        Ini.selectSection(IPC[2] - menuColors)
    END;
    IPC[0] := 0;
    IPC[1] := 0
END receiveIPC;
 
 
PROCEDURE MenuKeyDown (menu: Menu.tMenu; key: INTEGER): BOOLEAN;
VAR
    menuItem: INTEGER;
BEGIN
    menuItem := -1;
    getKBState;
    IF (T.CTRL IN shift) THEN
        CASE key DIV 65536 OF
        |21: menuItem := menuRedo
        |30: menuItem := menuSelectAll
        |33: menuItem := menuSearch
        |34: menuItem := menuGoto
        |44: menuItem := menuUndo
        |45: menuItem := menuCut
        |46: menuItem := menuCopy
        |47: menuItem := menuPaste
        |24: menuItem := menuOpen
        |31: menuItem := menuSave
        |49: menuItem := menuNew
        |67: menuItem := menuBuild
        ELSE
        END
    ELSE
        IF key DIV 65536 = 83 THEN
            menuItem := menuDelete
        ELSIF key DIV 65536 = 67 THEN
            menuItem := menuRun
        END
    END;
    IF menuItem # -1 THEN
        IF Menu.isEnabled(menu, menuItem) THEN
            MenuItemClick(menu, menuItem)
        ELSE
            menuItem := -1
        END
    END
    RETURN menuItem # -1
END MenuKeyDown;
 
 
PROCEDURE CreateContextMenu (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuUndo,      "undo         ctrl-Z");
    Menu.AddMenuItem(menu, menuRedo,      "redo         ctrl-Y");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuCut,       "cut          ctrl-X");
    Menu.AddMenuItem(menu, menuCopy,      "copy         ctrl-C");
    Menu.AddMenuItem(menu, menuPaste,     "paste        ctrl-V");
    Menu.AddMenuItem(menu, menuDelete,    "delete");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuSelectAll, "select all   ctrl-A");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateContextMenu;
 
 
PROCEDURE CreateMenuFile (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuNew,    "new       ctrl-N");
    Menu.AddMenuItem(menu, menuOpen,   "open      ctrl-O");
    Menu.AddMenuItem(menu, menuSave,   "save      ctrl-S");
    Menu.AddMenuItem(menu, menuSaveAs, "save as");
    Menu.AddMenuItem(menu, menuFolder, "folder");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuExit,   "exit");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuFile;
 
 
PROCEDURE CreateMenuEdit (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuUndo,      "undo          ctrl-Z");
    Menu.AddMenuItem(menu, menuRedo,      "redo          ctrl-Y");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuSearch,    "search        ctrl-F");
    Menu.AddMenuItem(menu, menuGoto,      "go to line    ctrl-G");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuCut,       "cut           ctrl-X");
    Menu.AddMenuItem(menu, menuCopy,      "copy          ctrl-C");
    Menu.AddMenuItem(menu, menuPaste,     "paste         ctrl-V");
    Menu.AddMenuItem(menu, menuDelete,    "delete");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuSelectAll, "select all    ctrl-A");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuEdit;
 
 
PROCEDURE CreateMenuEncoding (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuUTF8BOM, "UTF-8-BOM");
    Menu.AddMenuItem(menu, menuUTF8,    "UTF-8");
    Menu.AddMenuItem(menu, menuCP866,   "CP866");
    Menu.AddMenuItem(menu, menuWin1251, "Windows-1251");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuEncoding;
 
 
PROCEDURE CreateMenuView (): Menu.tMenu;
VAR
    menu: List.tList;
    colors: Ini.tSection;
    idx: INTEGER;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuNumbers, "line numbers");
    Menu.AddMenuItem(menu, menuFontSize, "x2");
    Menu.delimiter(menu);
 
    colors := Ini.sections.first(Ini.tSection);
    idx := menuColors;
    WHILE colors # NIL DO
        Menu.AddMenuItem(menu, idx, colors.name);
        INC(idx);
        colors := colors.next(Ini.tSection)
    END;
 
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuView;
 
 
PROCEDURE CreateMenuSyntax (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuC,      "C");
    Menu.AddMenuItem(menu, menuFasm,   "Fasm");
    Menu.AddMenuItem(menu, menuIni,    "Ini");
    Menu.AddMenuItem(menu, menuLua,    "Lua");
    Menu.AddMenuItem(menu, menuOberon, "Oberon");
    Menu.AddMenuItem(menu, menuPascal, "Pascal");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuNone,   "none");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuSyntax;
 
 
PROCEDURE CreateMenuProgram (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuBuild,       "build    ctrl+F9");
    Menu.AddMenuItem(menu, menuBuildScript, "script");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuRun,         "run           F9");
    Menu.AddMenuItem(menu, menuRunScript,   "script");
    Menu.delimiter(menu);
    Menu.AddMenuItem(menu, menuDebug,       "debug");
    Menu.AddMenuItem(menu, menuDebugScript, "script");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuProgram;
 
 
PROCEDURE CreateMenuTools (): Menu.tMenu;
VAR
    menu: List.tList;
BEGIN
    menu := List.create(NIL);
    Menu.AddMenuItem(menu, menuPipet,   "pipet");
    Menu.AddMenuItem(menu, menuSysFunc, "system functions");
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
END CreateMenuTools;
 
 
PROCEDURE CanvasToScreen (VAR x, y: INTEGER);
VAR
    cliX, cliY,
    winX, winY: INTEGER;
BEGIN
    K.WinPos(winX, winY);
    K.ClientPos(cliX, cliY);
    x := x + winX + cliX + LEFT;
    y := y + winY + cliY + TOP;
END CanvasToScreen;
 
 
PROCEDURE ShowMenu (menu: Menu.tMenu);
VAR
    winX, winY, cliX, cliY, x, y, i: INTEGER;
    selected: BOOLEAN;
BEGIN
    IF menu # context THEN
        K.WinPos(winX, winY);
        K.ClientPos(cliX, cliY);
        x := winX + cliX;
        y := MainMenuHeight + winY + cliY
    ELSE
        mouse(x, y);
        IF ~((0 <= x) & (x < canvas.width) & (0 <= y) & (y < canvas.height)) THEN
            menu := NIL
        END
    END;
 
    IF menu = menuFile THEN
        Menu.setEnabled(menu, menuSave, text.modified);
        Menu.setEnabled(menu, menuFolder, text.fileName # "");
        INC(x, menuFileX)
    ELSIF (menu = menuEdit) OR (menu = context) THEN
        Menu.setEnabled(menu, menuUndo, ~ChangeLog.isFirstGuard(text.edition));
        Menu.setEnabled(menu, menuRedo, ~ChangeLog.isLastGuard(text.edition));
        selected := T.selected(text);
        Menu.setEnabled(menu, menuCut, selected);
        Menu.setEnabled(menu, menuCopy, selected);
        Menu.setEnabled(menu, menuDelete, selected);
        Menu.setEnabled(menu, menuPaste, CB.available());
        IF menu = menuEdit THEN
            INC(x, menuEditX)
        ELSE
            IF y + menu.height >= canvas.height THEN
                DEC(y, menu.height)
            END;
            IF x + menu.width >= canvas.width THEN
                DEC(x, menu.width)
            END;
            CanvasToScreen(x, y)
        END
    ELSIF menu = menuEncoding THEN
        Menu.setCheck(menu, menuUTF8BOM, ORD(text.enc = E.UTF8BOM)*2);
        Menu.setCheck(menu, menuUTF8,    ORD(text.enc = E.UTF8)*2);
        Menu.setCheck(menu, menuCP866,   ORD(text.enc = E.CP866)*2);
        Menu.setCheck(menu, menuWin1251, ORD(text.enc = E.W1251)*2);
        INC(x, menuEncodingX)
    ELSIF menu = menuView THEN
        Menu.setCheck(menu, menuNumbers,  ORD(text.numbers));
        Menu.setCheck(menu, menuFontSize, ORD(font = font2));
        FOR i := 0 TO Ini.sections.count - 1 DO
            Menu.setCheck(menu, menuColors + i, ORD(Ini.curSectionNum = i)*2)
        END;
        INC(x, menuViewX)
    ELSIF menu = menuSyntax THEN
        Menu.setCheck(menu, menuNone,   ORD(text.lang = Languages.langNone)*2);
        Menu.setCheck(menu, menuC,      ORD(text.lang = Languages.langC)*2);
        Menu.setCheck(menu, menuFasm,   ORD(text.lang = Languages.langFasm)*2);
        Menu.setCheck(menu, menuIni,    ORD(text.lang = Languages.langIni)*2);
        Menu.setCheck(menu, menuLua,    ORD(text.lang = Languages.langLua)*2);
        Menu.setCheck(menu, menuOberon, ORD(text.lang = Languages.langOberon)*2);
        Menu.setCheck(menu, menuPascal, ORD(text.lang = Languages.langPascal)*2);
        INC(x, menuSyntaxX)
    ELSIF menu = menuProgram THEN
        Menu.setEnabled(menu, menuBuild, buildScript # "");
        Menu.setEnabled(menu, menuDebug, debugScript # "");
        Menu.setEnabled(menu, menuRun, runScript # "");
        INC(x, menuProgramX)
    ELSIF menu = menuTools THEN
        INC(x, menuToolsX)
    END;
 
    IF menu # NIL THEN
        IF Menu.opened(menu) THEN
            Menu.close(menu)
        END;
        Menu.open(menu, x, y)
    END
END ShowMenu;
 
 
PROCEDURE main;
VAR
    width, height, x, y, scrollX, scrollY, i: INTEGER;
    key: INTEGER;
    msState: SET;
    scroll: INTEGER;
    err: INTEGER;
    fileName, filePath: RW.tFileName;
    cliWidth, cliHeight: INTEGER;
    resized: BOOLEAN;
    firstClickX, firstClickY, time: INTEGER;
BEGIN
    K.GetSystemColors;
    Icons.get(icons, grayIcons);
    modified := FALSE;
    mainTID := K.ThreadID();
    K.SetIPC(IPC);
    U.ptr2str(K.GetName(), AppPath);
    Ini.load(AppPath);
    K.SetEventsMask({0, 1, 2, 5, 6, 31});
    LeftButtonUp;
    resized := FALSE;
    shift := {};
    K.ScreenSize(winWidth, winHeight);
    winWidth := (winWidth * 80) DIV 100 - (128 + 30);
    winHeight := winHeight - (128 + 30);
    winWidth := MAX(winWidth, minWinWidth);
    winHeight := MAX(winHeight, minWinHeight);
    cliWidth := winWidth;
    cliHeight := winHeight;
    LEFT := 10;
    canvas := G.CreateCanvas(winWidth - (LEFT + RIGHT + 10), winHeight - (TOP + BOTTOM + 4) - K.SkinHeight());
    font1 := G.CreateFont(1, "", {});
    font2 := G.CreateFont(2, "", {});
    font := font1;
    G.SetFont(canvas, font);
    T.init(NIL);
    T.setCanvas(canvas);
    U.ptr2str(K.GetCommandLine(), fileName);
    context := CreateContextMenu();
    menuFile := CreateMenuFile();
    menuEdit := CreateMenuEdit();
    menuEncoding := CreateMenuEncoding();
    menuView := CreateMenuView();
    menuSyntax := CreateMenuSyntax();
    menuProgram := CreateMenuProgram();
    menuTools := CreateMenuTools();
    IF fileName = "" THEN
        text := T.New();
        filePath := "/rd/1"
    ELSE
        text := T.open(fileName, err);
        IF text = NIL THEN
            error("'cedit: error opening file' -E");
            K.Exit
        ELSE
            U.getPath(fileName, filePath)
        END
    END;
    OD := OpenDlg.Create(draw_window, OpenDlg.topen, filePath, "");
 
    vScroll := Scroll.create(scrollWidth, canvas.height - scrollWidth*2 + 1);
    hScroll := Scroll.create(canvas.width - scrollWidth*2, scrollWidth);
    T.resize(canvas.width, canvas.height);
    T.SetPos(text, 0, 0);
    confirm := FALSE;
    notFound := FALSE;
    search := FALSE;
    createSearchForm;
    new_searchText := "";
    searchText := "";
    cs := FALSE;
    whole := FALSE;
    replaced := 0;
    draw_window;
    repaint;
    buildScript := "";
    runScript := "";
    debugScript := "";
    WHILE TRUE DO
        CASE K.WaitForEvent() OF
        |1:
            FOR i := 0 TO 1 DO
                K.GetSystemColors;
                Icons.get(icons, grayIcons);
                IF ~K.RolledUp() THEN
                    K.ClientSize(width, height);
                    IF (width # cliWidth) OR (height # cliHeight) THEN
                        cliWidth := width;
                        cliHeight := height;
                        resize;
                        resized := TRUE;
                    END;
                    K.SetEventsMask({0, 1, 2, 5, 6, 31})
                ELSE
                    K.SetEventsMask({0, 30, 31})
                END;
                draw_window
            END
 
        |2:
            key := K.GetKey();
            getKBState;
            IF confirm THEN
                IF key DIV 65536 = 28 THEN (* Enter *)
                    save;
                    IF ~text.modified THEN
                        K.Exit
                    END;
                    repaint
                END;
                key := -1
            END;
            IF key DIV 65536 = 61 THEN (* F3 *)
                key := -1;
                IF search & (searchText # "") THEN
                    IF T.SHIFT IN shift THEN
                        notFound := ~T.findNext(text, ~box_lib.check_box_get_value(BKW))
                    ELSE
                        notFound := ~T.findNext(text, box_lib.check_box_get_value(BKW))
                    END
                END
            ELSIF key DIV 65536 = 67 THEN (* F9 *)
                key := -1;
                IF T.CTRL IN shift THEN
                    Script(buildScript)
                ELSE
                    Script(runScript)
                END
            ELSIF key DIV 65536 = 1 THEN (* Esc *)
                key := -1;
                IF search THEN
                    Search
                END
            ELSIF (key DIV 65536 = 55) & (key DIV 256 MOD 256 = 52) THEN
                key := -1 (* PrtScn *)
            ELSIF (T.CTRL IN shift) & (key DIV 65536 = 33) THEN
                key := -1;
                IF ~search THEN
                    Search
                END;
                EditBox_SetFocus(FindEdit, TRUE);
                EditBox_SetFocus(ReplaceEdit, FALSE);
                EditBox_SetFocus(GotoEdit, FALSE);
            ELSIF (T.CTRL IN shift) & (key DIV 65536 = 34) THEN
                key := -1;
                IF ~search THEN
                    Search
                END;
                EditBox_SetFocus(GotoEdit, TRUE);
                EditBox_SetFocus(FindEdit, FALSE);
                EditBox_SetFocus(ReplaceEdit, FALSE)
            END;
            IF (key # -1) & EditBox_Focus(FindEdit) THEN
                box_lib.edit_box_key(FindEdit, key);
                EditBox_GetValue(FindEdit, new_searchText);
                IF new_searchText # searchText THEN
                    searchText := new_searchText;
                    notFound := ~T.search(text, searchText, cs, whole)
                END
            ELSIF (key # -1) & EditBox_Focus(ReplaceEdit) THEN
                box_lib.edit_box_key(ReplaceEdit, key);
                EditBox_GetValue(ReplaceEdit, replaceText)
            ELSIF (key # -1) & EditBox_Focus(GotoEdit) THEN
                IF (key DIV 256) MOD 256 = 13 THEN
                    goto
                ELSE
                    box_lib.edit_box_key(GotoEdit, key)
                END
            ELSIF key # -1 THEN
                CASE key DIV 65536 OF
                |73: key := 33
                |81: key := 34
                |71: key := 36
                |79: key := 35
                |72: key := 38
                |80: key := 40
                |75: key := 37
                |77: key := 39
                |82: key := -1 (* insert *)
                |83: key := 46
                |59, 60, 62..66, 68, 87, 88: key := -1 (* F1, F2, F4..F8, F10, F11, F12 *)
                ELSE
                    IF (T.CTRL IN shift) THEN
                        CASE key DIV 65536 OF
                        |21: T.redo(text);
                             key := -1
                        |22: key := ORD("U")
                        |24: key := -1;
                             open
                        |30: key := ORD("A")
                        |31: key := -1;
                             save
                        |38: key := ORD("L")
                        |44: T.undo(text);
                             key := -1
                        |45: key := ORD("X")
                        |46: key := ORD("C")
                        |47: key := ORD("V")
                        |49: key := -1;
                             SelfRun("")
                        ELSE
                            key := -1
                        END
                    ELSE
                        T.input(text, E.cp866[key DIV 256 MOD 256]);
                        key := -1
                    END
                END;
                IF key # -1 THEN
                    T.key(text, key, shift)
                END
            END;
            repaint
        |3:
            CASE K.ButtonCode() OF
            |0:
 
            |btnFile:
                ShowMenu(menuFile)
            |btnEdit:
                ShowMenu(menuEdit)
            |btnEncoding:
                ShowMenu(menuEncoding)
            |btnView:
                ShowMenu(menuView)
            |btnSyntax:
                ShowMenu(menuSyntax)
            |btnProgram:
                ShowMenu(menuProgram)
            |btnTools:
                ShowMenu(menuTools)
            |btnNo:
                K.Exit
            |btnYes:
                save;
                IF ~text.modified THEN
                    K.Exit
                END;
                repaint
            |btnClose:
                close
            |btnNew:
                SelfRun("")
            |btnOpen:
                open
            |btnSave:
                save;
                repaint
            |btnSearch:
                IF ~search THEN
                    Search
                END
            |btnCloseFind:
                Search
            |btnUndo:
                T.undo(text);
                repaint
            |btnRedo:
                T.redo(text);
                repaint
            |btnUpper:
                T.chCase(text, TRUE);
                repaint
            |btnLower:
                T.chCase(text, FALSE);
                repaint
            |btnBuild:
                Script(buildScript)
            |btnRun:
                Script(runScript)
            |btnUp:
                T.scroll(text, 0, -1);
                repaint
            |btnDown:
                T.scroll(text, 0, 1);
                repaint
            |btnLeft:
                T.scroll(text, -1, 0);
                repaint
            |btnRight:
                T.scroll(text, 1, 0);
                repaint
            |btnFindEdit:
                EditBox_SetFocus(FindEdit, TRUE);
                EditBox_SetFocus(ReplaceEdit, FALSE);
                EditBox_SetFocus(GotoEdit, FALSE)
            |btnReplaceEdit:
                EditBox_SetFocus(ReplaceEdit, TRUE);
                EditBox_SetFocus(FindEdit, FALSE);
                EditBox_SetFocus(GotoEdit, FALSE)
            |btnGotoEdit:
                EditBox_SetFocus(GotoEdit, TRUE);
                EditBox_SetFocus(FindEdit, FALSE);
                EditBox_SetFocus(ReplaceEdit, FALSE)
            |btnFindNext:
                IF searchText # "" THEN
                    notFound := ~T.findNext(text, box_lib.check_box_get_value(BKW));
                    repaint
                END
            |btnReplace:
                T.replace(text, replaceText, LENGTH(searchText));
                repaint
            |btnReplaceAll:
                notFound := ~T.search(text, searchText, cs, whole);
                IF ~notFound THEN
                    replaced := T.replaceAll(text, replaceText, LENGTH(searchText));
                END;
                repaint
            |btnGoto:
                goto;
                repaint
            END
        |6:
            Menu.close(menuFile);
            Menu.close(menuEdit);
            Menu.close(menuEncoding);
            Menu.close(menuView);
            Menu.close(menuSyntax);
            Menu.close(menuProgram);
            Menu.close(menuTools);
            Menu.close(context);
            IF ~resized THEN
                getKBState;
                msState := K.MouseState();
                IF ~(0 IN msState) OR (16 IN msState) THEN
                    LeftButtonUp
                END;
                scroll := K.Scroll();
                IF scroll # 0 THEN
                    T.scroll(text, 0, scroll*3);
                    repaint
                END;
                IF leftButton THEN
                    IF K.GetTickCount() - time > 9 THEN
                        mouse(x, y);
                        T.mouse(text, x, y);
                        repaint
                    END
                END;
                IF VScroll THEN
                    mouse(x, y);
                    Scroll.mouse(vScroll, x, y - scrollWidth);
                    T.getScroll(text, scrollX, scrollY);
                    T.scroll(text, 0, vScroll.value - scrollY);
                    repaint
                END;
                IF HScroll THEN
                    mouse(x, y);
                    Scroll.mouse(hScroll, x - scrollWidth, y);
                    T.getScroll(text, scrollX, scrollY);
                    T.scroll(text, hScroll.value - scrollX, 0);
                    repaint
                END;
                IF (8 IN msState) & ~(24 IN msState) THEN
                    mouse(firstClickX, firstClickY);
                    time := click(firstClickX, firstClickY)
                END;
                IF 9 IN msState THEN
                    ShowMenu(context)
                END;
                IF 24 IN msState THEN
                    mouse(x, y);
                    IF (ABS(x - firstClickX) < 5) & (ABS(y - firstClickY) < 5) THEN
                        VScroll := FALSE;
                        HScroll := FALSE;
                        IF (0 <= x) & (x < canvas.width) & (0 <= y) & (y < canvas.height) THEN
                            leftButton := FALSE;
                            T.selectWord(text);
                            repaint
                        END
                    ELSE
                        firstClickX := x;
                        firstClickY := y;
                        time := click(firstClickX, firstClickY)
                    END
                END
            END;
            IF search THEN
                IF EditBox_Focus(FindEdit) THEN
                    box_lib.edit_box_mouse(FindEdit)
                END;
                IF EditBox_Focus(ReplaceEdit) THEN
                    box_lib.edit_box_mouse(ReplaceEdit)
                END;
                IF EditBox_Focus(GotoEdit) THEN
                    box_lib.edit_box_mouse(GotoEdit)
                END;
                box_lib.check_box_mouse2(CS);
                box_lib.check_box_mouse2(WH);
                box_lib.check_box_mouse2(BKW);
                IF box_lib.check_box_get_value(CS) # cs THEN
                    cs := ~cs;
                    notFound := ~T.search(text, searchText, cs, whole);
                    repaint
                END;
                IF box_lib.check_box_get_value(WH) # whole THEN
                    whole := ~whole;
                    notFound := ~T.search(text, searchText, cs, whole);
                    repaint
                END
            END;
            resized := FALSE
        |7: receiveIPC
        ELSE
        END
    END
END main;
 
 
BEGIN
    main
END CEdit.

Rev 8772	Rev 8848
1	(*	1	(*
2	Copyright 2021 Anton Krotov	2	Copyright 2021 Anton Krotov
3		3
4	This file is part of CEdit.	4	This file is part of CEdit.
5		5
6	CEdit is free software: you can redistribute it and/or modify	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	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	8	the Free Software Foundation, either version 3 of the License, or
9	(at your option) any later version.	9	(at your option) any later version.
10		10
11	CEdit is distributed in the hope that it will be useful,	11	CEdit is distributed in the hope that it will be useful,
12	but WITHOUT ANY WARRANTY; without even the implied warranty of	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14	GNU General Public License for more details.	14	GNU General Public License for more details.
15		15
16	You should have received a copy of the GNU General Public License	16	You should have received a copy of the GNU General Public License
17	along with CEdit. If not, see .	17	along with CEdit. If not, see .
18	*)	18	*)
19		19
20	MODULE CEdit;	20	MODULE CEdit;
21		21
22	IMPORT	22	IMPORT
23	OpenDlg, K := KolibriOS,	23	OpenDlg, K := KolibriOS,
24	U := Utils, Lines, Menu, List,	24	U := Utils, Lines, Menu, List,
25	G := Graph, T := Text, E := Encodings,	25	G := Graph, T := Text, E := Encodings,
26	CB := Clipboard, Languages,	26	CB := Clipboard, Languages,
27	ChangeLog, Scroll,	27	ChangeLog, Scroll,
28	RW, Ini, box_lib, Icons;	28	RW, Ini, box_lib, Icons;
29		29
30	CONST	30	CONST
31	header = "CEdit (06-jun-2021)";	31	header = "CEdit (14-jun-2021)";
32		32
33	ShellFilter = "";	33	ShellFilter = "";
34	EditFilter = "SH\|ASM\|TXT\|INC\|OB07\|C\|CPP\|H\|PAS\|PP\|LUA\|INI";	34	EditFilter = "SH\|ASM\|TXT\|INC\|OB07\|C\|CPP\|H\|PAS\|PP\|LUA\|INI";
35		35
36	fontWidth = K.fontWidth;	36	fontWidth = K.fontWidth;
37	fontHeight = K.fontHeight;	37	fontHeight = K.fontHeight;
38	scrollWidth = 22;	38	scrollWidth = 22;
39		39
40	btnClose = 1;	40	btnClose = 1;
41	btnNew = 20;	41	btnNew = 20;
42	btnOpen = 21;	42	btnOpen = 21;
43	btnSave = 22;	43	btnSave = 22;
44	btnSearch = 23;	44	btnSearch = 23;
45	btnUndo = 24;	45	btnUndo = 24;
46	btnRedo = 25;	46	btnRedo = 25;
47	btnUpper = 26;	47	btnUpper = 26;
48	btnLower = 27;	48	btnLower = 27;
49	btnBuild = 28;	49	btnBuild = 28;
50	btnRun = 29;	50	btnRun = 29;
51	btnUp = 30;	51	btnUp = 30;
52	btnDown = 31;	52	btnDown = 31;
53	btnLeft = 32;	53	btnLeft = 32;
54	btnRight = 33;	54	btnRight = 33;
55	btnYes = 40;	55	btnYes = 40;
56	btnNo = 41;	56	btnNo = 41;
57	btnFindEdit = 50;	57	btnFindEdit = 50;
58	btnReplaceEdit = 51;	58	btnReplaceEdit = 51;
59	btnGotoEdit = 52;	59	btnGotoEdit = 52;
60	btnFindNext = 60;	60	btnFindNext = 60;
61	btnReplace = 61;	61	btnReplace = 61;
62	btnReplaceAll = 62;	62	btnReplaceAll = 62;
63	btnGoto = 63;	63	btnGoto = 63;
64	btnCloseFind = 64;	64	btnCloseFind = 64;
65		65
66	btnFile = 70;	66	btnFile = 70;
67	btnEdit = 71;	67	btnEdit = 71;
68	btnEncoding = 72;	68	btnEncoding = 72;
69	btnView = 73;	69	btnView = 73;
70	btnSyntax = 74;	70	btnSyntax = 74;
71	btnProgram = 75;	71	btnProgram = 75;
72	btnTools = 76;	72	btnTools = 76;
73		73
74	MainMenuHeight = fontHeight + 7;	74	MainMenuHeight = fontHeight + 7;
75		75
76	btnHeight = 25;	76	btnHeight = 25;
77	btnWidth = 75;	77	btnWidth = 75;
78	btnTop = MainMenuHeight + 3;	78	btnTop = MainMenuHeight + 3;
79	toolBtnSize = 24;	79	toolBtnSize = 24;
80	toolbarDelim = 7;	80	toolbarDelim = 7;
81		81
82	TOP = btnTop + toolBtnSize + 7;	82	TOP = btnTop + toolBtnSize + 7;
83	RIGHT = scrollWidth - 2;	83	RIGHT = scrollWidth - 2;
84	BOTTOM = scrollWidth + 25;	84	BOTTOM = scrollWidth + 25;
85		85
86	minWinWidth = 635; minWinHeight = 542;	86	minWinWidth = 635; minWinHeight = 542;
87		87
88	SEARCH_PADDING = 10;	88	SEARCH_PADDING = 10;
89	searchLeft = 10;	89	searchLeft = 10;
90	EditBox_Width = 180;	90	EditBox_Width = 180;
91	EDITBOX_MAXCHARS = 500;	91	EDITBOX_MAXCHARS = 500;
92		92
93	menuFileX = searchLeft;	93	menuFileX = searchLeft;
94	menuEditX = menuFileX + 4*fontWidth + 2 + 7;	94	menuEditX = menuFileX + 4*fontWidth + 2 + 7;
95	menuEncodingX = menuEditX + 4*fontWidth + 2 + 7;	95	menuEncodingX = menuEditX + 4*fontWidth + 2 + 7;
96	menuViewX = menuEncodingX + 8*fontWidth + 2 + 7;	96	menuViewX = menuEncodingX + 8*fontWidth + 2 + 7;
97	menuSyntaxX = menuViewX + 4*fontWidth + 2 + 7;	97	menuSyntaxX = menuViewX + 4*fontWidth + 2 + 7;
98	menuProgramX = menuSyntaxX + 6*fontWidth + 2 + 7;	98	menuProgramX = menuSyntaxX + 6*fontWidth + 2 + 7;
99	menuToolsX = menuProgramX + 7*fontWidth + 2 + 7;	99	menuToolsX = menuProgramX + 7*fontWidth + 2 + 7;
100		100
101	menuCut = 1;	101	menuCut = 1;
102	menuCopy = 2;	102	menuCopy = 2;
103	menuPaste = 3;	103	menuPaste = 3;
104	menuDelete = 4;	104	menuDelete = 4;
105	menuSelectAll = 5;	105	menuSelectAll = 5;
106		106
107	menuUndo = 6;	107	menuUndo = 6;
108	menuRedo = 7;	108	menuRedo = 7;
109		109
110	menuSearch = 8;	110	menuSearch = 8;
111	menuGoto = 9;	111	menuGoto = 9;
112		112
113	menuNew = 10;	113	menuNew = 10;
114	menuOpen = 11;	114	menuOpen = 11;
115	menuSave = 12;	115	menuSave = 12;
116	menuSaveAs = 13;	116	menuSaveAs = 13;
117	menuFolder = 14;	117	menuFolder = 14;
118	menuExit = 15;	118	menuExit = 15;
119		119
120	menuNumbers = 20;	120	menuNumbers = 20;
121	menuFontSize = 21;	121	menuFontSize = 21;
122	menuColors = 1000;	122	menuColors = 1000;
123	menuMaxColors = menuColors + Ini.MAX_SECTIONS - 1;	123	menuMaxColors = menuColors + Ini.MAX_SECTIONS - 1;
124		124
125	menuNone = 30;	125	menuNone = 30;
126	menuC = 31;	126	menuC = 31;
127	menuFasm = 32;	127	menuFasm = 32;
128	menuIni = 33;	128	menuIni = 33;
129	menuLua = 34;	129	menuLua = 34;
130	menuOberon = 35;	130	menuOberon = 35;
131	menuPascal = 36;	131	menuPascal = 36;
132		132
133	menuBuild = 50;	133	menuBuild = 50;
134	menuBuildScript = 51;	134	menuBuildScript = 51;
135	menuRun = 52;	135	menuRun = 52;
136	menuRunScript = 53;	136	menuRunScript = 53;
137	menuDebug = 54;	137	menuDebug = 54;
138	menuDebugScript = 55;	138	menuDebugScript = 55;
139		139
140	menuUTF8BOM = 60;	140	menuUTF8BOM = 60;
141	menuUTF8 = 61;	141	menuUTF8 = 61;
142	menuCP866 = 62;	142	menuCP866 = 62;
143	menuWin1251 = 63;	143	menuWin1251 = 63;
144		144
145	menuPipet = 70;	145	menuPipet = 70;
146	menuSysFunc = 71;	146	menuSysFunc = 71;
147		147
148		148
149	VAR	149	VAR
150	canvas: G.tCanvas;	150	canvas: G.tCanvas;
151	font, font1, font2: G.tFont;	151	font, font1, font2: G.tFont;
152	text: T.tText;	152	text: T.tText;
153	winWidth, winHeight: INTEGER;	153	winWidth, winHeight: INTEGER;
154	shift: SET;	154	shift: SET;
155	AppPath, runScript, buildScript, debugScript: RW.tFileName;	155	AppPath, runScript, buildScript, debugScript: RW.tFileName;
156	OD: OpenDlg.Dialog;	156	OD: OpenDlg.Dialog;
157	confirm, notFound, search, modified: BOOLEAN;	157	confirm, notFound, search, modified: BOOLEAN;
158		158
159	leftButton, VScroll, HScroll: BOOLEAN;	159	leftButton, VScroll, HScroll: BOOLEAN;
160	vScroll, hScroll: Scroll.tScroll;	160	vScroll, hScroll: Scroll.tScroll;
161	LEFT: INTEGER;	161	LEFT: INTEGER;
162		162
163	FindEdit, ReplaceEdit, GotoEdit: box_lib.edit_box;	163	FindEdit, ReplaceEdit, GotoEdit: box_lib.edit_box;
164	CS, WH, BKW: box_lib.checkbox;	164	CS, WH, BKW: box_lib.checkbox;
165		165
166	new_searchText, searchText, replaceText, gotoText: T.tString;	166	new_searchText, searchText, replaceText, gotoText: T.tString;
167	cs, whole: BOOLEAN;	167	cs, whole: BOOLEAN;
168		168
169	replaced: INTEGER;	169	replaced: INTEGER;
170		170
171	mainTID: INTEGER;	171	mainTID: INTEGER;
172		172
173	context, menuFile, menuEdit, menuEncoding, menuView, menuSyntax, menuProgram, menuTools: Menu.tMenu;	173	context, menuFile, menuEdit, menuEncoding, menuView, menuSyntax, menuProgram, menuTools: Menu.tMenu;
174		174
175	icons: INTEGER;	175	icons: INTEGER;
176	grayIcons: INTEGER;	176	grayIcons: INTEGER;
177		177
178	IPC: ARRAY 64 OF INTEGER;	178	IPC: ARRAY 64 OF INTEGER;
179		179
180		180
181	PROCEDURE WritePos (y: INTEGER);	181	PROCEDURE WritePos (y: INTEGER);
182	VAR	182	VAR
183	s1, s2: ARRAY 32 OF WCHAR;	183	s1, s2: ARRAY 32 OF WCHAR;
184	line, col: INTEGER;	184	line, col: INTEGER;
185	BEGIN	185	BEGIN
186	T.getPos(text, col, line);	186	T.getPos(text, col, line);
187	U.int2str(line, s1);	187	U.int2str(line, s1);
188	U.int2str(col, s2);	188	U.int2str(col, s2);
189	U.append(s1, ": ");	189	U.append(s1, ": ");
190	U.append(s1, s2);	190	U.append(s1, s2);
191	K.DrawText(LEFT, y, K.textColor, s1)	191	K.DrawText(LEFT, y, K.textColor, s1)
192	END WritePos;	192	END WritePos;
193		193
194		194
195	PROCEDURE EditBox_Focus (edit: box_lib.edit_box): BOOLEAN;	195	PROCEDURE EditBox_Focus (edit: box_lib.edit_box): BOOLEAN;
196	RETURN 1 IN BITS(edit.flags)	196	RETURN 1 IN BITS(edit.flags)
197	END EditBox_Focus;	197	END EditBox_Focus;
198		198
199		199
200	PROCEDURE EditBox_SetFocus (edit: box_lib.edit_box; value: BOOLEAN);	200	PROCEDURE EditBox_SetFocus (edit: box_lib.edit_box; value: BOOLEAN);
201	BEGIN	201	BEGIN
202	IF value THEN	202	IF value THEN
203	edit.flags := ORD(BITS(edit.flags) + {1})	203	edit.flags := ORD(BITS(edit.flags) + {1})
204	ELSE	204	ELSE
205	edit.flags := ORD(BITS(edit.flags) - {1})	205	edit.flags := ORD(BITS(edit.flags) - {1})
206	END;	206	END;
207	IF search THEN	207	IF search THEN
208	box_lib.edit_box_draw(edit)	208	box_lib.edit_box_draw(edit)
209	END	209	END
210	END EditBox_SetFocus;	210	END EditBox_SetFocus;
211		211
212		212
213	PROCEDURE Rect (left, top, right, bottom, color: INTEGER);	213	PROCEDURE Rect (left, top, right, bottom, color: INTEGER);
214	BEGIN	214	BEGIN
215	K.DrawLine(left, top, right, top, color);	215	K.DrawLine(left, top, right, top, color);
216	K.DrawLine(left, bottom, right, bottom, color);	216	K.DrawLine(left, bottom, right, bottom, color);
217	K.DrawLine(left, top, left, bottom, color);	217	K.DrawLine(left, top, left, bottom, color);
218	K.DrawLine(right, top, right, bottom, color);	218	K.DrawLine(right, top, right, bottom, color);
219	END Rect;	219	END Rect;
220		220
221		221
222	PROCEDURE Message (s: ARRAY OF WCHAR);	222	PROCEDURE Message (s: ARRAY OF WCHAR);
223	CONST	223	CONST
224	minWidth = 30;	224	minWidth = 30;
225	height = 40;	225	height = 40;
226	borderColor = 808080H;	226	borderColor = 808080H;
227	VAR	227	VAR
228	top, left, right, bottom, x, y, width: INTEGER;	228	top, left, right, bottom, x, y, width: INTEGER;
229	BEGIN	229	BEGIN
230	width := minWidth + LENGTH(s)*fontWidth;	230	width := minWidth + LENGTH(s)*fontWidth;
231	left := (canvas.width - width) DIV 2 + LEFT;	231	left := (canvas.width - width) DIV 2 + LEFT;
232	top := (canvas.height - height) DIV 2 + TOP;	232	top := (canvas.height - height) DIV 2 + TOP;
233	bottom := top + height - 1;	233	bottom := top + height - 1;
234	right := left + width - 1;	234	right := left + width - 1;
235	x := minWidth DIV 2 + left;	235	x := minWidth DIV 2 + left;
236	y := (height - fontHeight) DIV 2 + top;	236	y := (height - fontHeight) DIV 2 + top;
237	K.DrawRect(left, top, width, height, K.winColor);	237	K.DrawRect(left, top, width, height, K.winColor);
238	Rect(left, top, right, bottom, borderColor);	238	Rect(left, top, right, bottom, borderColor);
239	K.DrawText(x, y, K.textColor, s);	239	K.DrawText(x, y, K.textColor, s);
240	END Message;	240	END Message;
241		241
242		242
243	PROCEDURE NotFound;	243	PROCEDURE NotFound;
244	BEGIN	244	BEGIN
245	IF notFound THEN	245	IF notFound THEN
246	Message("not found");	246	Message("not found");
247	notFound := FALSE;	247	notFound := FALSE;
248	EditBox_SetFocus(FindEdit, TRUE);	248	EditBox_SetFocus(FindEdit, TRUE);
249	EditBox_SetFocus(ReplaceEdit, FALSE);	249	EditBox_SetFocus(ReplaceEdit, FALSE);
250	EditBox_SetFocus(GotoEdit, FALSE)	250	EditBox_SetFocus(GotoEdit, FALSE)
251	END	251	END
252	END NotFound;	252	END NotFound;
253		253
254		254
255	PROCEDURE Replaced;	255	PROCEDURE Replaced;
256	VAR	256	VAR
257	s, s1: ARRAY 32 OF WCHAR;	257	s, s1: ARRAY 32 OF WCHAR;
258	BEGIN	258	BEGIN
259	IF replaced # 0 THEN	259	IF replaced # 0 THEN
260	s := "replaced: ";	260	s := "replaced: ";
261	U.int2str(replaced, s1);	261	U.int2str(replaced, s1);
262	U.append(s, s1);	262	U.append(s, s1);
263	Message(s);	263	Message(s);
264	replaced := 0;	264	replaced := 0;
265	EditBox_SetFocus(FindEdit, TRUE);	265	EditBox_SetFocus(FindEdit, TRUE);
266	EditBox_SetFocus(ReplaceEdit, FALSE);	266	EditBox_SetFocus(ReplaceEdit, FALSE);
267	EditBox_SetFocus(GotoEdit, FALSE)	267	EditBox_SetFocus(GotoEdit, FALSE)
268	END	268	END
269	END Replaced;	269	END Replaced;
270		270
271		271
272	PROCEDURE toolbarIcons;	272	PROCEDURE toolbarIcons;
273	CONST	273	CONST
274	iconPad = (toolBtnSize - 16) DIV 2;	274	iconPad = (toolBtnSize - Icons.SIZE) DIV 2;
275	VAR	275	VAR
276	x, color: INTEGER;	276	x, color: INTEGER;
277	BEGIN	277	BEGIN
278	x := searchLeft + (toolBtnSize + 5)*2;	278	x := searchLeft + (toolBtnSize + 5)*2;
279	IF text.modified THEN	279	IF text.modified THEN
280	Icons.draw(icons, 5, x + iconPad, btnTop + iconPad)	280	Icons.draw(icons, 5, x + iconPad, btnTop + iconPad)
281	ELSE	281	ELSE
282	Icons.draw(grayIcons, 5, x + iconPad, btnTop + iconPad)	282	Icons.draw(grayIcons, 5, x + iconPad, btnTop + iconPad)
283	END;	283	END;
284		284
285	IF text.edition # NIL THEN	285	IF text.edition # NIL THEN
286	x := searchLeft + (toolBtnSize + 5)4 + toolbarDelim2;	286	x := searchLeft + (toolBtnSize + 5)4 + toolbarDelim2;
287	IF ChangeLog.isFirstGuard(text.edition) THEN	287	IF ChangeLog.isFirstGuard(text.edition) THEN
288	Icons.draw(grayIcons, 37, x + iconPad, btnTop + iconPad)	288	Icons.draw(grayIcons, 37, x + iconPad, btnTop + iconPad)
289	ELSE	289	ELSE
290	Icons.draw(icons, 37, x + iconPad, btnTop + iconPad)	290	Icons.draw(icons, 37, x + iconPad, btnTop + iconPad)
291	END;	291	END;
292		292
293	x := searchLeft + (toolBtnSize + 5)5 + toolbarDelim2;	293	x := searchLeft + (toolBtnSize + 5)5 + toolbarDelim2;
294	IF ChangeLog.isLastGuard(text.edition) THEN	294	IF ChangeLog.isLastGuard(text.edition) THEN
295	Icons.draw(grayIcons, 36, x + iconPad, btnTop + iconPad)	295	Icons.draw(grayIcons, 36, x + iconPad, btnTop + iconPad)
296	ELSE	296	ELSE
297	Icons.draw(icons, 36, x + iconPad, btnTop + iconPad)	297	Icons.draw(icons, 36, x + iconPad, btnTop + iconPad)
298	END	298	END
299	END;	299	END;
300		300
301	IF T.selected(text) THEN	301	IF T.selected(text) THEN
302	color := K.caseColor	302	color := K.caseColor
303	ELSE	303	ELSE
304	color := K.disCaseColor	304	color := K.disCaseColor
305	END;	305	END;
306		306
307	x := searchLeft + (toolBtnSize + 5)6 + toolbarDelim3;	307	x := searchLeft + (toolBtnSize + 5)6 + toolbarDelim3;
308	K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);	308	K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
309	K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "AB");	309	K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "AB");
310	INC(x, toolBtnSize + 5);	310	INC(x, toolBtnSize + 5);
311	K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);	311	K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
312	K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "ab");	312	K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "ab");
313		313
314	x := searchLeft + (toolBtnSize + 5)8 + toolbarDelim4;	314	x := searchLeft + (toolBtnSize + 5)8 + toolbarDelim4;
315	IF buildScript # "" THEN	315	IF buildScript # "" THEN
316	Icons.draw(icons, 54, x + iconPad, btnTop + iconPad)	316	Icons.draw(icons, 54, x + iconPad, btnTop + iconPad)
317	ELSE	317	ELSE
318	Icons.draw(grayIcons, 54, x + iconPad, btnTop + iconPad)	318	Icons.draw(grayIcons, 54, x + iconPad, btnTop + iconPad)
319	END;	319	END;
320	INC(x, toolBtnSize + 5);	320	INC(x, toolBtnSize + 5);
321	IF runScript # "" THEN	321	IF runScript # "" THEN
322	Icons.draw(icons, 53, x + iconPad, btnTop + iconPad)	322	Icons.draw(icons, 53, x + iconPad, btnTop + iconPad)
323	ELSE	323	ELSE
324	Icons.draw(grayIcons, 53, x + iconPad, btnTop + iconPad)	324	Icons.draw(grayIcons, 53, x + iconPad, btnTop + iconPad)
325	END	325	END
326	END toolbarIcons;	326	END toolbarIcons;
327		327
328		328
329	PROCEDURE WriteModified (x, y: INTEGER);	329	PROCEDURE WriteModified (x, y: INTEGER);
330	BEGIN	330	BEGIN
331	modified := text.modified;	331	modified := text.modified;
332	K.DrawRect(x, TOP + canvas.height + scrollWidth - 1, 9*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);	332	K.DrawRect(x, TOP + canvas.height + scrollWidth - 1, 9*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
333	IF modified THEN	333	IF modified THEN
334	K.DrawText866(x, y, K.textColor, "modified")	334	K.DrawText866(x, y, K.textColor, "modified")
335	END	335	END
336	END WriteModified;	336	END WriteModified;
337		337
338		338
339	PROCEDURE repaint;	339	PROCEDURE repaint;
340	VAR	340	VAR
341	width, height, scrollX, scrollY, y: INTEGER;	341	width, height, scrollX, scrollY, y: INTEGER;
342	BEGIN	342	BEGIN
343	IF text # NIL THEN	343	IF text # NIL THEN
344	IF confirm THEN	344	IF confirm THEN
345	K.DeleteButton(btnYes);	345	K.DeleteButton(btnYes);
346	K.DeleteButton(btnNo);	346	K.DeleteButton(btnNo);
347	confirm := FALSE	347	confirm := FALSE
348	END;	348	END;
349	T.draw(text);	349	T.draw(text);
350	K.ClientSize(width, height);	350	K.ClientSize(width, height);
351	y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;	351	y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
352	K.DrawRect(LEFT, TOP + canvas.height + scrollWidth - 1, 16*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);	352	K.DrawRect(LEFT, TOP + canvas.height + scrollWidth - 1, 16*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
353	WritePos(y);	353	WritePos(y);
354		354
355	IF modified # text.modified THEN	355	IF modified # text.modified THEN
356	WriteModified(width - 9*fontWidth, y)	356	WriteModified(width - 9*fontWidth, y)
357	END;	357	END;
358		358
359	T.getScroll(text, scrollX, scrollY);	359	T.getScroll(text, scrollX, scrollY);
360	vScroll.value := scrollY; vScroll.maxVal := text.count - 1;	360	vScroll.value := scrollY; vScroll.maxVal := text.count - 1;
361	hScroll.value := scrollX; hScroll.maxVal := Lines.maxLength;	361	hScroll.value := scrollX; hScroll.maxVal := Lines.maxLength;
362	Scroll.draw(vScroll, LEFT + canvas.width - 1, TOP + scrollWidth - 1);	362	Scroll.draw(vScroll, LEFT + canvas.width - 1, TOP + scrollWidth - 1);
363	Scroll.draw(hScroll, LEFT + scrollWidth, TOP + canvas.height - 1);	363	Scroll.draw(hScroll, LEFT + scrollWidth, TOP + canvas.height - 1);
364		364
365	G.DrawCanvas(canvas, LEFT, TOP);	365	G.DrawCanvas(canvas, LEFT, TOP);
366	NotFound;	366	NotFound;
367	Replaced;	367	Replaced;
368	toolbarIcons	368	toolbarIcons
369	END	369	END
370	END repaint;	370	END repaint;
371		371
372		372
373	PROCEDURE resize;	373	PROCEDURE resize;
374	VAR	374	VAR
375	cliWidth, cliHeight: INTEGER;	375	cliWidth, cliHeight: INTEGER;
376	BEGIN	376	BEGIN
377	K.WinSize(winWidth, winHeight);	377	K.WinSize(winWidth, winHeight);
378	IF winWidth < minWinWidth THEN	378	IF winWidth < minWinWidth THEN
379	winWidth := minWinWidth	379	winWidth := minWinWidth
380	END;	380	END;
381	IF winHeight < minWinHeight THEN	381	IF winHeight < minWinHeight THEN
382	winHeight := minWinHeight	382	winHeight := minWinHeight
383	END;	383	END;
384	K.SetWinSize(winWidth, winHeight);	384	K.SetWinSize(winWidth, winHeight);
385	K.WinSize(winWidth, winHeight);	385	K.WinSize(winWidth, winHeight);
386	K.ClientSize(cliWidth, cliHeight);	386	K.ClientSize(cliWidth, cliHeight);
387	G.destroy(canvas);	387	G.destroy(canvas);
388	canvas := G.CreateCanvas(cliWidth - (LEFT + RIGHT + 1), cliHeight - (TOP + BOTTOM));	388	canvas := G.CreateCanvas(cliWidth - (LEFT + RIGHT + 1), cliHeight - (TOP + BOTTOM));
389	G.SetFont(canvas, font);	389	G.SetFont(canvas, font);
390	T.setCanvas(canvas);	390	T.setCanvas(canvas);
391	T.resize(canvas.width, canvas.height);	391	T.resize(canvas.width, canvas.height);
392	Scroll.resize(vScroll, vScroll.xSize, canvas.height - scrollWidth*2 + 1);	392	Scroll.resize(vScroll, vScroll.xSize, canvas.height - scrollWidth*2 + 1);
393	Scroll.resize(hScroll, canvas.width - scrollWidth*2, hScroll.ySize);	393	Scroll.resize(hScroll, canvas.width - scrollWidth*2, hScroll.ySize);
394	END resize;	394	END resize;
395		395
396		396
397	PROCEDURE SearchPanel (left, top: INTEGER);	397	PROCEDURE SearchPanel (left, top: INTEGER);
398	VAR	398	VAR
399	y, right, bottom, color: INTEGER;	399	y, right, bottom, color: INTEGER;
400	BEGIN	400	BEGIN
401	right := left + EditBox_Width + SEARCH_PADDING*2;	401	right := left + EditBox_Width + SEARCH_PADDING*2;
402	bottom := top + 395 + btnHeight + SEARCH_PADDING;	402	bottom := top + 395 + btnHeight + SEARCH_PADDING;
403	color := K.borderColor;	403	color := K.borderColor;
404	Rect(left, top, right, bottom, color);	404	Rect(left, top, right, bottom, color);
405	K.CreateButton(btnCloseFind, right - 20, top, 20, 20, 0EF999FH, "");	405	K.CreateButton(btnCloseFind, right - 20, top, 20, 20, 0EF999FH, "");
406	K.DrawLine(right - 14, top + 5, right - 5, top + 14, 0FFFFFFH);	406	K.DrawLine(right - 14, top + 5, right - 5, top + 14, 0FFFFFFH);
407	K.DrawLine(right - 15, top + 5, right - 5, top + 15, 0FFFFFFH);	407	K.DrawLine(right - 15, top + 5, right - 5, top + 15, 0FFFFFFH);
408	K.DrawLine(right - 15, top + 6, right - 6, top + 15, 0FFFFFFH);	408	K.DrawLine(right - 15, top + 6, right - 6, top + 15, 0FFFFFFH);
409	K.DrawLine(right - 15, top + 14, right - 6, top + 5, 0FFFFFFH);	409	K.DrawLine(right - 15, top + 14, right - 6, top + 5, 0FFFFFFH);
410	K.DrawLine(right - 15, top + 15, right - 5, top + 5, 0FFFFFFH);	410	K.DrawLine(right - 15, top + 15, right - 5, top + 5, 0FFFFFFH);
411	K.DrawLine(right - 14, top + 15, right - 5, top + 6, 0FFFFFFH);	411	K.DrawLine(right - 14, top + 15, right - 5, top + 6, 0FFFFFFH);
412		412
413	INC(top, 15);	413	INC(top, 15);
414	INC(left, SEARCH_PADDING);	414	INC(left, SEARCH_PADDING);
415	K.DrawText866(left, top, K.textColor, "find");	415	K.DrawText866(left, top, K.textColor, "find");
416	K.DrawText866(left, top + 55, K.textColor, "replace with");	416	K.DrawText866(left, top + 55, K.textColor, "replace with");
417	K.CreateButton(btnFindEdit + ORD({30}), left, top + 20, EditBox_Width, fontHeight + 5, 0, "");	417	K.CreateButton(btnFindEdit + ORD({30}), left, top + 20, EditBox_Width, fontHeight + 5, 0, "");
418	K.CreateButton(btnReplaceEdit + ORD({30}), left, top + 75, EditBox_Width, fontHeight + 5, 0, "");	418	K.CreateButton(btnReplaceEdit + ORD({30}), left, top + 75, EditBox_Width, fontHeight + 5, 0, "");
419	K.DrawText866(left, top + 330, K.textColor, "go to line");	419	K.DrawText866(left, top + 330, K.textColor, "go to line");
420	K.CreateButton(btnGotoEdit + ORD({30}), left, top + 350, EditBox_Width, fontHeight + 5, 0, "");	420	K.CreateButton(btnGotoEdit + ORD({30}), left, top + 350, EditBox_Width, fontHeight + 5, 0, "");
421	BKW.top_s := BKW.top_s MOD 65536 + (top + 110) * 65536;	421	BKW.top_s := BKW.top_s MOD 65536 + (top + 110) * 65536;
422	CS.top_s := CS.top_s MOD 65536 + (top + 140) * 65536;	422	CS.top_s := CS.top_s MOD 65536 + (top + 140) * 65536;
423	WH.top_s := WH.top_s MOD 65536 + (top + 170) * 65536;	423	WH.top_s := WH.top_s MOD 65536 + (top + 170) * 65536;
424	BKW.left_s := BKW.left_s MOD 65536 + left * 65536;	424	BKW.left_s := BKW.left_s MOD 65536 + left * 65536;
425	CS.left_s := CS.left_s MOD 65536 + left * 65536;	425	CS.left_s := CS.left_s MOD 65536 + left * 65536;
426	WH.left_s := WH.left_s MOD 65536 + left * 65536;	426	WH.left_s := WH.left_s MOD 65536 + left * 65536;
427	FindEdit.top := top + 20;	427	FindEdit.top := top + 20;
428	ReplaceEdit.top := top + 75;	428	ReplaceEdit.top := top + 75;
429	GotoEdit.top := top + 350;	429	GotoEdit.top := top + 350;
430	FindEdit.left := left;	430	FindEdit.left := left;
431	ReplaceEdit.left := left;	431	ReplaceEdit.left := left;
432	GotoEdit.left := left;	432	GotoEdit.left := left;
433	box_lib.edit_box_draw(FindEdit);	433	box_lib.edit_box_draw(FindEdit);
434	box_lib.edit_box_draw(ReplaceEdit);	434	box_lib.edit_box_draw(ReplaceEdit);
435	box_lib.edit_box_draw(GotoEdit);	435	box_lib.edit_box_draw(GotoEdit);
436	box_lib.check_box_draw2(BKW); K.DrawText866(left + 20, top + 110, K.textColor, "backward");	436	box_lib.check_box_draw2(BKW); K.DrawText866(left + 20, top + 110, K.textColor, "backward");
437	box_lib.check_box_draw2(CS); K.DrawText866(left + 20, top + 140, K.textColor, "match case");	437	box_lib.check_box_draw2(CS); K.DrawText866(left + 20, top + 140, K.textColor, "match case");
438	box_lib.check_box_draw2(WH); K.DrawText866(left + 20, top + 170, K.textColor, "whole word");	438	box_lib.check_box_draw2(WH); K.DrawText866(left + 20, top + 170, K.textColor, "whole word");
439	y := top + 200;	439	y := top + 200;
440	K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.btnColor, "next"); INC(y, btnHeight + 10);	440	K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.btnColor, "next"); INC(y, btnHeight + 10);
441	K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.btnColor, "replace"); INC(y, btnHeight + 10);	441	K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.btnColor, "replace"); INC(y, btnHeight + 10);
442	K.CreateButton(btnReplaceAll, left, y, btnWidth + 5*fontWidth - 2, btnHeight, K.btnColor, "replace all");	442	K.CreateButton(btnReplaceAll, left, y, btnWidth + 5*fontWidth - 2, btnHeight, K.btnColor, "replace all");
443	K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.btnColor, "go");	443	K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.btnColor, "go");
444	END SearchPanel;	444	END SearchPanel;
445		445
446		446
447	PROCEDURE draw_window;	447	PROCEDURE draw_window;
448	CONST	448	CONST
449	iconPad = (toolBtnSize - 16) DIV 2;	449	iconPad = (toolBtnSize - Icons.SIZE) DIV 2;
450	VAR	450	VAR
451	width, height, x, y: INTEGER;	451	width, height, x, y: INTEGER;
452		452
453		453
454	PROCEDURE drawToolbarBtn (id, x: INTEGER);	454	PROCEDURE drawToolbarBtn (id, x: INTEGER);
455	BEGIN	455	BEGIN
456	K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);	456	K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
457	K.DrawLine(x, btnTop + toolBtnSize, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);	457	K.DrawLine(x, btnTop + toolBtnSize, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);
458	K.DrawLine(x + toolBtnSize, btnTop, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);	458	K.DrawLine(x + toolBtnSize, btnTop, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);
459	K.CreateButton(id + ORD({30}), x, btnTop, toolBtnSize, toolBtnSize, K.btnColor, "");	459	K.CreateButton(id + ORD({30}), x, btnTop, toolBtnSize, toolBtnSize, K.btnColor, "");
460	END drawToolbarBtn;	460	END drawToolbarBtn;
461		461
462		462
463	PROCEDURE drawMainMenu (menu: Menu.tMenu; x: INTEGER; btn: INTEGER; caption: ARRAY OF WCHAR);	463	PROCEDURE drawMainMenu (menu: Menu.tMenu; x: INTEGER; btn: INTEGER; caption: ARRAY OF WCHAR);
464	VAR	464	VAR
465	menuColor, textColor, n: INTEGER;	465	menuColor, textColor, n: INTEGER;
466	BEGIN	466	BEGIN
467	IF menu.tid # 0 THEN	467	IF menu.tid # 0 THEN
468	menuColor := K.textColor;	468	menuColor := K.textColor;
469	textColor := K.winColor	469	textColor := K.winColor
470	ELSE	470	ELSE
471	menuColor := K.winColor;	471	menuColor := K.winColor;
472	textColor := K.textColor	472	textColor := K.textColor
473	END;	473	END;
474	n := LENGTH(caption);	474	n := LENGTH(caption);
475	K.DrawRect(x, 0, n*fontWidth + 2, MainMenuHeight, menuColor);	475	K.DrawRect(x, 0, n*fontWidth + 2, MainMenuHeight, menuColor);
476	K.CreateButton(btn + ORD({30}), x, 0, n*fontWidth + 2, MainMenuHeight, K.btnColor, "");	476	K.CreateButton(btn + ORD({30}), x, 0, n*fontWidth + 2, MainMenuHeight, K.btnColor, "");
477	K.DrawText(x + 1, (MainMenuHeight - fontHeight) DIV 2 + 1, textColor, caption)	477	K.DrawText(x + 1, (MainMenuHeight - fontHeight) DIV 2 + 1, textColor, caption)
478	END drawMainMenu;	478	END drawMainMenu;
479		479
480		480
481	BEGIN	481	BEGIN
482	K.BeginDraw;	482	K.BeginDraw;
483	K.CreateWindow(30 + K.GetTickCount() MOD 128, 30 + K.GetTickCount() MOD 128, winWidth, winHeight, K.winColor, 73H, 0, 0, header);	483	K.CreateWindow(30 + K.GetTickCount() MOD 128, 30 + K.GetTickCount() MOD 128, winWidth, winHeight, K.winColor, 73H, 0, 0, header);
484	IF (text # NIL) & ~K.RolledUp() THEN	484	IF (text # NIL) & ~K.RolledUp() THEN
485	confirm := FALSE;	485	confirm := FALSE;
486	K.ClientSize(width, height);	486	K.ClientSize(width, height);
487		487
488	K.DrawRect(0, 0, width, TOP, K.winColor);	488	K.DrawRect(0, 0, width, TOP, K.winColor);
489	K.DrawRect(0, 0, LEFT, height, K.winColor);	489	K.DrawRect(0, 0, LEFT, height, K.winColor);
490	K.DrawRect(LEFT + canvas.width - 1, TOP + canvas.height - 1, scrollWidth, scrollWidth, K.winColor);	490	K.DrawRect(LEFT + canvas.width - 1, TOP + canvas.height - 1, scrollWidth, scrollWidth, K.winColor);
491		491
492	drawMainMenu(menuFile, menuFileX, btnFile, "file");	492	drawMainMenu(menuFile, menuFileX, btnFile, "file");
493	drawMainMenu(menuEdit, menuEditX, btnEdit, "edit");	493	drawMainMenu(menuEdit, menuEditX, btnEdit, "edit");
494	drawMainMenu(menuEncoding, menuEncodingX, btnEncoding, "encoding");	494	drawMainMenu(menuEncoding, menuEncodingX, btnEncoding, "encoding");
495	drawMainMenu(menuView, menuViewX, btnView, "view");	495	drawMainMenu(menuView, menuViewX, btnView, "view");
496	drawMainMenu(menuSyntax, menuSyntaxX, btnSyntax, "syntax");	496	drawMainMenu(menuSyntax, menuSyntaxX, btnSyntax, "syntax");
497	drawMainMenu(menuProgram, menuProgramX, btnProgram, "program");	497	drawMainMenu(menuProgram, menuProgramX, btnProgram, "program");
498	drawMainMenu(menuTools, menuToolsX, btnTools, "tools");	498	drawMainMenu(menuTools, menuToolsX, btnTools, "tools");
499		499
500	x := searchLeft;	500	x := searchLeft;

Subversion Repositories Kolibri OS

(root)/programs/develop/cedit/SRC/CEdit.ob07 – Rev 8772 → 8848