Rev 9659 | Rev 9893 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9659 | Rev 9668 | ||
---|---|---|---|
Line 54... | Line 54... | ||
54 | SYSTEM.GET(img + 8, height); |
54 | SYSTEM.GET(img + 8, height); |
55 | SYSTEM.GET(img + 24, data); |
55 | SYSTEM.GET(img + 24, data); |
56 | END GetInf; |
56 | END GetInf; |
Line 57... | Line 57... | ||
57 | 57 | ||
58 | 58 | ||
59 | PROCEDURE GetImg* (ptr, size: INTEGER): INTEGER; |
59 | PROCEDURE GetImg (ptr, size: INTEGER): INTEGER; |
60 | VAR |
60 | VAR |
61 | image_data, dst, x, type: INTEGER; |
61 | image_data, dst, x, type: INTEGER; |
62 | BEGIN |
62 | BEGIN |
Line 131... | Line 131... | ||
131 | iconsBackColor(grayIcons, BackColor); |
131 | iconsBackColor(grayIcons, BackColor); |
132 | iconsBackColor(icons, BackColor) |
132 | iconsBackColor(icons, BackColor) |
133 | (*ELSE |
133 | (*ELSE |
134 | copy(source, icons); |
134 | copy(source, icons); |
135 | copy(source, grayIcons)*) |
135 | copy(source, grayIcons)*) |
136 | END; |
136 | END |
137 | END get; |
137 | END get; |
Line 138... | Line 138... | ||
138 | 138 | ||
139 | 139 |