Subversion Repositories Kolibri OS

Rev

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

Rev 9174 Rev 9175
Line 51... Line 51...
51 
    x2, y2, color: INTEGER;
 51 
    x2, y2, color: INTEGER;
52 
BEGIN
 52 
BEGIN
53 
    IF id = t.current THEN
 53 
    IF id = t.current THEN
54 
        INC(height, curTabHeight - tabHeight);
 54 
        INC(height, curTabHeight - tabHeight);
55 
        DEC(y, curTabHeight - tabHeight);
 55 
        DEC(y, curTabHeight - tabHeight);
56 
        (*color := K.lightColor
 56 
        color := K.lightColor
57 
    ELSE
 57 
    ELSE
58 
        color := K.darkColor*)
 58 
        color := K.winColor
59 
    END;
 59 
    END;
60 
    color := K.winColor;
 - 
 
61 
    DEC(x); INC(width);
 60 
    DEC(x); INC(width);
62 
    x2 := x + width - 1;
 61 
    x2 := x + width - 1;
63 
    y2 := y + height - 1;
 62 
    y2 := y + height - 1;
Line 64... Line 63...
64 
 
 63