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

Subversion Repositories Kolibri OS

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