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



    CB := Clipboard, Languages,
    ChangeLog, Scroll,
    RW, Ini, box_lib, Icons;

 
CONST

    header = "CEdit (15-jun-2021)";
 

    ShellFilter = "";

    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;

    END
END Replaced;

 
 
 
 
PROCEDURE toolbarIcons;
VAR
    x, color: INTEGER;
BEGIN

 
 
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")

        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);

    K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.btnColor, "go");
END SearchPanel;

 
 
 
 
PROCEDURE draw_window;

VAR

 
        drawToolbarBtn(btnLower, x);

        INC(x, toolBtnSize + 5 + toolbarDelim);
 
 

        drawToolbarBtn(btnBuild, x);
 
        INC(x, toolBtnSize + 5);

 
        drawToolbarBtn(btnRun, x);
        INC(x, toolBtnSize + 5);
 
        toolbarIcons;
 

        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;

 
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

    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);

Rev 8848	Rev 8859
Line 26...	Line 26...
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;
Line 29...	Line 29...
29		29
30	CONST	30	CONST
Line 31...	Line 31...
31	header = "CEdit (14-jun-2021)";	31	header = "CEdit (15-jun-2021)";
32		32
Line 33...	Line 33...
33	ShellFilter = "";	33	ShellFilter = "";
Line 76...	Line 76...
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;
Line 81...	Line 82...
81		82
82	TOP = btnTop + toolBtnSize + 7;	83	TOP = btnTop + toolBtnSize + 7;
83	RIGHT = scrollWidth - 2;	84	RIGHT = scrollWidth - 2;
Line 84...	Line 85...
84	BOTTOM = scrollWidth + 25;	85	BOTTOM = scrollWidth + 18;
Line 85...	Line 86...
85		86
86	minWinWidth = 635; minWinHeight = 542;	87	minWinWidth = 635; minWinHeight = 542;
87		88
88	SEARCH_PADDING = 10;	89	SEARCH_PADDING = 10;
Line 89...	Line 90...
89	searchLeft = 10;	90	searchLeft = 0;
90	EditBox_Width = 180;	91	EditBox_Width = 180;
Line 268...	Line 269...
268	END	269	END
269	END Replaced;	270	END Replaced;
Line 270...	Line 271...
270		271
271		-
272	PROCEDURE toolbarIcons;	-
273	CONST	272
274	iconPad = (toolBtnSize - Icons.SIZE) DIV 2;	273	PROCEDURE toolbarIcons;
275	VAR	274	VAR
276	x, color: INTEGER;	275	x, color: INTEGER;
277	BEGIN	276	BEGIN
Line 327...	Line 326...
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")
Line 351...	Line 350...
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);
Line 354...	Line 353...
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)
Line 357...	Line 356...
357	END;	356	END;
358		357
359	T.getScroll(text, scrollX, scrollY);	358	T.getScroll(text, scrollX, scrollY);
Line 443...	Line 442...
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;
Line 445...	Line 444...
445		444
446		-
447	PROCEDURE draw_window;	-
448	CONST	445
449	iconPad = (toolBtnSize - Icons.SIZE) DIV 2;	446	PROCEDURE draw_window;
Line 450...	Line 447...
450	VAR	447	VAR
Line 525...	Line 522...
525		522
526	drawToolbarBtn(btnLower, x);	523	drawToolbarBtn(btnLower, x);
Line 527...	Line 524...
527	INC(x, toolBtnSize + 5 + toolbarDelim);	524	INC(x, toolBtnSize + 5 + toolbarDelim);
528		-
529	drawToolbarBtn(btnBuild, x);	525
Line 530...	Line 526...
530	Icons.draw(icons, 54, x + iconPad, btnTop + iconPad);	526	drawToolbarBtn(btnBuild, x);
531	INC(x, toolBtnSize + 5);	-
532		527	INC(x, toolBtnSize + 5);
Line -...	Line 528...
-		528
-		529	drawToolbarBtn(btnRun, x);
533	drawToolbarBtn(btnRun, x);	530	INC(x, toolBtnSize + 5);
534	Icons.draw(icons, 53, x + iconPad, btnTop + iconPad);	531
535	INC(x, toolBtnSize + 5);	532	toolbarIcons;
536		533
Line 547...	Line 544...
547	K.PutPixel(LEFT + canvas.width + scrollWidth - 2, TOP, K.winColor);	544	K.PutPixel(LEFT + canvas.width + scrollWidth - 2, TOP, K.winColor);
548	K.PutPixel(LEFT, TOP + canvas.height + scrollWidth - 2, K.winColor);	545	K.PutPixel(LEFT, TOP + canvas.height + scrollWidth - 2, K.winColor);
Line 549...	Line 546...
549		546
550	y := (btnHeight - fontHeight) DIV 2 + btnTop;	547	y := (btnHeight - fontHeight) DIV 2 + btnTop;
551	CASE text.enc OF	548	CASE text.enc OF
552	\|E.UTF8: K.DrawText866(width - 6*fontWidth, y, K.textColor, "UTF-8")	549	\|E.UTF8: K.DrawText866(width - 5*fontWidth, y, K.textColor, "UTF-8")
553	\|E.UTF8BOM: K.DrawText866(width - 10*fontWidth, y, K.textColor, "UTF-8-BOM")	550	\|E.UTF8BOM: K.DrawText866(width - 9*fontWidth, y, K.textColor, "UTF-8-BOM")
554	\|E.CP866: K.DrawText866(width - 6*fontWidth, y, K.textColor, "CP866")	551	\|E.CP866: K.DrawText866(width - 5*fontWidth, y, K.textColor, "CP866")
555	\|E.W1251: K.DrawText866(width - 13*fontWidth, y, K.textColor, "Windows-1251")	552	\|E.W1251: K.DrawText866(width - 12*fontWidth, y, K.textColor, "Windows-1251")
556	END;	553	END;
557	IF search THEN	554	IF search THEN
558	SearchPanel(searchLeft, TOP)	555	SearchPanel(searchLeft, TOP)
Line 559...	Line 556...
559	END;	556	END;
560		557
561	y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;	558	y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
562	K.DrawRect(LEFT + 16fontWidth, TOP + canvas.height + scrollWidth - 1, width - LEFT - 25fontWidth, BOTTOM - scrollWidth + 1, K.winColor);	559	K.DrawRect(LEFT + 16fontWidth, TOP + canvas.height + scrollWidth - 1, width - LEFT - 24fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
563	K.DrawText866(LEFT + 16*fontWidth, y, K.textColor, text.fileName);	560	K.DrawText866(LEFT + 16*fontWidth, y, K.textColor, text.fileName);
564	WriteModified(width - 9*fontWidth, y);	561	WriteModified(width - 8*fontWidth, y);
565	repaint	562	repaint
566	END;	563	END;
Line 751...	Line 748...
751		748
752	PROCEDURE Search;	749	PROCEDURE Search;
753	BEGIN	750	BEGIN
754	search := ~search;	751	search := ~search;
755	IF search THEN	752	IF search THEN
756	LEFT := searchLeft + EditBox_Width + SEARCH_PADDING*3;	753	LEFT := searchLeft + EditBox_Width + SEARCH_PADDING*2 + 5;
757	IF T.search(text, searchText, cs, whole) THEN END	754	IF T.search(text, searchText, cs, whole) THEN END
758	ELSE	755	ELSE
759	LEFT := searchLeft;	756	LEFT := searchLeft;
760	IF T.search(text, "", FALSE, FALSE) THEN END	757	IF T.search(text, "", FALSE, FALSE) THEN END
Line 1243...	Line 1240...
1243	winHeight := winHeight - (128 + 30);	1240	winHeight := winHeight - (128 + 30);
1244	winWidth := MAX(winWidth, minWinWidth);	1241	winWidth := MAX(winWidth, minWinWidth);
1245	winHeight := MAX(winHeight, minWinHeight);	1242	winHeight := MAX(winHeight, minWinHeight);
1246	cliWidth := winWidth;	1243	cliWidth := winWidth;
1247	cliHeight := winHeight;	1244	cliHeight := winHeight;
1248	LEFT := 10;	1245	LEFT := searchLeft;
1249	canvas := G.CreateCanvas(winWidth - (LEFT + RIGHT + 10), winHeight - (TOP + BOTTOM + 4) - K.SkinHeight());	1246	canvas := G.CreateCanvas(winWidth - (LEFT + RIGHT + 10), winHeight - (TOP + BOTTOM + 4) - K.SkinHeight());
1250	font1 := G.CreateFont(1, "", {});	1247	font1 := G.CreateFont(1, "", {});
1251	font2 := G.CreateFont(2, "", {});	1248	font2 := G.CreateFont(2, "", {});
1252	font := font1;	1249	font := font1;
1253	G.SetFont(canvas, font);	1250	G.SetFont(canvas, font);

Subversion Repositories Kolibri OS

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