Subversion Repositories Kolibri OS

Rev

Rev 9898 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9898 Rev 9912
Line 375... Line 375...
375 
    btnTextColor := buf[7];
 375 
    btnTextColor := buf[7];
376 
    borderColor := buf[9];
 376 
    borderColor := buf[9];
377 
END GetSystemColors;
 377 
END GetSystemColors;
Line -... Line 378...
- 
 
 378 
 
- 
 
 379 
 
- 
 
 380 
PROCEDURE RolledUp* (): BOOLEAN;
- 
 
 381 
VAR
- 
 
 382 
	buffer: ARRAY 1024 OF BYTE;
- 
 
 383 
BEGIN
- 
 
 384 
	K.sysfunc3(9, sys.ADR(buffer[0]), -1)
- 
 
 385 
	RETURN ODD(LSR(buffer[70], 2))
- 
 
 386 
END RolledUp;
378 
 
 387