Subversion Repositories Kolibri OS

Rev

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

Rev 9210 Rev 9295
Line 1963... Line 1963...
1963 
END selectWord;
 1963 
END selectWord;
Line 1964... Line 1964...
1964 
 
 1964 
 
1965 
 
 1965 
 
1966 
PROCEDURE cursor (text: tText);
 1966 
PROCEDURE cursor (text: tText);
1967 
VAR
 1967 
VAR
1968 
    x, y, h: INTEGER;
 1968 
    x, y1, y2, scrollX, scrollY: INTEGER;
1969 
    cursor: pPoint;
 1969 
    cursor: pPoint;
- 
 
 1970 
BEGIN
- 
 
 1971 
    cursor := text.cursor;
1970 
BEGIN
 1972 
    scrollX := text.scroll.X;
1971 
    cursor := text.cursor;
 1973 
    scrollY := text.scroll.Y;
1972 
    IF ~((text.scroll.Y > cursor.Y) OR (text.scroll.Y + textsize.Y <= cursor.Y) OR
 1974 
    IF ~((scrollY > cursor.Y) OR (scrollY + textsize.Y <= cursor.Y) OR
1973 
       (text.scroll.X > cursor.X) OR (text.scroll.X + textsize.X <= cursor.X)) THEN
 1975 
       (scrollX > cursor.X) OR (scrollX + textsize.X <= cursor.X)) THEN
1974 
        x := (cursor.X - text.scroll.X)*charWidth + padding.left;
 1976 
        x := (cursor.X - scrollX)*charWidth + padding.left;
1975 
        y := (cursor.Y - text.scroll.Y)*charHeight + 1 + padding.top;
 1977 
        y1 := (cursor.Y - scrollY)*charHeight + padding.top + (inter DIV 2 + 1);
1976 
        h := charHeight - 2;
 1978 
        y2 := y1 + charHeight - (inter + 2);
1977 
        G.notVLine(canvas, x, y + inter DIV 2, y + h - inter DIV 2);
 1979 
        G.notVLine(canvas, x, y1, y2);
1978 
        G.notVLine(canvas, x - 1, y + inter DIV 2, y + h - inter DIV 2)
 1980 
        G.notVLine(canvas, x - 1, y1, y2)
Line 1979... Line 1981...
1979 
    END
 1981 
    END