Subversion Repositories Kolibri OS

VAR

VAR

    toolbarColor*, scrollColor*, scrollBkColor*,

    toolbarColor*, scrollColor*, scrollBkColor*,

    borderColor*, shadowColor*,

    borderColor*, shadowColor*, (*darkColor*, lightColor*,*)

    caseColor*, disCaseColor*: INTEGER;

    caseColor*, disCaseColor*: INTEGER;

BEGIN

BEGIN

    KOSAPI.sysfunc2(5, time)

    KOSAPI.sysfunc2(5, time)

END Pause;

END Pause;

PROCEDURE ButtonCode* (): INTEGER;

PROCEDURE ButtonCode* (VAR middle: BOOLEAN): INTEGER;

VAR

VAR

    res: INTEGER;

BEGIN

BEGIN

    middle := FALSE;

    res := KOSAPI.sysfunc1(17);

    res := KOSAPI.sysfunc1(17);

    IF res MOD 256 = 0 THEN

        res := LSR(res, 8);

        res := LSR(res, 8)

        middle := TRUE

    ELSE

    ELSE

        res := 0

        res := 0

    END

    END

    disCaseColor := 0808080H;

    disCaseColor := 0808080H;

    ASSERT(LEN(buf) >= 10);

    ASSERT(LEN(buf) >= 10);

    KOSAPI.sysfunc4(48, 3, SYSTEM.ADR(buf[0]), 40);

(*    darkColor := buf[2];

    lightColor := buf[3];*)

    winColor := buf[5];

    winColor := buf[5];

    textColor := buf[8];

    textColor := buf[8];

    btnColor := buf[6];

    btnColor := buf[6];