Subversion Repositories Kolibri OS

Rev

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

Rev 9073 Rev 9174
Line 24... Line 24...
24 
CONST
 24 
CONST
Line 25... Line 25...
25 
 
 25 
 
26 
    btnID* = 100;
 26 
    btnID* = 100;
27 
    tabHeight* = 22;
 27 
    tabHeight* = 22;
28 
    curTabHeight = 26;
 28 
    curTabHeight = 26;
29 
    scrWidth = 10;
 - 
 
Line 30... Line 29...
30 
 
 29 
    scrWidth = 15;
Line 31... Line 30...
31 
 
 30 
 
Line 103... Line 102...
103 
    item: List.tItem;
 102 
    item: List.tItem;
104 
    scroll: BOOLEAN;
 103 
    scroll: BOOLEAN;
105 
BEGIN
 104 
BEGIN
106 
    y := t.y;
 105 
    y := t.y;
107 
    x := t.x;
 106 
    x := t.x;
108 
    K.DrawRect(x, y - (curTabHeight - tabHeight), t.width + 2*scrWidth, t.height + (curTabHeight - tabHeight) - 1, K.winColor);
 107 
    K.DrawRect(x, y - (curTabHeight - tabHeight), t.width + (2*scrWidth + 2), t.height + (curTabHeight - tabHeight) - 1, K.winColor);
109 
    IF Width(t, 0, t.strings.count - 1) > t.width THEN
 108 
    IF Width(t, 0, t.strings.count - 1) > t.width THEN
110 
        INC(x, 2*scrWidth);
 109 
        INC(x, 2*scrWidth);
111 
        K.CreateButton(btnID - 1, t.x, t.y, scrWidth, t.height - 1, K.btnColor, "<");
 110 
        K.CreateButton(btnID - 1, t.x, t.y, scrWidth, t.height - 1, K.btnColor, "<");
112 
        K.CreateButton(btnID - 2, t.x + scrWidth, t.y, scrWidth, t.height - 1, K.btnColor, ">");
 111 
        K.CreateButton(btnID - 2, t.x + scrWidth, t.y, scrWidth, t.height - 1, K.btnColor, ">");
113 
        scroll := TRUE
 112 
        scroll := TRUE