Subversion Repositories Kolibri OS

Rev

Rev 9577 | Rev 9628 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9577 Rev 9599
Line 26... Line 26...
26 
    CB := Clipboard, Languages,
 26 
    CB := Clipboard, Languages,
27 
    ChangeLog, Scroll, CheckBox,
 27 
    ChangeLog, Scroll, CheckBox,
28 
    RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;
 28 
    RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar;
Line 29... Line 29...
29 
 
 29 
 
30 
CONST
 30 
CONST
Line 31... Line 31...
31 
    HEADER = "CEdit (05-jan-2022)";
 31 
    HEADER = "CEdit (08-jan-2022)";
32 
 
 32 
 
Line 33... Line 33...
33 
    ShellFilter = "";
 33 
    ShellFilter = "";
Line 402... Line 402...
402 
	        CheckBox.paint(BKW);
 402 
	        CheckBox.paint(BKW);
403 
	        CheckBox.paint(CS);
 403 
	        CheckBox.paint(CS);
404 
	        CheckBox.paint(WH);
 404 
	        CheckBox.paint(WH);
405 
        END;
 405 
        END;
Line -... Line 406...
- 
 
 406 
 
- 
 
 407 
		G.SetColor(canvas, K.borderColor);
406 
 
 408 
		G.VLine(canvas, 0, 0, canvas.height - 1);
407 
        G.DrawCanvas(canvas, LEFT, TOP);
 409 
        G.DrawCanvas(canvas, LEFT, TOP);
408 
        NotFound;
 410 
        NotFound;
409 
        Replaced;
 411 
        Replaced;
410 
        Toolbar.enable(toolbar, btnSave,  text.modified);
 412 
        Toolbar.enable(toolbar, btnSave,  text.modified);
Line 1950... Line 1952...
1950 
VAR
 1952 
VAR
1951 
    err: INTEGER;
 1953 
    err: INTEGER;
1952 
    fileName, filePath: RW.tFileName;
 1954 
    fileName, filePath: RW.tFileName;
1953 
    width, height, cliWidth, cliHeight: INTEGER;
 1955 
    width, height, cliWidth, cliHeight: INTEGER;
1954 
    resized: BOOLEAN;
 1956 
    resized: BOOLEAN;
1955 
    firstClickX, firstClickY, time: INTEGER;
 1957 
    firstClickX, firstClickY, time, blink: INTEGER;
1956 
BEGIN
 1958 
BEGIN
1957 
	header := "";
 1959 
	header := "";
1958 
    K.GetSystemColors;
 1960 
    K.GetSystemColors;
1959 
    switch := FALSE;
 1961 
    switch := FALSE;
1960 
    closing := FALSE;
 1962 
    closing := FALSE;
Line 2064... Line 2066...
2064 
    whole := FALSE;
 2066 
    whole := FALSE;
2065 
    replaced := 0;
 2067 
    replaced := 0;
2066 
    K.SetEventsMask({0, 1, 2, 5, 6, 31});
 2068 
    K.SetEventsMask({0, 1, 2, 5, 6, 31});
2067 
    Menu.init(resetTimer);
 2069 
    Menu.init(resetTimer);
2068 
    draw_window;
 2070 
    draw_window;
- 
 
 2071 
    blink := Ini.blink;
- 
 
 2072 
	IF blink <= 0 THEN
- 
 
 2073 
		blink := 0
- 
 
 2074 
	ELSIF blink < 30 THEN
- 
 
 2075 
		blink := 30
- 
 
 2076 
	END;
2069 
    timerEnabled := TRUE;
 2077 
    timerEnabled := TRUE;
2070 
    CursorTime := K.GetTickCount();
 2078 
    CursorTime := K.GetTickCount();
2071 
    WHILE TRUE DO
 2079 
    WHILE TRUE DO
2072 
    	CurrentTime := K.GetTickCount();
 2080 
    	CurrentTime := K.GetTickCount();
2073 
    	IF (CurrentTime - CursorTime > Ini.blink) & timerEnabled THEN
 2081 
    	IF (CurrentTime - CursorTime > blink) & (blink > 0) & timerEnabled THEN
2074 
    		CursorTime := CurrentTime;
 2082 
    		CursorTime := CurrentTime;
2075 
    		T.toggleCursor;
 2083 
    		T.toggleCursor;
2076 
    		repaint
 2084 
    		repaint
2077 
    	END;
 2085 
    	END;
2078 
        CASE K.EventTimeout(10) OF
 2086 
        CASE K.EventTimeout(10) OF