Subversion Repositories Kolibri OS

Rev

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

Rev 9175 Rev 9180
Line 122... Line 122...
122 
    disSelForeColor := disForeColor;
 122 
    disSelForeColor := disForeColor;
123 
*)
 123 
*)
124 
    canvas := m.canvas;
 124 
    canvas := m.canvas;
125 
    G.SetColor(canvas, backColor);
 125 
    G.SetColor(canvas, backColor);
126 
    G.clear(canvas);
 126 
    G.clear(canvas);
127 
    G.SetColor(canvas, ORD((-BITS(backColor))*{0..23}) );
 127 
    G.SetColor(canvas, foreColor);
128 
    G.Rect(canvas, 0, 0, m.width, m.height);
 128 
    G.Rect(canvas, 0, 0, m.width, m.height);
129 
    y := TOP;
 129 
    y := TOP;
130 
    i := 0;
 130 
    i := 0;
131 
    item := m.items.first(tItem);
 131 
    item := m.items.first(tItem);
132 
    WHILE item # NIL DO
 132 
    WHILE item # NIL DO
Line 170... Line 170...
170 
        	G.Triangle(canvas, X, Y1, X, Y2, G.triRight)
 170 
        	G.Triangle(canvas, X, Y1, X, Y2, G.triRight)
171 
        END;
 171 
        END;
Line 172... Line 172...
172 
 
 172 
 
173 
        INC(y, fontHeight);
 173 
        INC(y, fontHeight);
174 
        IF item.delim THEN
 174 
        IF item.delim THEN
175 
            G.SetColor(canvas, ORD((-BITS(backColor))*{0..23}));
 175 
            G.SetColor(canvas, foreColor);
176 
            G.HLine(canvas, y - 2, 1, m.width - 1)
 176 
            G.HLine(canvas, y - 2, 1, m.width - 1)
177 
        END;
 177 
        END;
178 
        INC(i);
 178 
        INC(i);
179 
        item := item.next(tItem)
 179 
        item := item.next(tItem)