Subversion Repositories Kolibri OS

Rev

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

Rev 9174 Rev 9175
Line 74... Line 74...
74 
    stack: ARRAY maxLEVEL + 1, 250000 OF INTEGER;
 74 
    stack: ARRAY maxLEVEL + 1, 250000 OF INTEGER;
75 
    TIDs: ARRAY maxLEVEL + 1 OF INTEGER;
 75 
    TIDs: ARRAY maxLEVEL + 1 OF INTEGER;
76 
    resetTimer: tProc;
 76 
    resetTimer: tProc;
77 
    _open: PROCEDURE (m: tMenu; x, y: INTEGER);
 77 
    _open: PROCEDURE (m: tMenu; x, y: INTEGER);
78 
    redraw*: BOOLEAN;
 78 
    redraw*: BOOLEAN;
- 
 
 79 
(*
- 
 
 80 
    backColor, foreColor, selBackColor, selForeColor,
- 
 
 81 
    disBackColor, disForeColor, disSelBackColor, disSelForeColor: INTEGER;
79 
 
 82 
*)
Line 80... Line 83...
80 
 
 83 
 
81 
PROCEDURE isSender* (tid: INTEGER): BOOLEAN;
 84 
PROCEDURE isSender* (tid: INTEGER): BOOLEAN;
82 
VAR
 85 
VAR
83 
	i: INTEGER;
 86 
	i: INTEGER;
Line 105... Line 108...
105 
    item: tItem;
 108 
    item: tItem;
106 
    BkColor, TextColor: INTEGER;
 109 
    BkColor, TextColor: INTEGER;
107 
    canvas: G.tCanvas;
 110 
    canvas: G.tCanvas;
Line 108... Line 111...
108 
 
 111 
 
- 
 
 112 
BEGIN
- 
 
 113 
(*
- 
 
 114 
    backColor := K.winColor;
- 
 
 115 
    foreColor := K.textColor;
- 
 
 116 
    selBackColor := K.btnColor;
- 
 
 117 
    selForeColor := K.btnTextColor;
- 
 
 118 
 
- 
 
 119 
    disBackColor := backColor;
- 
 
 120 
    disForeColor := K.darkColor;
- 
 
 121 
    disSelBackColor := K.lightColor;
- 
 
 122 
    disSelForeColor := disForeColor;
109 
BEGIN
 123 
*)
110 
    canvas := m.canvas;
 124 
    canvas := m.canvas;
111 
    G.SetColor(canvas, backColor);
 125 
    G.SetColor(canvas, backColor);
112 
    G.clear(canvas);
 126 
    G.clear(canvas);
113 
    G.SetColor(canvas, ORD((-BITS(backColor))*{0..23}) );
 127 
    G.SetColor(canvas, ORD((-BITS(backColor))*{0..23}) );